Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- edwards2samples

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
edwards2samples
Synopsis
/infobank/programs/refmt/edwards2samples/edwards2samples.for
Description
  Program to reformat Brian Edwards's Excel station information 

  to standards DAPS samples format.
       
AUTHOR
  Carolyn Degnan    4/1/98


    
Reads
      read (90, '(i4)', err=99, end = 99) StaNo
      read (90, '(a4)', err=99, end = 99) SampID
      read (90, '(a4)', err=99, end = 99) SCCWRPID
      read (90, '(i1)', err=99, end = 99) GravityYN
      read (90, '(i1)', err=99, end = 99) TopYN
      read (90, '(i2)', err=99, end = 99) Lat
      read (90, '(f5.2)', err=99, end = 99) LatN
      read (90, '(f8.5)', err=99, end = 99) LatDD
      read (90, '(i3)', err=99, end = 99) Lon
      read (90, '(f5.2)', err=99, end = 99) LonW
      read (90, '(f9.5)', err=99, end = 99) LonDD
      read (90, '(i4)', err=99, end = 99) DepthM
      read (90, '(a9)', err=99, end = 99) StratSedYN
      read (90, '(i1)', err=99, end = 99) CutterYN
      read (90, '(i1)', err=99, end = 99) CatcherYN
      read (90, '(i1)', err=99, end = 99) OtherYN
      read (90, '(q,a)', err=99, end = 99) LengthCom,
     *    Comments(1:LengthCom)
Writes
      write (91, 3) Yr,Da,Hr,Min,Sec,Tenths,
     *    LatDD,LonDD,
     *    ActivityID,Comment,Line,
     *    StaNo,Roll,
     *    DepthM,DepthUnits,
     *    StartEndUnique,RecoveredLost,
     *    SampID,SCCWRPID,
     *    Comments(1:LengthCom),Gravity,Top,
     *    StratSed,Cutter,Catcher,Other
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/edwards2samples/edwards2samples.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:27 PDT 2013  (chd)