V3FIT
ezhybrid_initx.f90
1 ! EZhybrid routines callable without a module interface...
2 
3 subroutine ezhybrid_init2_r8x(spline_o, n1, n2, hspline, ier)
4 
5  ! init call (set array size from object)
6 
7  use ezspline_obj
8  use ezspline
9  implicit NONE
10 
11  type(EZspline2_r8) spline_o
12  integer, intent(in) :: n1, n2
13  integer, intent(in) :: hspline(2)
14  integer, intent(out) :: ier
15 
16  call ezhybrid_init(spline_o, n1, n2, hspline, ier)
17 
18 end subroutine ezhybrid_init2_r8x
19 
20 subroutine ezhybrid_init3_r8x(spline_o, n1, n2, n3, hspline, ier)
21 
22  ! init call (set array size from object)
23 
24  use ezspline_obj
25  use ezspline
26  implicit NONE
27 
28  type(EZspline3_r8) spline_o
29  integer, intent(in) :: n1, n2, n3
30  integer, intent(in) :: hspline(3)
31  integer, intent(out) :: ier
32 
33  call ezhybrid_init(spline_o, n1, n2, n3, hspline, ier)
34 
35 end subroutine ezhybrid_init3_r8x
36 
37 subroutine ezhybrid_init2_r4x(spline_o, n1, n2, hspline, ier)
38 
39  ! init call (set array size from object)
40 
41  use ezspline_obj
42  use ezspline
43  implicit NONE
44 
45  type(EZspline2_r4) spline_o
46  integer, intent(in) :: n1, n2
47  integer, intent(in) :: hspline(2)
48  integer, intent(out) :: ier
49 
50  call ezhybrid_init(spline_o, n1, n2, hspline, ier)
51 
52 end subroutine ezhybrid_init2_r4x
53 
54 subroutine ezhybrid_init3_r4x(spline_o, n1, n2, n3, hspline, ier)
55 
56  ! init call (set array size from object)
57 
58  use ezspline_obj
59  use ezspline
60  implicit NONE
61 
62  type(EZspline3_r4) spline_o
63  integer, intent(in) :: n1, n2, n3
64  integer, intent(in) :: hspline(3)
65  integer, intent(out) :: ier
66 
67  call ezhybrid_init(spline_o, n1, n2, n3, hspline, ier)
68 
69 end subroutine ezhybrid_init3_r4x
ezspline::ezhybrid_init
Definition: ezspline.f90:117