Coastal & Marine Geology InfoBank
pathparts
/infobank/programs/dbase/validator/pathparts.for
Subroutine to parse a pathname.
write (ActivityID, '(80x)') write (SubDir, '(80x)')
call stringlen (ActivityID, ActivityLength) call stringlen (SubDir, SubDirLength) call changecase ('CAPITALS', CapActivityID)