m_datum Subroutine

public subroutine m_datum(cal_date)

returns a datum in human readable format using a standard Fortran routine

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(out) :: cal_date

Contents

Source Code


Source Code

   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