Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- tom2daps

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
tom2daps
Synopsis
/infobank/programs/refmt/tom2daps/tom2daps.for
Description
  Program to convert GrafNav data from Tom Reiss to DAPS standard

  format.
       
AUTHOR
  Clint Steele     2/7/2008


    
Reads
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (ALine(45:46), '(i2)') Month
          read (ALine(48:49), '(i2)') Day
          read (ALine(51:54), '(i4)') Year
          read (ALine(57:58), '(i2)') Hour
          read (ALine(60:61), '(i2)') Minute
          read (ALine(63:64), '(i2)') Second
          read (ALine(66:66), '(i1)') Tenth
          read (ALine(68:70), '(i3)') LatDeg
          read (ALine(72:73), '(i2)') LatMin
          read (ALine(75:82), '(f8.5)') LatSec
          read (ALine(84:87), '(i4)') LongDeg
          read (ALine(89:90), '(i2)') LongMin
          read (ALine(92:99), '(f8.5)') LongSec
Writes
              write (91, '(a)') ALine(1:ALineLength)
          write (91, '(i4.4,i3.3,3i2.2,i1.1,t16,f9.5,t26,f10.5,
     *         t52,a,t80,a,t90,a)')
     *         Year, JDay, Hour, Minute, Second, Tenth,
     *         Latitude, Longitude,
     *         ALine(1:7), ALine(102:ALineLength)
Opens
Calls
      call openem (1,1)
          call julianday ("JULIAN", JDay, Year, Month, Day)

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