simplefieldops
/infobank/programs/refmt/simplefieldops/simplefieldops.for
Program to simplify the Field Operations Questionaire responses.
Clint Steele 5/26/99
read (90, '(q,a)', end = 99) * LineLength, ALine(1:LineLength)
write (91, '(/,a)') ALine(1:LineLength) write (91, '(5x,a)') * ALine(1:LineLength) write (91, '(a)') * ALine(1:LineLength) write (91, '(a,1x,a)') * ALine(1:Dash), * ALine(Dash+1:LineLength)
call openem (1,-1) call stringlen (ALine(1:LineLength), LineLength) call changecase ('CAPITAL', BigLine(1:LineLength))