Coastal & Marine Geology InfoBank
setcopyflags
/infobank/programs/dbase/misc/infobank/setcopyflags.for
Subroutine to set flags for file types to copy.
Clint Steele 1/27/95
read (SaveOption(1:SaveLength), '(i)', iostat = Oops) * FileType
call stringlen (SaveOption, SaveLength)