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 doHist
!! ![hist](|media|/example-8.svg)
integer,parameter::N = 10000
real(wp),dimension(N,12)::r
real(wp),dimension(N)::x
real(wp),dimension(:,:),allocatable::h
call random_number(r)
x = sum(r,2)-6.0_wp
call figure()
call subplot(1,2,1)
call xylim(mixval(x),[0.0_wp,1.05_wp])
call hist(x,20)
call ticks()
h = binData(x,20,normalize=2)
call subplot(1,2,2)
call xylim(mixval(h(:,1)),[0.0_wp,1.05_wp*maxval(h(:,2))])
call bar(h(:,1),h(:,2),c=h(:,2),relWidth=1.0_wp)
call ticks()
end subroutine doHist