16 lines
495 B
Fortran
Executable file
16 lines
495 B
Fortran
Executable file
SUBROUTINE SPLIN2(X1A,X2A,YA,Y2A,M,N,X1,X2,Y)
|
|
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),YYTMP(NN)
|
|
DO 12 J=1,M
|
|
DO 11 K=1,N
|
|
YTMP(K)=YA(J,K)
|
|
Y2TMP(K)=Y2A(J,K)
|
|
11 CONTINUE
|
|
CALL SPLINT(X2A,YTMP,Y2TMP,N,X2,YYTMP(J))
|
|
12 CONTINUE
|
|
CALL SPLINE(X1A,YYTMP,M,1.d30,1.d30,Y2TMP)
|
|
CALL SPLINT(X1A,YYTMP,Y2TMP,M,X1,Y)
|
|
RETURN
|
|
END
|