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