C
C SUBROUTINE 'IMPPOS'
C ===================
C
C POSITION IMAGE PLATE FILE READY TO READ THE GIVEN RECORD NUMBER
C ON THE NEXT 'IMPLRD' CALL
C
      SUBROUTINE IMPPOS(IUN,IREC,MSGERR,ERR)
C
C         IUN (I)   FORTRAN UNIT NO.
C        IREC (I)   'X' ROW NO. FOR NEXT READ VIA 'IMPLMRD'
C      MSGERR (I)   UNIT NO. FOR PRINTING ERROR MESSAGES (0 IF NO
C                   MESSAGES REQUIRED)
C         ERR (O)   ERROR FLAG: .TRUE. ERROR, .FALSE. NO ERROR
C                   (IF ERROR CHECKING DONE)
C
C   
C ***GENERAL VERSION***
C
C PARAMETER STATEMENT
C -------------------
C
C MAXLRC = MAXIMUM RECORD LENGTH COPED WITH BY THE ROUTINES
C
      PARAMETER (MAXLRC=9600)
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      LOGICAL ERR, SWAP
      INTEGER IBUF(MAXLRC/4)
      COMMON /IMPQQQ/KREC,IRECL,NBW,IBUF,SWAP
      SAVE /IMPQQQ/
C
C CODE
C ----
C
      ERR=.FALSE.
      KREC=IREC-1
      RETURN
      END
