3 integer,
parameter :: ezspline_r8 = selected_real_kind(12,100)
4 integer,
parameter :: ezspline_r4 = selected_real_kind(6,37)
5 real(ezspline_r8),
parameter :: ezspline_twopi_r8 = 6.2831853071795865_ezspline_r8
6 real(ezspline_r4),
parameter :: ezspline_twopi_r4 = 6.2831853071795865_ezspline_r4
18 real(ezspline_r8),
dimension(:),
allocatable :: x1, x2, x3
24 real(ezspline_r8),
dimension(:,:),
allocatable :: bcval1min, bcval1max
25 real(ezspline_r8),
dimension(:,:),
allocatable :: bcval2min, bcval2max
26 real(ezspline_r8),
dimension(:,:),
allocatable :: bcval3min, bcval3max
50 integer :: klookup1,klookup2,klookup3
64 integer ibctype1(2), ibctype2(2), ibctype3(2)
68 real(ezspline_r8) :: x1min, x1max, x2min, x2max, x3min, x3max
72 real(ezspline_r8),
dimension(:,:,:,:),
allocatable :: fspl
78 integer :: ilin1, ilin2, ilin3
79 real(ezspline_r8),
dimension(:,:),
allocatable :: x1pkg, x2pkg, x3pkg
90 real(ezspline_r8),
dimension(:),
allocatable :: x1, x2
96 real(ezspline_r8),
dimension(:),
allocatable :: bcval1min, bcval1max
97 real(ezspline_r8),
dimension(:),
allocatable :: bcval2min, bcval2max
112 integer :: hspline(2)
121 integer :: klookup1,klookup2
135 integer ibctype1(2), ibctype2(2)
139 real(ezspline_r8) :: x1min, x1max, x2min, x2max
143 real(ezspline_r8),
dimension(:,:,:),
allocatable :: fspl
149 integer :: ilin1, ilin2
150 real(ezspline_r8),
dimension(:,:),
allocatable :: x1pkg, x2pkg
161 real(ezspline_r8),
dimension(:),
allocatable :: x1
167 real(ezspline_r8) :: bcval1min, bcval1max
202 real(ezspline_r8) :: x1min, x1max
206 real(ezspline_r8),
dimension(:,:),
allocatable :: fspl
213 real(ezspline_r8),
dimension(:,:),
allocatable :: x1pkg
224 real(ezspline_r4),
dimension(:),
allocatable :: x1, x2, x3
230 real(ezspline_r4),
dimension(:,:),
allocatable :: bcval1min, bcval1max
231 real(ezspline_r4),
dimension(:,:),
allocatable :: bcval2min, bcval2max
232 real(ezspline_r4),
dimension(:,:),
allocatable :: bcval3min, bcval3max
247 integer :: hspline(3)
252 integer :: n1, n2, n3
256 integer :: klookup1,klookup2,klookup3
270 integer ibctype1(2), ibctype2(2), ibctype3(2)
274 real(ezspline_r4) :: x1min, x1max, x2min, x2max, x3min, x3max
278 real(ezspline_r4),
dimension(:,:,:,:),
allocatable :: fspl
284 integer :: ilin1, ilin2, ilin3
285 real(ezspline_r4),
dimension(:,:),
allocatable :: x1pkg, x2pkg, x3pkg
296 real(ezspline_r4),
dimension(:),
allocatable :: x1, x2
302 real(ezspline_r4),
dimension(:),
allocatable :: bcval1min, bcval1max
303 real(ezspline_r4),
dimension(:),
allocatable :: bcval2min, bcval2max
318 integer :: hspline(2)
327 integer :: klookup1,klookup2
341 integer ibctype1(2), ibctype2(2)
345 real(ezspline_r4) :: x1min, x1max, x2min, x2max
349 real(ezspline_r4),
dimension(:,:,:),
allocatable :: fspl
355 integer :: ilin1, ilin2
356 real(ezspline_r4),
dimension(:,:),
allocatable :: x1pkg, x2pkg
367 real(ezspline_r4),
dimension(:),
allocatable :: x1
373 real(ezspline_r4) :: bcval1min, bcval1max
408 real(ezspline_r4) :: x1min, x1max
412 real(ezspline_r4),
dimension(:,:),
allocatable :: fspl
419 real(ezspline_r4),
dimension(:,:),
allocatable :: x1pkg
426 end module ezspline_type