Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- facs2lines

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
facs2lines
Synopsis
/infobank/programs/refmt/facs2lines/facs2lines.for
Description
  Program to reformat fac text file into lines.

   
       
AUTHOR
  Carolyn Degnan        .for      3/12/99


    
Reads
      read (5, '(a7)') id
      read (5, '(a4)') yr
          read (90, 1, end = 99) aline
          read (aline, 10) line,equip,da1,hr1,min1,da2,hr2,min2
Writes
              write (91, 21) yr,da1,hr1,min1,sec,ten,lat,lon,id,
     *            equip,label,line,start 
              write (91, 21) yr,da2,hr2,min2,sec,ten,lat,lon,id,
     *            equip,label,line,end 
              write (91, 31) yr,da1,hr1,min1,sec,ten,lat,lon,id,
     *            equip,label,line,start,aline(31:comend) 
              write (91, 21) yr,da2,hr2,min2,sec,ten,lat,lon,id,
     *            equip,label,line,end 
Opens
Calls
      call openem (1, -1) 

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