Create a set of axes on a figure
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | ny | Number of subplot rows |
||
integer, | intent(in) | :: | nx | Number of subplot columns |
||
integer, | intent(in) | :: | i | Subplot to use |
||
real(kind=wp), | intent(in), | optional | :: | aspect | Aspect ratio of the axes |
|
logical, | intent(in), | optional | :: | is3d |
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.
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 subplot(ny,nx,i,aspect,is3d)
!! Create a set of axes on a figure
integer,intent(in)::nx
!! Number of subplot columns
integer,intent(in)::ny
!! Number of subplot rows
integer,intent(in)::i
!! Subplot to use
real(wp),intent(in),optional::aspect
!! Aspect ratio of the axes
logical,intent(in),optional::is3d
logical::is3dl
call plssub(nx,ny)
call pladv(i)
call resetPen()
is3dl = .false.
if(present(is3d)) is3dl = is3d
if(is3dl) then
call plvpor(0.0_pp,1.0_pp,0.0_pp,1.0_pp)
else
if(present(aspect)) then
call plvasp(real(aspect,pp))
else
call plvsta()
end if
end if
call defaultLim()
end subroutine subplot