Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- mainevents

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
mainevents
Synopsis
/infobank/programs/time/events/mainevents.for
Description
  Program to create event file based on time jumps.

       
COMMENTS
  Initial time gap is 5 minutes.

  Over 250 gaps causes program to double the time gap and try again.
  The existance of justlines.keep in the /meta/ directory
  indicates to the program to not use time, but to use line changes.
    
PROMPTS
  Enter input file name:

    
SUBPROGRAMS
  openem       (external shareable)

  forerror     (external shareable)
  countheaders (internal function)
    
AUTHOR
  Clint Steele    7/10/96

  based on TMECHK
  Michael Hamer   7/6/98
  added timegap value output to a separate file
  Clint Steele    3/4/04
  added justlines.keep recognition

    
Reads
      read (AreaUnit, '(t10,f9.5,1x,f9.5,1x,f10.5,1x,f10.5)')
     *       North, South, East, West
Writes
Opens
      open (unit = OutputUnit,
     *        access = 'sequential',
     *        file = OutputFileName(1:OutputLength),
     *        form = 'formatted',
     *        status = 'unknown')
          open (unit = AreaUnit,
     *        access = 'sequential',
     *        file = InputFileName(1:12+IDLength)//
     *             '/meta/'//LongID(1:IDLength+3)//'.navarea',
     *        form = 'formatted',
     *        status = 'old')
Calls
      call openem (1, 0)
      call stringlen (InputFileName, NameLength)
      call fullpath (InputFileName, NameLength, LongID)
      call stringlen (LongID, IDLength)
      call stringlen (OutputFileName, OutputLength)
      call stringlen (psFileName, psLength)
          call justlines (InputUnit, OutputUnit, 
     *        OutputFileName(1:OutputLength), OutputCount)
          call normalnav (InputUnit, OutputUnit, TimeUnit,
     *        OutputFileName(1:OutputLength), OutputCount)

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/events/mainevents.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:53 PDT 2013  (chd)