Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- mips2daps

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
mips2daps
Synopsis
/infobank/programs/refmt/mips2daps/mips2daps.for
Description
  Program to reformat a MIPS navigation file

  into the DAPS navigation file format.
       
PROMPTS
  Input  file    = MIPS navigation file

  Output file    = DAPS time/lat/lon/etc file
  Enter name of input file:
  Enter name of output file:
    
INPUT_FORMAT
  The MIPS input format is:

  ( t1,   i4,   year
    t5,   i2,   month
    t7,   i2,   day
   t10,   i2,   hour
   t12, f5.3,   minute
   t14, f5.2,   second
   t20,f13.9,   latitude
   t34,f14.9,   longitude
   t48, f7.2,   ?
   t55, f7.2,   ?
   t62, f7.2,   heading
   t69, f7.3,   velocity
   t76,f10.3,   depth
   t86,f10.3,   ?
   t96,f10.3,   ?
  t106,f10.3,   ?
  t116,   i6)   ?
    
OUTPUT_FORMAT
  The DAPS output format is:

  ( t1, i4.4,   Year
    t5, i3,3,   DayOfYear
    t8, i2.2,   Hour
   t10, i2.2,   Minute
   t12, i2.2,   Second
   t14, i1.1,   TenthOfSecond
   t16, f9.5,   Latitude
   t26,f10.5,   Longitude
   t36, f7.2,   ?
   t43, f7.2,   ?
   t50, f7.2,   Heading
   t57, f7.3,   Velocity
   t64,f10.3,   Depth
   t74,f10.3,   ?
   t84,f10.3,   ?
   t94,f10.3,   ?
  t104,   i6)   ?
    
SUBROUTINES
  openem     (external shareable)

  forerror   (external shareable)
  julianday  (external shareable)
    
AUTHOR
  Carolyn Degnan, 06/21/99

  based on /infobank/programs/refmt/mgd772daps

    
Reads
          read (InputUnit, 10, end = 900, iostat = ErrorFlag)
     *        Full, Year, Month, Day, Hour, Minute,
     *        DecimalSecond,
     *        Latitude, Longitude, Etc
Writes
              write (OutputUnit, 40)
     *            FullYear,
     *            DayOfYear, Hour, Minute, Second, Tenth,
     *            Latitude, Longitude, Etc
Opens
Calls
      call openem (1, 1)
              call forerror (ErrorFlag)
              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/mips2daps/mips2daps.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:43 PDT 2013  (chd)