Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- ewingnav2daps

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
ewingnav2daps
Synopsis
/infobank/programs/refmt/ewingnav2daps/ewingnav2daps.for
Description
  Program to reformat Ewing navigation to DAPS format.

       
AUTHOR
  Clint Steele       2/9/05


    
Reads
      read (90, '(q,a)') ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (ALine(1:2), '(i2)') Year
          read (ALine(4:19), '(i3,1x,i2,1x,i2,1x,i2,1x,i3)') 
     *        Day, Hour, Minute, Second, Tenths
          read (ALine(21:25), '(i)') Shot
          read (ALine(29:38), '(i2,1x,f7.4)') Lat, LatDD
          read (ALine(42:52), '(i3,1x, f7.4)') Long, LongDD
          read (90, 2, end = 99)
     *        Year, Month, Day, Hour, Minute, Second,
     *        Longitude, Latitude
Writes
          write (91, '(i4.4,i3.3,3i2.2,i1.1,t16,f9.5,t26,f10.5,
     *        t37,a,t50,i5.5)')
     *        Year, Day, Hour, Minute, Second, Tenths,
     *        Latitude, Longitude, ALine(54:ALineLength), Shot
          write (91, 3)
     *        Year, JDay, Hour, Minute, Second,
     *        Latitude, Longitude-360.0
Opens
Calls
      call openem (1,1)
          call getcentury (Year, Century)
          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/ewingnav2daps/ewingnav2daps.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:27 PDT 2013  (chd)