SUBROUTINE INPUT
IMPLICIT INTEGER (A-Z)
COMMON /ZECHO/ECHO
COMMON /ZIBUFF/IBUFF(80)
COMMON /ZISIZE/ISIZE
COMMON /ZIUNIT/IUNIT
COMMON /ZOUNIT/OUNIT
READ (IUNIT,10) (IBUFF(I),I=1,ISIZE)
10 FORMAT (80A1)
IF (ECHO.NE.1) RETURN
WRITE (OUNIT,20) (IBUFF(I),I=1,ISIZE)
20 FORMAT (1H ,80A1)
RETURN
END