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 file_untargz(tarball)character(len=*)::tarballinteger::controllogical::iexist,iopeninteger::unitcharacter(len=4),parameter::type='.tgz'character(len=100)::cmsginquire(file=reg(tarball)//type,exist=iexist)if(.not.iexist)then write(*,"(A)")"Tarball "//str(tarball)//type//" not present: skip"return!nothing to be done:endif write(*,"(A)")"deflate "//reg(tarball)//type call execute_command_line("tar -xzf "//str(tarball)//type//" ",CMDSTAT=control,CMDMSG=cmsg)if(control>0)then write(*,"(A)")"Command tar -xzf failed with error: "//str(cmsg)elseif(control<0)then write(*,"(A)")"Command tar -xzf not supported"else call execute_command_line("rm -f "//str(tarball)//type)endif end subroutine file_untargz