Coastal & Marine Geology InfoBank
sound2ingen
/infobank/programs/dbase/misc/noshdb/sound2ingen.for
Program to convert reformatted NOSHDB soundings file to point generate format.
Michael Hamer 7/19/94 .for
read (InputUnit, 2, end = 99) aline, length
write (OutputUnit,5) counter, aline(22:31), aline(12:20) write (OutputUnit, 6)
call openem (1, -1)