C THIS SUBROUTINE READS THE PARAMETERS OF THE FILE IN COMMMON INTO
C THE NTH ROW OF THE IPRSVE MATRIX.
SUBROUTINE PTF(N,IPRSVE)
DIMENSION IPAR(10),IPRSVE(10)
COMMON IPAR
DO1I=1,10
1 IPRSVE(10*(N-1)+I)=IPAR(I)
RETURN
END