Lines Matching refs:d0
135 Udata = 0.d0
136 call FN_VConst(1.d0, sU)
137 if (check_ans(dcmplx(1.d0, 0.d0), 1.d-14, N, sU) /= 0) then
145 X%data = dcmplx(1.d0, -1.d0)
146 Y%data = dcmplx(-2.d0, 2.d0)
147 call FN_VLinearSum(1.d0, sX, 1.d0, sY, sY)
148 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sY) /= 0) then
155 X%data = dcmplx(1.d0, -1.d0)
156 Y%data = dcmplx(2.d0, -2.d0)
157 call FN_VLinearSum(-1.d0, sX, 1.d0, sY, sY)
158 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sY) /= 0) then
165 X%data = dcmplx(2.d0, -2.d0)
166 Y%data = dcmplx(-2.d0, 2.d0)
167 call FN_VLinearSum(0.5d0, sX, 1.d0, sY, sY)
168 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sY) /= 0) then
175 X%data = dcmplx(2.d0, -2.d0)
176 Y%data = dcmplx(-1.d0, 1.d0)
177 call FN_VLinearSum(1.d0, sX, 1.d0, sY, sX)
178 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sX) /= 0) then
185 X%data = dcmplx(1.d0, -1.d0)
186 Y%data = dcmplx(2.d0, -2.d0)
187 call FN_VLinearSum(1.d0, sX, -1.d0, sY, sX)
188 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sX) /= 0) then
195 X%data = dcmplx(2.d0, -2.d0)
197 call FN_VLinearSum(1.d0, sX, 2.d0, sY, sX)
198 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sX) /= 0) then
205 X%data = dcmplx(-2.d0, 2.d0)
206 Y%data = dcmplx(1.d0, -1.d0)
207 Z%data = dcmplx(0.d0, 0.d0)
208 call FN_VLinearSum(1.d0, sX, 1.d0, sY, sZ)
209 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sZ) /= 0) then
216 X%data = dcmplx(2.d0, -2.d0)
217 Y%data = dcmplx(1.d0, -1.d0)
218 Z%data = dcmplx(0.d0, 0.d0)
219 call FN_VLinearSum(1.d0, sX, -1.d0, sY, sZ)
220 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sZ) /= 0) then
227 X%data = dcmplx(2.d0, -2.d0)
228 Y%data = dcmplx(1.d0, -1.d0)
229 Z%data = dcmplx(0.d0, 0.d0)
230 call FN_VLinearSum(-1.d0, sX, 1.d0, sY, sZ)
231 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sZ) /= 0) then
238 X%data = dcmplx(2.d0, -2.d0)
240 Z%data = dcmplx(0.d0, 0.d0)
241 call FN_VLinearSum(1.d0, sX, 2.d0, sY, sZ)
242 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sZ) /= 0) then
250 Y%data = dcmplx(-2.d0, 2.d0)
251 Z%data = dcmplx(0.d0, 0.d0)
252 call FN_VLinearSum(2.d0, sX, 1.d0, sY, sZ)
253 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sZ) /= 0) then
260 X%data = dcmplx(-2.d0, 2.d0)
262 Z%data = dcmplx(0.d0, 0.d0)
263 call FN_VLinearSum(-1.d0, sX, 2.d0, sY, sZ)
264 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sZ) /= 0) then
272 Y%data = dcmplx(2.d0, -2.d0)
273 Z%data = dcmplx(0.d0, 0.d0)
274 call FN_VLinearSum(2.d0, sX, -1.d0, sY, sZ)
275 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sZ) /= 0) then
282 X%data = dcmplx(1.d0, -1.d0)
284 Z%data = dcmplx(0.d0, 0.d0)
285 call FN_VLinearSum(2.d0, sX, 2.d0, sY, sZ)
286 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sZ) /= 0) then
294 Y%data = dcmplx(1.d0, -1.d0)
295 Z%data = dcmplx(0.d0, 0.d0)
296 call FN_VLinearSum(2.d0, sX, -2.d0, sY, sZ)
297 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sZ) /= 0) then
304 X%data = dcmplx(1.d0, -1.d0)
305 Y%data = dcmplx(-2.d0, 2.d0)
306 Z%data = dcmplx(0.d0, 0.d0)
307 call FN_VLinearSum(2.d0, sX, 0.5d0, sY, sZ)
308 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sZ) /= 0) then
316 X%data = dcmplx(2.d0, 0.d0)
318 Z%data = dcmplx(0.d0, 0.d0)
320 if (check_ans(dcmplx(-1.d0, 0.d0), 1.d-14, N, sZ) /= 0) then
327 X%data = dcmplx(0.d0, 0.5d0)
329 Z%data = dcmplx(0.d0, 0.d0)
331 if (check_ans(dcmplx(0.d0, -1.d0), 1.d-14, N, sZ) /= 0) then
338 X%data = dcmplx(1.d0, 2.d0)
340 Z%data = dcmplx(0.d0, 0.d0)
342 if (check_ans(dcmplx(5.d0, 0.d0), 1.d-14, N, sZ) /= 0) then
350 X%data = dcmplx(1.d0, 0.d0)
351 Y%data = dcmplx(2.d0, 0.d0)
352 Z%data = dcmplx(0.d0, 0.d0)
354 if (check_ans(dcmplx(0.5d0, 0.d0), 1.d-14, N, sZ) /= 0) then
361 X%data = dcmplx(0.d0, 1.d0)
362 Y%data = dcmplx(2.d0, 0.d0)
363 Z%data = dcmplx(0.d0, 0.d0)
365 if (check_ans(dcmplx(0.d0, 0.5d0), 1.d-14, N, sZ) /= 0) then
372 X%data = dcmplx(4.d0, 2.d0)
373 Y%data = dcmplx(1.d0, -1.d0)
374 Z%data = dcmplx(0.d0, 0.d0)
376 if (check_ans(dcmplx(1.d0, 3.d0), 1.d-14, N, sZ) /= 0) then
385 call FN_VScale(2.d0, sX, sX)
386 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sX) /= 0) then
393 X%data = dcmplx(-1.d0, 1.d0)
394 Z%data = dcmplx(0.d0, 0.d0)
395 call FN_VScale(1.d0, sX, sZ)
396 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sZ) /= 0) then
403 X%data = dcmplx(-1.d0, 1.d0)
404 Z%data = dcmplx(0.d0, 0.d0)
405 call FN_VScale(-1.d0, sX, sZ)
406 if (check_ans(dcmplx(1.d0, -1.d0), 1.d-14, N, sZ) /= 0) then
414 Z%data = dcmplx(0.d0, 0.d0)
415 call FN_VScale(2.d0, sX, sZ)
416 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sZ) /= 0) then
424 X%data = dcmplx(-1.d0, 0.d0)
425 Z%data = dcmplx(0.d0, 0.d0)
427 if (check_ans(dcmplx(1.d0, 0.d0), 1.d-14, N, sZ) /= 0) then
434 X%data = dcmplx(1.d0, -0.d0)
435 Z%data = dcmplx(0.d0, 0.d0)
437 if (check_ans(dcmplx(1.d0, 0.d0), 1.d-14, N, sZ) /= 0) then
444 X%data = dcmplx(3.d0, -4.d0)
445 Z%data = dcmplx(0.d0, 0.d0)
447 if (check_ans(dcmplx(5.d0, 0.d0), 1.d-14, N, sZ) /= 0) then
455 X%data = dcmplx(2.d0, 0.d0)
456 Z%data = dcmplx(0.d0, 0.d0)
458 if (check_ans(dcmplx(0.5d0, 0.d0), 1.d-14, N, sZ) /= 0) then
465 X%data = dcmplx(0.d0, 1.d0)
466 Z%data = dcmplx(0.d0, 0.d0)
468 if (check_ans(dcmplx(0.d0, -1.d0), 1.d-14, N, sZ) /= 0) then
476 X%data = dcmplx(1.d0, 1.d0)
477 Z%data = dcmplx(0.d0, 0.d0)
478 call FN_VAddConst(sX, -2.d0, sZ)
479 if (check_ans(dcmplx(-1.d0, 1.d0), 1.d-14, N, sZ) /= 0) then
487 X%data = dcmplx(-0.5d0, 0.d0)
488 X%data(N) = dcmplx(0.d0, -2.d0)
489 if (dabs(FN_VMaxNorm(sX) - 2.d0) > 1.d-14) then
497 X%data = dcmplx(-0.5d0, 0.d0)
498 Y%data = dcmplx(0.5d0, 0.d0)
507 X%data = dcmplx(-0.5d0, 0.d0)
508 Y%data = dcmplx(0.5d0, 0.d0)
509 Z%data = dcmplx(1.d0, 0.d0)
510 Z%data(N) = dcmplx(0.d0, 0.d0)
511 fac = dsqrt(1.d0*(N - 1)/N)*0.25d0
520 X%data = dcmplx(2.d0, 0.d0)
521 X%data(N) = dcmplx(-2.d0, -3.d0)
522 if (dabs(FN_VMin(sX) + 2.d0) > 1.d-14) then
530 X%data = dcmplx(-0.5d0, 0.d0)
531 Y%data = dcmplx(0.5d0, 0.d0)
532 fac = dsqrt(1.d0*N)*0.25d0
541 X%data = dcmplx(0.d0, -1.d0)
542 fac = 1.d0*N
551 X%data = dcmplx(0.5d0, 0.d0)
552 Z%data = dcmplx(0.d0, 0.d0)
554 if ((check_ans(dcmplx(2.d0, 0.d0), 1.d-14, N, sZ) /= 0) .or. failure) then
562 Z%data = dcmplx(0.d0, 0.d0)
565 if (loc == 0) X%data(i) = dcmplx(0.d0, 0.d0)
566 if (loc == 1) X%data(i) = dcmplx(0.5d0, 0.d0)
571 if ((loc == 0) .and. (Z%data(i) /= dcmplx(0.d0, 0.d0))) failure = .true.
572 if ((loc == 1) .and. (Z%data(i) /= dcmplx(2.d0, 0.d0))) failure = .true.
582 X%data = dcmplx(-1.d0, 0.d0)
583 Y%data = dcmplx(0.5d0, 0.d0)
594 X%data = dcmplx(-1.d0, 0.d0)
595 Y%data = dcmplx(0.5d0, 0.d0)
596 Z%data = dcmplx(1.d0, 0.d0)
597 Z%data(N) = dcmplx(0.d0, 0.d0)