Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- rosenbauer2daps

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
rosenbauer2daps
Synopsis
/infobank/programs/refmt/rosenbauer2daps/rosenbauer2daps.for
Description
  Program to convert Bob Rosenbauer's standard excel spreadsheet

  to DAPS.
       
AUTHOR
  Clint Steele      11/16/2007


    
Reads
      read (5, '(q,a)') IDLength, ID(1:IDLength)
          read (90, '(q,a)', end=99) ALineLength, ALine(1:ALineLength)
          read (ALine(Tab(2)+1:Slash1-1), '(i)') Month
          read (ALine(Slash1+1:Slash2-1), '(i)') Day
          read (ALine(Slash2+1:Tab(3)-1), '(i)') Year
          read (ALine(Tab(3)+1:Colon-1), '(i)') Hour
          read (ALine(Colon+1:Colon+2), '(i)') Minute
          read (ALine(Tab(4)+3:Tab(4)+4), '(i)', err=9) LatDeg
          read (ALine(Tab(5)-7:Tab(5)-2), '(f)') LatMin
          read (ALine(Tab(5)+3:Tab(5)+5), '(i)') LongDeg
          read (ALine(Tab(6)-7:Tab(6)-2), '(f)') LongMin
Writes
          write (91, 3) Year, DayOfYear, ZuluHour, Minute,
     *         Latitude, Longitude, ID(1:IDLength),
     *         ALine(1:Tab(1)-1),
     *         ALine(Tab(1)+1:Tab(2)-1),
     *         ALine(Tab(6)+1:Tab(7)-1)
Opens
Calls
      call openem (1,1)
      call changecase ('CAPITALS', ID(1:IDLength))
          call julianday ('JULIAN', DayOfYear, 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/rosenbauer2daps/rosenbauer2daps.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:47 PDT 2013  (chd)