SUBROUTINE JULIAN(IDAY,IYEAR) C C This routine returns the Julian date for today. C C IDAY Number of days since the first of the year. C IYEAR Year-1900. C C Note: This subroutine is good until the year 2000. C DIMENSION IMONTH(12) DATA IMONTH/31,28,31,30,31,30,31,31,30,31,30,31/ C CALL IDATE(IA,IB,IYEAR) ID = MOD( IYEAR, 4 ) IDAY = 0 IF( IA .EQ. 1) GO TO 1100 DO 1000 I=1,IA-1 1000 IDAY = IDAY + IMONTH(I) 1100 IF( ( IA .GT. 2 ) .AND. ( ID .EQ. 0 ) ) 1 IDAY = IDAY + 1 IDAY = IDAY + IB RETURN END