Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- lamont2daps

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

       
AUTHOR
  CDegnan, 8/23/01, modified for /we/ray/larse/e-15-94-sc.nav input

  CDegnan, 8/10/94, modified processnoshdb.for to DAPS standard
  CSteele & CDegnan, 3/12/2002, renamed to lamont2daps.for
         now handles all Lamont data types

    
Reads
          read (InputUnit, '(q,a)', iostat = ErrorFlag) 
     *        TheLineLength, TheLine(1:TheLineLength)
              read (TheLine(1:TheLineLength), 400, iostat = ErrorFlag)
     *          iYr,iDa,iHr,iMin,iSec,iTen,iThou,
     *          NS,iLatDeg,rLatMin,
     *          EW,iLonDeg,rLonMin
              read (TheLine(1:TheLineLength), 401, iostat = ErrorFlag)
     *          iYr,iDa,iHr,iMin,iSec,iTen,iThou
              read (TheLine(iNSPosition+1:TheLineLength), 402, 
     *            iostat = ErrorFlag)
     *            NS, iLatDeg, rLatMin,
     *            EW, iLonDeg, rLonMin
Writes
              write (aShot , '(9x)')
                       write (OutputUnit, 500)
     *                       iYr+iCentury,iDa,iHr,iMin,iSec,iTen,
     *                       rLat,rLon,
     *                       TheLine(48:TheLineLength),
     *                       TheLine(1:TheLineLength)
                      write (OutputUnit, 501)
     *                       iYr+iCentury,iDa,iHr,iMin,iSec,iTen,
     *                       rLat,rLon,
     *                       aShot,
     *                       TheLine(iNSPosition+28:TheLineLength),
     *                       TheLine(1:TheLineLength)
Opens
Calls
      call openem (1, 1)
          call getcentury (iYr, iCentury)
                  call forerror (ErrorFlag)

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