Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- lineevents

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
lineevents
Synopsis
/infobank/programs/time/lineevents/lineevents.for
Description
  Program to create ARC event file based on line changes.

       
PROMPTS
  Enter input file name:

    
SUBPROGRAMS
  openem       (external shareable)

  forerror     (external shareable)
    
AUTHOR
  Clint Steele    7/11/96


    
Reads
          read (InputUnit, '(q,a)', end = 99) 
     *                  Length, ALine(1:Length)
          read (InputUnit, '(q,a)', end = 99) 
     *                  Length, ALine(1:Length)
Writes
      write (StartLine, '(1024x)')
      write (EndLine, '(1024x)')
          write (ALine, '(1024x)')
          write (ALine, '(1024x)')
          write (LineName, '(9x)')
          write (OutputRecord, 410)
     *          StartLine(1:14),
     *          EndLine(1:14),
     *          LineName(1:Length)
          write (OutputUnit, '(a)') 
     *                    OutputRecord(1:OutputRecordLength)
          write (StartLine, '(1024x)')
          write (EndLine, '(1024x)')
Opens
      open (unit = 91,
     *        access = 'sequential',
     *        file = OutputFileName(1:OutputLength),
     *        form = 'formatted',
     *        status = 'unknown')
Calls
      call openem (1, 0)
      call stringlen (InputFileName, NameLength)
      call stringlen (OutputFileName, OutputLength)
             call stringlen (Command, Length)
             call system (Command(1:Length))
          call stringlen (LineName, Length)
          call stringlen (OutputRecord, OutputRecordLength)

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