double precision x(n), y(n), d(n), A_d(n), A_sd(n-1), qdy(n-1),
$ lll(n-1)
- include 'constinterp.h'
+ include 'constinterp.h.f'
integer i
double precision r
double precision t(m), st(m), dst(m), d2st(m), d3st(m),
$ x(n), y(n), d(n)
- include 'constinterp.h'
+ include 'constinterp.h.f'
integer i, j
integer isearch, isanan
external isearch, isanan
double precision x(nx), y(ny), u(nx, ny), C(4,4,nx-1,ny-1),
$ p(nx, ny), q(nx, ny), r(nx, ny)
integer i, j
- include 'constinterp.h'
+ include 'constinterp.h.f'
if (type .eq. MONOTONE) then
* approximation des derivees par SUBROUTINE DPCHIM(N,X,F,D,INCFD)
double precision x(nx), y(ny), u(nx, ny), C(4,4,nx-1,ny-1),
$ p(nx, ny), q(nx, ny), r(nx, ny), A_d(*),
$ A_sd(*), d(ny), ll(*), qdu(*), u_temp(ny)
- include 'constinterp.h'
+ include 'constinterp.h.f'
integer i, j
! compute du/dx
integer n, inc, type
double precision x(n), u(inc,*), du(inc,*)
- include 'constinterp.h'
+ include 'constinterp.h.f'
double precision dx_l, du_l, dx_r, du_r, w_l, w_r
integer i, k
double precision xx, yy
integer i, j, k
- include 'constinterp.h'
+ include 'constinterp.h.f'
integer isanan
double precision EvalBicubic
external isanan, returnananfortran, EvalBicubic
double precision xx, yy
integer k, i, j
- include 'constinterp.h'
+ include 'constinterp.h.f'
integer isanan
double precision EvalBicubic
external isanan, returnananfortran, EvalBicubic
double precision xx, yy
integer k, i, j
- include 'constinterp.h'
+ include 'constinterp.h.f'
integer isanan
double precision EvalBicubic
external isanan, returnananfortran, EvalBicubic
integer k
logical flag_x, flag_y, flag_z
double precision x, y, z
- include 'constinterp.h'
+ include 'constinterp.h.f'
integer isanan
double precision db3val
external isanan, returnananfortran, db3val
integer k
logical flag_x, flag_y, flag_z
double precision x, y, z
- include 'constinterp.h'
+ include 'constinterp.h.f'
integer isanan
double precision db3val
external isanan, returnananfortran, db3val