81 module procedure :: assert_r32
82 module procedure :: assert_r32_array
83 module procedure :: assert_r32_matrix
84 module procedure :: assert_r64
85 module procedure :: assert_r64_array
86 module procedure :: assert_r64_matrix
87 module procedure :: assert_c32
88 module procedure :: assert_c32_array
89 module procedure :: assert_c32_matrix
90 module procedure :: assert_c64
91 module procedure :: assert_c64_array
92 module procedure :: assert_c64_matrix
93 module procedure :: assert_i16
94 module procedure :: assert_i16_array
95 module procedure :: assert_i16_matrix
96 module procedure :: assert_i32
97 module procedure :: assert_i32_array
98 module procedure :: assert_i32_matrix
99 module procedure :: assert_i64
100 module procedure :: assert_i64_array
101 module procedure :: assert_i64_matrix
105 module function assert_r32(x, y, tol) result(rst)
106 real(real32),
intent(in) :: x, y
107 real(real32),
intent(in),
optional :: tol
111 module function assert_r32_array(x, y, tol, flag) result(rst)
112 real(real32),
intent(in) :: x(:), y(:)
113 real(real32),
intent(in),
optional :: tol
114 integer(int32),
intent(out),
optional :: flag
118 module function assert_r32_matrix(x, y, tol, flag, row, col) result(rst)
119 real(real32),
intent(in) :: x(:,:), y(:,:)
120 real(real32),
intent(in),
optional :: tol
121 integer(int32),
intent(out),
optional :: flag, row, col
125 module function assert_r64(x, y, tol) result(rst)
126 real(real64),
intent(in) :: x, y
127 real(real64),
intent(in),
optional :: tol
131 module function assert_r64_array(x, y, tol, flag) result(rst)
132 real(real64),
intent(in) :: x(:), y(:)
133 real(real64),
intent(in),
optional :: tol
134 integer(int32),
intent(out),
optional :: flag
138 module function assert_r64_matrix(x, y, tol, flag, row, col) result(rst)
139 real(real64),
intent(in) :: x(:,:), y(:,:)
140 real(real64),
intent(in),
optional :: tol
141 integer(int32),
intent(out),
optional :: flag, row, col
145 module function assert_c32(x, y, tol) result(rst)
146 complex(real32),
intent(in) :: x, y
147 real(real32),
intent(in),
optional :: tol
151 module function assert_c32_array(x, y, tol, flag) result(rst)
152 complex(real32),
intent(in) :: x(:), y(:)
153 real(real32),
intent(in),
optional :: tol
154 integer(int32),
intent(out),
optional :: flag
158 module function assert_c32_matrix(x, y, tol, flag, row, col) result(rst)
159 complex(real32),
intent(in) :: x(:,:), y(:,:)
160 real(real32),
intent(in),
optional :: tol
161 integer(int32),
intent(out),
optional :: flag, row, col
165 module function assert_c64(x, y, tol) result(rst)
166 complex(real64),
intent(in) :: x, y
167 real(real64),
intent(in),
optional :: tol
171 module function assert_c64_array(x, y, tol, flag) result(rst)
172 complex(real64),
intent(in) :: x(:), y(:)
173 real(real64),
intent(in),
optional :: tol
174 integer(int32),
intent(out),
optional :: flag
178 module function assert_c64_matrix(x, y, tol, flag, row, col) result(rst)
179 complex(real64),
intent(in) :: x(:,:), y(:,:)
180 real(real64),
intent(in),
optional :: tol
181 integer(int32),
intent(out),
optional :: flag, row, col
185 module function assert_i16(x, y) result(rst)
186 integer(int16),
intent(in) :: x, y
190 module function assert_i16_array(x, y, flag) result(rst)
191 integer(int16),
intent(in) :: x(:), y(:)
192 integer(int32),
intent(out),
optional :: flag
196 module function assert_i16_matrix(x, y, flag, row, col) result(rst)
197 integer(int16),
intent(in) :: x(:,:), y(:,:)
198 integer(int32),
intent(out),
optional :: flag, row, col
202 module function assert_i32(x, y) result(rst)
203 integer(int32),
intent(in) :: x, y
207 module function assert_i32_array(x, y, flag) result(rst)
208 integer(int32),
intent(in) :: x(:), y(:)
209 integer(int32),
intent(out),
optional :: flag
213 module function assert_i32_matrix(x, y, flag, row, col) result(rst)
214 integer(int32),
intent(in) :: x(:,:), y(:,:)
215 integer(int32),
intent(out),
optional :: flag, row, col
219 module function assert_i64(x, y) result(rst)
220 integer(int64),
intent(in) :: x, y
224 module function assert_i64_array(x, y, flag) result(rst)
225 integer(int64),
intent(in) :: x(:), y(:)
226 integer(int32),
intent(out),
optional :: flag
230 module function assert_i64_matrix(x, y, flag, row, col) result(rst)
231 integer(int64),
intent(in) :: x(:,:), y(:,:)
232 integer(int32),
intent(out),
optional :: flag, row, col
273 interface create_random_array
274 module procedure :: create_r32_array
275 module procedure :: create_r32_matrix
276 module procedure :: create_r64_array
277 module procedure :: create_r64_matrix
278 module procedure :: create_c32_array
279 module procedure :: create_c32_matrix
280 module procedure :: create_i16_array
281 module procedure :: create_i16_matrix
282 module procedure :: create_i32_array
283 module procedure :: create_i32_matrix
284 module procedure :: create_i64_array
285 module procedure :: create_i64_matrix
289 module subroutine create_r32_array(x, xmin, xmax)
290 real(real32),
intent(out) :: x(:)
291 real(real32),
intent(in),
optional :: xmin, xmax
294 module subroutine create_r32_matrix(x, xmin, xmax)
295 real(real32),
intent(out) :: x(:,:)
296 real(real32),
intent(in),
optional :: xmin, xmax
299 module subroutine create_r64_array(x, xmin, xmax)
300 real(real64),
intent(out) :: x(:)
301 real(real64),
intent(in),
optional :: xmin, xmax
304 module subroutine create_r64_matrix(x, xmin, xmax)
305 real(real64),
intent(out) :: x(:,:)
306 real(real64),
intent(in),
optional :: xmin, xmax
309 module subroutine create_c32_array(x, xmin, xmax)
310 complex(real32),
intent(out) :: x(:)
311 complex(real32),
intent(in),
optional :: xmin, xmax
314 module subroutine create_c32_matrix(x, xmin, xmax)
315 complex(real32),
intent(out) :: x(:,:)
316 complex(real32),
intent(in),
optional :: xmin, xmax
319 module subroutine create_i16_array(x, xmin, xmax)
320 integer(int16),
intent(out) :: x(:)
321 integer(int16),
intent(in),
optional :: xmin, xmax
324 module subroutine create_i16_matrix(x, xmin, xmax)
325 integer(int16),
intent(out) :: x(:,:)
326 integer(int16),
intent(in),
optional :: xmin, xmax
329 module subroutine create_i32_array(x, xmin, xmax)
330 integer(int32),
intent(out) :: x(:)
331 integer(int32),
intent(in),
optional :: xmin, xmax
334 module subroutine create_i32_matrix(x, xmin, xmax)
335 integer(int32),
intent(out) :: x(:,:)
336 integer(int32),
intent(in),
optional :: xmin, xmax
339 module subroutine create_i64_array(x, xmin, xmax)
340 integer(int64),
intent(out) :: x(:)
341 integer(int64),
intent(in),
optional :: xmin, xmax
344 module subroutine create_i64_matrix(x, xmin, xmax)
345 integer(int64),
intent(out) :: x(:,:)
346 integer(int64),
intent(in),
optional :: xmin, xmax
Asserts that two items are equal.
Creates a random-valued array.
A collection of routines to assist in testing.