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