Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- juliantime

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
juliantime
Synopsis
/infobank/programs/time/juliantime/juliantime.for
Description
  Program to output julian day for year month day or

  year month and day for julian day input.
       
PROMPTS
  Enter input file name:   (up to 255 characters per record,

                  with integer time at the beginning of each record.)
  Enter output file name:
    
SUBROUTINES
  openem       (external shareable)

  howlong      (external shareable)
  julianday    (external shareable)
  forerror     (external shareable)
    
AUTHOR
  Carolyn Degnan  02/25/00            .for

  based on DESAMTIME by
  Clint Steele    11/5/84             .for

    
Reads
          read (90, 12, iostat = ErrorNumber, end = 99)
     *          Year, Month, DayOfMonth,
     *          Hour, Minute, Second, Tenths, Length, ALine(1:Length)
Writes
              write (91, 13, iostat = ErrorNumber) Year,
     *               Day, Hour, Minute, Second, Tenths, ALine(1:Length)
Opens
Calls
      call openem  (1, -1)
              call forerror (ErrorNumber)
              call julianday ('JULIAN', Day, Year, Month,
     *                         DayOfMonth)
                  call forerror (ErrorNumber)

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/time/juliantime/juliantime.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:54 PDT 2013  (chd)