4 subroutine ezspline_isgridregular1_r8(spline_o, ier)
7 type(EZspline1_r8) :: spline_o
10 integer,
intent(out) :: ier
15 if(spline_o%x1(i+1) <= spline_o%x1(i))
then
21 end subroutine ezspline_isgridregular1_r8
23 subroutine ezspline_isgridregular2_r8(spline_o, ier)
26 type(EZspline2_r8) :: spline_o
30 integer,
intent(out) :: ier
35 if(spline_o%x1(i+1) <= spline_o%x1(i))
then
41 if(spline_o%x2(i+1) <= spline_o%x2(i))
then
47 end subroutine ezspline_isgridregular2_r8
50 subroutine ezspline_isgridregular3_r8(spline_o, ier)
53 type(EZspline3_r8) :: spline_o
58 integer,
intent(out) :: ier
63 if(spline_o%x1(i+1) <= spline_o%x1(i))
then
69 if(spline_o%x2(i+1) <= spline_o%x2(i))
then
75 if(spline_o%x3(i+1) <= spline_o%x3(i))
then
81 end subroutine ezspline_isgridregular3_r8
85 subroutine ezspline_isgridregular1_r4(spline_o, ier)
88 type(EZspline1_r4) :: spline_o
91 integer,
intent(out) :: ier
96 if(spline_o%x1(i+1) <= spline_o%x1(i))
then
102 end subroutine ezspline_isgridregular1_r4
104 subroutine ezspline_isgridregular2_r4(spline_o, ier)
107 type(EZspline2_r4) :: spline_o
111 integer,
intent(out) :: ier
115 do i=1, spline_o%n1-1
116 if(spline_o%x1(i+1) <= spline_o%x1(i))
then
121 do i=1, spline_o%n2-1
122 if(spline_o%x2(i+1) <= spline_o%x2(i))
then
128 end subroutine ezspline_isgridregular2_r4
131 subroutine ezspline_isgridregular3_r4(spline_o, ier)
134 type(EZspline3_r4) :: spline_o
139 integer,
intent(out) :: ier
143 do i=1, spline_o%n1-1
144 if(spline_o%x1(i+1) <= spline_o%x1(i))
then
149 do i=1, spline_o%n2-1
150 if(spline_o%x2(i+1) <= spline_o%x2(i))
then
155 do i=1, spline_o%n3-1
156 if(spline_o%x3(i+1) <= spline_o%x3(i))
then
162 end subroutine ezspline_isgridregular3_r4