C THIS SUBROUTINE ENTERS INTO COMMON THE PARAMETERS OF THE NTH FILE
C READ BY THE MAIN PROGRAM INTO THE MATRIX IPRSVE
SUBROUTINE GTF(N,IPRSVE)
DIMENSION IPAR(10),IPRSVE(10)
COMMON IPAR
DO1I=1,10
1 IPAR(I)=IPRSVE(10*(N-1)+I)
RETURN
END