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

Fix wrong error message.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-02-14 12:11:51 +00:00
parent 4bbd34c3cd
commit c9aeb3d605
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_check_mod.f90
+1 -1
View File
@@ -243,7 +243,7 @@ contains
int_err(2) = lldx
int_err(3) = 6
int_err(4) = psb_n_col_
int_err(5) = psb_cd_get_local_cols(desc_dec)
int_err(5) = psb_cd_get_global_rows(desc_dec)
else if (psb_cd_get_global_cols(desc_dec) < m) then
info=60
int_err(1) = 1