Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- refmtthales

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
refmtthales
Synopsis
/infobank/programs/nav/refmtthales/refmtthales.for
Description
  Program to convert Thales GeoSolutions, Inc. navigation (.dat) files

  to DAPS standard format
       
AUTHOR
  Clint Steele    1/30/2002


    
Reads
          read (90, '(q,a)', end = 99) ALineLength, ALine
          read (ALine, 
     *      '(6(i2,1x),i1,1x,a1,i2,1x,f7.4,1x,a1,i3,1x,f7.4)')
     *      Month, Day, Year, Hour, Minute, Seconds, Tenth,
     *      NSHemisphere, LatDeg, LatMin, 
     *      EWHemisphere, LongDeg, LongMin
Writes
      write (InName, '(255x)')
         write (91, 
     *     '(i4.4,i3.3,3i2.2,i1.1,t16,f9.5,t26,f10.5,1x,a)')
     *       Year+Century, JDay, Hour, Minute, Seconds, Tenth,
     *       Latitude, Longitude, InName(Slash:Dat-1)
Opens
Calls
      call openem (1,-1)
      call stringlen (InName, InNameLength)
         call getcentury (Year, Century)
         call julianday ('JULIAN', JDay, Year+Century, 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/nav/refmtthales/refmtthales.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:50 PDT 2013  (chd)