Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | codedDate |
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.
FUNCTION DateToStringWithMonth(codedDate) RESULT (stringOut)
! SUBROUTINE INFORMATION:
! AUTHOR Jason Glazer
! DATE WRITTEN August 2003
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Convert the coded date format into a usable
! string
USE General, ONLY: DecodeMonDayHrMin
IMPLICIT NONE
INTEGER, INTENT(IN) :: codedDate ! word containing encoded month, day, hour, minute
! ((month*100 + day)*100 + hour)*100 + minute
CHARACTER(len=*), PARAMETER :: DateFmt="(I2.2,'-',A3,'-',I2.2,':',I2.2)"
CHARACTER(len=12) :: stringOut
INTEGER :: Month ! month in integer format (1-12)
INTEGER :: Day ! day in integer format (1-31)
INTEGER :: Hour ! hour in integer format (1-24)
INTEGER :: Minute ! minute in integer format (0:59)
CHARACTER(LEN=3) :: monthName
IF (codedDate /= 0) THEN
monthName =''
CALL DecodeMonDayHrMin(codedDate,Month,Day,Hour,Minute)
Hour = Hour - 1
IF (Minute .EQ. 60) THEN
Hour = Hour + 1
Minute = 0
END IF
SELECT CASE (MONTH)
CASE (1)
monthName = 'JAN'
CASE (2)
monthName = 'FEB'
CASE (3)
monthName = 'MAR'
CASE (4)
monthName = 'APR'
CASE (5)
monthName = 'MAY'
CASE (6)
monthName = 'JUN'
CASE (7)
monthName = 'JUL'
CASE (8)
monthName = 'AUG'
CASE (9)
monthName = 'SEP'
CASE (10)
monthName = 'OCT'
CASE (11)
monthName = 'NOV'
CASE (12)
monthName = 'DEC'
CASE DEFAULT
monthName = '***'
END SELECT
WRITE(FMT=DateFmt, UNIT=stringOut) Day,MonthName,Hour,Minute
IF (INDEX(stringOut,'*') .GT. 0) THEN
stringOut = '-'
END IF
ELSE ! codeddate = 0
stringOut = '-'
ENDIF
END FUNCTION DateToStringWithMonth