Coastal & Marine Geology InfoBank
changechar
/infobank/programs/edit/changechar/changechar.for
Program to change specified characters.
Clint Steele 9/17/96
read (5, '(i)') OldChar read (5, '(i)') NewChar read (90, '(q,a)', end = 99) Length, ALine(1:Length)
write (91, '(a)') ALine(1:Length)
call openem (1,-1)