Coastal & Marine Geology InfoBank
allcaps
/infobank/programs/edit/allcaps/allcaps.for
Program to change a file all to capitals.
Clint Steele 1/2/2008
read (90, '(q,a)', end = 99) * ALineLength, ALine(1:ALineLength)
write (91, '(a)') ALine(1:ALineLength)
call openem (1,1) call changecase ('CAPITALS', ALine(1:ALineLength))