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.
Source Code
subroutine pdf_sigma_data_2d(self,data,h)type(pdf_kernel_2d)::selfreal(8),dimension(:,:)::datareal(8)::h(2,2)integer::Lif(.not.self%status)stop"PDF_=SIGMA: PDF not allocated"L=size(data,2)if(any(shape(data)/=[2,L]))stop"PDF_SET_SIGMA: DATA wrong dimensions"h=0d0h(1,1)=get_var(data(1,:))h(2,2)=get_var(data(2,:))h(1,1)=(1d0/size(data,2))**(2/6d0)*h(1,1)!Silverman's rule of thumb.h(2,2)=(1d0/size(data,2))**(2/6d0)*h(2,2)!Silverman's rule of thumb.end subroutine pdf_sigma_data_2d