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.
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 opntext(lu,filename,status,rc)integer,intent(in)::lu! logical unit numbercharacter(len=*),intent(in)::filename! filename to be openedcharacter(len=*),intent(in)::status! the value for STATUS=<>integer,intent(out)::rc! the status!-----------------------------------------------------------------------!! local parametercharacter(len=len(status))::Ustatinteger::iostat#ifdef _UNICOScall asnunit(lu,'-R',iostat)! remove any set attributesif(iostat/=0)thenrc=ESMF_FAILUREreturn! let the parent handle itend if#endifUstat=ESMF_UtilStringUpperCase(string=status)select case(Ustat)case('APPEND')open(&unit=lu,&file=filename,&form='formatted',&access='sequential',&status='unknown',&action='readwrite',&position='append',&iostat=iostat)case defaultopen(&unit=lu,&file=filename,&form='formatted',&access='sequential',&status=status,&action='read',&position='asis',&iostat=iostat)end select if(iostat==0)thenrc=ESMF_SUCCESSelserc=ESMF_RC_FILE_OPENendif end subroutine opntext