...ALLOCATABLE :: InFile,OutFile,OldWord,NewWord
CHARACTER(LEN=1000) :: Line
OPEN(UNIT=11,FILE='./tobechanged.txt',STATUS='OLD')
READ(11,*)amountoffiles
ALLOCATE(InFile(amountoffiles),OutFile(amountoffiles))
DO ifi=1,amountoffiles,1
READ(11,FMT='(A)')Line
i1=INDEX(Line,'"')...