      SUBROUTINE YYDDD(LYYDDD)                                            00001 
      DIMENSION M(11)                                                     00002 
      LOGICAL*1 LYYDDD(1)                                                 00003 
      DATA M(1),M(2),M(3),M(4),M(5),M(6),M(7),M(8),M(9),                  00004 
     1 M(10),M(11)/31,28,31,30,31,30,31,31,30,31,30/                      00005 
      CALL IDATE(IMONTH,JDAY,KYEAR)                                       00006 
      LYYDDD(1)=' '                                                       00007 
      ENCODE(2,1,LYYDDD(2)) KYEAR                                         00008 
1     FORMAT(I2)                                                          00009 
      ID = 0                                                              00010 
      DO 32758 I=1,IMONTH-1                                               00011 
      ID=ID+M(I)                                                          00011 
32758 CONTINUE                                                            00011 
      ID=ID+JDAY                                                          00012 
      ENCODE(3,2,LYYDDD(4)) ID                                            00013 
2     FORMAT(I3)                                                          00014 
      RETURN                                                              00015 
      END                                                                 00016 
