Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/shrnkf.f4
There are no other files named shrnkf.f4 in the archive.
      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