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
|
| 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)
|
|
