Link to USGS home page Link to InfoBank home page Link to InfoBank home page
USGS Coastal and Marine Geology banner.   Search InfoBank.
USGS InfoBank program -- facs2lines Skip navigational links
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab Activities tabs
   
InfoBank Programs: by Name   by Data Type   General Tools   GIS   Plotting   Web   USGS Disclaimer   InfoBank Programs   Boothill  
   
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
Calls 
 call openem (1, -1)

Skip footer navigational links
InfoBank   Menlo Park Center   Santa Cruz Center   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program  
U. S. Department of the Interior   U. S. Geological Survey   Geologic Information   Ask-A-Geologist   USGS privacy statement   Disclaimer  

URL: http://walrus.wr.usgs.gov/infobank/programs/refmt/facs2lines/facs2lines.doc.html
Maintainer: Clint Steele
Comments: e-mail
Last modified: Fri Oct 15 03:17:26 PDT 2004  (wcs)