V3FIT
ezspline_setupx.f90
1 subroutine ezspline_setup1_r8x(spline_o, f, ier)
2 
3  ! setup call (set array size from object)
4 
5  use ezspline_obj
6  use ezspline
7  implicit NONE
8 
9  type(EZspline1_r8) :: spline_o
10  real(ezspline_r8) :: f(size(spline_o%fspl,2))
11  integer, intent(out) :: ier
12 
13  call ezspline_setup(spline_o, f, ier)
14 
15 end subroutine ezspline_setup1_r8x
16 
17 subroutine ezspline_setup2_r8x(spline_o, f, ier)
18 
19  ! setup call (set array size from object)
20 
21  use ezspline_obj
22  use ezspline
23  implicit NONE
24 
25  type(EZspline2_r8) :: spline_o
26  real(ezspline_r8) :: f(size(spline_o%fspl,2),size(spline_o%fspl,3))
27  integer, intent(out) :: ier
28 
29  call ezspline_setup(spline_o, f, ier)
30 
31 end subroutine ezspline_setup2_r8x
32 
33 subroutine ezspline_setup3_r8x(spline_o, f, ier)
34 
35  ! setup call (set array size from object)
36 
37  use ezspline_obj
38  use ezspline
39  implicit NONE
40 
41  type(EZspline3_r8) :: spline_o
42  real(ezspline_r8) :: f(size(spline_o%fspl,2),size(spline_o%fspl,3), &
43  size(spline_o%fspl,4))
44  integer, intent(out) :: ier
45 
46  call ezspline_setup(spline_o, f, ier)
47 
48 end subroutine ezspline_setup3_r8x
49 
50 subroutine ezspline_setup1_r4x(spline_o, f, ier)
51 
52  ! setup call (set array size from object)
53 
54  use ezspline_obj
55  use ezspline
56  implicit NONE
57 
58  type(EZspline1_r4) :: spline_o
59  real(ezspline_r4) :: f(size(spline_o%fspl,2))
60  integer, intent(out) :: ier
61 
62  call ezspline_setup(spline_o, f, ier)
63 
64 end subroutine ezspline_setup1_r4x
65 
66 subroutine ezspline_setup2_r4x(spline_o, f, ier)
67 
68  ! setup call (set array size from object)
69 
70  use ezspline_obj
71  use ezspline
72  implicit NONE
73 
74  type(EZspline2_r4) :: spline_o
75  real(ezspline_r4) :: f(size(spline_o%fspl,2),size(spline_o%fspl,3))
76  integer, intent(out) :: ier
77 
78  call ezspline_setup(spline_o, f, ier)
79 
80 end subroutine ezspline_setup2_r4x
81 
82 subroutine ezspline_setup3_r4x(spline_o, f, ier)
83 
84  ! setup call (set array size from object)
85 
86  use ezspline_obj
87  use ezspline
88  implicit NONE
89 
90  type(EZspline3_r4) :: spline_o
91  real(ezspline_r4) :: f(size(spline_o%fspl,2),size(spline_o%fspl,3), &
92  size(spline_o%fspl,4))
93  integer, intent(out) :: ier
94 
95  call ezspline_setup(spline_o, f, ier)
96 
97 end subroutine ezspline_setup3_r4x
ezspline::ezspline_setup
Definition: ezspline.f90:216