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