SUBROUTINE CHKIO (FD, IER)
      INTEGER FD, IER
      IF(.NOT.(IER .EQ. 1 .OR. IER .EQ. 27))GOTO 23000
      RETURN
23000 CONTINUE
      WRITE (2, 1) IER, FD
1     FORMAT(" *** error code ", I6, " from channel ", I6)
      RETURN
      END