C
C     CONVERT YY-MM-DD TO YY-DDD
C
      INTEGER YMD(6),YDDD(5)
C
      WRITE (*,1000)
 1000 FORMAT(' YY-MM-DD TO YY-DDD CONVERSION'/'  YEAR ? ',$)
      READ (*,1010) YMD(1)
 1010 FORMAT(BN,I2)
      WRITE (*,1020)
 1020 FORMAT(' MONTH ? ',$)
      READ (*,1010) YMD(2)
      WRITE (*,1030)
 1030 FORMAT('   DAY ? ',$)
      READ (*,1010) YMD(3)
      YMD(4) = 0
      YMD(5) = 0
      YMD(6) = 0
      CALL YMDUTC(YMD,  YDDD)
      WRITE (*,1070) (YMD(I),I=1,3), (YDDD(I),I=1,2)
 1070 FORMAT(' 19',2(I2.2,'-'),I2.2,' = 19',I2.2,'-',I3.3)
      STOP
      END