Coastal & Marine Geology InfoBank
clint
/infobank/programs/dbase/onoffinused/clint.for
read (90, '(q,a)', end = 99) flen, fname(1:flen) read (92, '(q,a)', end = 98) alen, aline(1:alen)
write (91, '(a)') fname(1:flen)
open (unit = 92, * access = 'sequential', * status = 'unknown', * form = 'formatted', * name = fname(1:flen))
call openem (1,-1)