mildatim.f

Go to the documentation of this file.

C$PROG MILDATIM  - Milner's date & time routine - returns 20 bytes ASCII
C
C     ******************************************************************
C     BY W.T. MILNER AT HRIBF - LAST MODIFIED 06/18/2002 - for gnu
C     ******************************************************************
C
      SUBROUTINE mildatim(JAR)
C
      IMPLICIT NONE
C
C     ------------------------------------------------------------------
      INTEGER*4    IAR(6),YR,MO,DA,HR,MN,SC
      CHARACTER*4  MON(12)
C
      CHARACTER*20 JAR

      equivalence(yr,iar(1)),
     &            (mo,iar(2)),
     &            (da,iar(3)),
     &            (hr,iar(4)),
     &            (mn,iar(5)),
     &            (sc,iar(6))
C

C
      DATA         mon/'Jan-','Feb-','Mar-','Apr-','May-','Jun-',
     &                 'Jul-','Aug-','Sep-','Oct-','Nov-','Dec-'/
C

      SAVE
C
C     ------------------------------------------------------------------
C
c      CALL MILYMDHMS(IAR)
C
      WRITE(jar,10)da,mon(mo),yr,hr,mn,sc
   10 FORMAT(i2.2,'-',a4,i4,1x,i2.2,':',i2.2,':',i2.2)
C
      RETURN
      END