SUBROUTINECOPYFL(IB,M,N,K)
C		SIMILAR TO COPYFR BUT N<M
      DIMENSION IPARF(10), IFRMTF(1)
      DIMENSION IB(1)
      COMMON IPARF, IFRMTF
      IF(K)11,11,10
10    LRM=M
      LRN=N
      DO 1 I=1,K
      CALL DIOSEQ(LRM,1,IB,IPARF(5))
      CALL DIO(LRN,0,IB,IPARF(5))
      LRM=LRM+IPARF(5)
      LRN=LRN+IPARF(5)
    1 CONTINUE
11    RETURN
	END