returns a datum in human readable format using a standard Fortran routine
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(out) | :: | cal_date |
SUBROUTINE m_datum(cal_date)
!! returns a datum in human readable format using a standard Fortran routine
CHARACTER(len=*), INTENT(OUT) :: cal_date
CHARACTER(len=10) :: time
CHARACTER(len=8) :: date
CALL DATE_AND_TIME(date=date, time=time)
cal_date = date(1:4)//"-"//date(5:6)//"-"//date(7:8)//" "//time(1:2)//":"//time(3:4)//":"//time(5:10)
END SUBROUTINE m_datum