lxsd / fvn

Download as
Browse Code ยป

Commit 7dc628d158126d07ad7721d70591f4b96edf8ac8

Authored by wdaniau
1 parent 14c923613e
Exists in master and in 2 other branches geevx_2020, multi

Added error output for umfpack_*_triplet_to_col 

git-svn-id: https://lxsd.femto-st.fr/svn/fvn@74 b657c933-2333-4658-acf2-d3c7c2708721

Showing 1 changed file with 36 additions and 36 deletions Side-by-side Diff

fvn_sparse/fvn_sparse.f90
Diff comments   View file @ 7dc628d
... ... @@ -112,7 +112,7 @@
112 112 call umfpack_zl_triplet_to_col(n,n,nz,wTi,wTj,Tx,Tz,Ap,Ai,Ax,Az,status)
113 113 ! if status is not zero a problem has occured
114 114 if (status /= 0) then
115   - write(*,*) "Problem during umfpack_zl_triplet_to_col"
  115 + write(*,*) "Problem during umfpack_zl_triplet_to_col : ",trim(umfpack_return_code(int(status,kind=sp_kind)))
116 116 endif
117 117  
118 118 ! Define defaults control values
... ... @@ -122,7 +122,7 @@
122 122 call umfpack_zl_symbolic(n,n,Ap,Ai,Ax,Az,symbolic, control, info)
123 123 ! info(1) should be zero
124 124 if (info(1) /= 0) then
125   - write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1))))
  125 + write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
126 126 status=info(1)
127 127 endif
128 128  
... ... @@ -130,7 +130,7 @@
130 130 call umfpack_zl_numeric (Ap, Ai, Ax, Az, symbolic, numeric, control, info)
131 131 ! info(1) should be zero
132 132 if (info(1) /= 0) then
133   - write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1))))
  133 + write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
134 134 status=info(1)
135 135 endif
136 136  
... ... @@ -143,7 +143,7 @@
143 143 ! info(1) should be zero
144 144 if (info(1) /= 0) then
145 145 if ( (info(1) < 1) .or. (info(1) >3) ) then ! not a warning
146   - write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1))))
  146 + write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
147 147 endif
148 148 status=info(1)
149 149 endif
... ... @@ -161,7 +161,7 @@
161 161 call umfpack_zl_solve (sys, Ap, Ai, Ax,Az, xx,xz, bx,bz, numeric, control, info)
162 162 ! info(1) should be zero
163 163 if (info(1) /= 0) then
164   - write(*,*) "Problem during solving : ",trim(umfpack_return_code(int(info(1))))
  164 + write(*,*) "Problem during solving : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
165 165 status=info(1)
166 166 endif
167 167  
... ... @@ -221,7 +221,7 @@
221 221 call umfpack_zi_triplet_to_col(n,n,nz,wTi,wTj,Tx,Tz,Ap,Ai,Ax,Az,status)
222 222 ! if status is not zero a problem has occured
223 223 if (status /= 0) then
224   - write(*,*) "Problem during umfpack_zl_triplet_to_col"
  224 + write(*,*) "Problem during umfpack_zl_triplet_to_col : ",trim(umfpack_return_code(status))
225 225 endif
226 226  
227 227 ! Define defaults control values
... ... @@ -231,7 +231,7 @@
231 231 call umfpack_zi_symbolic(n,n,Ap,Ai,Ax,Az,symbolic, control, info)
232 232 ! info(1) should be zero
233 233 if (info(1) /= 0) then
234   - write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1))))
  234 + write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
235 235 status=info(1)
236 236 endif
237 237  
... ... @@ -239,7 +239,7 @@
239 239 call umfpack_zi_numeric (Ap, Ai, Ax, Az, symbolic, numeric, control, info)
240 240 ! info(1) should be zero
241 241 if (info(1) /= 0) then
242   - write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1))))
  242 + write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
243 243 status=info(1)
244 244 endif
245 245  
... ... @@ -252,7 +252,7 @@
252 252 ! info(1) should be zero
253 253 if (info(1) /= 0) then
254 254 if ( (info(1) < 1) .or. (info(1) >3) ) then ! not a warning
255   - write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1))))
  255 + write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
256 256 endif
257 257 status=info(1)
258 258 endif
... ... @@ -271,7 +271,7 @@
271 271 call umfpack_zi_solve (sys, Ap, Ai, Ax,Az, xx,xz, bx,bz, numeric, control, info)
272 272 ! info(1) should be zero
273 273 if (info(1) /= 0) then
274   - write(*,*) "Problem during solving : ",trim(umfpack_return_code(int(info(1))))
  274 + write(*,*) "Problem during solving : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
275 275 status=info(1)
276 276 endif
277 277  
... ... @@ -322,7 +322,7 @@
322 322 call umfpack_dl_triplet_to_col(n,n,nz,wTi,wTj,T,Ap,Ai,A,status)
323 323 ! if status is not zero a problem has occured
324 324 if (status /= 0) then
325   - write(*,*) "Problem during umfpack_dl_triplet_to_col"
  325 + write(*,*) "Problem during umfpack_dl_triplet_to_col : ",trim(umfpack_return_code(int(status,kind=sp_kind)))
326 326 endif
327 327  
328 328 ! Define defaults control values
... ... @@ -332,7 +332,7 @@
332 332 call umfpack_dl_symbolic(n,n,Ap,Ai,A,symbolic, control, info)
333 333 ! info(1) should be zero
334 334 if (info(1) /= 0) then
335   - write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1))))
  335 + write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
336 336 status=info(1)
337 337 endif
338 338  
... ... @@ -340,7 +340,7 @@
340 340 call umfpack_dl_numeric (Ap, Ai, A, symbolic, numeric, control, info)
341 341 ! info(1) should be zero
342 342 if (info(1) /= 0) then
343   - write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1))))
  343 + write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
344 344 status=info(1)
345 345 endif
346 346  
... ... @@ -353,7 +353,7 @@
353 353 ! info(1) should be zero
354 354 if (info(1) /= 0) then
355 355 if ( (info(1) < 1) .or. (info(1) >3) ) then ! not a warning
356   - write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1))))
  356 + write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
357 357 endif
358 358 status=info(1)
359 359 endif
... ... @@ -367,7 +367,7 @@
367 367 call umfpack_dl_solve (sys, Ap, Ai, A, x, B, numeric, control, info)
368 368 ! info(1) should be zero
369 369 if (info(1) /= 0) then
370   - write(*,*) "Problem during solving : ",trim(umfpack_return_code(int(info(1))))
  370 + write(*,*) "Problem during solving : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
371 371 status=info(1)
372 372 endif
373 373  
... ... @@ -417,7 +417,7 @@
417 417 call umfpack_di_triplet_to_col(n,n,nz,wTi,wTj,T,Ap,Ai,A,status)
418 418 ! if status is not zero a problem has occured
419 419 if (status /= 0) then
420   - write(*,*) "Problem during umfpack_di_triplet_to_col"
  420 + write(*,*) "Problem during umfpack_di_triplet_to_col : ",trim(umfpack_return_code(status))
421 421 endif
422 422  
423 423 ! Define defaults control values
... ... @@ -427,7 +427,7 @@
427 427 call umfpack_di_symbolic(n,n,Ap,Ai,A,symbolic, control, info)
428 428 ! info(1) should be zero
429 429 if (info(1) /= 0) then
430   - write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1))))
  430 + write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
431 431 status=info(1)
432 432 endif
433 433  
... ... @@ -435,7 +435,7 @@
435 435 call umfpack_di_numeric (Ap, Ai, A, symbolic, numeric, control, info)
436 436 ! info(1) should be zero
437 437 if (info(1) /= 0) then
438   - write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1))))
  438 + write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
439 439 status=info(1)
440 440 endif
441 441  
... ... @@ -448,7 +448,7 @@
448 448 ! info(1) should be zero
449 449 if (info(1) /= 0) then
450 450 if ( (info(1) < 1) .or. (info(1) >3) ) then ! not a warning
451   - write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1))))
  451 + write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
452 452 endif
453 453 status=info(1)
454 454 endif
... ... @@ -460,7 +460,7 @@
460 460 call umfpack_di_solve (sys, Ap, Ai, A, x, B, numeric, control, info)
461 461 ! info(1) should be zero
462 462 if (info(1) /= 0) then
463   - write(*,*) "Problem during solving : ",trim(umfpack_return_code(int(info(1))))
  463 + write(*,*) "Problem during solving : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
464 464 status=info(1)
465 465 endif
466 466  
... ... @@ -512,7 +512,7 @@
512 512 call umfpack_zl_triplet_to_col(n,n,nz,wTi,wTj,Tx,Tz,Ap,Ai,Ax,Az,status)
513 513 ! if status is not zero a problem has occured
514 514 if (status /= 0) then
515   - write(*,*) "Problem during umfpack_zl_triplet_to_col"
  515 + write(*,*) "Problem during umfpack_zl_triplet_to_col ",trim(umfpack_return_code(int(status,kind=sp_kind)))
516 516 endif
517 517  
518 518 ! Define defaults control values
... ... @@ -522,7 +522,7 @@
522 522 call umfpack_zl_symbolic(n,n,Ap,Ai,Ax,Az,symbolic, control, info)
523 523 ! info(1) should be zero
524 524 if (info(1) /= 0) then
525   - write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1))))
  525 + write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
526 526 status=info(1)
527 527 endif
528 528  
... ... @@ -530,7 +530,7 @@
530 530 call umfpack_zl_numeric (Ap, Ai, Ax, Az, symbolic, numeric, control, info)
531 531 ! info(1) should be zero
532 532 if (info(1) /= 0) then
533   - write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1))))
  533 + write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
534 534 status=info(1)
535 535 endif
536 536  
... ... @@ -541,7 +541,7 @@
541 541 ! info(1) should be zero
542 542 if (info(1) /= 0) then
543 543 if ( (info(1) < 1) .or. (info(1) >3) ) then ! not a warning
544   - write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1))))
  544 + write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
545 545 endif
546 546 status=info(1)
547 547 endif
... ... @@ -591,7 +591,7 @@
591 591 call umfpack_zi_triplet_to_col(n,n,nz,wTi,wTj,Tx,Tz,Ap,Ai,Ax,Az,status)
592 592 ! if status is not zero a problem has occured
593 593 if (status /= 0) then
594   - write(*,*) "Problem during umfpack_zl_triplet_to_col"
  594 + write(*,*) "Problem during umfpack_zl_triplet_to_col : ",trim(umfpack_return_code(status))
595 595 endif
596 596  
597 597 ! Define defaults control values
... ... @@ -601,7 +601,7 @@
601 601 call umfpack_zi_symbolic(n,n,Ap,Ai,Ax,Az,symbolic, control, info)
602 602 ! info(1) should be zero
603 603 if (info(1) /= 0) then
604   - write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1))))
  604 + write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
605 605 status=info(1)
606 606 endif
607 607  
... ... @@ -609,7 +609,7 @@
609 609 call umfpack_zi_numeric (Ap, Ai, Ax, Az, symbolic, numeric, control, info)
610 610 ! info(1) should be zero
611 611 if (info(1) /= 0) then
612   - write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1))))
  612 + write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
613 613 status=info(1)
614 614 endif
615 615  
... ... @@ -620,7 +620,7 @@
620 620 ! info(1) should be zero
621 621 if (info(1) /= 0) then
622 622 if ( (info(1) < 1) .or. (info(1) >3) ) then ! not a warning
623   - write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1))))
  623 + write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
624 624 endif
625 625 status=info(1)
626 626 endif
... ... @@ -661,7 +661,7 @@
661 661 call umfpack_dl_triplet_to_col(n,n,nz,wTi,wTj,T,Ap,Ai,A,status)
662 662 ! if status is not zero a problem has occured
663 663 if (status /= 0) then
664   - write(*,*) "Problem during umfpack_dl_triplet_to_col"
  664 + write(*,*) "Problem during umfpack_dl_triplet_to_col : ",trim(umfpack_return_code(int(status,kind=sp_kind)))
665 665 endif
666 666  
667 667 ! Define defaults control values
... ... @@ -671,7 +671,7 @@
671 671 call umfpack_dl_symbolic(n,n,Ap,Ai,A,symbolic, control, info)
672 672 ! info(1) should be zero
673 673 if (info(1) /= 0) then
674   - write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1))))
  674 + write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
675 675 status=info(1)
676 676 endif
677 677  
... ... @@ -679,7 +679,7 @@
679 679 call umfpack_dl_numeric (Ap, Ai, A, symbolic, numeric, control, info)
680 680 ! info(1) should be zero
681 681 if (info(1) /= 0) then
682   - write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1))))
  682 + write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
683 683 status=info(1)
684 684 endif
685 685  
... ... @@ -690,7 +690,7 @@
690 690 ! info(1) should be zero
691 691 if (info(1) /= 0) then
692 692 if ( (info(1) < 1) .or. (info(1) >3) ) then ! not a warning
693   - write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1))))
  693 + write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
694 694 endif
695 695 status=info(1)
696 696 endif
... ... @@ -736,7 +736,7 @@
736 736 call umfpack_di_triplet_to_col(n,n,nz,wTi,wTj,T,Ap,Ai,A,status)
737 737 ! if status is not zero a problem has occured
738 738 if (status /= 0) then
739   - write(*,*) "Problem during umfpack_di_triplet_to_col"
  739 + write(*,*) "Problem during umfpack_di_triplet_to_col : ",trim(umfpack_return_code(status))
740 740 endif
741 741  
742 742 ! Define defaults control values
... ... @@ -746,7 +746,7 @@
746 746 call umfpack_di_symbolic(n,n,Ap,Ai,A,symbolic, control, info)
747 747 ! info(1) should be zero
748 748 if (info(1) /= 0) then
749   - write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1))))
  749 + write(*,*) "Problem during symbolic analysis : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
750 750 status=info(1)
751 751 endif
752 752  
... ... @@ -754,7 +754,7 @@
754 754 call umfpack_di_numeric (Ap, Ai, A, symbolic, numeric, control, info)
755 755 ! info(1) should be zero
756 756 if (info(1) /= 0) then
757   - write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1))))
  757 + write(*,*) "Problem during numerical factorization : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
758 758 status=info(1)
759 759 endif
760 760  
... ... @@ -766,7 +766,7 @@
766 766 ! info(1) should be zero
767 767 if (info(1) /= 0) then
768 768 if ( (info(1) < 1) .or. (info(1) >3) ) then ! not a warning
769   - write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1))))
  769 + write(*,*) "Problem during sparse determinant : ",trim(umfpack_return_code(int(info(1),kind=sp_kind)))
770 770 endif
771 771 status=info(1)
772 772 endif