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_1d(self,pfile)type(pdf_kernel)::selfcharacter(len=*)::pfileinteger::i,N,unitif(.not.self%status)write(*,"(A)")"PDF_READ: PDF not allocated"open(free_unit(unit),file=trim(pfile))read(unit,*)Ncall pdf_allocate(self,N)read(unit,*)self%xminread(unit,*)self%xmaxread(unit,*)self%dxread(unit,*)self%Ndataread(unit,*)self%xread(unit,*)self%pdfread(unit,*)self%sigmaread(unit,*)self%statusread(unit,*)self%varianceread(unit,*)self%rescaleclose(unit)end subroutine pdf_read_1d