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