stellinstall/pspline__calls_8f_source.html

! interface module generated by iface_simple.csh -- Wed Apr 25 15:21:11 EDT 2007

!

!   cwd = /u/dmccune/transp/codesys/source/pspline

!

!   input file arguments:

!

!   1.  akherm1.for

!   2.  akherm2.for

!   3.  akherm3.for

!   4.  bcspeval.for

!   5.  bcspgrid.for

!   6.  bcspline.for

!   7.  bcspvec.for

!   8.  bpsplinb.for

!   9.  bpspline.for

!   10.  cspeval.for

!   11.  cspline.for

!   12.  cubsplb.for

!   13.  dnherm1.for

!   14.  dnherm2.for

!   15.  dnherm3.for

!   16.  evbicub.for

!   17.  evintrp2d.for

!   18.  evintrp3d.for

!   19.  evspline.for

!   20.  evtricub.for

!   21.  f2test.for

!   22.  f3test.for

!   23.  genxpkg.for

!   24.  gridbicub.for

!   25.  gridherm1.for

!   26.  gridherm2.for

!   27.  gridherm3.for

!   28.  gridintrp2d.for

!   29.  gridintrp3d.for

!   30.  gridpc1.for

!   31.  gridpc2.for

!   32.  gridpc3.for

!   33.  gridspline.for

!   34.  gridtricub.for

!   35.  herm1ev.for

!   36.  herm2ev.for

!   37.  herm3ev.for

!   38.  ibc_ck.for

!   39.  mkbicub.for

!   40.  mkbicubw.for

!   41.  mkherm1.for

!   42.  mkherm2.for

!   43.  mkherm3.for

!   44.  mkintrp2d.for

!   45.  mkintrp3d.for

!   46.  mkspl2pb.for

!   47.  mkspl2p.for

!   48.  mkspl2zb.for

!   49.  mkspl2z.for

!   50.  mkspl3pb.for

!   51.  mkspl3zb.for

!   52.  mkspline.for

!   53.  mktricub.for

!   54.  mktricubw.for

!   55.  nspline.for

!   56.  pc1ev.for

!   57.  pc2ev.for

!   58.  pc3ev.for

!   59.  pspline.for

!   60.  r8akherm1.for

!   61.  r8akherm2.for

!   62.  r8akherm3.for

!   63.  r8bcspeval.for

!   64.  r8bcspgrid.for

!   65.  r8bcspline.for

!   66.  r8bcspvec.for

!   67.  r8bpsplinb.for

!   68.  r8bpspline.for

!   69.  r8cspeval.for

!   70.  r8cspline.for

!   71.  r8cubsplb.for

!   72.  r8dnherm1.for

!   73.  r8dnherm2.for

!   74.  r8dnherm3.for

!   75.  r8evbicub.for

!   76.  r8evintrp2d.for

!   77.  r8evintrp3d.for

!   78.  r8evspline.for

!   79.  r8evtricub.for

!   80.  r8f2test.for

!   81.  r8f3test.for

!   82.  r8genxpkg.for

!   83.  r8gridbicub.for

!   84.  r8gridherm1.for

!   85.  r8gridherm2.for

!   86.  r8gridherm3.for

!   87.  r8gridintrp2d.for

!   88.  r8gridintrp3d.for

!   89.  r8gridpc1.for

!   90.  r8gridpc2.for

!   91.  r8gridpc3.for

!   92.  r8gridspline.for

!   93.  r8gridtricub.for

!   94.  r8herm1ev.for

!   95.  r8herm2ev.for

!   96.  r8herm3ev.for

!   97.  r8mkbicub.for

!   98.  r8mkbicubw.for

!   99.  r8mkherm1.for

!   100.  r8mkherm2.for

!   101.  r8mkherm3.for

!   102.  r8mkintrp2d.for

!   103.  r8mkintrp3d.for

!   104.  r8mkspl2pb.for

!   105.  r8mkspl2p.for

!   106.  r8mkspl2zb.for

!   107.  r8mkspl2z.for

!   108.  r8mkspl3pb.for

!   109.  r8mkspl3zb.for

!   110.  r8mkspline.for

!   111.  r8mktricub.for

!   112.  r8mktricubw.for

!   113.  r8nspline.for

!   114.  r8pc1ev.for

!   115.  r8pc2ev.for

!   116.  r8pc3ev.for

!   117.  r8pspline.for

!   118.  r8seval2.for

!   119.  r8seval3.for

!   120.  r8seval.for

!   121.  r8speval.for

!   122.  r8spgrid.for

!   123.  r8splaan.for

!   124.  r8splbrk.for

!   125.  r8spleen.for

!   126.  r8splinck.for

!   127.  r8spline.for

!   128.  r8spvec.for

!   129.  r8tcspeval.for

!   130.  r8tcspgrid.for

!   131.  r8tcspline.for

!   132.  r8tcspvec.for

!   133.  r8tpsplinb.for

!   134.  r8tpspline.for

!   135.  r8util_bcherm1.for

!   136.  r8util_bcherm2.for

!   137.  r8util_bcherm3.for

!   138.  r8vecbicub.for

!   139.  r8vecherm1.for

!   140.  r8vecherm2.for

!   141.  r8vecherm3.for

!   142.  r8vecintrp2d.for

!   143.  r8vecintrp3d.for

!   144.  r8vecpc1.for

!   145.  r8vecpc2.for

!   146.  r8vecpc3.for

!   147.  r8vecspline.for

!   148.  r8vectricub.for

!   149.  r8v_spline.for

!   150.  r8xlookup.for

!   151.  r8zonfind.for

!   152.  seval2.for

!   153.  seval3.for

!   154.  seval.for

!   155.  speval.for

!   156.  spgrid.for

!   157.  splaan.for

!   158.  splbrk.for

!   159.  spleen.for

!   160.  splinck.for

!   161.  spline.for

!   162.  spvec.for

!   163.  tcspeval.for

!   164.  tcspgrid.for

!   165.  tcspline.for

!   166.  tcspvec.for

!   167.  tpsplinb.for

!   168.  tpspline.for

!   169.  util_bcherm1.for

!   170.  util_bcherm2.for

!   171.  util_bcherm3.for

!   172.  vecbicub.for

!   173.  vecherm1.for

!   174.  vecherm2.for

!   175.  vecherm3.for

!   176.  vecin2d_argchk.for

!   177.  vecin3d_argchk.for

!   178.  vecintrp2d.for

!   179.  vecintrp3d.for

!   180.  vecpc1.for

!   181.  vecpc2.for

!   182.  vecpc3.for

!   183.  vecspline.for

!   184.  vectricub.for

!   185.  v_spline.for

!   186.  xlookup.for

!   187.  zonfind.for

!

      MODULE pspline_calls

!

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  AKHERM1

!

       INTERFACE akherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  AKHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    akherm1(

     > X,NX,FHERM,ILINX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      REAL X(NX)

      REAL FHERM(0:1,NX)


      end subroutine akherm1

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  AKHERM1P

!

       INTERFACE akherm1p


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  AKHERM1P ... for meaning of arguments see the documentation


      SUBROUTINE    akherm1p(

     > X,NX,FHERM,ILINX,IPX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER ILINX

      INTEGER IPX

      INTEGER IER

      REAL X(NX)

      REAL FHERM(0:1,NX)


      end subroutine akherm1p

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  AKHERM0

!

       INTERFACE akherm0


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  AKHERM0 ... for meaning of arguments see the documentation


      SUBROUTINE    akherm0(

     > CXMM,CXM,CXP,CXPP,WX,RESULT)


      IMPLICIT NONE


! argument declarations

      REAL CXMM

      REAL CXM

      REAL CXP

      REAL CXPP

      REAL RESULT

      REAL WX(2)


      end subroutine akherm0

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  AKHERM2

!

       INTERFACE akherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  AKHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    akherm2(

     > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL FHERM(0:3,NF2,NY)


      end subroutine akherm2

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  AKHERM2P

!

       INTERFACE akherm2p


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  AKHERM2P ... for meaning of arguments see the documentation


      SUBROUTINE    akherm2p(

     > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IPX,IPY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IPX

      INTEGER IPY

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL FHERM(0:3,NF2,NY)


      end subroutine akherm2p

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  AKHERM3

!

       INTERFACE akherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  AKHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    akherm3(

     > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL FHERM(0:7,NF2,NF3,NZ)


      end subroutine akherm3

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  AKHERM3P

!

       INTERFACE akherm3p


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  AKHERM3P ... for meaning of arguments see the documentation


      SUBROUTINE    akherm3p(

     > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IPX,IPY,IPZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IPX

      INTEGER IPY

      INTEGER IPZ

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL FHERM(0:7,NF2,NF3,NZ)


      end subroutine akherm3p

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  BCSPEVAL

!

       INTERFACE bcspeval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  BCSPEVAL ... for meaning of arguments see the documentation


      SUBROUTINE    bcspeval(

     > XGET,YGET,ISELECT,FVAL,X,NX,Y,NY,ILINX,ILINY,F,INF3,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER INF3

      INTEGER IER

      INTEGER ISELECT(6)

      REAL FVAL(*)

      REAL X(NX)

      REAL Y(NY)

      REAL F(4,4,INF3,NY)


      end subroutine bcspeval

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  BCSPEVXY

!

       INTERFACE bcspevxy


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  BCSPEVXY ... for meaning of arguments see the documentation


      SUBROUTINE    bcspevxy(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,DX,DY,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER I

      INTEGER J

      REAL DX

      REAL DY

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)


      end subroutine bcspevxy

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  BCSPEVFN

!

       INTERFACE bcspevfn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  BCSPEVFN ... for meaning of arguments see the documentation


      SUBROUTINE    bcspevfn(

     > ICT,IVEC,IVD,FVAL,IV,JV,DXV,DYV,F,INF3,NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER INF3

      INTEGER NY

      INTEGER ICT(6)

      REAL FVAL(IVD,*)

      INTEGER IV(IVEC)

      INTEGER JV(IVEC)

      REAL DXV(IVEC)

      REAL DYV(IVEC)

      REAL F(4,4,INF3,NY)


      end subroutine bcspevfn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  BCSPGRID

!

       INTERFACE bcspgrid


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  BCSPGRID ... for meaning of arguments see the documentation


      SUBROUTINE    bcspgrid(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,

     > INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL F_NEW(IF1,NY_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL FSPL(4,4,INF3,NY)


      end subroutine bcspgrid

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  BCSPLINE

!

       INTERFACE bcspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  BCSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    bcspline(

     > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,

     > BCTHMIN,IBCTHMAX,BCTHMAX,WK,NWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCTHMIN

      INTEGER IBCTHMAX

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL X(INX)

      REAL TH(INTH)

      REAL FSPL(4,4,INF3,INTH)

      REAL BCXMIN(*)

      REAL BCXMAX(*)

      REAL BCTHMIN(*)

      REAL BCTHMAX(*)

      REAL WK(NWK)


      end subroutine bcspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  BCSPVEC

!

       INTERFACE bcspvec


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  BCSPVEC ... for meaning of arguments see the documentation


      SUBROUTINE    bcspvec(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(6)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL FSPL(4,4,INF3,NY)


      end subroutine bcspvec

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  BPSPLINB

!

       INTERFACE bpsplinb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  BPSPLINB ... for meaning of arguments see the documentation


      SUBROUTINE    bpsplinb(

     > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,NWK,

     > ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL X(INX)

      REAL TH(INTH)

      REAL FSPL(4,4,INF3,INTH)

      REAL BCXMIN(INTH)

      REAL BCXMAX(INTH)

      REAL WK(NWK)


      end subroutine BPSPLINB

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  BPSPLINE

!

       INTERFACE bpspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  BPSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    bpspline(

     > X,INX,TH,INTH,FSPL,INF3,WK,NWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INF3

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL X(INX)

      REAL TH(INTH)

      REAL FSPL(4,4,INF3,INTH)

      REAL WK(NWK)


      end subroutine bpspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  CSPEVAL

!

       INTERFACE cspeval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  CSPEVAL ... for meaning of arguments see the documentation


      SUBROUTINE    cspeval(

     > XGET,ISELECT,FVAL,X,NX,ILINX,F,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      INTEGER ISELECT(3)

      REAL FVAL(3)

      REAL X(NX)

      REAL F(4,NX)


      end subroutine CSPEVAL

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  CSPEVX

!

       INTERFACE cspevx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  CSPEVX ... for meaning of arguments see the documentation


      SUBROUTINE    cspevx(

     > XGET,X,NX,ILINX,I,DX,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      INTEGER NX

      INTEGER ILINX

      INTEGER I

      REAL DX

      INTEGER IER

      REAL X(NX)


      end subroutine cspevx

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  CSPEVFN

!

       INTERFACE cspevfn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  CSPEVFN ... for meaning of arguments see the documentation


      SUBROUTINE    cspevfn(

     > ICT,IVEC,IVD,FVAL,IV,DXV,F,NX)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER ICT(3)

      REAL FVAL(IVD,*)

      INTEGER IV(IVEC)

      REAL DXV(IVEC)

      REAL F(4,NX)


      end subroutine cspevfn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  CSPLINE

!

       INTERFACE cspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  CSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    cspline(

     > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,IWK,ILINX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER IBCXMIN

      REAL BCXMIN

      INTEGER IBCXMAX

      REAL BCXMAX

      INTEGER IWK

      INTEGER ILINX

      INTEGER IER

      REAL X(NX)

      REAL FSPL(4,NX)

      REAL WK(IWK)


      end subroutine CSPLINE

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  CUBSPLB

!

       INTERFACE cubsplb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  CUBSPLB ... for meaning of arguments see the documentation


      SUBROUTINE    cubsplb(

     > TAU,C,N,IBCBEG,IBCEND)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      INTEGER IBCBEG

      INTEGER IBCEND

      REAL TAU(N)

      REAL C(4,N)


      end subroutine cubsplb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  DNHERM1

!

       INTERFACE dnherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  DNHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    dnherm1(

     > X,NX,FHERM,ILINX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      REAL X(NX)

      REAL FHERM(0:1,NX)


      end subroutine dnherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  DNHERM2

!

       INTERFACE dnherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  DNHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    dnherm2(

     > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL FHERM(0:3,NF2,NY)


      end subroutine DNHERM2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  DNHERM3

!

       INTERFACE dnherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  DNHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    dnherm3(

     > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL FHERM(0:7,NF2,NF3,NZ)


      end subroutine dnherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  EVBICUB

!

       INTERFACE evbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  EVBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    evbicub(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER INF2

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL F(0:3,INF2,NY)

      INTEGER ICT(6)

      REAL FVAL(*)


      end subroutine EVBICUB

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  FVBICUB

!

       INTERFACE fvbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  FVBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    fvbicub(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(6)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      REAL XPARAM(IVEC)

      REAL YPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL HY(IVEC)

      REAL HYI(IVEC)

      REAL FIN(0:3,INF2,NY)


      end subroutine fvbicub

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  FVBICUBX

!

       INTERFACE fvbicubx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  FVBICUBX ... for meaning of arguments see the documentation


      SUBROUTINE    fvbicubx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      REAL YPARAM

      REAL HY

      REAL HYI

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(6)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(0:3,INF2,NY)


      end subroutine FVBICUBX

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  EVINTRP2D

!

       INTERFACE evintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  EVINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    evintrp2d(

     > XGET,YGET,X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      INTEGER NX

      INTEGER NY

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      INTEGER JSPLINE(2)

      REAL F(ICOEFF,IXDIM,IYDIM)

      INTEGER ICT(6)

      REAL FVAL(6)


      end subroutine evintrp2d

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  FVINTRP2D

!

       INTERFACE fvintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  FVINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    fvintrp2d(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,JSPLINE,

     > FIN,ICOEFF,IXDIM,IYDIM)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER ICT(6)

      REAL FVAL(IVECD,6)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      REAL XPARAM(IVEC)

      REAL YPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL HY(IVEC)

      REAL HYI(IVEC)

      INTEGER JSPLINE(2)

      REAL FIN(ICOEFF,IXDIM,IYDIM)


      end subroutine fvintrp2d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  EVINTRP3D

!

       INTERFACE evintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  EVINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    evintrp3d(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,

     > ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      REAL ZGET

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      INTEGER JSPLINE(3)

      REAL F(ICOEFF,IXDIM,IYDIM,IZDIM)

      INTEGER ICT(10)

      REAL FVAL(10)


      end subroutine evintrp3d

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  FVINTRP3D

!

       INTERFACE fvintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  FVINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    fvintrp3d(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,JSPLINE,FIN,ICOEFF,IXDIM,IYDIM,IZDIM)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER ICT(10)

      REAL FVAL(IVECD,10)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      INTEGER KK(IVEC)

      REAL XPARAM(IVEC)

      REAL YPARAM(IVEC)

      REAL ZPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL HY(IVEC)

      REAL HYI(IVEC)

      REAL HZ(IVEC)

      REAL HZI(IVEC)

      INTEGER JSPLINE(3)

      REAL FIN(ICOEFF,IXDIM,IYDIM,IZDIM)


      end subroutine FVINTRP3D

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  EVSPLINE

!

       INTERFACE evspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  EVSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    evspline(

     > XGET,X,NX,ILINX,F,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      REAL X(NX)

      REAL F(0:1,NX)

      INTEGER ICT(3)

      REAL FVAL(*)


      end subroutine evspline

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  FVSPLINE

!

       INTERFACE fvspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  FVSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    fvspline(

     > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER NX

      INTEGER ICT(3)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(0:1,NX)


      end subroutine fvspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  EVTRICUB

!

       INTERFACE evtricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  EVTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    evtricub(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,

     > FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      REAL ZGET

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL F(0:7,INF2,INF3,NZ)

      INTEGER ICT(10)

      REAL FVAL(*)


      end subroutine evtricub

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  FVTRICUB

!

       INTERFACE fvtricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  FVTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    fvtricub(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(10)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      INTEGER KK(IVEC)

      REAL XPARAM(IVEC)

      REAL YPARAM(IVEC)

      REAL ZPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL HY(IVEC)

      REAL HYI(IVEC)

      REAL HZ(IVEC)

      REAL HZI(IVEC)

      REAL FIN(0:7,INF2,INF3,NZ)


      end subroutine fvtricub

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  FVTRICUBX

!

       INTERFACE fvtricubx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  FVTRICUBX ... for meaning of arguments see the documentation


      SUBROUTINE    fvtricubx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      INTEGER KK

      REAL YPARAM

      REAL ZPARAM

      REAL HY

      REAL HYI

      REAL HZ

      REAL HZI

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(10)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(0:7,INF2,INF3,NZ)


      end subroutine fvtricubx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  F2TEST

!

       INTERFACE f2test


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  F2TEST ... for meaning of arguments see the documentation


      SUBROUTINE    f2test(

     > FUN1,FUN2,INUMP,XMIN,XMAX,YMIN,YMAX,NAME,NAMEX,NAMEY)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun1

      EXTERNAL fun2

      INTEGER INUMP

      REAL XMIN

      REAL XMAX

      REAL YMIN

      REAL YMAX

      CHARACTER*(*) NAME

      CHARACTER*(*) NAMEX

      CHARACTER*(*) NAMEY


      end subroutine f2test

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  F3TEST

!

       INTERFACE f3test


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  F3TEST ... for meaning of arguments see the documentation


      SUBROUTINE    f3test(

     > FUN1,FUN2,ID,INUMP,XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,NAME,NAMEX,

     > NAMEY,NAMEZ)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun1

      EXTERNAL fun2

      INTEGER ID

      INTEGER INUMP

      REAL XMIN

      REAL XMAX

      REAL YMIN

      REAL YMAX

      REAL ZMIN

      REAL ZMAX

      CHARACTER*(*) NAME

      CHARACTER*(*) NAMEX

      CHARACTER*(*) NAMEY

      CHARACTER*(*) NAMEZ


      end subroutine f3test

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GENXPKG

!

       INTERFACE genxpkg


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GENXPKG ... for meaning of arguments see the documentation


      SUBROUTINE    genxpkg(

     > NX,X,XPKG,IPER,IMSG,ITOL,ZTOL,IALG,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER IPER

      INTEGER IMSG

      INTEGER ITOL

      REAL ZTOL

      INTEGER IALG

      INTEGER IER

      REAL X(NX)

      REAL XPKG(NX,4)


      end subroutine genxpkg

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDBICUB

!

       INTERFACE gridbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    gridbicub(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,

     > INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL F_NEW(IF1,NY_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL FSPL(4,INF3,NY)


      end subroutine GRIDBICUB

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDHERM1

!

       INTERFACE gridherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    gridherm1(

     > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL F_NEW(NX_NEW)

      REAL XPKG(NX,4)

      REAL FSPL(NX,2)


      end subroutine GRIDHERM1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDHERM2

!

       INTERFACE gridherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    gridherm2(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,

     > INF2,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER INF2

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL F_NEW(IF1,NY_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL FSPL(0:3,INF2,NY)


      end subroutine gridherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDHERM3

!

       INTERFACE gridherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    gridherm3(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL Z_NEWGRID(NZ_NEW)

      REAL F_NEW(IF1,IF2,NZ_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      REAL FSPL(0:7,INF2,INF3,NZ)


      end subroutine GRIDHERM3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDINTRP2D

!

       INTERFACE gridintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    gridintrp2d(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,

     > JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL F_NEW(IF1,NY_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      INTEGER JSPLINE(2)

      REAL FSPL(ICOEFF,IXDIM,IYDIM)


      end subroutine gridintrp2d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDINTRP3D

!

       INTERFACE gridintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    gridintrp3d(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,

     > IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL Z_NEWGRID(NZ_NEW)

      REAL F_NEW(IF1,IF2,NZ_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      INTEGER JSPLINE(3)

      REAL FSPL(ICOEFF,IXDIM,IYDIM,IZDIM)


      end subroutine gridintrp3d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDPC1

!

       INTERFACE gridpc1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDPC1 ... for meaning of arguments see the documentation


      SUBROUTINE    gridpc1(

     > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL F_NEW(NX_NEW)

      REAL XPKG(NX,4)

      REAL FSPL(NX)


      end subroutine GRIDPC1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDPC2

!

       INTERFACE gridpc2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDPC2 ... for meaning of arguments see the documentation


      SUBROUTINE    gridpc2(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,

     > INF1,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER INF1

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL F_NEW(IF1,NY_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL FSPL(INF1,NY)


      end subroutine gridpc2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDPC3

!

       INTERFACE gridpc3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDPC3 ... for meaning of arguments see the documentation


      SUBROUTINE    gridpc3(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL Z_NEWGRID(NZ_NEW)

      REAL F_NEW(IF1,IF2,NZ_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      REAL FSPL(INF2,INF3,NZ)


      end subroutine GRIDPC3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDSPLINE

!

       INTERFACE gridspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    gridspline(

     > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL F_NEW(NX_NEW)

      REAL XPKG(NX,4)

      REAL FSPL(NX,2)


      end subroutine gridspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  GRIDTRICUB

!

       INTERFACE gridtricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  GRIDTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    gridtricub(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL Z_NEWGRID(NZ_NEW)

      REAL F_NEW(IF1,IF2,NZ_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      REAL FSPL(8,INF4,INF5,NZ)


      end subroutine gridtricub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  HERM1EV

!

       INTERFACE herm1ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM1EV ... for meaning of arguments see the documentation


      SUBROUTINE    herm1ev(

     > XGET,X,NX,ILINX,F,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      REAL X(NX)

      REAL F(0:1,NX)

      INTEGER ICT(2)

      REAL FVAL(*)


      end subroutine herm1ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  HERM1X

!

       INTERFACE herm1x


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM1X ... for meaning of arguments see the documentation


      SUBROUTINE    herm1x(

     > XGET,X,NX,ILINX,I,XPARAM,HX,HXI,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      INTEGER NX

      INTEGER ILINX

      INTEGER I

      REAL XPARAM

      REAL HX

      REAL HXI

      INTEGER IER

      REAL X(NX)


      end subroutine herm1x

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  HERM1FCN

!

       INTERFACE herm1fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM1FCN ... for meaning of arguments see the documentation


      SUBROUTINE    herm1fcn(

     > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER NX

      INTEGER ICT(2)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(0:1,NX)


      end subroutine HERM1FCN

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  HERM2EV

!

       INTERFACE herm2ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM2EV ... for meaning of arguments see the documentation


      SUBROUTINE    herm2ev(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER INF2

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL F(0:3,INF2,NY)

      INTEGER ICT(4)

      REAL FVAL(*)


      end subroutine herm2ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  HERM2XY

!

       INTERFACE herm2xy


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM2XY ... for meaning of arguments see the documentation


      SUBROUTINE    herm2xy(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,XPARAM,YPARAM,HX,HXI,HY,HYI,

     > IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER I

      INTEGER J

      REAL XPARAM

      REAL YPARAM

      REAL HX

      REAL HXI

      REAL HY

      REAL HYI

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)


      end subroutine herm2xy

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  HERM2FCN

!

       INTERFACE herm2fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM2FCN ... for meaning of arguments see the documentation


      SUBROUTINE    herm2fcn(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(4)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      REAL XPARAM(IVEC)

      REAL YPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL HY(IVEC)

      REAL HYI(IVEC)

      REAL FIN(0:3,INF2,NY)


      end subroutine herm2fcn

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  HERM2FCNX

!

       INTERFACE herm2fcnx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM2FCNX ... for meaning of arguments see the documentation


      SUBROUTINE    herm2fcnx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      REAL YPARAM

      REAL HY

      REAL HYI

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(4)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(0:3,INF2,NY)


      end subroutine herm2fcnx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  HERM3EV

!

       INTERFACE herm3ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM3EV ... for meaning of arguments see the documentation


      SUBROUTINE    herm3ev(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,

     > FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      REAL ZGET

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL F(0:7,INF2,INF3,NZ)

      INTEGER ICT(8)

      REAL FVAL(*)


      end subroutine herm3ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  HERM3XYZ

!

       INTERFACE herm3xyz


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM3XYZ ... for meaning of arguments see the documentation


      SUBROUTINE    herm3xyz(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,XPARAM,

     > YPARAM,ZPARAM,HX,HXI,HY,HYI,HZ,HZI,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      REAL ZGET

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER I

      INTEGER J

      INTEGER K

      REAL XPARAM

      REAL YPARAM

      REAL ZPARAM

      REAL HX

      REAL HXI

      REAL HY

      REAL HYI

      REAL HZ

      REAL HZI

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)


      end subroutine herm3xyz

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  HERM3FCN

!

       INTERFACE herm3fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM3FCN ... for meaning of arguments see the documentation


      SUBROUTINE    herm3fcn(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(8)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      INTEGER KK(IVEC)

      REAL XPARAM(IVEC)

      REAL YPARAM(IVEC)

      REAL ZPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL HY(IVEC)

      REAL HYI(IVEC)

      REAL HZ(IVEC)

      REAL HZI(IVEC)

      REAL FIN(0:7,INF2,INF3,NZ)


      end subroutine herm3fcn

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  HERM3FCNX

!

       INTERFACE herm3fcnx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  HERM3FCNX ... for meaning of arguments see the documentation


      SUBROUTINE    herm3fcnx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      INTEGER KK

      REAL YPARAM

      REAL ZPARAM

      REAL HY

      REAL HYI

      REAL HZ

      REAL HZI

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(8)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(0:7,INF2,INF3,NZ)


      end subroutine herm3fcnx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  IBC_CK

!

       INTERFACE ibc_ck


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  IBC_CK ... for meaning of arguments see the documentation


      SUBROUTINE    ibc_ck(

     > IBC,SLBL,XLBL,IMIN,IMAX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IBC

      CHARACTER*(*) SLBL

      CHARACTER*(*) XLBL

      INTEGER IMIN

      INTEGER IMAX

      INTEGER IER


      end subroutine ibc_ck

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKBICUB

!

       INTERFACE mkbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    mkbicub(

     > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,

     > IBCYMAX,BCYMAX,ILINX,ILINY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL F(4,NF2,NY)

      REAL BCXMIN(NY)

      REAL BCXMAX(NY)

      REAL BCYMIN(NX)

      REAL BCYMAX(NX)


      end subroutine mkbicub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKBICUBW

!

       INTERFACE mkbicubw


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKBICUBW ... for meaning of arguments see the documentation


      SUBROUTINE    mkbicubw(

     > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,

     > IBCYMAX,BCYMAX,WK,NWK,ILINX,ILINY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL F(4,NF2,NY)

      REAL BCXMIN(NY)

      REAL BCXMAX(NY)

      REAL BCYMIN(NX)

      REAL BCYMAX(NX)

      REAL WK(NWK)


      end subroutine MKBICUBW

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  MKBICOP

!

       INTERFACE mkbicop


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKBICOP ... for meaning of arguments see the documentation


      SUBROUTINE    mkbicop(

     > FIN,NF2,FWK,NX,NY)


      IMPLICIT NONE


! argument declarations

      INTEGER NF2

      INTEGER NX

      INTEGER NY

      REAL FIN(4,NF2,NY)

      REAL FWK(4,4,NX,NY)


      end subroutine mkbicop

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  MKBICON

!

       INTERFACE mkbicon


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKBICON ... for meaning of arguments see the documentation


      SUBROUTINE    mkbicon(

     > FIN,NF2,FWK,NX,NY,HXLAST,HYLAST)


      IMPLICIT NONE


! argument declarations

      INTEGER NF2

      INTEGER NX

      INTEGER NY

      REAL HXLAST

      REAL HYLAST

      REAL FIN(4,NF2,NY)

      REAL FWK(4,4,NX,NY)


      end subroutine mkbicon

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKHERM1

!

       INTERFACE mkherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    mkherm1(

     > FUN,X,NX,FHERM)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      REAL X(NX)

      REAL FHERM(0:1,NX)


      end subroutine mkherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKHERM2

!

       INTERFACE mkherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    mkherm2(

     > FUN,X,NX,Y,NY,FHERM)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      INTEGER NY

      REAL X(NX)

      REAL Y(NY)

      REAL FHERM(0:3,NX,NY)


      end subroutine mkherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKHERM3

!

       INTERFACE mkherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    mkherm3(

     > FUN,X,NX,Y,NY,Z,NZ,FHERM)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL FHERM(0:7,NX,NY,NZ)


      end subroutine mkherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKINTRP2D

!

       INTERFACE mkintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    mkintrp2d(

     > X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      INTEGER JSPLINE(2)

      REAL F(ICOEFF,IXDIM,IYDIM)

      REAL BCXMIN(IYDIM)

      REAL BCXMAX(IYDIM)

      REAL BCYMIN(IXDIM)

      REAL BCYMAX(IXDIM)


      end subroutine mkintrp2d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKINTRP3D

!

       INTERFACE mkintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    mkintrp3d(

     > X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,IBCXMIN,BCXMIN,

     > IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IBCZMIN,BCZMIN,

     > IBCZMAX,BCZMAX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER IBCZMIN

      INTEGER IBCZMAX

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      INTEGER JSPLINE(3)

      REAL F(ICOEFF,IXDIM,IYDIM,IZDIM)

      REAL BCXMIN(IYDIM,IZDIM)

      REAL BCXMAX(IYDIM,IZDIM)

      REAL BCYMIN(IXDIM,IZDIM)

      REAL BCYMAX(IXDIM,IZDIM)

      REAL BCZMIN(IXDIM,IYDIM)

      REAL BCZMAX(IXDIM,IYDIM)


      end subroutine MKINTRP3D

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKSPL2PB

!

       INTERFACE mkspl2pb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKSPL2PB ... for meaning of arguments see the documentation


      SUBROUTINE    mkspl2pb(

     > FUN,X,NX,TH,NTH,FSPL,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,

     > ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL X(NX)

      REAL TH(NTH)

      REAL FSPL(4,4,NF3,NTH)

      REAL BCXMIN(NTH)

      REAL BCXMAX(NTH)

      REAL WK(INWK)


      end subroutine mkspl2pb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKSPL2P

!

       INTERFACE mkspl2p


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKSPL2P ... for meaning of arguments see the documentation


      SUBROUTINE    mkspl2p(

     > FUN,X,NX,TH,NTH,FSPL,NF3,WK,INWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NF3

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL X(NX)

      REAL TH(NTH)

      REAL FSPL(4,4,NF3,NTH)

      REAL WK(INWK)


      end subroutine MKSPL2P

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKSPL2ZB

!

       INTERFACE mkspl2zb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKSPL2ZB ... for meaning of arguments see the documentation


      SUBROUTINE    mkspl2zb(

     > FUN,X,NX,TH,NTH,FSPL,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,

     > ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NF2

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL X(NX)

      REAL TH(NTH)

      REAL FSPL(4,NF2,NTH)

      REAL BCXMIN(NTH)

      REAL BCXMAX(NTH)

      REAL WK(INWK)


      end subroutine mkspl2zb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKSPL2Z

!

       INTERFACE mkspl2z


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKSPL2Z ... for meaning of arguments see the documentation


      SUBROUTINE    mkspl2z(

     > FUN,X,NX,TH,NTH,FSPL,NF2,WK,INWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NF2

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL X(NX)

      REAL TH(NTH)

      REAL FSPL(4,NF2,NTH)

      REAL WK(INWK)


      end subroutine mkspl2z

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKSPL3PB

!

       INTERFACE mkspl3pb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKSPL3PB ... for meaning of arguments see the documentation


      SUBROUTINE    mkspl3pb(

     > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF4,NF5,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NPH

      INTEGER NF4

      INTEGER NF5

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER NB1

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      REAL X(NX)

      REAL TH(NTH)

      REAL PH(NPH)

      REAL FSPL(4,4,4,NF4,NF5,NPH)

      REAL BCXMIN(NB1,NPH)

      REAL BCXMAX(NB1,NPH)

      REAL WK(INWK)


      end subroutine mkspl3pb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKSPL3ZB

!

       INTERFACE mkspl3zb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKSPL3ZB ... for meaning of arguments see the documentation


      SUBROUTINE    mkspl3zb(

     > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NPH

      INTEGER NF2

      INTEGER NF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER NB1

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      REAL X(NX)

      REAL TH(NTH)

      REAL PH(NPH)

      REAL FSPL(8,NF2,NF3,NPH)

      REAL BCXMIN(NB1,NPH)

      REAL BCXMAX(NB1,NPH)

      REAL WK(INWK)


      end subroutine mkspl3zb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKSPLINE

!

       INTERFACE mkspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    mkspline(

     > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,ILINX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER IBCXMIN

      REAL BCXMIN

      INTEGER IBCXMAX

      REAL BCXMAX

      INTEGER ILINX

      INTEGER IER

      REAL X(NX)

      REAL FSPL(2,NX)


      end subroutine mkspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKTRICUB

!

       INTERFACE mktricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    mktricub(

     > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,

     > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,

     > BCZMAX,INB1Z,ILINX,ILINY,ILINZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INB1X

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER INB1Y

      INTEGER IBCZMIN

      INTEGER IBCZMAX

      INTEGER INB1Z

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL F(8,NF2,NF3,NZ)

      REAL BCXMIN(INB1X,NZ)

      REAL BCXMAX(INB1X,NZ)

      REAL BCYMIN(INB1Y,NZ)

      REAL BCYMAX(INB1Y,NZ)

      REAL BCZMIN(INB1Z,NY)

      REAL BCZMAX(INB1Z,NY)


      end subroutine MKTRICUB

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  MKTRICUBW

!

       INTERFACE mktricubw


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKTRICUBW ... for meaning of arguments see the documentation


      SUBROUTINE    mktricubw(

     > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,

     > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,

     > BCZMAX,INB1Z,WK,NWK,ILINX,ILINY,ILINZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INB1X

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER INB1Y

      INTEGER IBCZMIN

      INTEGER IBCZMAX

      INTEGER INB1Z

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL F(8,NF2,NF3,NZ)

      REAL BCXMIN(INB1X,NZ)

      REAL BCXMAX(INB1X,NZ)

      REAL BCYMIN(INB1Y,NZ)

      REAL BCYMAX(INB1Y,NZ)

      REAL BCZMIN(INB1Z,NY)

      REAL BCZMAX(INB1Z,NY)

      REAL WK(NWK)


      end subroutine MKTRICUBW

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  MKTRICOP

!

       INTERFACE mktricop


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKTRICOP ... for meaning of arguments see the documentation


      SUBROUTINE    mktricop(

     > FIN,NF2,NF3,FWK,NX,NY,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER NF2

      INTEGER NF3

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      REAL FIN(8,NF2,NF3,NZ)

      REAL FWK(4,4,4,NX,NY,NZ)


      end subroutine mktricop

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  MKTRICON

!

       INTERFACE mktricon


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  MKTRICON ... for meaning of arguments see the documentation


      SUBROUTINE    mktricon(

     > FIN,NF2,NF3,FWK,NX,NY,NZ,HXLAST,HYLAST,HZLAST)


      IMPLICIT NONE


! argument declarations

      INTEGER NF2

      INTEGER NF3

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      REAL HXLAST

      REAL HYLAST

      REAL HZLAST

      REAL FIN(8,NF2,NF3,NZ)

      REAL FWK(4,4,4,NX,NY,NZ)


      end subroutine mktricon

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  NSPLINE

!

       INTERFACE nspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  NSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    nspline(

     > N,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end subroutine NSPLINE

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  PC1EV

!

       INTERFACE pc1ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PC1EV ... for meaning of arguments see the documentation


      SUBROUTINE    pc1ev(

     > XGET,X,NX,ILINX,F,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      REAL X(NX)

      REAL F(NX)

      INTEGER ICT(2)

      REAL FVAL(*)


      end subroutine pc1ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  PC1FCN

!

       INTERFACE pc1fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PC1FCN ... for meaning of arguments see the documentation


      SUBROUTINE    pc1fcn(

     > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER NX

      INTEGER ICT(2)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(NX)


      end subroutine pc1fcn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  PC2EV

!

       INTERFACE pc2ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PC2EV ... for meaning of arguments see the documentation


      SUBROUTINE    pc2ev(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER INF2

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL F(INF2,NY)

      INTEGER ICT(4)

      REAL FVAL(*)


      end subroutine pc2ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  PC2FCN

!

       INTERFACE pc2fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PC2FCN ... for meaning of arguments see the documentation


      SUBROUTINE    pc2fcn(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(4)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      REAL XPARAM(IVEC)

      REAL YPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL HY(IVEC)

      REAL HYI(IVEC)

      REAL FIN(INF2,NY)


      end subroutine pc2fcn

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  PC2FCNX

!

       INTERFACE pc2fcnx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PC2FCNX ... for meaning of arguments see the documentation


      SUBROUTINE    pc2fcnx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      REAL YPARAM

      REAL HY

      REAL HYI

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(4)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(INF2,NY)


      end subroutine pc2fcnx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  PC3EV

!

       INTERFACE pc3ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PC3EV ... for meaning of arguments see the documentation


      SUBROUTINE    pc3ev(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,

     > FVAL,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      REAL ZGET

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL F(INF2,INF3,NZ)

      INTEGER ICT(8)

      REAL FVAL(*)


      end subroutine PC3EV

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  PC3FCN

!

       INTERFACE pc3fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PC3FCN ... for meaning of arguments see the documentation


      SUBROUTINE    pc3fcn(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(8)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      INTEGER KK(IVEC)

      REAL XPARAM(IVEC)

      REAL YPARAM(IVEC)

      REAL ZPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL HY(IVEC)

      REAL HYI(IVEC)

      REAL HZ(IVEC)

      REAL HZI(IVEC)

      REAL FIN(INF2,INF3,NZ)


      end subroutine PC3FCN

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  PC3FCNX

!

       INTERFACE pc3fcnx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PC3FCNX ... for meaning of arguments see the documentation


      SUBROUTINE    pc3fcnx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      INTEGER KK

      REAL YPARAM

      REAL ZPARAM

      REAL HY

      REAL HYI

      REAL HZ

      REAL HZI

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(8)

      REAL FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL XPARAM(IVEC)

      REAL HX(IVEC)

      REAL HXI(IVEC)

      REAL FIN(INF2,INF3,NZ)


      end subroutine PC3FCNX

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  PSPLINE

!

       INTERFACE pspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  PSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    pspline(

     > N,X,Y,B,C,D,WK)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)

      REAL WK(N)


      end subroutine PSPLINE

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8AKHERM1

!

       INTERFACE r8akherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8AKHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    r8akherm1(

     > X,NX,FHERM,ILINX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      real*8 x(nx)

      real*8 fherm(0:1,nx)


      end subroutine r8akherm1

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8AKHERM1P

!

       INTERFACE r8akherm1p


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8AKHERM1P ... for meaning of arguments see the documentation


      SUBROUTINE    r8akherm1p(

     > X,NX,FHERM,ILINX,IPX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER ILINX

      INTEGER IPX

      INTEGER IER

      REAL*8 X(NX)

      real*8 fherm(0:1,nx)


      end subroutine r8akherm1p

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8AKHERM0

!

       INTERFACE r8akherm0


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8AKHERM0 ... for meaning of arguments see the documentation


      SUBROUTINE    r8akherm0(

     > CXMM,CXM,CXP,CXPP,WX,RESULT)


      IMPLICIT NONE


! argument declarations

      real*8 cxmm

      real*8 cxm

      real*8 cxp

      real*8 cxpp

      real*8 result

      real*8 wx(2)


      end subroutine r8akherm0

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8AKHERM2

!

       INTERFACE r8akherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8AKHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    r8akherm2(

     > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      real*8 fherm(0:3,nf2,ny)


      end subroutine r8akherm2

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8AKHERM2P

!

       INTERFACE r8akherm2p


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8AKHERM2P ... for meaning of arguments see the documentation


      SUBROUTINE    r8akherm2p(

     > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IPX,IPY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IPX

      INTEGER IPY

      INTEGER IER

      REAL*8 X(NX)

      real*8 y(ny)

      real*8 fherm(0:3,nf2,ny)


      end subroutine r8akherm2p

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8AKHERM3

!

       INTERFACE r8akherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8AKHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    r8akherm3(

     > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      real*8 z(nz)

      real*8 fherm(0:7,nf2,nf3,nz)


      end subroutine r8akherm3

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8AKHERM3P

!

       INTERFACE r8akherm3p


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8AKHERM3P ... for meaning of arguments see the documentation


      SUBROUTINE    r8akherm3p(

     > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IPX,IPY,IPZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IPX

      INTEGER IPY

      INTEGER IPZ

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 Y(NY)

      REAL*8 Z(NZ)

      real*8 fherm(0:7,nf2,nf3,nz)


      end subroutine r8akherm3p

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8BCSPEVAL

!

       INTERFACE r8bcspeval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8BCSPEVAL ... for meaning of arguments see the documentation


      SUBROUTINE    r8bcspeval(

     > XGET,YGET,ISELECT,FVAL,X,NX,Y,NY,ILINX,ILINY,F,INF3,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER INF3

      INTEGER IER

      INTEGER ISELECT(6)

      REAL*8 FVAL(*)

      REAL*8 X(NX)

      REAL*8 Y(NY)

      real*8 f(4,4,inf3,ny)


      end subroutine r8bcspeval

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8BCSPEVXY

!

       INTERFACE r8bcspevxy


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8BCSPEVXY ... for meaning of arguments see the documentation


      SUBROUTINE    r8bcspevxy(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,DX,DY,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER I

      INTEGER J

      REAL*8 DX

      real*8 dy

      INTEGER IER

      REAL*8 X(NX)

      real*8 y(ny)


      end subroutine r8bcspevxy

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8BCSPEVFN

!

       INTERFACE r8bcspevfn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8BCSPEVFN ... for meaning of arguments see the documentation


      SUBROUTINE    r8bcspevfn(

     > ICT,IVEC,IVD,FVAL,IV,JV,DXV,DYV,F,INF3,NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER INF3

      INTEGER NY

      INTEGER ICT(6)

      REAL*8 FVAL(IVD,*)

      INTEGER IV(IVEC)

      INTEGER JV(IVEC)

      REAL*8 DXV(IVEC)

      real*8 dyv(ivec)

      real*8 f(4,4,inf3,ny)


      end subroutine r8bcspevfn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8BCSPGRID

!

       INTERFACE r8bcspgrid


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8BCSPGRID ... for meaning of arguments see the documentation


      SUBROUTINE    r8bcspgrid(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,

     > INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      REAL*8 X_NEWGRID(NX_NEW)

      REAL*8 Y_NEWGRID(NY_NEW)

      REAL*8 F_NEW(IF1,NY_NEW)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 fspl(4,4,inf3,ny)


      end subroutine r8bcspgrid

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8BCSPLINE

!

       INTERFACE r8bcspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8BCSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8bcspline(

     > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,

     > BCTHMIN,IBCTHMAX,BCTHMAX,WK,NWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCTHMIN

      INTEGER IBCTHMAX

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL*8 X(INX)

      REAL*8 TH(INTH)

      REAL*8 FSPL(4,4,INF3,INTH)

      real*8 bcxmin(*)

      real*8 bcxmax(*)

      real*8 bcthmin(*)

      real*8 bcthmax(*)

      real*8 wk(nwk)


      end subroutine r8bcspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8BCSPVEC

!

       INTERFACE r8bcspvec


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8BCSPVEC ... for meaning of arguments see the documentation


      SUBROUTINE    r8bcspvec(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(6)

      real*8 xvec(ivec)

      real*8 yvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 fspl(4,4,inf3,ny)


      end subroutine r8bcspvec

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8BPSPLINB

!

       INTERFACE r8bpsplinb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8BPSPLINB ... for meaning of arguments see the documentation


      SUBROUTINE    r8bpsplinb(

     > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,NWK,

     > ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL*8 X(INX)

      real*8 th(inth)

      real*8 fspl(4,4,inf3,inth)

      real*8 bcxmin(inth)

      real*8 bcxmax(inth)

      real*8 wk(nwk)


      end subroutine r8bpsplinb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8BPSPLINE

!

       INTERFACE r8bpspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8BPSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8bpspline(

     > X,INX,TH,INTH,FSPL,INF3,WK,NWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INF3

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL*8 X(INX)

      real*8 th(inth)

      real*8 fspl(4,4,inf3,inth)

      real*8 wk(nwk)


      end subroutine r8bpspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8CSPEVAL

!

       INTERFACE r8cspeval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8CSPEVAL ... for meaning of arguments see the documentation


      SUBROUTINE    r8cspeval(

     > XGET,ISELECT,FVAL,X,NX,ILINX,F,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      INTEGER ISELECT(3)

      REAL*8 FVAL(3)

      REAL*8 X(NX)

      REAL*8 F(4,NX)


      end subroutine r8cspeval

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8CSPEVX

!

       INTERFACE r8cspevx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8CSPEVX ... for meaning of arguments see the documentation


      SUBROUTINE    r8cspevx(

     > XGET,X,NX,ILINX,I,DX,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      INTEGER NX

      INTEGER ILINX

      INTEGER I

      real*8 dx

      INTEGER IER

      real*8 x(nx)


      end subroutine r8cspevx

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8CSPEVFN

!

       INTERFACE r8cspevfn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8CSPEVFN ... for meaning of arguments see the documentation


      SUBROUTINE    r8cspevfn(

     > ICT,IVEC,IVD,FVAL,IV,DXV,F,NX)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER ICT(3)

      real*8 fval(ivd,*)

      INTEGER IV(IVEC)

      real*8 dxv(ivec)

      real*8 f(4,nx)


      end subroutine r8cspevfn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8CSPLINE

!

       INTERFACE r8cspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8CSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8cspline(

     > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,IWK,ILINX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER IBCXMIN

      REAL*8 BCXMIN

      INTEGER IBCXMAX

      REAL*8 BCXMAX

      INTEGER IWK

      INTEGER ILINX

      INTEGER IER

      REAL*8 X(NX)

      real*8 fspl(4,nx)

      real*8 wk(iwk)


      end subroutine r8cspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8CUBSPLB

!

       INTERFACE r8cubsplb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8CUBSPLB ... for meaning of arguments see the documentation


      SUBROUTINE    r8cubsplb(

     > TAU,C,N,IBCBEG,IBCEND)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      INTEGER IBCBEG

      INTEGER IBCEND

      REAL*8 TAU(N)

      REAL*8 C(4,N)


      end subroutine r8cubsplb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8DNHERM1

!

       INTERFACE r8dnherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8DNHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    r8dnherm1(

     > X,NX,FHERM,ILINX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      real*8 x(nx)

      real*8 fherm(0:1,nx)


      end subroutine r8dnherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8DNHERM2

!

       INTERFACE r8dnherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8DNHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    r8dnherm2(

     > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      real*8 fherm(0:3,nf2,ny)


      end subroutine r8dnherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8DNHERM3

!

       INTERFACE r8dnherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8DNHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    r8dnherm3(

     > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      real*8 z(nz)

      real*8 fherm(0:7,nf2,nf3,nz)


      end subroutine r8dnherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8EVBICUB

!

       INTERFACE r8evbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8EVBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8evbicub(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER INF2

      INTEGER IER

      REAL*8 X(NX)

      real*8 y(ny)

      real*8 f(0:3,inf2,ny)

      INTEGER ICT(6)

      REAL*8 FVAL(*)


      end subroutine R8EVBICUB

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8FVBICUB

!

       INTERFACE r8fvbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8FVBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8fvbicub(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(6)

      REAL*8 FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      REAL*8 XPARAM(IVEC)

      real*8 yparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 hy(ivec)

      real*8 hyi(ivec)

      real*8 fin(0:3,inf2,ny)


      end subroutine r8fvbicub

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8FVBICUBX

!

       INTERFACE r8fvbicubx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8FVBICUBX ... for meaning of arguments see the documentation


      SUBROUTINE    r8fvbicubx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      REAL*8 YPARAM

      REAL*8 HY

      REAL*8 HYI

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(6)

      REAL*8 FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL*8 XPARAM(IVEC)

      REAL*8 HX(IVEC)

      real*8 hxi(ivec)

      real*8 fin(0:3,inf2,ny)


      end subroutine r8fvbicubx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8EVINTRP2D

!

       INTERFACE r8evintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8EVINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    r8evintrp2d(

     > XGET,YGET,X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      INTEGER NX

      INTEGER NY

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      INTEGER JSPLINE(2)

      real*8 f(icoeff,ixdim,iydim)

      INTEGER ICT(6)

      REAL*8 FVAL(6)


      end subroutine r8evintrp2d

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8FVINTRP2D

!

       INTERFACE r8fvintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8FVINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    r8fvintrp2d(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,JSPLINE,

     > FIN,ICOEFF,IXDIM,IYDIM)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER ICT(6)

      real*8 fval(ivecd,6)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      real*8 xparam(ivec)

      real*8 yparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 hy(ivec)

      real*8 hyi(ivec)

      INTEGER JSPLINE(2)

      REAL*8 FIN(ICOEFF,IXDIM,IYDIM)


      end subroutine r8fvintrp2d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8EVINTRP3D

!

       INTERFACE r8evintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8EVINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    r8evintrp3d(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,

     > ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      real*8 zget

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IER

      REAL*8 X(NX)

      real*8 y(ny)

      real*8 z(nz)

      INTEGER JSPLINE(3)

      REAL*8 F(ICOEFF,IXDIM,IYDIM,IZDIM)

      INTEGER ICT(10)

      REAL*8 FVAL(10)


      end subroutine r8evintrp3d

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8FVINTRP3D

!

       INTERFACE r8fvintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8FVINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    r8fvintrp3d(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,JSPLINE,FIN,ICOEFF,IXDIM,IYDIM,IZDIM)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER ICT(10)

      real*8 fval(ivecd,10)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      INTEGER KK(IVEC)

      real*8 xparam(ivec)

      real*8 yparam(ivec)

      real*8 zparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 hy(ivec)

      real*8 hyi(ivec)

      real*8 hz(ivec)

      real*8 hzi(ivec)

      INTEGER JSPLINE(3)

      REAL*8 FIN(ICOEFF,IXDIM,IYDIM,IZDIM)


      end subroutine r8fvintrp3d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8EVSPLINE

!

       INTERFACE r8evspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8EVSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8evspline(

     > XGET,X,NX,ILINX,F,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      REAL*8 X(NX)

      real*8 f(0:1,nx)

      INTEGER ICT(3)

      real*8 fval(*)


      end subroutine r8evspline

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8FVSPLINE

!

       INTERFACE r8fvspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8FVSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8fvspline(

     > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER NX

      INTEGER ICT(3)

      real*8 fval(ivecd,*)

      INTEGER II(IVEC)

      real*8 xparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 fin(0:1,nx)


      end subroutine r8fvspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8EVTRICUB

!

       INTERFACE r8evtricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8EVTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8evtricub(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,

     > FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      real*8 zget

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      real*8 z(nz)

      real*8 f(0:7,inf2,inf3,nz)

      INTEGER ICT(10)

      real*8 fval(*)


      end subroutine r8evtricub

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8FVTRICUB

!

       INTERFACE r8fvtricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8FVTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8fvtricub(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(10)

      real*8 fval(ivecd,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      INTEGER KK(IVEC)

      real*8 xparam(ivec)

      real*8 yparam(ivec)

      real*8 zparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 hy(ivec)

      real*8 hyi(ivec)

      real*8 hz(ivec)

      real*8 hzi(ivec)

      real*8 fin(0:7,inf2,inf3,nz)


      end subroutine r8fvtricub

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8FVTRICUBX

!

       INTERFACE r8fvtricubx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8FVTRICUBX ... for meaning of arguments see the documentation


      SUBROUTINE    r8fvtricubx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      INTEGER KK

      REAL*8 YPARAM

      real*8 zparam

      real*8 hy

      real*8 hyi

      real*8 hz

      real*8 hzi

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(10)

      real*8 fval(ivecd,*)

      INTEGER II(IVEC)

      real*8 xparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 fin(0:7,inf2,inf3,nz)


      end subroutine r8fvtricubx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8F2TEST

!

       INTERFACE r8f2test


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8F2TEST ... for meaning of arguments see the documentation


      SUBROUTINE    r8f2test(

     > FUN1,FUN2,INUMP,XMIN,XMAX,YMIN,YMAX,NAME,NAMEX,NAMEY)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun1

      EXTERNAL fun2

      INTEGER INUMP

      REAL*8 XMIN

      REAL*8 XMAX

      real*8 ymin

      real*8 ymax

      CHARACTER*(*) NAME

      CHARACTER*(*) NAMEX

      CHARACTER*(*) NAMEY


      end subroutine r8f2test

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8F3TEST

!

       INTERFACE r8f3test


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8F3TEST ... for meaning of arguments see the documentation


      SUBROUTINE    r8f3test(

     > FUN1,FUN2,ID,INUMP,XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,NAME,NAMEX,

     > NAMEY,NAMEZ)


      IMPLICIT NONE


! argument declarations

      EXTERNAL fun1

      EXTERNAL fun2

      INTEGER ID

      INTEGER INUMP

      REAL*8 XMIN

      REAL*8 XMAX

      real*8 ymin

      real*8 ymax

      real*8 zmin

      real*8 zmax

      CHARACTER*(*) NAME

      CHARACTER*(*) NAMEX

      CHARACTER*(*) NAMEY

      CHARACTER*(*) NAMEZ


      end subroutine r8f3test

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GENXPKG

!

       INTERFACE r8genxpkg


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GENXPKG ... for meaning of arguments see the documentation


      SUBROUTINE    r8genxpkg(

     > NX,X,XPKG,IPER,IMSG,ITOL,ZTOL,IALG,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER IPER

      INTEGER IMSG

      INTEGER ITOL

      real*8 ztol

      INTEGER IALG

      INTEGER IER

      real*8 x(nx)

      real*8 xpkg(nx,4)


      end subroutine r8genxpkg

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDBICUB

!

       INTERFACE r8gridbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridbicub(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,

     > INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      REAL*8 X_NEWGRID(NX_NEW)

      REAL*8 Y_NEWGRID(NY_NEW)

      REAL*8 F_NEW(IF1,NY_NEW)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 fspl(4,inf3,ny)


      end subroutine r8gridbicub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDHERM1

!

       INTERFACE r8gridherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridherm1(

     > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 f_new(nx_new)

      real*8 xpkg(nx,4)

      real*8 fspl(nx,2)


      end subroutine r8gridherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDHERM2

!

       INTERFACE r8gridherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridherm2(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,

     > INF2,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER INF2

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 y_newgrid(ny_new)

      real*8 f_new(if1,ny_new)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 fspl(0:3,inf2,ny)


      end subroutine r8gridherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDHERM3

!

       INTERFACE r8gridherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridherm3(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 y_newgrid(ny_new)

      real*8 z_newgrid(nz_new)

      real*8 f_new(if1,if2,nz_new)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      real*8 fspl(0:7,inf2,inf3,nz)


      end subroutine r8gridherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDINTRP2D

!

       INTERFACE r8gridintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridintrp2d(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,

     > JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 y_newgrid(ny_new)

      real*8 f_new(if1,ny_new)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      INTEGER JSPLINE(2)

      REAL*8 FSPL(ICOEFF,IXDIM,IYDIM)


      end subroutine R8GRIDINTRP2D

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDINTRP3D

!

       INTERFACE r8gridintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridintrp3d(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,

     > IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 y_newgrid(ny_new)

      real*8 z_newgrid(nz_new)

      real*8 f_new(if1,if2,nz_new)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      INTEGER JSPLINE(3)

      real*8 fspl(icoeff,ixdim,iydim,izdim)


      end subroutine r8gridintrp3d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDPC1

!

       INTERFACE r8gridpc1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDPC1 ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridpc1(

     > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      REAL*8 X_NEWGRID(NX_NEW)

      REAL*8 F_NEW(NX_NEW)

      REAL*8 XPKG(NX,4)

      real*8 fspl(nx)


      end subroutine r8gridpc1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDPC2

!

       INTERFACE r8gridpc2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDPC2 ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridpc2(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,

     > INF1,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER IF1

      INTEGER NX

      INTEGER NY

      INTEGER INF1

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 y_newgrid(ny_new)

      real*8 f_new(if1,ny_new)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 fspl(inf1,ny)


      end subroutine r8gridpc2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDPC3

!

       INTERFACE r8gridpc3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDPC3 ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridpc3(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      REAL*8 X_NEWGRID(NX_NEW)

      REAL*8 Y_NEWGRID(NY_NEW)

      real*8 z_newgrid(nz_new)

      real*8 f_new(if1,if2,nz_new)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      real*8 fspl(inf2,inf3,nz)


      end subroutine r8gridpc3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDSPLINE

!

       INTERFACE r8gridspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridspline(

     > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      REAL*8 X_NEWGRID(NX_NEW)

      REAL*8 F_NEW(NX_NEW)

      real*8 xpkg(nx,4)

      real*8 fspl(nx,2)


      end subroutine r8gridspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8GRIDTRICUB

!

       INTERFACE r8gridtricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8GRIDTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8gridtricub(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 y_newgrid(ny_new)

      real*8 z_newgrid(nz_new)

      real*8 f_new(if1,if2,nz_new)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      real*8 fspl(8,inf4,inf5,nz)


      end subroutine r8gridtricub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8HERM1EV

!

       INTERFACE r8herm1ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM1EV ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm1ev(

     > XGET,X,NX,ILINX,F,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      real*8 x(nx)

      real*8 f(0:1,nx)

      INTEGER ICT(2)

      real*8 fval(*)


      end subroutine r8herm1ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8HERM1X

!

       INTERFACE r8herm1x


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM1X ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm1x(

     > XGET,X,NX,ILINX,I,XPARAM,HX,HXI,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      INTEGER NX

      INTEGER ILINX

      INTEGER I

      REAL*8 XPARAM

      REAL*8 HX

      real*8 hxi

      INTEGER IER

      REAL*8 X(NX)


      end subroutine r8herm1x

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8HERM1FCN

!

       INTERFACE r8herm1fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM1FCN ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm1fcn(

     > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER NX

      INTEGER ICT(2)

      real*8 fval(ivecd,*)

      INTEGER II(IVEC)

      REAL*8 XPARAM(IVEC)

      REAL*8 HX(IVEC)

      real*8 hxi(ivec)

      real*8 fin(0:1,nx)


      end subroutine r8herm1fcn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8HERM2EV

!

       INTERFACE r8herm2ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM2EV ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm2ev(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER INF2

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 Y(NY)

      real*8 f(0:3,inf2,ny)

      INTEGER ICT(4)

      REAL*8 FVAL(*)


      end subroutine r8herm2ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8HERM2XY

!

       INTERFACE r8herm2xy


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM2XY ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm2xy(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,XPARAM,YPARAM,HX,HXI,HY,HYI,

     > IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER I

      INTEGER J

      REAL*8 XPARAM

      real*8 yparam

      real*8 hx

      real*8 hxi

      real*8 hy

      real*8 hyi

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 Y(NY)


      end subroutine R8HERM2XY

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8HERM2FCN

!

       INTERFACE r8herm2fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM2FCN ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm2fcn(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(4)

      REAL*8 FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      REAL*8 XPARAM(IVEC)

      REAL*8 YPARAM(IVEC)

      REAL*8 HX(IVEC)

      REAL*8 HXI(IVEC)

      REAL*8 HY(IVEC)

      real*8 hyi(ivec)

      real*8 fin(0:3,inf2,ny)


      end subroutine r8herm2fcn

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8HERM2FCNX

!

       INTERFACE r8herm2fcnx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM2FCNX ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm2fcnx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      real*8 yparam

      real*8 hy

      real*8 hyi

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(4)

      REAL*8 FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL*8 XPARAM(IVEC)

      REAL*8 HX(IVEC)

      REAL*8 HXI(IVEC)

      REAL*8 FIN(0:3,INF2,NY)


      end subroutine r8herm2fcnx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8HERM3EV

!

       INTERFACE r8herm3ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM3EV ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm3ev(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,

     > FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      real*8 zget

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 Y(NY)

      real*8 z(nz)

      real*8 f(0:7,inf2,inf3,nz)

      INTEGER ICT(8)

      real*8 fval(*)


      end subroutine r8herm3ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8HERM3XYZ

!

       INTERFACE r8herm3xyz


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM3XYZ ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm3xyz(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,XPARAM,

     > YPARAM,ZPARAM,HX,HXI,HY,HYI,HZ,HZI,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      real*8 zget

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER I

      INTEGER J

      INTEGER K

      real*8 xparam

      real*8 yparam

      real*8 zparam

      real*8 hx

      real*8 hxi

      real*8 hy

      real*8 hyi

      real*8 hz

      real*8 hzi

      INTEGER IER

      REAL*8 X(NX)

      real*8 y(ny)

      real*8 z(nz)


      end subroutine r8herm3xyz

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8HERM3FCN

!

       INTERFACE r8herm3fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM3FCN ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm3fcn(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(8)

      real*8 fval(ivecd,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      INTEGER KK(IVEC)

      real*8 xparam(ivec)

      real*8 yparam(ivec)

      real*8 zparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 hy(ivec)

      real*8 hyi(ivec)

      real*8 hz(ivec)

      real*8 hzi(ivec)

      real*8 fin(0:7,inf2,inf3,nz)


      end subroutine r8herm3fcn

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8HERM3FCNX

!

       INTERFACE r8herm3fcnx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8HERM3FCNX ... for meaning of arguments see the documentation


      SUBROUTINE    r8herm3fcnx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      INTEGER KK

      real*8 yparam

      real*8 zparam

      real*8 hy

      real*8 hyi

      real*8 hz

      real*8 hzi

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(8)

      real*8 fval(ivecd,*)

      INTEGER II(IVEC)

      REAL*8 XPARAM(IVEC)

      REAL*8 HX(IVEC)

      real*8 hxi(ivec)

      real*8 fin(0:7,inf2,inf3,nz)


      end subroutine r8herm3fcnx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKBICUB

!

       INTERFACE r8mkbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkbicub(

     > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,

     > IBCYMAX,BCYMAX,ILINX,ILINY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      real*8 f(4,nf2,ny)

      real*8 bcxmin(ny)

      real*8 bcxmax(ny)

      real*8 bcymin(nx)

      real*8 bcymax(nx)


      end subroutine r8mkbicub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKBICUBW

!

       INTERFACE r8mkbicubw


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKBICUBW ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkbicubw(

     > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,

     > IBCYMAX,BCYMAX,WK,NWK,ILINX,ILINY,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NF2

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINY

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 Y(NY)

      REAL*8 F(4,NF2,NY)

      real*8 bcxmin(ny)

      real*8 bcxmax(ny)

      real*8 bcymin(nx)

      real*8 bcymax(nx)

      real*8 wk(nwk)


      end subroutine r8mkbicubw

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8MKBICOP

!

       INTERFACE r8mkbicop


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKBICOP ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkbicop(

     > FIN,NF2,FWK,NX,NY)


      IMPLICIT NONE


! argument declarations

      INTEGER NF2

      INTEGER NX

      INTEGER NY

      real*8 fin(4,nf2,ny)

      real*8 fwk(4,4,nx,ny)


      end subroutine r8mkbicop

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8MKBICON

!

       INTERFACE r8mkbicon


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKBICON ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkbicon(

     > FIN,NF2,FWK,NX,NY,HXLAST,HYLAST)


      IMPLICIT NONE


! argument declarations

      INTEGER NF2

      INTEGER NX

      INTEGER NY

      REAL*8 HXLAST

      REAL*8 HYLAST

      real*8 fin(4,nf2,ny)

      real*8 fwk(4,4,nx,ny)


      end subroutine r8mkbicon

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKHERM1

!

       INTERFACE r8mkherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkherm1(

     > FUN,X,NX,FHERM)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      real*8 x(nx)

      real*8 fherm(0:1,nx)


      end subroutine r8mkherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKHERM2

!

       INTERFACE r8mkherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkherm2(

     > FUN,X,NX,Y,NY,FHERM)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      INTEGER NY

      real*8 x(nx)

      real*8 y(ny)

      real*8 fherm(0:3,nx,ny)


      end subroutine r8mkherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKHERM3

!

       INTERFACE r8mkherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkherm3(

     > FUN,X,NX,Y,NY,Z,NZ,FHERM)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      REAL*8 X(NX)

      REAL*8 Y(NY)

      real*8 z(nz)

      real*8 fherm(0:7,nx,ny,nz)


      end subroutine r8mkherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKINTRP2D

!

       INTERFACE r8mkintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkintrp2d(

     > X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 Y(NY)

      INTEGER JSPLINE(2)

      REAL*8 F(ICOEFF,IXDIM,IYDIM)

      real*8 bcxmin(iydim)

      real*8 bcxmax(iydim)

      real*8 bcymin(ixdim)

      real*8 bcymax(ixdim)


      end subroutine r8mkintrp2d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKINTRP3D

!

       INTERFACE r8mkintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkintrp3d(

     > X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,IBCXMIN,BCXMIN,

     > IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IBCZMIN,BCZMIN,

     > IBCZMAX,BCZMAX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER IBCZMIN

      INTEGER IBCZMAX

      INTEGER IER

      REAL*8 X(NX)

      real*8 y(ny)

      real*8 z(nz)

      INTEGER JSPLINE(3)

      REAL*8 F(ICOEFF,IXDIM,IYDIM,IZDIM)

      REAL*8 BCXMIN(IYDIM,IZDIM)

      REAL*8 BCXMAX(IYDIM,IZDIM)

      real*8 bcymin(ixdim,izdim)

      real*8 bcymax(ixdim,izdim)

      real*8 bczmin(ixdim,iydim)

      real*8 bczmax(ixdim,iydim)


      end subroutine r8mkintrp3d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKSPL2PB

!

       INTERFACE r8mkspl2pb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKSPL2PB ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkspl2pb(

     > FUN,X,NX,TH,NTH,FSPL,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,

     > ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 TH(NTH)

      REAL*8 FSPL(4,4,NF3,NTH)

      REAL*8 BCXMIN(NTH)

      REAL*8 BCXMAX(NTH)

      real*8 wk(inwk)


      end subroutine r8mkspl2pb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKSPL2P

!

       INTERFACE r8mkspl2p


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKSPL2P ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkspl2p(

     > FUN,X,NX,TH,NTH,FSPL,NF3,WK,INWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NF3

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL*8 X(NX)

      real*8 th(nth)

      real*8 fspl(4,4,nf3,nth)

      real*8 wk(inwk)


      end subroutine r8mkspl2p

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKSPL2ZB

!

       INTERFACE r8mkspl2zb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKSPL2ZB ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkspl2zb(

     > FUN,X,NX,TH,NTH,FSPL,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,

     > ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NF2

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      real*8 x(nx)

      real*8 th(nth)

      real*8 fspl(4,nf2,nth)

      real*8 bcxmin(nth)

      real*8 bcxmax(nth)

      real*8 wk(inwk)


      end subroutine r8mkspl2zb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKSPL2Z

!

       INTERFACE r8mkspl2z


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKSPL2Z ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkspl2z(

     > FUN,X,NX,TH,NTH,FSPL,NF2,WK,INWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NF2

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      real*8 x(nx)

      real*8 th(nth)

      real*8 fspl(4,nf2,nth)

      real*8 wk(inwk)


      end subroutine r8mkspl2z

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKSPL3PB

!

       INTERFACE r8mkspl3pb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKSPL3PB ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkspl3pb(

     > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF4,NF5,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NPH

      INTEGER NF4

      INTEGER NF5

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER NB1

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      REAL*8 X(NX)

      real*8 th(nth)

      real*8 ph(nph)

      real*8 fspl(4,4,4,nf4,nf5,nph)

      real*8 bcxmin(nb1,nph)

      real*8 bcxmax(nb1,nph)

      real*8 wk(inwk)


      end subroutine r8mkspl3pb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKSPL3ZB

!

       INTERFACE r8mkspl3zb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKSPL3ZB ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkspl3zb(

     > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)


      IMPLICIT NONE


! argument declarations

      real*8 fun

      EXTERNAL fun

      INTEGER NX

      INTEGER NTH

      INTEGER NPH

      INTEGER NF2

      INTEGER NF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER NB1

      INTEGER INWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      real*8 x(nx)

      real*8 th(nth)

      real*8 ph(nph)

      real*8 fspl(8,nf2,nf3,nph)

      real*8 bcxmin(nb1,nph)

      real*8 bcxmax(nb1,nph)

      real*8 wk(inwk)


      end subroutine r8mkspl3zb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKSPLINE

!

       INTERFACE r8mkspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8mkspline(

     > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,ILINX,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER IBCXMIN

      REAL*8 BCXMIN

      INTEGER IBCXMAX

      REAL*8 BCXMAX

      INTEGER ILINX

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 FSPL(2,NX)


      end subroutine r8mkspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKTRICUB

!

       INTERFACE r8mktricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8mktricub(

     > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,

     > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,

     > BCZMAX,INB1Z,ILINX,ILINY,ILINZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INB1X

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER INB1Y

      INTEGER IBCZMIN

      INTEGER IBCZMAX

      INTEGER INB1Z

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 Y(NY)

      real*8 z(nz)

      real*8 f(8,nf2,nf3,nz)

      real*8 bcxmin(inb1x,nz)

      real*8 bcxmax(inb1x,nz)

      real*8 bcymin(inb1y,nz)

      real*8 bcymax(inb1y,nz)

      real*8 bczmin(inb1z,ny)

      real*8 bczmax(inb1z,ny)


      end subroutine r8mktricub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8MKTRICUBW

!

       INTERFACE r8mktricubw


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKTRICUBW ... for meaning of arguments see the documentation


      SUBROUTINE    r8mktricubw(

     > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,

     > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,

     > BCZMAX,INB1Z,WK,NWK,ILINX,ILINY,ILINZ,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER NF2

      INTEGER NF3

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INB1X

      INTEGER IBCYMIN

      INTEGER IBCYMAX

      INTEGER INB1Y

      INTEGER IBCZMIN

      INTEGER IBCZMAX

      INTEGER INB1Z

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      real*8 z(nz)

      real*8 f(8,nf2,nf3,nz)

      real*8 bcxmin(inb1x,nz)

      real*8 bcxmax(inb1x,nz)

      real*8 bcymin(inb1y,nz)

      real*8 bcymax(inb1y,nz)

      real*8 bczmin(inb1z,ny)

      real*8 bczmax(inb1z,ny)

      real*8 wk(nwk)


      end subroutine r8mktricubw

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8MKTRICOP

!

       INTERFACE r8mktricop


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKTRICOP ... for meaning of arguments see the documentation


      SUBROUTINE    r8mktricop(

     > FIN,NF2,NF3,FWK,NX,NY,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER NF2

      INTEGER NF3

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      real*8 fin(8,nf2,nf3,nz)

      real*8 fwk(4,4,4,nx,ny,nz)


      end subroutine r8mktricop

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8MKTRICON

!

       INTERFACE r8mktricon


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8MKTRICON ... for meaning of arguments see the documentation


      SUBROUTINE    r8mktricon(

     > FIN,NF2,NF3,FWK,NX,NY,NZ,HXLAST,HYLAST,HZLAST)


      IMPLICIT NONE


! argument declarations

      INTEGER NF2

      INTEGER NF3

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      REAL*8 HXLAST

      REAL*8 HYLAST

      REAL*8 HZLAST

      REAL*8 FIN(8,NF2,NF3,NZ)

      REAL*8 FWK(4,4,4,NX,NY,NZ)


      end subroutine r8mktricon

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8NSPLINE

!

       INTERFACE r8nspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8NSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8nspline(

     > N,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      real*8 x(n)

      real*8 y(n)

      real*8 b(n)

      real*8 c(n)

      real*8 d(n)


      end subroutine r8nspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8PC1EV

!

       INTERFACE r8pc1ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PC1EV ... for meaning of arguments see the documentation


      SUBROUTINE    r8pc1ev(

     > XGET,X,NX,ILINX,F,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      INTEGER NX

      INTEGER ILINX

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 F(NX)

      INTEGER ICT(2)

      real*8 fval(*)


      end subroutine r8pc1ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8PC1FCN

!

       INTERFACE r8pc1fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PC1FCN ... for meaning of arguments see the documentation


      SUBROUTINE    r8pc1fcn(

     > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER NX

      INTEGER ICT(2)

      REAL*8 FVAL(IVECD,*)

      INTEGER II(IVEC)

      REAL*8 XPARAM(IVEC)

      REAL*8 HX(IVEC)

      REAL*8 HXI(IVEC)

      REAL*8 FIN(NX)


      end subroutine r8pc1fcn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8PC2EV

!

       INTERFACE r8pc2ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PC2EV ... for meaning of arguments see the documentation


      SUBROUTINE    r8pc2ev(

     > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      INTEGER NX

      INTEGER NY

      INTEGER ILINX

      INTEGER ILINY

      INTEGER INF2

      INTEGER IER

      REAL*8 X(NX)

      REAL*8 Y(NY)

      real*8 f(inf2,ny)

      INTEGER ICT(4)

      REAL*8 FVAL(*)


      end subroutine R8PC2EV

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8PC2FCN

!

       INTERFACE r8pc2fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PC2FCN ... for meaning of arguments see the documentation


      SUBROUTINE    r8pc2fcn(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(4)

      real*8 fval(ivecd,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      real*8 xparam(ivec)

      real*8 yparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 hy(ivec)

      real*8 hyi(ivec)

      real*8 fin(inf2,ny)


      end subroutine r8pc2fcn

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8PC2FCNX

!

       INTERFACE r8pc2fcnx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PC2FCNX ... for meaning of arguments see the documentation


      SUBROUTINE    r8pc2fcnx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,

     > NY)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      REAL*8 YPARAM

      REAL*8 HY

      REAL*8 HYI

      INTEGER INF2

      INTEGER NY

      INTEGER ICT(4)

      REAL*8 FVAL(IVECD,*)

      INTEGER II(IVEC)

      real*8 xparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 fin(inf2,ny)


      end subroutine r8pc2fcnx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8PC3EV

!

       INTERFACE r8pc3ev


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PC3EV ... for meaning of arguments see the documentation


      SUBROUTINE    r8pc3ev(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,

     > FVAL,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      real*8 zget

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IER

      REAL*8 X(NX)

      real*8 y(ny)

      real*8 z(nz)

      real*8 f(inf2,inf3,nz)

      INTEGER ICT(8)

      REAL*8 FVAL(*)


      end subroutine r8pc3ev

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8PC3FCN

!

       INTERFACE r8pc3fcn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PC3FCN ... for meaning of arguments see the documentation


      SUBROUTINE    r8pc3fcn(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(8)

      REAL*8 FVAL(IVECD,*)

      INTEGER II(IVEC)

      INTEGER JJ(IVEC)

      INTEGER KK(IVEC)

      REAL*8 XPARAM(IVEC)

      REAL*8 YPARAM(IVEC)

      real*8 zparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 hy(ivec)

      real*8 hyi(ivec)

      real*8 hz(ivec)

      real*8 hzi(ivec)

      real*8 fin(inf2,inf3,nz)


      end subroutine r8pc3fcn

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8PC3FCNX

!

       INTERFACE r8pc3fcnx


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PC3FCNX ... for meaning of arguments see the documentation


      SUBROUTINE    r8pc3fcnx(

     > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,

     > HZ,HZI,FIN,INF2,INF3,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVECD

      INTEGER JJ

      INTEGER KK

      real*8 yparam

      real*8 zparam

      real*8 hy

      real*8 hyi

      real*8 hz

      real*8 hzi

      INTEGER INF2

      INTEGER INF3

      INTEGER NZ

      INTEGER ICT(8)

      real*8 fval(ivecd,*)

      INTEGER II(IVEC)

      real*8 xparam(ivec)

      real*8 hx(ivec)

      real*8 hxi(ivec)

      real*8 fin(inf2,inf3,nz)


      end subroutine r8pc3fcnx

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8PSPLINE

!

       INTERFACE r8pspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8PSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8pspline(

     > N,X,Y,B,C,D,WK)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      real*8 x(n)

      real*8 y(n)

      real*8 b(n)

      real*8 c(n)

      real*8 d(n)

      real*8 wk(n)


      end subroutine r8pspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SEVAL2

!

       INTERFACE r8seval2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SEVAL2 ... for meaning of arguments see the documentation


      REAL*8 FUNCTION    r8seval2(

     > N,U,X,Y,B,C,D,DERIV)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      real*8 u

      real*8 deriv

      real*8 x(n)

      real*8 y(n)

      real*8 b(n)

      real*8 c(n)

      real*8 d(n)


      end function r8seval2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SEVAL3

!

       INTERFACE r8seval3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SEVAL3 ... for meaning of arguments see the documentation


      REAL*8 FUNCTION    r8seval3(

     > N,U,X,Y,B,C,D,DERIV,DERIV2)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      real*8 u

      real*8 deriv

      real*8 deriv2

      real*8 x(n)

      real*8 y(n)

      real*8 b(n)

      real*8 c(n)

      real*8 d(n)


      end function r8seval3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SEVAL

!

       INTERFACE r8seval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SEVAL ... for meaning of arguments see the documentation


      REAL*8 FUNCTION    r8seval(

     > N,U,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL*8 U

      REAL*8 X(N)

      real*8 y(n)

      real*8 b(n)

      real*8 c(n)

      real*8 d(n)


      end function r8seval

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SPEVAL

!

       INTERFACE r8speval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SPEVAL ... for meaning of arguments see the documentation


      REAL*8 FUNCTION    r8speval(

     > N,U,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL*8 U

      REAL*8 X(N)

      REAL*8 Y(N)

      REAL*8 B(N)

      real*8 c(n)

      real*8 d(n)


      end function r8speval

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SPGRID

!

       INTERFACE r8spgrid


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SPGRID ... for meaning of arguments see the documentation


      SUBROUTINE    r8spgrid(

     > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 f_new(nx_new)

      real*8 xpkg(nx,4)

      real*8 fspl(4,nx)


      end subroutine r8spgrid

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SPLAAN

!

       INTERFACE r8splaan


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SPLAAN ... for meaning of arguments see the documentation


      SUBROUTINE    r8splaan(

     > N,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      real*8 x(n)

      real*8 y(n)

      real*8 b(n)

      real*8 c(n)

      real*8 d(n)


      end subroutine r8splaan

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SPLBRK

!

       INTERFACE r8splbrk


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SPLBRK ... for meaning of arguments see the documentation


      SUBROUTINE    r8splbrk(

     > IOPT,N,NBRK,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER IOPT

      INTEGER N

      INTEGER NBRK

      REAL*8 X(N)

      REAL*8 Y(N)

      real*8 b(n)

      real*8 c(n)

      real*8 d(n)


      end subroutine r8splbrk

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SPLEEN

!

       INTERFACE r8spleen


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SPLEEN ... for meaning of arguments see the documentation


      SUBROUTINE    r8spleen(

     > N,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL*8 X(N)

      real*8 y(n)

      real*8 b(n)

      real*8 c(n)

      real*8 d(n)


      end subroutine r8spleen

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SPLINCK

!

       INTERFACE r8splinck


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SPLINCK ... for meaning of arguments see the documentation


      SUBROUTINE    r8splinck(

     > X,INX,ILINX,ZTOL,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER ILINX

      real*8 ztol

      INTEGER IER

      real*8 x(inx)


      end subroutine r8splinck

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SPLINE

!

       INTERFACE r8spline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8spline(

     > N,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL*8 X(N)

      REAL*8 Y(N)

      REAL*8 B(N)

      REAL*8 C(N)

      REAL*8 D(N)


      end subroutine r8spline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8SPVEC

!

       INTERFACE r8spvec


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8SPVEC ... for meaning of arguments see the documentation


      SUBROUTINE    r8spvec(

     > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(3)

      REAL*8 XVEC(IVEC)

      REAL*8 FVAL(IVD,*)

      real*8 xpkg(nx,4)

      real*8 fspl(4,nx)


      end subroutine r8spvec

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8TCSPEVAL

!

       INTERFACE r8tcspeval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TCSPEVAL ... for meaning of arguments see the documentation


      SUBROUTINE    r8tcspeval(

     > XGET,YGET,ZGET,ISELECT,FVAL,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,

     > INF4,INF5,IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      real*8 zget

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IER

      INTEGER ISELECT(10)

      real*8 fval(*)

      real*8 x(nx)

      real*8 y(ny)

      real*8 z(nz)

      real*8 f(4,4,4,inf4,inf5,nz)


      end subroutine r8tcspeval

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8TCSPEVXYZ

!

       INTERFACE r8tcspevxyz


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TCSPEVXYZ ... for meaning of arguments see the documentation


      SUBROUTINE    r8tcspevxyz(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,DX,DY,DZ,

     > IER)


      IMPLICIT NONE


! argument declarations

      real*8 xget

      real*8 yget

      real*8 zget

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER I

      INTEGER J

      INTEGER K

      real*8 dx

      real*8 dy

      real*8 dz

      INTEGER IER

      real*8 x(nx)

      real*8 y(ny)

      real*8 z(nz)


      end subroutine r8tcspevxyz

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8TCSPEVFN

!

       INTERFACE r8tcspevfn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TCSPEVFN ... for meaning of arguments see the documentation


      SUBROUTINE    r8tcspevfn(

     > ICT,IVEC,IVD,FVAL,IV,JV,KV,DXV,DYV,DZV,F,INF4,INF5,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER INF4

      INTEGER INF5

      INTEGER NZ

      INTEGER ICT(10)

      real*8 fval(ivd,*)

      INTEGER IV(IVEC)

      INTEGER JV(IVEC)

      INTEGER KV(IVEC)

      REAL*8 DXV(IVEC)

      real*8 dyv(ivec)

      real*8 dzv(ivec)

      real*8 f(4,4,4,inf4,inf5,nz)


      end subroutine r8tcspevfn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8TCSPGRID

!

       INTERFACE r8tcspgrid


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TCSPGRID ... for meaning of arguments see the documentation


      SUBROUTINE    r8tcspgrid(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IWARN

      INTEGER IER

      real*8 x_newgrid(nx_new)

      real*8 y_newgrid(ny_new)

      real*8 z_newgrid(nz_new)

      real*8 f_new(if1,if2,nz_new)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      real*8 fspl(4,4,4,inf4,inf5,nz)


      end subroutine r8tcspgrid

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8TCSPLINE

!

       INTERFACE r8tcspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TCSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8tcspline(

     > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,INB1X,IBCTHMIN,BCTHMIN,IBCTHMAX,BCTHMAX,INB1TH,IBCPHMIN,

     > BCPHMIN,IBCPHMAX,BCPHMAX,INB1PH,WK,NWK,ILINX,ILINTH,ILINPH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INPH

      INTEGER INF4

      INTEGER INF5

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INB1X

      INTEGER IBCTHMIN

      INTEGER IBCTHMAX

      INTEGER INB1TH

      INTEGER IBCPHMIN

      INTEGER IBCPHMAX

      INTEGER INB1PH

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      REAL*8 X(INX)

      REAL*8 TH(INTH)

      real*8 ph(inph)

      real*8 fspl(4,4,4,inf4,inf5,inph)

      real*8 bcxmin(inb1x,*)

      real*8 bcxmax(inb1x,*)

      real*8 bcthmin(inb1th,*)

      real*8 bcthmax(inb1th,*)

      real*8 bcphmin(inb1ph,*)

      real*8 bcphmax(inb1ph,*)

      real*8 wk(nwk)


      end subroutine r8tcspline

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8TCSPCORR

!

       INTERFACE r8tcspcorr


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TCSPCORR ... for meaning of arguments see the documentation


      SUBROUTINE    r8tcspcorr(

     > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,IBCXMAX,IBCTHMIN,

     > IBCTHMAX,IBCPHMIN,BCPH1,IBCPHMAX,BCPH2,CCORR,WK,NWK)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INPH

      INTEGER INF4

      INTEGER INF5

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCTHMIN

      INTEGER IBCTHMAX

      INTEGER IBCPHMIN

      INTEGER IBCPHMAX

      INTEGER NWK

      real*8 x(inx)

      real*8 th(inth)

      real*8 ph(inph)

      real*8 fspl(4,4,4,inf4,inf5,inph)

      real*8 bcph1(inx,inth)

      real*8 bcph2(inx,inth)

      real*8 ccorr(3,4,inx,inth,inph)

      real*8 wk(nwk)


      end subroutine r8tcspcorr

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  R8TCSP23

!

       INTERFACE r8tcsp23


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TCSP23 ... for meaning of arguments see the documentation


      SUBROUTINE    r8tcsp23(

     > X,INX,TH,INTH,FSPL,INF4,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,

     > BCTHMIN,IBCTHMAX,BCTHMAX,FSPL2,WK,NWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INF4

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCTHMIN

      INTEGER IBCTHMAX

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL*8 X(INX)

      real*8 th(inth)

      real*8 fspl(4,4,4,inf4,inth)

      real*8 bcxmin(inth)

      real*8 bcxmax(inth)

      real*8 bcthmin(inx)

      real*8 bcthmax(inx)

      real*8 fspl2(4,4,inx,inth)

      real*8 wk(nwk)


      end subroutine r8tcsp23

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8TCSPVEC

!

       INTERFACE r8tcspvec


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TCSPVEC ... for meaning of arguments see the documentation


      SUBROUTINE    r8tcspvec(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,

     > INF4,INF5,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      REAL*8 XVEC(IVEC)

      REAL*8 YVEC(IVEC)

      REAL*8 ZVEC(IVEC)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      real*8 fspl(4,4,4,inf4,inf5,nz)


      end subroutine r8tcspvec

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8TPSPLINB

!

       INTERFACE r8tpsplinb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TPSPLINB ... for meaning of arguments see the documentation


      SUBROUTINE    r8tpsplinb(

     > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,INB1,WK,NWK,ILINX,ILINTH,ILINPH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INPH

      INTEGER INF4

      INTEGER INF5

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INB1

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      REAL*8 X(INX)

      real*8 th(inth)

      real*8 ph(inph)

      real*8 fspl(4,4,4,inf4,inf5,inph)

      real*8 bcxmin(inb1,inph)

      real*8 bcxmax(inb1,inph)

      real*8 wk(nwk)


      end subroutine r8tpsplinb

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8TPSPLINE

!

       INTERFACE r8tpspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8TPSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8tpspline(

     > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,WK,NWK,ILINX,ILINTH,ILINPH,

     > IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INPH

      INTEGER INF4

      INTEGER INF5

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      real*8 x(inx)

      real*8 th(inth)

      real*8 ph(inph)

      real*8 fspl(4,4,4,inf4,inf5,inph)

      real*8 wk(nwk)


      end subroutine r8tpspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8UTIL_BCHERM1

!

       INTERFACE r8util_bcherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8UTIL_BCHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    r8util_bcherm1(

     > FHERM,IDIMX1,JBCXA,JBCXB,ZBCXA,ZBCXB,X1)


      IMPLICIT NONE


! argument declarations

      INTEGER IDIMX1

      INTEGER JBCXA

      INTEGER JBCXB

      REAL*8 ZBCXA

      real*8 zbcxb

      real*8 fherm(0:1,idimx1)

      real*8 x1(idimx1)


      end subroutine r8util_bcherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8UTIL_BCHERM2

!

       INTERFACE r8util_bcherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8UTIL_BCHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    r8util_bcherm2(

     > FHERM,IDIMX1,IDIMX2,JBCX1A,JBCX1B,JBCX2A,JBCX2B,ZBCX1A,ZBCX1B,

     > ZBCX2A,ZBCX2B,X1,X2)


      IMPLICIT NONE


! argument declarations

      INTEGER IDIMX1

      INTEGER IDIMX2

      INTEGER JBCX1A

      INTEGER JBCX1B

      INTEGER JBCX2A

      INTEGER JBCX2B

      real*8 fherm(0:3,idimx1,idimx2)

      real*8 zbcx1a(idimx2)

      real*8 zbcx1b(idimx2)

      real*8 zbcx2a(idimx1)

      real*8 zbcx2b(idimx1)

      real*8 x1(idimx1)

      real*8 x2(idimx2)


      end subroutine r8util_bcherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8UTIL_BCHERM3

!

       INTERFACE r8util_bcherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8UTIL_BCHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    r8util_bcherm3(

     > FHERM,IDIMX1,IDIMX2,IDIMX3,JBCX1A,JBCX1B,JBCX2A,JBCX2B,JBCX3A,

     > JBCX3B,ZBCX1A,ZBCX1B,ZBCX2A,ZBCX2B,ZBCX3A,ZBCX3B,X1,X2,X3)


      IMPLICIT NONE


! argument declarations

      INTEGER IDIMX1

      INTEGER IDIMX2

      INTEGER IDIMX3

      INTEGER JBCX1A

      INTEGER JBCX1B

      INTEGER JBCX2A

      INTEGER JBCX2B

      INTEGER JBCX3A

      INTEGER JBCX3B

      real*8 fherm(0:7,idimx1,idimx2,idimx3)

      real*8 zbcx1a(idimx2,idimx3)

      real*8 zbcx1b(idimx2,idimx3)

      real*8 zbcx2a(idimx1,idimx3)

      real*8 zbcx2b(idimx1,idimx3)

      real*8 zbcx3a(idimx2,idimx3)

      real*8 zbcx3b(idimx2,idimx3)

      real*8 x1(idimx1)

      real*8 x2(idimx2)

      real*8 x3(idimx3)


      end subroutine r8util_bcherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECBICUB

!

       INTERFACE r8vecbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecbicub(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER INF2

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(6)

      REAL*8 XVEC(IVEC)

      REAL*8 YVEC(IVEC)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 fspl(0:3,inf2,ny)


      end subroutine r8vecbicub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECHERM1

!

       INTERFACE r8vecherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecherm1(

     > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(2)

      REAL*8 XVEC(IVEC)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 fspl(2,nx)


      end subroutine r8vecherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECHERM2

!

       INTERFACE r8vecherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecherm2(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER INF2

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(4)

      real*8 xvec(ivec)

      real*8 yvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 fspl(0:3,inf2,ny)


      end subroutine r8vecherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECHERM3

!

       INTERFACE r8vecherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecherm3(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,

     > INF2,INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      real*8 xvec(ivec)

      real*8 yvec(ivec)

      real*8 zvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      real*8 fspl(0:7,inf2,inf3,nz)


      end subroutine r8vecherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECINTRP2D

!

       INTERFACE r8vecintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecintrp2d(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,JSPLINE,FSPL,ICOEFF,

     > IXDIM,IYDIM,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(6)

      real*8 xvec(ivec)

      real*8 yvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      INTEGER JSPLINE(2)

      real*8 fspl(icoeff,ixdim,iydim)


      end subroutine r8vecintrp2d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECINTRP3D

!

       INTERFACE r8vecintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecintrp3d(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,

     > FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      real*8 xvec(ivec)

      real*8 yvec(ivec)

      real*8 zvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      INTEGER JSPLINE(3)

      real*8 fspl(icoeff,ixdim,iydim,izdim)


      end subroutine r8vecintrp3d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECPC1

!

       INTERFACE r8vecpc1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECPC1 ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecpc1(

     > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(2)

      real*8 xvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 fspl(nx)


      end subroutine r8vecpc1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECPC2

!

       INTERFACE r8vecpc2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECPC2 ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecpc2(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF1,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER INF1

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(4)

      real*8 xvec(ivec)

      real*8 yvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 fspl(inf1,ny)


      end subroutine r8vecpc2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECPC3

!

       INTERFACE r8vecpc3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECPC3 ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecpc3(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FLIN,

     > INF1,INF2,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF1

      INTEGER INF2

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      real*8 xvec(ivec)

      real*8 yvec(ivec)

      real*8 zvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      real*8 flin(inf1,inf2,nz)


      end subroutine r8vecpc3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECSPLINE

!

       INTERFACE r8vecspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8vecspline(

     > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(3)

      real*8 xvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 fspl(2,nx)


      end subroutine r8vecspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8VECTRICUB

!

       INTERFACE r8vectricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8VECTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    r8vectricub(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,

     > INF4,INF5,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      real*8 xvec(ivec)

      real*8 yvec(ivec)

      real*8 zvec(ivec)

      real*8 fval(ivd,*)

      real*8 xpkg(nx,4)

      real*8 ypkg(ny,4)

      real*8 zpkg(nz,4)

      real*8 fspl(8,inf4,inf5,nz)


      end subroutine r8vectricub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8V_SPLINE

!

       INTERFACE r8v_spline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8V_SPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    r8v_spline(

     > K_BC1,K_BCN,N,X,F,WK)


      IMPLICIT NONE


! argument declarations

      INTEGER K_BC1

      INTEGER K_BCN

      INTEGER N

      real*8 x(*)

      real*8 f(4,*)

      real*8 wk(*)


      end subroutine r8v_spline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8XLOOKUP

!

       INTERFACE r8xlookup


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8XLOOKUP ... for meaning of arguments see the documentation


      SUBROUTINE    r8xlookup(

     > IVEC,XVEC,NX,XPKG,IMODE,IV,DXN,HV,HIV,IWARN)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER NX

      INTEGER IMODE

      INTEGER IWARN

      real*8 xvec(ivec)

      real*8 xpkg(nx,4)

      INTEGER IV(IVEC)

      REAL*8 DXN(IVEC)

      real*8 hv(ivec)

      real*8 hiv(ivec)


      end subroutine r8xlookup

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  R8ZONFIND

!

       INTERFACE r8zonfind


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  R8ZONFIND ... for meaning of arguments see the documentation


      SUBROUTINE    r8zonfind(

     > X,NX,ZXGET,I)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      real*8 zxget

      INTEGER I

      real*8 x(nx)


      end subroutine r8zonfind

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SEVAL2

!

       INTERFACE seval2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SEVAL2 ... for meaning of arguments see the documentation


      REAL FUNCTION    SEVAL2(

     > N,U,X,Y,B,C,D,DERIV)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL U

      REAL DERIV

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end function seval2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SEVAL3

!

       INTERFACE seval3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SEVAL3 ... for meaning of arguments see the documentation


      REAL FUNCTION    SEVAL3(

     > N,U,X,Y,B,C,D,DERIV,DERIV2)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL U

      REAL DERIV

      REAL DERIV2

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end function seval3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SEVAL

!

       INTERFACE seval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SEVAL ... for meaning of arguments see the documentation


      REAL FUNCTION    SEVAL(

     > n,u,x,y,b,c,d)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL U

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end function seval

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SPEVAL

!

       INTERFACE speval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SPEVAL ... for meaning of arguments see the documentation


      REAL FUNCTION    SPEVAL(

     > n,u,x,y,b,c,d)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL U

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end function SPEVAL

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SPGRID

!

       INTERFACE spgrid


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SPGRID ... for meaning of arguments see the documentation


      SUBROUTINE    spgrid(

     > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL F_NEW(NX_NEW)

      REAL XPKG(NX,4)

      REAL FSPL(4,NX)


      end subroutine spgrid

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SPLAAN

!

       INTERFACE splaan


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SPLAAN ... for meaning of arguments see the documentation


      SUBROUTINE    splaan(

     > N,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end subroutine splaan

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SPLBRK

!

       INTERFACE splbrk


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SPLBRK ... for meaning of arguments see the documentation


      SUBROUTINE    splbrk(

     > IOPT,N,NBRK,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER IOPT

      INTEGER N

      INTEGER NBRK

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end subroutine SPLBRK

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SPLEEN

!

       INTERFACE spleen


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SPLEEN ... for meaning of arguments see the documentation


      SUBROUTINE    spleen(

     > N,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end subroutine SPLEEN

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SPLINCK

!

       INTERFACE splinck


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SPLINCK ... for meaning of arguments see the documentation


      SUBROUTINE    splinck(

     > X,INX,ILINX,ZTOL,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER ILINX

      REAL ZTOL

      INTEGER IER

      REAL X(INX)


      end subroutine splinck

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SPLINE

!

       INTERFACE spline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    spline(

     > N,X,Y,B,C,D)


      IMPLICIT NONE


! argument declarations

      INTEGER N

      REAL X(N)

      REAL Y(N)

      REAL B(N)

      REAL C(N)

      REAL D(N)


      end subroutine spline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  SPVEC

!

       INTERFACE spvec


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  SPVEC ... for meaning of arguments see the documentation


      SUBROUTINE    spvec(

     > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(3)

      REAL XVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL FSPL(4,NX)


      end subroutine spvec

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  TCSPEVAL

!

       INTERFACE tcspeval


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TCSPEVAL ... for meaning of arguments see the documentation


      SUBROUTINE    tcspeval(

     > XGET,YGET,ZGET,ISELECT,FVAL,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,

     > INF4,INF5,IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      REAL ZGET

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IER

      INTEGER ISELECT(10)

      REAL FVAL(*)

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)

      REAL F(4,4,4,INF4,INF5,NZ)


      end subroutine tcspeval

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  TCSPEVXYZ

!

       INTERFACE tcspevxyz


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TCSPEVXYZ ... for meaning of arguments see the documentation


      SUBROUTINE    tcspevxyz(

     > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,DX,DY,DZ,

     > IER)


      IMPLICIT NONE


! argument declarations

      REAL XGET

      REAL YGET

      REAL ZGET

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ILINX

      INTEGER ILINY

      INTEGER ILINZ

      INTEGER I

      INTEGER J

      INTEGER K

      REAL DX

      REAL DY

      REAL DZ

      INTEGER IER

      REAL X(NX)

      REAL Y(NY)

      REAL Z(NZ)


      end subroutine TCSPEVXYZ

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  TCSPEVFN

!

       INTERFACE tcspevfn


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TCSPEVFN ... for meaning of arguments see the documentation


      SUBROUTINE    tcspevfn(

     > ICT,IVEC,IVD,FVAL,IV,JV,KV,DXV,DYV,DZV,F,INF4,INF5,NZ)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER INF4

      INTEGER INF5

      INTEGER NZ

      INTEGER ICT(10)

      REAL FVAL(IVD,*)

      INTEGER IV(IVEC)

      INTEGER JV(IVEC)

      INTEGER KV(IVEC)

      REAL DXV(IVEC)

      REAL DYV(IVEC)

      REAL DZV(IVEC)

      REAL F(4,4,4,INF4,INF5,NZ)


      end subroutine tcspevfn

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  TCSPGRID

!

       INTERFACE tcspgrid


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TCSPGRID ... for meaning of arguments see the documentation


      SUBROUTINE    tcspgrid(

     > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,

     > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER NX_NEW

      INTEGER NY_NEW

      INTEGER NZ_NEW

      INTEGER IF1

      INTEGER IF2

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IWARN

      INTEGER IER

      REAL X_NEWGRID(NX_NEW)

      REAL Y_NEWGRID(NY_NEW)

      REAL Z_NEWGRID(NZ_NEW)

      REAL F_NEW(IF1,IF2,NZ_NEW)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      REAL FSPL(4,4,4,INF4,INF5,NZ)


      end subroutine tcspgrid

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  TCSPLINE

!

       INTERFACE tcspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TCSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    tcspline(

     > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,INB1X,IBCTHMIN,BCTHMIN,IBCTHMAX,BCTHMAX,INB1TH,IBCPHMIN,

     > BCPHMIN,IBCPHMAX,BCPHMAX,INB1PH,WK,NWK,ILINX,ILINTH,ILINPH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INPH

      INTEGER INF4

      INTEGER INF5

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INB1X

      INTEGER IBCTHMIN

      INTEGER IBCTHMAX

      INTEGER INB1TH

      INTEGER IBCPHMIN

      INTEGER IBCPHMAX

      INTEGER INB1PH

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      REAL X(INX)

      REAL TH(INTH)

      REAL PH(INPH)

      REAL FSPL(4,4,4,INF4,INF5,INPH)

      REAL BCXMIN(INB1X,*)

      REAL BCXMAX(INB1X,*)

      REAL BCTHMIN(INB1TH,*)

      REAL BCTHMAX(INB1TH,*)

      REAL BCPHMIN(INB1PH,*)

      REAL BCPHMAX(INB1PH,*)

      REAL WK(NWK)


      end subroutine tcspline

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  TCSPCORR

!

       INTERFACE tcspcorr


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TCSPCORR ... for meaning of arguments see the documentation


      SUBROUTINE    tcspcorr(

     > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,IBCXMAX,IBCTHMIN,

     > IBCTHMAX,IBCPHMIN,BCPH1,IBCPHMAX,BCPH2,CCORR,WK,NWK)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INPH

      INTEGER INF4

      INTEGER INF5

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCTHMIN

      INTEGER IBCTHMAX

      INTEGER IBCPHMIN

      INTEGER IBCPHMAX

      INTEGER NWK

      REAL X(INX)

      REAL TH(INTH)

      REAL PH(INPH)

      REAL FSPL(4,4,4,INF4,INF5,INPH)

      REAL BCPH1(INX,INTH)

      REAL BCPH2(INX,INTH)

      REAL CCORR(3,4,INX,INTH,INPH)

      REAL WK(NWK)


      end subroutine TCSPCORR

!

         END INTERFACE

!==============================================================

!  iface -- generated interface body module:  TCSP23

!

       INTERFACE tcsp23


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TCSP23 ... for meaning of arguments see the documentation


      SUBROUTINE    tcsp23(

     > X,INX,TH,INTH,FSPL,INF4,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,

     > BCTHMIN,IBCTHMAX,BCTHMAX,FSPL2,WK,NWK,ILINX,ILINTH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INF4

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER IBCTHMIN

      INTEGER IBCTHMAX

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER IER

      REAL X(INX)

      REAL TH(INTH)

      REAL FSPL(4,4,4,INF4,INTH)

      REAL BCXMIN(INTH)

      REAL BCXMAX(INTH)

      REAL BCTHMIN(INX)

      REAL BCTHMAX(INX)

      REAL FSPL2(4,4,INX,INTH)

      REAL WK(NWK)


      end subroutine tcsp23

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  TCSPVEC

!

       INTERFACE tcspvec


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TCSPVEC ... for meaning of arguments see the documentation


      SUBROUTINE    tcspvec(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,

     > INF4,INF5,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL ZVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      REAL FSPL(4,4,4,INF4,INF5,NZ)


      end subroutine tcspvec

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  TPSPLINB

!

       INTERFACE tpsplinb


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TPSPLINB ... for meaning of arguments see the documentation


      SUBROUTINE    tpsplinb(

     > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,

     > BCXMAX,INB1,WK,NWK,ILINX,ILINTH,ILINPH,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INPH

      INTEGER INF4

      INTEGER INF5

      INTEGER IBCXMIN

      INTEGER IBCXMAX

      INTEGER INB1

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      REAL X(INX)

      REAL TH(INTH)

      REAL PH(INPH)

      REAL FSPL(4,4,4,INF4,INF5,INPH)

      REAL BCXMIN(INB1,INPH)

      REAL BCXMAX(INB1,INPH)

      REAL WK(NWK)


      end subroutine TPSPLINB

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  TPSPLINE

!

       INTERFACE tpspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  TPSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    tpspline(

     > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,WK,NWK,ILINX,ILINTH,ILINPH,

     > IER)


      IMPLICIT NONE


! argument declarations

      INTEGER INX

      INTEGER INTH

      INTEGER INPH

      INTEGER INF4

      INTEGER INF5

      INTEGER NWK

      INTEGER ILINX

      INTEGER ILINTH

      INTEGER ILINPH

      INTEGER IER

      REAL X(INX)

      REAL TH(INTH)

      REAL PH(INPH)

      REAL FSPL(4,4,4,INF4,INF5,INPH)

      REAL WK(NWK)


      end subroutine tpspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  UTIL_BCHERM1

!

       INTERFACE util_bcherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  UTIL_BCHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    util_bcherm1(

     > FHERM,IDIMX1,JBCXA,JBCXB,ZBCXA,ZBCXB,X1)


      IMPLICIT NONE


! argument declarations

      INTEGER IDIMX1

      INTEGER JBCXA

      INTEGER JBCXB

      REAL ZBCXA

      REAL ZBCXB

      REAL FHERM(0:1,IDIMX1)

      REAL X1(IDIMX1)


      end subroutine util_bcherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  UTIL_BCHERM2

!

       INTERFACE util_bcherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  UTIL_BCHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    util_bcherm2(

     > FHERM,IDIMX1,IDIMX2,JBCX1A,JBCX1B,JBCX2A,JBCX2B,ZBCX1A,ZBCX1B,

     > ZBCX2A,ZBCX2B,X1,X2)


      IMPLICIT NONE


! argument declarations

      INTEGER IDIMX1

      INTEGER IDIMX2

      INTEGER JBCX1A

      INTEGER JBCX1B

      INTEGER JBCX2A

      INTEGER JBCX2B

      REAL FHERM(0:3,IDIMX1,IDIMX2)

      REAL ZBCX1A(IDIMX2)

      REAL ZBCX1B(IDIMX2)

      REAL ZBCX2A(IDIMX1)

      REAL ZBCX2B(IDIMX1)

      REAL X1(IDIMX1)

      REAL X2(IDIMX2)


      end subroutine util_bcherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  UTIL_BCHERM3

!

       INTERFACE util_bcherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  UTIL_BCHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    util_bcherm3(

     > FHERM,IDIMX1,IDIMX2,IDIMX3,JBCX1A,JBCX1B,JBCX2A,JBCX2B,JBCX3A,

     > JBCX3B,ZBCX1A,ZBCX1B,ZBCX2A,ZBCX2B,ZBCX3A,ZBCX3B,X1,X2,X3)


      IMPLICIT NONE


! argument declarations

      INTEGER IDIMX1

      INTEGER IDIMX2

      INTEGER IDIMX3

      INTEGER JBCX1A

      INTEGER JBCX1B

      INTEGER JBCX2A

      INTEGER JBCX2B

      INTEGER JBCX3A

      INTEGER JBCX3B

      REAL FHERM(0:7,IDIMX1,IDIMX2,IDIMX3)

      REAL ZBCX1A(IDIMX2,IDIMX3)

      REAL ZBCX1B(IDIMX2,IDIMX3)

      REAL ZBCX2A(IDIMX1,IDIMX3)

      REAL ZBCX2B(IDIMX1,IDIMX3)

      REAL ZBCX3A(IDIMX2,IDIMX3)

      REAL ZBCX3B(IDIMX2,IDIMX3)

      REAL X1(IDIMX1)

      REAL X2(IDIMX2)

      REAL X3(IDIMX3)


      end subroutine util_bcherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECBICUB

!

       INTERFACE vecbicub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECBICUB ... for meaning of arguments see the documentation


      SUBROUTINE    vecbicub(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER INF2

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(6)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL FSPL(0:3,INF2,NY)


      end subroutine vecbicub

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECHERM1

!

       INTERFACE vecherm1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECHERM1 ... for meaning of arguments see the documentation


      SUBROUTINE    vecherm1(

     > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(2)

      REAL XVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL FSPL(2,NX)


      end subroutine vecherm1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECHERM2

!

       INTERFACE vecherm2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECHERM2 ... for meaning of arguments see the documentation


      SUBROUTINE    vecherm2(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER INF2

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(4)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL FSPL(0:3,INF2,NY)


      end subroutine vecherm2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECHERM3

!

       INTERFACE vecherm3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECHERM3 ... for meaning of arguments see the documentation


      SUBROUTINE    vecherm3(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,

     > INF2,INF3,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF2

      INTEGER INF3

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL ZVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      REAL FSPL(0:7,INF2,INF3,NZ)


      end subroutine vecherm3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECIN2D_ARGCHK

!

       INTERFACE vecin2d_argchk


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECIN2D_ARGCHK ... for meaning of arguments see the documentation


      SUBROUTINE    vecin2d_argchk(

     > SUBNAME,JSPLINE,ICOEFF,NX,NY,IXDIM,IYDIM,IER)


      IMPLICIT NONE


! argument declarations

      CHARACTER*(*) SUBNAME

      INTEGER ICOEFF

      INTEGER NX

      INTEGER NY

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IER

      INTEGER JSPLINE(2)


      end subroutine VECIN2D_ARGCHK

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECIN3D_ARGCHK

!

       INTERFACE vecin3d_argchk


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECIN3D_ARGCHK ... for meaning of arguments see the documentation


      SUBROUTINE    vecin3d_argchk(

     > SUBNAME,JSPLINE,ICOEFF,NX,NY,NZ,IXDIM,IYDIM,IZDIM,IER)


      IMPLICIT NONE


! argument declarations

      CHARACTER*(*) SUBNAME

      INTEGER ICOEFF

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IER

      INTEGER JSPLINE(3)


      end subroutine VECIN3D_ARGCHK

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECINTRP2D

!

       INTERFACE vecintrp2d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECINTRP2D ... for meaning of arguments see the documentation


      SUBROUTINE    vecintrp2d(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,JSPLINE,FSPL,ICOEFF,

     > IXDIM,IYDIM,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(6)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      INTEGER JSPLINE(2)

      REAL FSPL(ICOEFF,IXDIM,IYDIM)


      end subroutine vecintrp2d

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECINTRP3D

!

       INTERFACE vecintrp3d


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECINTRP3D ... for meaning of arguments see the documentation


      SUBROUTINE    vecintrp3d(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,

     > FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER ICOEFF

      INTEGER IXDIM

      INTEGER IYDIM

      INTEGER IZDIM

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL ZVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      INTEGER JSPLINE(3)

      REAL FSPL(ICOEFF,IXDIM,IYDIM,IZDIM)


      end subroutine VECINTRP3D

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECPC1

!

       INTERFACE vecpc1


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECPC1 ... for meaning of arguments see the documentation


      SUBROUTINE    vecpc1(

     > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(2)

      REAL XVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL FSPL(NX)


      end subroutine vecpc1

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECPC2

!

       INTERFACE vecpc2


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECPC2 ... for meaning of arguments see the documentation


      SUBROUTINE    vecpc2(

     > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF1,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER INF1

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(4)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL FSPL(INF1,NY)


      end subroutine VECPC2

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECPC3

!

       INTERFACE vecpc3


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECPC3 ... for meaning of arguments see the documentation


      SUBROUTINE    vecpc3(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FLIN,

     > INF1,INF2,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF1

      INTEGER INF2

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL ZVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      REAL FLIN(INF1,INF2,NZ)


      end subroutine vecpc3

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECSPLINE

!

       INTERFACE vecspline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECSPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    vecspline(

     > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(3)

      REAL XVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL FSPL(2,NX)


      end subroutine vecspline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  VECTRICUB

!

       INTERFACE vectricub


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  VECTRICUB ... for meaning of arguments see the documentation


      SUBROUTINE    vectricub(

     > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,

     > INF4,INF5,IWARN,IER)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER IVD

      INTEGER NX

      INTEGER NY

      INTEGER NZ

      INTEGER INF4

      INTEGER INF5

      INTEGER IWARN

      INTEGER IER

      INTEGER ICT(10)

      REAL XVEC(IVEC)

      REAL YVEC(IVEC)

      REAL ZVEC(IVEC)

      REAL FVAL(IVD,*)

      REAL XPKG(NX,4)

      REAL YPKG(NY,4)

      REAL ZPKG(NZ,4)

      REAL FSPL(8,INF4,INF5,NZ)


      end subroutine VECTRICUB

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  V_SPLINE

!

       INTERFACE v_spline


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  V_SPLINE ... for meaning of arguments see the documentation


      SUBROUTINE    v_spline(

     > K_BC1,K_BCN,N,X,F,WK)


      IMPLICIT NONE


! argument declarations

      INTEGER K_BC1

      INTEGER K_BCN

      INTEGER N

      REAL X(*)

      REAL F(4,*)

      REAL WK(*)


      end subroutine v_spline

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  XLOOKUP

!

       INTERFACE xlookup


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  XLOOKUP ... for meaning of arguments see the documentation


      SUBROUTINE    xlookup(

     > IVEC,XVEC,NX,XPKG,IMODE,IV,DXN,HV,HIV,IWARN)


      IMPLICIT NONE


! argument declarations

      INTEGER IVEC

      INTEGER NX

      INTEGER IMODE

      INTEGER IWARN

      REAL XVEC(IVEC)

      REAL XPKG(NX,4)

      INTEGER IV(IVEC)

      REAL DXN(IVEC)

      REAL HV(IVEC)

      REAL HIV(IVEC)


      end subroutine xlookup

!

         END INTERFACE

 ! block file generated by iface.for -- 25Apr2007

!==============================================================

!  iface -- generated interface body module:  ZONFIND

!

       INTERFACE zonfind


!----------------------------------------------------------

!  iface:  interface block generated segment for subroutine

!  ZONFIND ... for meaning of arguments see the documentation


      SUBROUTINE    zonfind(

     > X,NX,ZXGET,I)


      IMPLICIT NONE


! argument declarations

      INTEGER NX

      REAL ZXGET

      INTEGER I

      REAL X(NX)


      end subroutine ZONFIND

!

         END INTERFACE

!

      END MODULE pspline_calls