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_coo_mat.f03
 base/newserial/psbn_csr_mat.f03
 base/newserial/psbn_d_base_mat_mod.f03
 base/newserial/psbn_mat_mod.f03


First error handling in derived classes.
This commit is contained in:
Salvatore Filippone
2009-07-06 15:54:15 +00:00
parent 9ecf2d2b4b
commit 2e62b1335e
4 changed files with 292 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_mod.F90
+2
View File
@@ -474,6 +474,8 @@ contains
case(700)
write (0,'("Base version has been called: the actual derived type is incomplete!")')
case (1121)
write (0,'("Invalid state for sparse matrix A")')
case (1122)
write (0,'("Invalid state for communication descriptor")')
case (1123)