208 > X,NX,FHERM,ILINX,IER)
232 > X,NX,FHERM,ILINX,IPX,IER)
257 > CXMM,CXM,CXP,CXPP,WX,RESULT)
283 > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)
296 REAL FHERM(0:3,NF2,NY)
311 > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IPX,IPY,IER)
326 REAL FHERM(0:3,NF2,NY)
342 > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)
359 REAL FHERM(0:7,NF2,NF3,NZ)
374 > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IPX,IPY,IPZ,IER)
394 REAL FHERM(0:7,NF2,NF3,NZ)
410 > XGET,YGET,ISELECT,FVAL,X,NX,Y,NY,ILINX,ILINY,F,INF3,IER)
442 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,DX,DY,IER)
474 > ICT,IVEC,IVD,FVAL,IV,JV,DXV,DYV,F,INF3,NY)
505 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
519 REAL X_NEWGRID(NX_NEW)
520 REAL Y_NEWGRID(NY_NEW)
521 REAL F_NEW(IF1,NY_NEW)
524 REAL FSPL(4,4,INF3,NY)
540 > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,
541 > BCTHMIN,IBCTHMAX,BCTHMAX,WK,NWK,ILINX,ILINTH,IER)
559 REAL FSPL(4,4,INF3,INTH)
580 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF3,IWARN,IER)
598 REAL FSPL(4,4,INF3,NY)
614 > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,NWK,
631 REAL FSPL(4,4,INF3,INTH)
636 end subroutine BPSPLINB
650 > X,INX,TH,INTH,FSPL,INF3,WK,NWK,ILINX,ILINTH,IER)
664 REAL FSPL(4,4,INF3,INTH)
681 > XGET,ISELECT,FVAL,X,NX,ILINX,F,IER)
695 end subroutine CSPEVAL
708 > XGET,X,NX,ILINX,I,DX,IER)
734 > ICT,IVEC,IVD,FVAL,IV,DXV,F,NX)
762 > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,IWK,ILINX,IER)
779 end subroutine CSPLINE
793 > TAU,C,N,IBCBEG,IBCEND)
818 > X,NX,FHERM,ILINX,IER)
843 > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)
856 REAL FHERM(0:3,NF2,NY)
858 end subroutine DNHERM2
872 > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)
889 REAL FHERM(0:7,NF2,NF3,NZ)
905 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
924 end subroutine EVBICUB
937 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
957 REAL FIN(0:3,INF2,NY)
972 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
992 REAL FIN(0:3,INF2,NY)
994 end subroutine FVBICUBX
1008 > XGET,YGET,X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,ICT,FVAL,IER)
1024 REAL F(ICOEFF,IXDIM,IYDIM)
1041 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,JSPLINE,
1042 > FIN,ICOEFF,IXDIM,IYDIM)
1063 REAL FIN(ICOEFF,IXDIM,IYDIM)
1079 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,
1100 REAL F(ICOEFF,IXDIM,IYDIM,IZDIM)
1117 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
1118 > HZ,HZI,JSPLINE,FIN,ICOEFF,IXDIM,IYDIM,IZDIM)
1144 REAL FIN(ICOEFF,IXDIM,IYDIM,IZDIM)
1146 end subroutine FVINTRP3D
1160 > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
1187 > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
1217 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
1238 REAL F(0:7,INF2,INF3,NZ)
1255 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
1256 > HZ,HZI,FIN,INF2,INF3,NZ)
1280 REAL FIN(0:7,INF2,INF3,NZ)
1295 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
1296 > HZ,HZI,FIN,INF2,INF3,NZ)
1320 REAL FIN(0:7,INF2,INF3,NZ)
1336 > FUN1,FUN2,INUMP,XMIN,XMAX,YMIN,YMAX,NAME,NAMEX,NAMEY)
1366 > FUN1,FUN2,ID,INUMP,XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,NAME,NAMEX,
1401 > NX,X,XPKG,IPER,IMSG,ITOL,ZTOL,IALG,IER)
1430 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
1444 REAL X_NEWGRID(NX_NEW)
1445 REAL Y_NEWGRID(NY_NEW)
1446 REAL F_NEW(IF1,NY_NEW)
1449 REAL FSPL(4,INF3,NY)
1451 end subroutine GRIDBICUB
1465 > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
1474 REAL X_NEWGRID(NX_NEW)
1479 end subroutine GRIDHERM1
1493 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
1507 REAL X_NEWGRID(NX_NEW)
1508 REAL Y_NEWGRID(NY_NEW)
1509 REAL F_NEW(IF1,NY_NEW)
1512 REAL FSPL(0:3,INF2,NY)
1528 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
1529 > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)
1546 REAL X_NEWGRID(NX_NEW)
1547 REAL Y_NEWGRID(NY_NEW)
1548 REAL Z_NEWGRID(NZ_NEW)
1549 REAL F_NEW(IF1,IF2,NZ_NEW)
1553 REAL FSPL(0:7,INF2,INF3,NZ)
1555 end subroutine GRIDHERM3
1569 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,
1570 > JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IWARN,IER)
1585 REAL X_NEWGRID(NX_NEW)
1586 REAL Y_NEWGRID(NY_NEW)
1587 REAL F_NEW(IF1,NY_NEW)
1591 REAL FSPL(ICOEFF,IXDIM,IYDIM)
1607 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
1608 > NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,
1628 REAL X_NEWGRID(NX_NEW)
1629 REAL Y_NEWGRID(NY_NEW)
1630 REAL Z_NEWGRID(NZ_NEW)
1631 REAL F_NEW(IF1,IF2,NZ_NEW)
1636 REAL FSPL(ICOEFF,IXDIM,IYDIM,IZDIM)
1652 > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
1661 REAL X_NEWGRID(NX_NEW)
1666 end subroutine GRIDPC1
1680 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
1694 REAL X_NEWGRID(NX_NEW)
1695 REAL Y_NEWGRID(NY_NEW)
1696 REAL F_NEW(IF1,NY_NEW)
1715 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
1716 > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)
1733 REAL X_NEWGRID(NX_NEW)
1734 REAL Y_NEWGRID(NY_NEW)
1735 REAL Z_NEWGRID(NZ_NEW)
1736 REAL F_NEW(IF1,IF2,NZ_NEW)
1740 REAL FSPL(INF2,INF3,NZ)
1742 end subroutine GRIDPC3
1756 > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
1765 REAL X_NEWGRID(NX_NEW)
1784 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
1785 > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)
1802 REAL X_NEWGRID(NX_NEW)
1803 REAL Y_NEWGRID(NY_NEW)
1804 REAL Z_NEWGRID(NZ_NEW)
1805 REAL F_NEW(IF1,IF2,NZ_NEW)
1809 REAL FSPL(8,INF4,INF5,NZ)
1825 > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
1852 > XGET,X,NX,ILINX,I,XPARAM,HX,HXI,IER)
1880 > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
1896 end subroutine HERM1FCN
1910 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
1942 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,XPARAM,YPARAM,HX,HXI,HY,HYI,
1979 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
1999 REAL FIN(0:3,INF2,NY)
2014 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
2034 REAL FIN(0:3,INF2,NY)
2050 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
2071 REAL F(0:7,INF2,INF3,NZ)
2088 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,XPARAM,
2089 > YPARAM,ZPARAM,HX,HXI,HY,HYI,HZ,HZI,IER)
2133 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
2134 > HZ,HZI,FIN,INF2,INF3,NZ)
2158 REAL FIN(0:7,INF2,INF3,NZ)
2173 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
2174 > HZ,HZI,FIN,INF2,INF3,NZ)
2198 REAL FIN(0:7,INF2,INF3,NZ)
2214 > IBC,SLBL,XLBL,IMIN,IMAX,IER)
2240 > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,
2241 > IBCYMAX,BCYMAX,ILINX,ILINY,IER)
2278 > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,
2279 > IBCYMAX,BCYMAX,WK,NWK,ILINX,ILINY,IER)
2304 end subroutine MKBICUBW
2317 > FIN,NF2,FWK,NX,NY)
2341 > FIN,NF2,FWK,NX,NY,HXLAST,HYLAST)
2392 > FUN,X,NX,Y,NY,FHERM)
2402 REAL FHERM(0:3,NX,NY)
2418 > FUN,X,NX,Y,NY,Z,NZ,FHERM)
2430 REAL FHERM(0:7,NX,NY,NZ)
2446 > X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IBCXMIN,BCXMIN,IBCXMAX,
2447 > BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IER)
2465 REAL F(ICOEFF,IXDIM,IYDIM)
2485 > X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,IBCXMIN,BCXMIN,
2486 > IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IBCZMIN,BCZMIN,
2487 > IBCZMAX,BCZMAX,IER)
2510 REAL F(ICOEFF,IXDIM,IYDIM,IZDIM)
2511 REAL BCXMIN(IYDIM,IZDIM)
2512 REAL BCXMAX(IYDIM,IZDIM)
2513 REAL BCYMIN(IXDIM,IZDIM)
2514 REAL BCYMAX(IXDIM,IZDIM)
2515 REAL BCZMIN(IXDIM,IYDIM)
2516 REAL BCZMAX(IXDIM,IYDIM)
2518 end subroutine MKINTRP3D
2532 > FUN,X,NX,TH,NTH,FSPL,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,
2550 REAL FSPL(4,4,NF3,NTH)
2569 > FUN,X,NX,TH,NTH,FSPL,NF3,WK,INWK,ILINX,ILINTH,IER)
2584 REAL FSPL(4,4,NF3,NTH)
2587 end subroutine MKSPL2P
2601 > FUN,X,NX,TH,NTH,FSPL,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,
2619 REAL FSPL(4,NF2,NTH)
2638 > FUN,X,NX,TH,NTH,FSPL,NF2,WK,INWK,ILINX,ILINTH,IER)
2653 REAL FSPL(4,NF2,NTH)
2670 > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF4,NF5,IBCXMIN,BCXMIN,IBCXMAX,
2671 > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)
2693 REAL FSPL(4,4,4,NF4,NF5,NPH)
2694 REAL BCXMIN(NB1,NPH)
2695 REAL BCXMAX(NB1,NPH)
2712 > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,
2713 > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)
2735 REAL FSPL(8,NF2,NF3,NPH)
2736 REAL BCXMIN(NB1,NPH)
2737 REAL BCXMAX(NB1,NPH)
2754 > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,ILINX,IER)
2783 > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,
2784 > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,
2785 > BCZMAX,INB1Z,ILINX,ILINY,ILINZ,IER)
2811 REAL F(8,NF2,NF3,NZ)
2812 REAL BCXMIN(INB1X,NZ)
2813 REAL BCXMAX(INB1X,NZ)
2814 REAL BCYMIN(INB1Y,NZ)
2815 REAL BCYMAX(INB1Y,NZ)
2816 REAL BCZMIN(INB1Z,NY)
2817 REAL BCZMAX(INB1Z,NY)
2819 end subroutine MKTRICUB
2833 > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,
2834 > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,
2835 > BCZMAX,INB1Z,WK,NWK,ILINX,ILINY,ILINZ,IER)
2862 REAL F(8,NF2,NF3,NZ)
2863 REAL BCXMIN(INB1X,NZ)
2864 REAL BCXMAX(INB1X,NZ)
2865 REAL BCYMIN(INB1Y,NZ)
2866 REAL BCYMAX(INB1Y,NZ)
2867 REAL BCZMIN(INB1Z,NY)
2868 REAL BCZMAX(INB1Z,NY)
2871 end subroutine MKTRICUBW
2884 > FIN,NF2,NF3,FWK,NX,NY,NZ)
2894 REAL FIN(8,NF2,NF3,NZ)
2895 REAL FWK(4,4,4,NX,NY,NZ)
2910 > FIN,NF2,NF3,FWK,NX,NY,NZ,HXLAST,HYLAST,HZLAST)
2923 REAL FIN(8,NF2,NF3,NZ)
2924 REAL FWK(4,4,4,NX,NY,NZ)
2952 end subroutine NSPLINE
2966 > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
2980 end subroutine pc1ev
2993 > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
3023 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
3042 end subroutine pc2ev
3055 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
3090 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
3126 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
3147 REAL F(INF2,INF3,NZ)
3151 end subroutine PC3EV
3164 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
3165 > HZ,HZI,FIN,INF2,INF3,NZ)
3189 REAL FIN(INF2,INF3,NZ)
3191 end subroutine PC3FCN
3204 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
3205 > HZ,HZI,FIN,INF2,INF3,NZ)
3229 REAL FIN(INF2,INF3,NZ)
3231 end subroutine PC3FCNX
3258 end subroutine PSPLINE
3272 > X,NX,FHERM,ILINX,IER)
3281 real*8 fherm(0:1,nx)
3296 > X,NX,FHERM,ILINX,IPX,IER)
3306 real*8 fherm(0:1,nx)
3321 > CXMM,CXM,CXP,CXPP,WX,RESULT)
3347 > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)
3360 real*8 fherm(0:3,nf2,ny)
3375 > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IPX,IPY,IER)
3390 real*8 fherm(0:3,nf2,ny)
3406 > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)
3423 real*8 fherm(0:7,nf2,nf3,nz)
3438 > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IPX,IPY,IPZ,IER)
3458 real*8 fherm(0:7,nf2,nf3,nz)
3474 > XGET,YGET,ISELECT,FVAL,X,NX,Y,NY,ILINX,ILINY,F,INF3,IER)
3491 real*8 f(4,4,inf3,ny)
3506 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,DX,DY,IER)
3538 > ICT,IVEC,IVD,FVAL,IV,JV,DXV,DYV,F,INF3,NY)
3553 real*8 f(4,4,inf3,ny)
3569 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
3583 REAL*8 X_NEWGRID(NX_NEW)
3584 REAL*8 Y_NEWGRID(NY_NEW)
3585 REAL*8 F_NEW(IF1,NY_NEW)
3588 real*8 fspl(4,4,inf3,ny)
3604 > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,
3605 > BCTHMIN,IBCTHMAX,BCTHMAX,WK,NWK,ILINX,ILINTH,IER)
3623 REAL*8 FSPL(4,4,INF3,INTH)
3644 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF3,IWARN,IER)
3662 real*8 fspl(4,4,inf3,ny)
3678 > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,NWK,
3695 real*8 fspl(4,4,inf3,inth)
3714 > X,INX,TH,INTH,FSPL,INF3,WK,NWK,ILINX,ILINTH,IER)
3728 real*8 fspl(4,4,inf3,inth)
3745 > XGET,ISELECT,FVAL,X,NX,ILINX,F,IER)
3772 > XGET,X,NX,ILINX,I,DX,IER)
3798 > ICT,IVEC,IVD,FVAL,IV,DXV,F,NX)
3826 > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,IWK,ILINX,IER)
3857 > TAU,C,N,IBCBEG,IBCEND)
3882 > X,NX,FHERM,ILINX,IER)
3891 real*8 fherm(0:1,nx)
3907 > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)
3920 real*8 fherm(0:3,nf2,ny)
3936 > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)
3953 real*8 fherm(0:7,nf2,nf3,nz)
3969 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
3984 real*8 f(0:3,inf2,ny)
3988 end subroutine R8EVBICUB
4001 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
4012 REAL*8 FVAL(IVECD,*)
4021 real*8 fin(0:3,inf2,ny)
4036 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
4051 REAL*8 FVAL(IVECD,*)
4056 real*8 fin(0:3,inf2,ny)
4072 > XGET,YGET,X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,ICT,FVAL,IER)
4088 real*8 f(icoeff,ixdim,iydim)
4105 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,JSPLINE,
4106 > FIN,ICOEFF,IXDIM,IYDIM)
4117 real*8 fval(ivecd,6)
4127 REAL*8 FIN(ICOEFF,IXDIM,IYDIM)
4143 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,
4164 REAL*8 F(ICOEFF,IXDIM,IYDIM,IZDIM)
4181 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
4182 > HZ,HZI,JSPLINE,FIN,ICOEFF,IXDIM,IYDIM,IZDIM)
4194 real*8 fval(ivecd,10)
4208 REAL*8 FIN(ICOEFF,IXDIM,IYDIM,IZDIM)
4224 > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
4251 > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
4260 real*8 fval(ivecd,*)
4281 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
4302 real*8 f(0:7,inf2,inf3,nz)
4319 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
4320 > HZ,HZI,FIN,INF2,INF3,NZ)
4331 real*8 fval(ivecd,*)
4344 real*8 fin(0:7,inf2,inf3,nz)
4359 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
4360 > HZ,HZI,FIN,INF2,INF3,NZ)
4379 real*8 fval(ivecd,*)
4384 real*8 fin(0:7,inf2,inf3,nz)
4400 > FUN1,FUN2,INUMP,XMIN,XMAX,YMIN,YMAX,NAME,NAMEX,NAMEY)
4430 > FUN1,FUN2,ID,INUMP,XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,NAME,NAMEX,
4465 > NX,X,XPKG,IPER,IMSG,ITOL,ZTOL,IALG,IER)
4494 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
4508 REAL*8 X_NEWGRID(NX_NEW)
4509 REAL*8 Y_NEWGRID(NY_NEW)
4510 REAL*8 F_NEW(IF1,NY_NEW)
4513 real*8 fspl(4,inf3,ny)
4529 > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
4538 real*8 x_newgrid(nx_new)
4539 real*8 f_new(nx_new)
4557 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
4571 real*8 x_newgrid(nx_new)
4572 real*8 y_newgrid(ny_new)
4573 real*8 f_new(if1,ny_new)
4576 real*8 fspl(0:3,inf2,ny)
4592 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
4593 > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)
4610 real*8 x_newgrid(nx_new)
4611 real*8 y_newgrid(ny_new)
4612 real*8 z_newgrid(nz_new)
4613 real*8 f_new(if1,if2,nz_new)
4617 real*8 fspl(0:7,inf2,inf3,nz)
4633 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,
4634 > JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IWARN,IER)
4649 real*8 x_newgrid(nx_new)
4650 real*8 y_newgrid(ny_new)
4651 real*8 f_new(if1,ny_new)
4655 REAL*8 FSPL(ICOEFF,IXDIM,IYDIM)
4657 end subroutine R8GRIDINTRP2D
4671 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
4672 > NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,
4692 real*8 x_newgrid(nx_new)
4693 real*8 y_newgrid(ny_new)
4694 real*8 z_newgrid(nz_new)
4695 real*8 f_new(if1,if2,nz_new)
4700 real*8 fspl(icoeff,ixdim,iydim,izdim)
4716 > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
4725 REAL*8 X_NEWGRID(NX_NEW)
4726 REAL*8 F_NEW(NX_NEW)
4744 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
4758 real*8 x_newgrid(nx_new)
4759 real*8 y_newgrid(ny_new)
4760 real*8 f_new(if1,ny_new)
4763 real*8 fspl(inf1,ny)
4779 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
4780 > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)
4797 REAL*8 X_NEWGRID(NX_NEW)
4798 REAL*8 Y_NEWGRID(NY_NEW)
4799 real*8 z_newgrid(nz_new)
4800 real*8 f_new(if1,if2,nz_new)
4804 real*8 fspl(inf2,inf3,nz)
4820 > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
4829 REAL*8 X_NEWGRID(NX_NEW)
4830 REAL*8 F_NEW(NX_NEW)
4848 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
4849 > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)
4866 real*8 x_newgrid(nx_new)
4867 real*8 y_newgrid(ny_new)
4868 real*8 z_newgrid(nz_new)
4869 real*8 f_new(if1,if2,nz_new)
4873 real*8 fspl(8,inf4,inf5,nz)
4889 > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
4916 > XGET,X,NX,ILINX,I,XPARAM,HX,HXI,IER)
4944 > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
4953 real*8 fval(ivecd,*)
4974 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
4989 real*8 f(0:3,inf2,ny)
5006 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,XPARAM,YPARAM,HX,HXI,HY,HYI,
5030 end subroutine R8HERM2XY
5043 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
5054 REAL*8 FVAL(IVECD,*)
5063 real*8 fin(0:3,inf2,ny)
5078 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
5093 REAL*8 FVAL(IVECD,*)
5098 REAL*8 FIN(0:3,INF2,NY)
5114 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
5135 real*8 f(0:7,inf2,inf3,nz)
5152 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,XPARAM,
5153 > YPARAM,ZPARAM,HX,HXI,HY,HYI,HZ,HZI,IER)
5197 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
5198 > HZ,HZI,FIN,INF2,INF3,NZ)
5209 real*8 fval(ivecd,*)
5222 real*8 fin(0:7,inf2,inf3,nz)
5237 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
5238 > HZ,HZI,FIN,INF2,INF3,NZ)
5257 real*8 fval(ivecd,*)
5262 real*8 fin(0:7,inf2,inf3,nz)
5278 > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,
5279 > IBCYMAX,BCYMAX,ILINX,ILINY,IER)
5316 > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,
5317 > IBCYMAX,BCYMAX,WK,NWK,ILINX,ILINY,IER)
5355 > FIN,NF2,FWK,NX,NY)
5363 real*8 fin(4,nf2,ny)
5364 real*8 fwk(4,4,nx,ny)
5379 > FIN,NF2,FWK,NX,NY,HXLAST,HYLAST)
5389 real*8 fin(4,nf2,ny)
5390 real*8 fwk(4,4,nx,ny)
5415 real*8 fherm(0:1,nx)
5431 > FUN,X,NX,Y,NY,FHERM)
5442 real*8 fherm(0:3,nx,ny)
5458 > FUN,X,NX,Y,NY,Z,NZ,FHERM)
5471 real*8 fherm(0:7,nx,ny,nz)
5487 > X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IBCXMIN,BCXMIN,IBCXMAX,
5488 > BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IER)
5506 REAL*8 F(ICOEFF,IXDIM,IYDIM)
5507 real*8 bcxmin(iydim)
5508 real*8 bcxmax(iydim)
5509 real*8 bcymin(ixdim)
5510 real*8 bcymax(ixdim)
5526 > X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,IBCXMIN,BCXMIN,
5527 > IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IBCZMIN,BCZMIN,
5528 > IBCZMAX,BCZMAX,IER)
5551 REAL*8 F(ICOEFF,IXDIM,IYDIM,IZDIM)
5552 REAL*8 BCXMIN(IYDIM,IZDIM)
5553 REAL*8 BCXMAX(IYDIM,IZDIM)
5554 real*8 bcymin(ixdim,izdim)
5555 real*8 bcymax(ixdim,izdim)
5556 real*8 bczmin(ixdim,iydim)
5557 real*8 bczmax(ixdim,iydim)
5573 > FUN,X,NX,TH,NTH,FSPL,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,
5592 REAL*8 FSPL(4,4,NF3,NTH)
5611 > FUN,X,NX,TH,NTH,FSPL,NF3,WK,INWK,ILINX,ILINTH,IER)
5627 real*8 fspl(4,4,nf3,nth)
5644 > FUN,X,NX,TH,NTH,FSPL,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,
5663 real*8 fspl(4,nf2,nth)
5682 > FUN,X,NX,TH,NTH,FSPL,NF2,WK,INWK,ILINX,ILINTH,IER)
5698 real*8 fspl(4,nf2,nth)
5715 > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF4,NF5,IBCXMIN,BCXMIN,IBCXMAX,
5716 > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)
5739 real*8 fspl(4,4,4,nf4,nf5,nph)
5740 real*8 bcxmin(nb1,nph)
5741 real*8 bcxmax(nb1,nph)
5758 > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,
5759 > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)
5782 real*8 fspl(8,nf2,nf3,nph)
5783 real*8 bcxmin(nb1,nph)
5784 real*8 bcxmax(nb1,nph)
5801 > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,ILINX,IER)
5830 > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,
5831 > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,
5832 > BCZMAX,INB1Z,ILINX,ILINY,ILINZ,IER)
5858 real*8 f(8,nf2,nf3,nz)
5859 real*8 bcxmin(inb1x,nz)
5860 real*8 bcxmax(inb1x,nz)
5861 real*8 bcymin(inb1y,nz)
5862 real*8 bcymax(inb1y,nz)
5863 real*8 bczmin(inb1z,ny)
5864 real*8 bczmax(inb1z,ny)
5880 > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,
5881 > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,
5882 > BCZMAX,INB1Z,WK,NWK,ILINX,ILINY,ILINZ,IER)
5909 real*8 f(8,nf2,nf3,nz)
5910 real*8 bcxmin(inb1x,nz)
5911 real*8 bcxmax(inb1x,nz)
5912 real*8 bcymin(inb1y,nz)
5913 real*8 bcymax(inb1y,nz)
5914 real*8 bczmin(inb1z,ny)
5915 real*8 bczmax(inb1z,ny)
5931 > FIN,NF2,NF3,FWK,NX,NY,NZ)
5941 real*8 fin(8,nf2,nf3,nz)
5942 real*8 fwk(4,4,4,nx,ny,nz)
5957 > FIN,NF2,NF3,FWK,NX,NY,NZ,HXLAST,HYLAST,HZLAST)
5970 REAL*8 FIN(8,NF2,NF3,NZ)
5971 REAL*8 FWK(4,4,4,NX,NY,NZ)
6013 > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
6040 > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
6049 REAL*8 FVAL(IVECD,*)
6070 > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
6089 end subroutine R8PC2EV
6102 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
6113 real*8 fval(ivecd,*)
6137 > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
6152 REAL*8 FVAL(IVECD,*)
6173 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
6194 real*8 f(inf2,inf3,nz)
6211 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
6212 > HZ,HZI,FIN,INF2,INF3,NZ)
6223 REAL*8 FVAL(IVECD,*)
6236 real*8 fin(inf2,inf3,nz)
6251 > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
6252 > HZ,HZI,FIN,INF2,INF3,NZ)
6271 real*8 fval(ivecd,*)
6276 real*8 fin(inf2,inf3,nz)
6319 > N,U,X,Y,B,C,D,DERIV)
6347 > N,U,X,Y,B,C,D,DERIV,DERIV2)
6430 > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
6439 real*8 x_newgrid(nx_new)
6440 real*8 f_new(nx_new)
6484 > IOPT,N,NBRK,X,Y,B,C,D)
6538 > X,INX,ILINX,ZTOL,IER)
6589 > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
6619 > XGET,YGET,ZGET,ISELECT,FVAL,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,
6642 real*8 f(4,4,4,inf4,inf5,nz)
6657 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,DX,DY,DZ,
6696 > ICT,IVEC,IVD,FVAL,IV,JV,KV,DXV,DYV,DZV,F,INF4,INF5,NZ)
6714 real*8 f(4,4,4,inf4,inf5,nz)
6730 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
6731 > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)
6748 real*8 x_newgrid(nx_new)
6749 real*8 y_newgrid(ny_new)
6750 real*8 z_newgrid(nz_new)
6751 real*8 f_new(if1,if2,nz_new)
6755 real*8 fspl(4,4,4,inf4,inf5,nz)
6771 > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,
6772 > BCXMAX,INB1X,IBCTHMIN,BCTHMIN,IBCTHMAX,BCTHMAX,INB1TH,IBCPHMIN,
6773 > BCPHMIN,IBCPHMAX,BCPHMAX,INB1PH,WK,NWK,ILINX,ILINTH,ILINPH,IER)
6800 real*8 fspl(4,4,4,inf4,inf5,inph)
6801 real*8 bcxmin(inb1x,*)
6802 real*8 bcxmax(inb1x,*)
6803 real*8 bcthmin(inb1th,*)
6804 real*8 bcthmax(inb1th,*)
6805 real*8 bcphmin(inb1ph,*)
6806 real*8 bcphmax(inb1ph,*)
6822 > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,IBCXMAX,IBCTHMIN,
6823 > IBCTHMAX,IBCPHMIN,BCPH1,IBCPHMAX,BCPH2,CCORR,WK,NWK)
6843 real*8 fspl(4,4,4,inf4,inf5,inph)
6844 real*8 bcph1(inx,inth)
6845 real*8 bcph2(inx,inth)
6846 real*8 ccorr(3,4,inx,inth,inph)
6862 > X,INX,TH,INTH,FSPL,INF4,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,
6863 > BCTHMIN,IBCTHMAX,BCTHMAX,FSPL2,WK,NWK,ILINX,ILINTH,IER)
6881 real*8 fspl(4,4,4,inf4,inth)
6886 real*8 fspl2(4,4,inx,inth)
6903 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
6904 > INF4,INF5,IWARN,IER)
6926 real*8 fspl(4,4,4,inf4,inf5,nz)
6942 > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,
6943 > BCXMAX,INB1,WK,NWK,ILINX,ILINTH,ILINPH,IER)
6964 real*8 fspl(4,4,4,inf4,inf5,inph)
6965 real*8 bcxmin(inb1,inph)
6966 real*8 bcxmax(inb1,inph)
6983 > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,WK,NWK,ILINX,ILINTH,ILINPH,
7002 real*8 fspl(4,4,4,inf4,inf5,inph)
7019 > FHERM,IDIMX1,JBCXA,JBCXB,ZBCXA,ZBCXB,X1)
7029 real*8 fherm(0:1,idimx1)
7046 > FHERM,IDIMX1,IDIMX2,JBCX1A,JBCX1B,JBCX2A,JBCX2B,ZBCX1A,ZBCX1B,
7047 > ZBCX2A,ZBCX2B,X1,X2)
7058 real*8 fherm(0:3,idimx1,idimx2)
7059 real*8 zbcx1a(idimx2)
7060 real*8 zbcx1b(idimx2)
7061 real*8 zbcx2a(idimx1)
7062 real*8 zbcx2b(idimx1)
7080 > FHERM,IDIMX1,IDIMX2,IDIMX3,JBCX1A,JBCX1B,JBCX2A,JBCX2B,JBCX3A,
7081 > JBCX3B,ZBCX1A,ZBCX1B,ZBCX2A,ZBCX2B,ZBCX3A,ZBCX3B,X1,X2,X3)
7095 real*8 fherm(0:7,idimx1,idimx2,idimx3)
7096 real*8 zbcx1a(idimx2,idimx3)
7097 real*8 zbcx1b(idimx2,idimx3)
7098 real*8 zbcx2a(idimx1,idimx3)
7099 real*8 zbcx2b(idimx1,idimx3)
7100 real*8 zbcx3a(idimx2,idimx3)
7101 real*8 zbcx3b(idimx2,idimx3)
7120 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)
7138 real*8 fspl(0:3,inf2,ny)
7154 > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
7184 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)
7202 real*8 fspl(0:3,inf2,ny)
7218 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
7219 > INF2,INF3,IWARN,IER)
7241 real*8 fspl(0:7,inf2,inf3,nz)
7257 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,JSPLINE,FSPL,ICOEFF,
7258 > IXDIM,IYDIM,IWARN,IER)
7279 real*8 fspl(icoeff,ixdim,iydim)
7295 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,
7296 > FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,IWARN,IER)
7321 real*8 fspl(icoeff,ixdim,iydim,izdim)
7337 > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
7367 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF1,IWARN,IER)
7385 real*8 fspl(inf1,ny)
7401 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FLIN,
7402 > INF1,INF2,IWARN,IER)
7424 real*8 flin(inf1,inf2,nz)
7440 > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
7470 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
7471 > INF4,INF5,IWARN,IER)
7493 real*8 fspl(8,inf4,inf5,nz)
7509 > K_BC1,K_BCN,N,X,F,WK)
7535 > IVEC,XVEC,NX,XPKG,IMODE,IV,DXN,HV,HIV,IWARN)
7588 REAL FUNCTION SEVAL2(
7589 > N,U,X,Y,B,C,D,DERIV)
7616 REAL FUNCTION SEVAL3(
7617 > N,U,X,Y,B,C,D,DERIV,DERIV2)
7645 REAL FUNCTION SEVAL(
7672 REAL FUNCTION SPEVAL(
7700 > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
7709 REAL X_NEWGRID(NX_NEW)
7754 > IOPT,N,NBRK,X,Y,B,C,D)
7768 end subroutine SPLBRK
7794 end subroutine SPLEEN
7808 > X,INX,ILINX,ZTOL,IER)
7859 > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
7875 end subroutine spvec
7889 > XGET,YGET,ZGET,ISELECT,FVAL,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,
7912 REAL F(4,4,4,INF4,INF5,NZ)
7927 > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,DX,DY,DZ,
7953 end subroutine TCSPEVXYZ
7966 > ICT,IVEC,IVD,FVAL,IV,JV,KV,DXV,DYV,DZV,F,INF4,INF5,NZ)
7984 REAL F(4,4,4,INF4,INF5,NZ)
8000 > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
8001 > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)
8018 REAL X_NEWGRID(NX_NEW)
8019 REAL Y_NEWGRID(NY_NEW)
8020 REAL Z_NEWGRID(NZ_NEW)
8021 REAL F_NEW(IF1,IF2,NZ_NEW)
8025 REAL FSPL(4,4,4,INF4,INF5,NZ)
8041 > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,
8042 > BCXMAX,INB1X,IBCTHMIN,BCTHMIN,IBCTHMAX,BCTHMAX,INB1TH,IBCPHMIN,
8043 > BCPHMIN,IBCPHMAX,BCPHMAX,INB1PH,WK,NWK,ILINX,ILINTH,ILINPH,IER)
8070 REAL FSPL(4,4,4,INF4,INF5,INPH)
8071 REAL BCXMIN(INB1X,*)
8072 REAL BCXMAX(INB1X,*)
8073 REAL BCTHMIN(INB1TH,*)
8074 REAL BCTHMAX(INB1TH,*)
8075 REAL BCPHMIN(INB1PH,*)
8076 REAL BCPHMAX(INB1PH,*)
8092 > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,IBCXMAX,IBCTHMIN,
8093 > IBCTHMAX,IBCPHMIN,BCPH1,IBCPHMAX,BCPH2,CCORR,WK,NWK)
8113 REAL FSPL(4,4,4,INF4,INF5,INPH)
8114 REAL BCPH1(INX,INTH)
8115 REAL BCPH2(INX,INTH)
8116 REAL CCORR(3,4,INX,INTH,INPH)
8119 end subroutine TCSPCORR
8132 > X,INX,TH,INTH,FSPL,INF4,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,
8133 > BCTHMIN,IBCTHMAX,BCTHMAX,FSPL2,WK,NWK,ILINX,ILINTH,IER)
8151 REAL FSPL(4,4,4,INF4,INTH)
8156 REAL FSPL2(4,4,INX,INTH)
8173 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
8174 > INF4,INF5,IWARN,IER)
8196 REAL FSPL(4,4,4,INF4,INF5,NZ)
8212 > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,
8213 > BCXMAX,INB1,WK,NWK,ILINX,ILINTH,ILINPH,IER)
8234 REAL FSPL(4,4,4,INF4,INF5,INPH)
8235 REAL BCXMIN(INB1,INPH)
8236 REAL BCXMAX(INB1,INPH)
8239 end subroutine TPSPLINB
8253 > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,WK,NWK,ILINX,ILINTH,ILINPH,
8272 REAL FSPL(4,4,4,INF4,INF5,INPH)
8289 > FHERM,IDIMX1,JBCXA,JBCXB,ZBCXA,ZBCXB,X1)
8299 REAL FHERM(0:1,IDIMX1)
8316 > FHERM,IDIMX1,IDIMX2,JBCX1A,JBCX1B,JBCX2A,JBCX2B,ZBCX1A,ZBCX1B,
8317 > ZBCX2A,ZBCX2B,X1,X2)
8328 REAL FHERM(0:3,IDIMX1,IDIMX2)
8350 > FHERM,IDIMX1,IDIMX2,IDIMX3,JBCX1A,JBCX1B,JBCX2A,JBCX2B,JBCX3A,
8351 > JBCX3B,ZBCX1A,ZBCX1B,ZBCX2A,ZBCX2B,ZBCX3A,ZBCX3B,X1,X2,X3)
8365 REAL FHERM(0:7,IDIMX1,IDIMX2,IDIMX3)
8366 REAL ZBCX1A(IDIMX2,IDIMX3)
8367 REAL ZBCX1B(IDIMX2,IDIMX3)
8368 REAL ZBCX2A(IDIMX1,IDIMX3)
8369 REAL ZBCX2B(IDIMX1,IDIMX3)
8370 REAL ZBCX3A(IDIMX2,IDIMX3)
8371 REAL ZBCX3B(IDIMX2,IDIMX3)
8390 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)
8408 REAL FSPL(0:3,INF2,NY)
8424 > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
8454 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)
8472 REAL FSPL(0:3,INF2,NY)
8488 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
8489 > INF2,INF3,IWARN,IER)
8511 REAL FSPL(0:7,INF2,INF3,NZ)
8527 > SUBNAME,JSPLINE,ICOEFF,NX,NY,IXDIM,IYDIM,IER)
8532 CHARACTER*(*) SUBNAME
8541 end subroutine VECIN2D_ARGCHK
8555 > SUBNAME,JSPLINE,ICOEFF,NX,NY,NZ,IXDIM,IYDIM,IZDIM,IER)
8560 CHARACTER*(*) SUBNAME
8571 end subroutine VECIN3D_ARGCHK
8585 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,JSPLINE,FSPL,ICOEFF,
8586 > IXDIM,IYDIM,IWARN,IER)
8607 REAL FSPL(ICOEFF,IXDIM,IYDIM)
8623 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,
8624 > FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,IWARN,IER)
8649 REAL FSPL(ICOEFF,IXDIM,IYDIM,IZDIM)
8651 end subroutine VECINTRP3D
8665 > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
8695 > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF1,IWARN,IER)
8715 end subroutine VECPC2
8729 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FLIN,
8730 > INF1,INF2,IWARN,IER)
8752 REAL FLIN(INF1,INF2,NZ)
8768 > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
8798 > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
8799 > INF4,INF5,IWARN,IER)
8821 REAL FSPL(8,INF4,INF5,NZ)
8823 end subroutine VECTRICUB
8837 > K_BC1,K_BCN,N,X,F,WK)
8863 > IVEC,XVEC,NX,XPKG,IMODE,IV,DXN,HV,HIV,IWARN)
8903 end subroutine ZONFIND
8907 END MODULE pspline_calls