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 clstext(lu,rc,status)integer,intent(in)::lu! a logical unit to closeinteger,intent(out)::rc! the statusCharacter(len=*),optional,intent(In)::status! keep/delete!-----------------------------------------------------------------------character(len=6)::status_integer::iostatstatus_='KEEP'If(Present(status))Then Select Case(Trim(status))Case('DELETE','delete')status_='DELETE'Case('KEEP','keep')status_='KEEP'Case Defaultrc=ESMF_RC_FILE_UNEXPECTEDreturn End Select End If close(lu,iostat=iostat,status=status_)#ifdef _UNICOSif(iostat==0)call asnunit(lu,'-R',iostat)! remove any attributes#endifrc=ESMF_SUCCESSend subroutine clstext