1 subroutine ezspline_setup1_r8x(spline_o, f, ier)
9 type(EZspline1_r8) :: spline_o
10 real(ezspline_r8) :: f(size(spline_o%fspl,2))
11 integer,
intent(out) :: ier
15 end subroutine ezspline_setup1_r8x
17 subroutine ezspline_setup2_r8x(spline_o, f, ier)
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
31 end subroutine ezspline_setup2_r8x
33 subroutine ezspline_setup3_r8x(spline_o, f, ier)
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
48 end subroutine ezspline_setup3_r8x
50 subroutine ezspline_setup1_r4x(spline_o, f, ier)
58 type(EZspline1_r4) :: spline_o
59 real(ezspline_r4) :: f(size(spline_o%fspl,2))
60 integer,
intent(out) :: ier
64 end subroutine ezspline_setup1_r4x
66 subroutine ezspline_setup2_r4x(spline_o, f, ier)
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
80 end subroutine ezspline_setup2_r4x
82 subroutine ezspline_setup3_r4x(spline_o, f, ier)
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
97 end subroutine ezspline_setup3_r4x