Coastal & Marine Geology InfoBank
sound2info
/infobank/programs/dbase/misc/noshdb/sound2info.for
Program to convert reformatted NOSHDB soundings file to INFO file.
Michael Hamer 7/19/94 .for
read (InputUnit, 2, end = 99) aline, length
write (OutputUnit,5) counter, aline(44:48), * aline(40:42), aline(12:20), aline(22:31), * aline(1:4), aline(6:8), aline(33:38) write (OutputUnit, 6)
call openem (1, -1)