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

psblas3:

Browse Source 
base/modules/psb_error_mod.F90
 base/newserial/psbn_base_mat_mod.f03
 base/newserial/psbn_d_base_mat_mod.f03
 base/newserial/psbn_d_csr_impl.f03
 base/newserial/psbn_d_csr_mat_mod.f03
 base/newserial/psbn_mat_impl.f03
 base/newserial/psbn_mat_mod.f03
 test/serial/Makefile
 test/serial/d_matgen.f03


First round of encapsulation of sparse matrix data types.
This commit is contained in:
Salvatore Filippone
2009-09-09 16:29:17 +00:00
parent 95aeca09c3
commit 94779d8a65
9 changed files with 1344 additions and 247 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_mod.F90
+2
View File
@@ -469,6 +469,8 @@ contains
write (0,'("Exactly one of the optional arguments ",a," must be present")')a_e_d
case(582)
write (0,'("Argument M is required when argument PARTS is specified")')
case(583)
write (0,'("No more than one of the optional arguments ",a," must be present")')a_e_d
case(600)
write (0,'("Sparse Matrix and descriptors are in an invalid state for this subroutine call: ",i0)')i_e_d(1)
case(700)