fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
Make.inc.in
 base/modules/psb_const_mod.F90
 base/modules/psb_error_mod.F90
 config/pac.m4
 configure.ac
 configure
 util/psb_d_renum_impl.F90
 util/psb_renum_mod.f90

Added test and initial placeholder version of renumbering with AMD. 
Does not really work right now.
This commit is contained in:
Salvatore Filippone
2011-11-21 15:33:55 +00:00
parent 7fdd29afd1
commit e6828c8cca
8 changed files with 571 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_const_mod.F90
+1
View File
@@ -194,6 +194,7 @@ module psb_const_mod
integer, parameter, public :: psb_err_ja_nix_ia_niy_unsupported_=3030
integer, parameter, public :: psb_err_ix_n1_iy_n1_unsupported_=3040
integer, parameter, public :: psb_err_input_matrix_unassembled_=3110
integer, parameter, public :: psb_err_missing_aux_lib_=3999
integer, parameter, public :: psb_err_alloc_dealloc_=4000
integer, parameter, public :: psb_err_internal_error_=4001
integer, parameter, public :: psb_err_from_subroutine_=4010
base/modules/psb_error_mod.F90
+6 -1
View File
@@ -561,8 +561,13 @@ contains
case(3112)
write(psb_err_unit,&
& '("Before you call this routine, you must build the preconditioner")')
case(3113:3999)
case(3113:3998)
write(psb_err_unit,'("miscellaneus error. code: ",i0)')err_c
case(psb_err_missing_aux_lib_)
write(psb_err_unit,&
&'("This method requires an external support library.")')
write(psb_err_unit,&
&'("Fix configure and rebuild the software.")')
case(psb_err_alloc_dealloc_)
write(psb_err_unit,'("Allocation/deallocation error")')
case(psb_err_internal_error_)