SUBROUTINE SECYMD (SECPST,  YMD)
C
C     ********************************************
C
C     INPUT:  SECPST = SECONDS PAST 1950
C
C$    OUTPUT: YMD(1) = YEAR
C$            YMD(2) = MONTH
C$            YMD(3) = DAY
C$            YMD(4) = HOUR
C$            YMD(5) = MINUTE
C$            YMD(6) = SECOND
C
C     ********************************************
C
      INTEGER SECPST,YMD(6),UTC(5)
C
C     ********************************************
C
      CALL SECUTC (SECPST,  UTC)
      CALL UTCYMD (UTC,  YMD)
      RETURN
      ENDPROGRAM