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_read_2d(self,pfile)type(pdf_kernel_2d)::selfcharacter(len=*)::pfileinteger::i,N1,N2,unitif(.not.self%status)then print*,"PDF_READ: PDF not allocated"endif open(free_unit(unit),file=trim(pfile))read(unit,*)N1,N2call pdf_allocate(self,[N1,N2])read(unit,*)self%xminread(unit,*)self%xmaxread(unit,*)self%dxread(unit,*)self%Ndataread(unit,*)self%xread(unit,*)self%yread(unit,*)self%pdfread(unit,*)self%sigmaread(unit,*)self%statusread(unit,*)self%varianceread(unit,*)self%rescaleclose(unit)end subroutine pdf_read_2d