Expanded description
| Topic |
Description |
| Name |
ngdcsamps |
| Synopsis |
/infobank/programs/refmt/ngdcsamps/ngdcsamps.for |
| Description |
Program to convert NGDC Samples information into DAPS metadata.
|
| Author |
Clint Steele
|
| Opens |
open (unit = 90,
* name = 'usgsmpcs.return',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = 91,
* name = Dir(1:DirLength)//'/'//OutFile(1:OutLength),
* access = 'append',
* form = 'formatted',
* status = 'old')
open (unit = 91,
* name = Dir(1:DirLength)//'/'//OutFile(1:OutLength),
* access = 'sequential',
* form = 'formatted',
* status = 'new')
open (unit = 91,
* name = Dir(1:DirLength)//'/'//OutFile(1:OutLength),
* access = 'append',
* form = 'formatted',
* status = 'old')
open (unit = 91,
* name = Dir(1:DirLength)//'/'//OutFile(1:OutLength),
* access = 'sequential',
* form = 'formatted',
* status = 'new')
open (unit = 91,
* name = OutFile(1:OutLength),
* access = 'append',
* form = 'formatted',
* status = 'old')
open (unit = 91,
* name = OutFile(1:OutLength),
* access = 'sequential',
* form = 'formatted',
* status = 'new')
|
| Reads |
read (90, '(q,a)', end = 99)
* Length(Loop), ALine(Loop)(1:Length(Loop))
read (ALine(30)(1:Length(30)), '(i)') Value
read (ALine(6), '(i4,i2,i2)') BYear, BMonth, BDay
read (ALine(7), '(i4,i2,i2)') EYear, EMonth, EDay
read (ALine(8)(1:Length(8)), '(f)') BLat
read (ALine(16)(1:Length(16)), '(f)') BLong
* read (ALine(12)(1:Length(12)), '(f)') ELat
* read (ALine(20)(1:Length(20)), '(f)') ELong
read (ALine(4)(1:Length(4)), '(i3)') Value
* read (ALine(25)(1:Length(25)), '(i)') Value
* read (ALine(25)(1:Length(25)), '(i)') Value
* read (ALine(26)(1:Length(26)), '(i)') Value
* read (ALine(28)(1:Length(28)), '(i)') Value
* read (ALine(29)(1:Length(29)), '(i)') Value
* read (ALine(31)(1:Length(31)), '(i)') Value
* read (ALine(32)(1:Length(32)), '(i)') Value
|
| Writes |
write (ALine(Loop), '(255x)')
write (CapID, '(10x)')
write (CapID, 53) ALine(3)(1:1), ALine(3)(2:2),
* ALine(3)(3:4), ALine(3)(5:6)
write (CapID, 53) ALine(3)(1:1), ALine(3)(2:3),
* ALine(3)(4:5), ALine(3)(6:7)
write (Equipment, '(255x)')
write (OutFile, '(255x)')
write (Dir, '(255x)')
write (91, 4) ALine(4)(1:Length(4))
write (91, 3) CapID(1:Length(3)+3)
write (91, 2) ALine(2)(1:Length(2))
write (91, 5) Equipment(1:EquipmentLength)
write (91, 7) BYear, BJulianDay,
* EYear, EJulianDay
write (91, 70) BYear, BJulianDay
write (91, 8) BLat, BLong
write (91, 80) BLat, BLong, ELat, ELong
write (91, 25) Value
write (91, 26) Value
write (91, 260) Value
write (91, 28) Value
write (91, 29) Value
write (91, 40) ALine(40)(1:Length(40))
write (91, '(1x)')
write (91, 104)
write (91, 27) ALine(27)(1:Length(27))
write (91, 101)
write (91, 102)
write (91, 105)
write (91, 30) ALine(30)(1:Length(30))
write (91, 31) Value
write (91, 32) Value
write (91, 39) ALine(39)(1:Length(39))
write (91, 139) ALine(39)(1:Length(39))
write (91, 33) ALine(33)(1:Length(33))
write (91, 35) ALine(35)(1:Length(35))
write (91, 34) ALine(34)(1:Length(34))
write (91, 36) ALine(36)(1:Length(36))
write (91, 37) ALine(37)(1:Length(37))
write (91, 38) ALine(37)(1:Length(37)),
* ALine(38)(1:Length(38))
write (91, 103)
|
| Calls |
call stringlen (ALine(3), Length(3))
call changecase ('CAPITAL', CapID)
call changecase ('SMALL', SmallID)
call changecase ('SMALL', ALine(3)(1:Length(3)))
call julianday ('JULIAN', BJulianDay, BYear, BMonth, BDay)
call julianday ('JULIAN', EJulianDay, EYear, EMonth, EDay)
call stringlen (Equipment, EquipmentLength)
call stringlen (Equipment, EquipmentLength)
call stringlen (OutFile, OutLength)
call stringlen (OutFile, OutLength)
call changecase ('SMALL', OutFile)
call stringlen (Dir, DirLength)
call changecase ('CAPITAL', ALine(4)(1:Length(4)))
|
|
