SUBROUTINE SHRNKF(IB,N)
C MOVES FILE BEGINNING AT SCANNED RECORD N RECORDS TO LEFT
DIMENSION IPAR(10),IFRMAT(1)
DIMENSION IB(1)
COMMON IPAR,IFRMAT
M=N*IPAR(5)
IF(IPAR(6)-M-IPAR(2))2,1,1
2 TYPE 100
100 FORMAT(12HERROR SHRNKF)
CALL EXIT
1 CALL COPYFL( IB,IPAR(6),IPAR(6)-M,(IPAR(3)-IPAR(6))/IPAR(5))
IPAR(3)=IPAR(3)-M
RETURN
END