Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/copyfr.f4
There are no other files named copyfr.f4 in the archive.
      SUBROUTINE COPYFR (IB,M,N,K)
C		COPIES K RECORDS OF A FILE TO THE RIGHT
C		BEGINNING AT SECTOR M TO SECTOR N, N>M.
      DIMENSION IPARF(10),IFRMTF(1)
      DIMENSION IB(1)
      DIMENSION IPAR(10)
      COMMON IPARF,IFRMTF
      EQUIVALENCE(IPAR(1),IPARF(1))
      IF(K)11,11,10
10    LRM=M+(K-1)*IPARF(5)
      LRN=N+(K-1)*IPARF(5)
      NSPR=IPAR(5)
       IF(LRN     -IPAR(4))2,2,3
2     DO 1 I=1,K
      CALL DIOSEQ(LRM,1,IB,NSPR)
      CALLDIO(LRN,0,IB,NSPR)
      LRM=LRM-IPARF(5)
      LRN=LRN-IPARF(5)
    1 CONTINUE
11    RETURN
3     TYPE 100,IPAR(1)
100   FORMAT(11H NO ROOM IN,A5)
      CALL EXIT
	END