fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 19:02:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_error_mod.F90

Fix to error message for incomplete class implementation.
This commit is contained in:
Salvatore Filippone
2009-10-14 12:32:38 +00:00
parent 9bd81680e3
commit c615e1ee5d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_error_mod.F90
+3 -1
View File
@@ -480,7 +480,9 @@ contains
case(600)
write (0,'("Sparse Matrix and descriptors are in an invalid state for this subroutine call: ",i0)')i_e_d(1)
case(700)
write (0,'("Base version has been called; the class implementation for ",a," may be incomplete!")') a_e_d
write (0,'("The base version of subroutine ''",a,"'' has been called.",/,&
&"The class implementation for ''",a,"'' may be incomplete!")') &
& trim(r_name), trim(a_e_d)
case (1121)
write (0,'("Invalid state for sparse matrix A")')