C
C     CONVERT YDDDHMS TO SECONDS PAST 1950
C
      INTEGER YDDD(5), SECP50
C
      WRITE (*,1000)
 1000 FORMAT(' YDDDHMS TO SEC CONVERSION'/'  YEAR ? ',$)
      READ (*,1010) YDDD(1)
 1010 FORMAT(BN,I2)
      WRITE (*,1030)
 1030 FORMAT(' DAY # ? ',$)
      READ (*,1035) YDDD(2)
 1035 FORMAT(BN,I3)
      WRITE (*,1040)
 1040 FORMAT('  HOUR ? ',$)
      READ (*,1010) YDDD(3)
      WRITE (*,1050)
 1050 FORMAT('   MIN ? ',$)
      READ (*,1010) YDDD(4)
      WRITE (*,1060)
 1060 FORMAT('   SEC ? ',$)
      READ (*,1010) YDDD(5)
      CALL UTCSEC(YDDD,  SECP50)
      WRITE (*,1070) YDDD,SECP50
 1070 FORMAT(' 19',I2.2,'-',I3.3,'-',2(I2.2,':'),I2.2,' = ',I11)
      STOP
      END