Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- unrefngdc

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
unrefngdc
Synopsis
/infobank/programs/ngdc/unrefngdc/unrefngdc.for
Description
  Program to divide an NGDC data file in the 120 column MGD77 format

  into the DAPS format files for navigation, bathymetry, gravity,
  magnetics, and shot points.
       
PROMPTS
  Input  file    = NGDC file

  Output file #1 = NAV (.050)
  Output file #2 = BAT (.320)
  Output file #3 = GRV (.160)
  Output file #4 = MAG (.220)
  Output file #5 = SHT (.400)
  Enter name of input file:
  Enter name of output file #1:
  Enter name of output file #2:
  Enter name of output file #3:
  Enter name of output file #4:
  Enter name of output file #5:
    
FORMAT
  Please note that for all data fields, the decimal point is IMPLIED.

  
  The 120 MGD77 input format is:
  (t1, i1,      3-identifier
   t2, a8,      cruise identifier
   t10, a1,     time zone correction sign
   t11, f4.2,   time zone correction (0000 = unspecified)
   t15, i2,     year
   t17, i2,     month
   t19, i2,     day
   t21, i2,     hour
   t23, f5.3,   minute
   t28, a1,     latitude sign
   t29, f7.5,   latitude (degrees)
   t36, a1,     longitude sign
   t37, f8.5,   longitude (degrees)
   t45, i1,     navigation type:
                  1 = observed
                  3 = interpolated
                  9 = unspecified
   t46, f6.4,   2-way travel time (seconds; 999999 = unspecified)
   t52, f6.1,   corrected depth (meters; 999999 = unspecified)
   t58, i2,     bathymetry correction procedure:
                  1-55 = Matthews area number; 
                    59 = unspecified Matthews area;
                    99 = unspecified
   t60, i1,     bathymetry type:
                  1 = observed
                  3 = interpolated
                  9 = unspecified
   t61, f6.1,   sensor 1 observed magnetics (nanoteslas)
   t67, f6.1,   sensor 2 (999999 = unspecified)
   t73, a1,     residual magnetics sign
   t74, f5.1,   residual magnetics (nanoteslas; 99999 = unspecified)
   t79, i1,     sensor used for residual magnetics
   t80, a1,     diurnal correction sign
   t81, f4.1,   diurnal correction
                  (9999 = uncorrected total & residual magnetics)
   t85, a1,     sensor position sign:
                  + = depth
                  - = altitude
   t86, f5.0,   sensor position (meters; 00000 = unspecified)
   t91, f7.1,   observed gravity (milligals; 9999999 = unspecified)
   t98, a1,     eotvos correction sign
   t99, f5.1,   eotvos correction (milligals; 99999 = unspecified)
   t104, a1,    free-air anomaly sign
   t105, f4.1,  free-air anomaly (milligals; 9999 = unspecified)
   t109, i8,    shot point id number
   t117, i1,    gravity quality (9 = unspecified)
   t118, i1,    magnetics quality (9 = unspecified)
   t119, i1,    bathymetry quality (9 = unspecified)
   t120, i1)    navigation quality (9 = unspecified)
    
SUBROUTINES
  openem    (external shareable)

  julianday (external shareable)
  forerror  (external shareable)
    
AUTHOR
  Carolyn Degnan, 01/29/85

    
Reads
          read (InputUnit, 10, end = 900, iostat = ErrorFlag)
     *        Year, Month, Day, Hour, DecimalMinute,
     *        Latitude, Longitude, TravelTime, CorrectedDepth,
     *        ObservedMagnetics, ResidualMagnetics,
     *        ObservedGravity, Eotvos, FreeAir, ShotPointNumber
Writes
              write (NavUnit, 40) LongYear, 
     *            DayOfYear, Hour, Minute, Second, Tenth,
     *            Latitude, Longitude
                  write (BathyUnit, 50) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                TravelTime, CorrectedDepth
                  write (BathyUnit, 51) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                CorrectedDepth
                  write (BathyUnit, 52) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                TravelTime
                  write (GravUnit, 60) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                Eotvos, ObservedGravity, FreeAir
                  write (GravUnit, 61) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth, FreeAir
                  write (GravUnit, 62) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                ObservedGravity
                  write (GravUnit, 63) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth, Eotvos
                  write (GravUnit, 64) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                ObservedGravity, FreeAir
                  write (GravUnit, 65) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                Eotvos, ObservedGravity
                  write (GravUnit, 66) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                Eotvos, FreeAir
                  write (MagUnit, 70) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                ObservedMagnetics, RegionalMagnetics,
     *                ResidualMagnetics
                  write (MagUnit, 71) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                ResidualMagnetics
                  write (MagUnit, 72) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                ObservedMagnetics
                  write (ShotUnit, 80) LongYear,
     *                DayOfYear, Hour, Minute, Second, Tenth,
     *                ShotPointNumber
Opens
Calls
      call openem (1, 5)
          call getcentury (Year, Century)
          call percentage (InputUnit)
              call percentage (0)
              call forerror (ErrorFlag)
              call julianday ('JULIAN', DayOfYear, Year, Month, Day)
      call percentage (0)

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