C
C     CONVERT SECONDS PAST 1950 TO YMDHMS 
C
      INTEGER YMD(6),SECP50
C
      WRITE (*,1000)
 1000 FORMAT(' SEC TO YMDHMS CONVERSION'/' SECONDS? ',$)
      READ (*,1010) SECP50
 1010 FORMAT(BN,I12)
      CALL SECYMD(SECP50,  YMD)
      WRITE (*,1070) YMD,SECP50
 1070 FORMAT(' 19',3(I2.2,'-'),2(I2.2,':'),I2.2,' = ',I11)
      STOP
      END