mirror of
https://github.com/Cantera/cantera.git
synced 2025-02-25 18:55:29 -06:00
16 lines
411 B
Fortran
Executable File
16 lines
411 B
Fortran
Executable File
SUBROUTINE SPLIE2(X1A,X2A,YA,M,N,Y2A)
|
|
implicit double precision (a-h,o-z)
|
|
PARAMETER (NN=100)
|
|
DIMENSION X1A(M),X2A(N),YA(M,N),Y2A(M,N),YTMP(NN),Y2TMP(NN)
|
|
DO 13 J=1,M
|
|
DO 11 K=1,N
|
|
YTMP(K)=YA(J,K)
|
|
11 CONTINUE
|
|
CALL SPLINE(X2A,YTMP,N,1.D30,1.D30,Y2TMP)
|
|
DO 12 K=1,N
|
|
Y2A(J,K)=Y2TMP(K)
|
|
12 CONTINUE
|
|
13 CONTINUE
|
|
RETURN
|
|
END
|