C THIS SUBROUTINE EXCHANGES FILES IN CORE BY READING THE PARAMETERS
C OF THE NTH FILE OF THE IPRSVE MATRIX FROM COMMON BACK INTO THE
C MATRIX AND ENTERS THE PARAMETERS OF THE MTH FILE OF THAT MATRIX
C INTO COMMON.
SUBROUTINE EXCHGF(N,M,IPRSVE)
DIMENSION IPAR(10),IPRSVE(10)
COMMON IPAR
DO1I=1,10
IPRSVE(10*(N-1)+I)=IPAR(I)
1 IPAR(I)=IPRSVE(10*(M-1)+I)
RETURN
END