SUBROUTINE STRCHF (IB,N)
C MAKES ROOM FOR N RECORDS STARTING AT LSR
DIMENSION IB(1)
DIMENSION IPARF(10),IFRMTF(1)
COMMON IPARF,IFRMTF
4 M=IPARF(5)*N
5 IF(IPARF(3)-IPARF(4)+M-IPARF(5))1,1,2
2 TYPE 100
100 FORMAT(1X,NO ROOM IN FILE ERROR IN STRCHF'/)
CALL EXIT
1 CALL COPYFR(IB,IPARF(6),IPARF(6)+M,(IPARF(3)-IPARF(6))/IPARF(5))
3 IPARF(3)=IPARF(3)+M
RETURN
END