1 subroutine input_echo(ir,iw) 2C$Id$ 3 implicit none 4#include "inp.fh" 5 character*256 line 6 integer ir, iw 7c 8 integer lenline 9c 10 rewind ir 11 write(iw,*) 12 write(iw,10000) 1310000 format(/,/,30('='),' echo of input deck ',30('=')) 1400001 continue 15 read(ir,'(a)',err=00002,end=00002)line 16 lenline = inp_strlen(line) 17 write(iw,'(a)')line(1:lenline) 18 goto 00001 1900002 continue 20 write(iw,10001) 2110001 format(80('='),/,/) 22 rewind ir 23 call inp_init(ir,iw) 24 end 25