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 LowCase(str1,str2)!----- -------- --------- --------- --------- --------- --------- --------- -------! Transform upper case letters in str1 into lower case letters, result is str2!----- -------- --------- --------- --------- --------- --------- --------- -------IMPLICIT NONECHARACTER(LEN=*),INTENT(in)::str1CHARACTER(LEN=*),INTENT(out)::str2INTEGER::j,kCHARACTER(LEN=*),PARAMETER::lc='abcdefghijklmnopqrstuvwxyz'CHARACTER(LEN=*),PARAMETER::uc='ABCDEFGHIJKLMNOPQRSTUVWXYZ'!----- -------- --------- --------- --------- --------- --------- --------- -------str2=str1DO j=1,LEN_TRIM(str1)k=INDEX(uc,str1(j:j))IF(k>0)str2(j:j)=lc(k:k)END DO END SUBROUTINE LowCase