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.
Source Code
function file_size(file,printf)result(size)integer::size,statuscharacter(len=*)::fileinteger,dimension(13)::bufflogical,optional::printflogical::control,printf_printf_=.false.;if(present(printf))printf_=printfinquire(file=reg(file),exist=control)if(.not.control)then write(*,*)'Cannot read '//reg(file)//'. Skip file_size'return endif open(10,file=reg(file))call fstat(10,buff,status)size=nint(dble(buff(8))/dble(1024))if(printf_)write(*,"(A,A,A,f9.6,A)")"file: **",reg(file),"** is ",size," Kb"end function file_size