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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine scan_begin(iunps,substring,rew)implicit none! unit of inputinteger,intent(in)::iunps! Label to be matchedcharacter(len=*),intent(in)::substringlogical,intent(in)::rew! String read from filecharacter(len=100)::line! Flag if .true. rewind the file!logical, external :: matchbgn! logical :: matchbgninteger::ios!ios=0if(rew)rewind(iunps)do while(ios==0)read(iunps,'(a100)',iostat=ios)lineif(matchbgn(trim(line),trim(substring)))return enddo return end subroutine scan_begin