SUBROUTINE SECUTC (SECPST,  UTC)
C
C     ********************************************
C
C     INPUT:  SECPST = SECONDS PAST 1950
C
C$    OUTPUT: UTC(1) = YEAR
C$            UTC(2) = DAY OF YEAR
C$            UTC(3) = HOUR
C$            UTC(4) = MINUTE
C$            UTC(5) = SECOND
C
C     ********************************************
C
      INTEGER SECPST,UTC(5),SEC
C
C     ********************************************
C
      SEC = SECPST
      UTC(2) = SEC / 86400 + 1
      UTC(1) = ((UTC(2) + 730) * 4) / 1461 - 2
      UTC(2) = UTC(2) - ((UTC(1) * 365) + ((UTC(1) + 1) / 4))
      UTC(1) = UTC(1) + 50
      SEC    = MOD (SEC,86400)
      UTC(3) = SEC / 3600
      UTC(4) = MOD (SEC,3600) / 60
      UTC(5) = MOD (SEC,60)
      RETURN
      ENDPROGRAM