CALL JULIAN(IDAY,IYEAR) -- This subroutine returns the Julian date.
 
 IDAY		Number of days since the first of the year.
 IYEAR		Year-1900.
 
 Written by: R. Grandle
 Located at: [4,4] as both .FTN & .OBJ