| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*) | :: | CurrentDateTimeString |
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.
SUBROUTINE CreateCurrentDateTimeString(CurrentDateTimeString)
! SUBROUTINE INFORMATION:
! AUTHOR Linda Lawrie
! DATE WRITTEN October 2010
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Be able to supply a current date/time string from intrinsic calls so
! that one is always available.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
CHARACTER(len=*) :: CurrentDateTimeString
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
integer, dimension(8) :: value
character(len=15) datestring ! supposedly returns blank when no date available.
!value(1) Current year
!value(2) Current month
!value(3) Current day
!value(4) Time difference with respect to UTC in minutes (0-59)
!value(5) Hour of the day (0-23)
!value(6) Minutes (0-59)
!value(7) Seconds (0-59)
!value(8) Milliseconds (0-999)
CALL DATE_AND_TIME(date=datestring,values=value)
IF (datestring /= Blank) THEN
WRITE(CurrentDateTimeString,'(1X,"YMD=",I4,".",I2.2,".",I2.2,1X,I2.2,":",I2.2)') &
value(1),value(2),value(3),value(5),value(6)
ELSE
CurrentDateTimeString=' unknown date/time'
ENDIF
RETURN
END SUBROUTINE CreateCurrentDateTimeString