Set the limits of the x-axis
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in) | :: | xl | |||
real(kind=wp), | intent(in) | :: | xh |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine xlim(xl,xh)
!! Set the limits of the x-axis
real(wp),intent(in)::xl,xh
real(pp)::x1,x2,y1,y2
call plgvpw(x1,x2,y1,y2)
call plwind(real(xl,pp),real(xh,pp),y1,y2)
end subroutine xlim