@salgerman: I didn't know about "sed". I'll have a look
@gummibaer: You can find my code hereunder.
PROGRAM MultipleFileReplacer
IMPLICIT NONE
INTEGER, PARAMETER :: mxll=1000
INTEGER :: amountoffiles,ifi,i1,i2,amountofwords,iw,sumclosed
INTEGER, DIMENSION(:), ALLOCATABLE :: iur,iuw,isclosed...