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

psblas3:

Browse Source 
Reworked error constant names and typographical fixes.
This commit is contained in:
Salvatore Filippone
2010-04-22 15:35:14 +00:00
parent 22876a972f
commit 6b278318bd
346 changed files with 9843 additions and 9777 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_d_tools_mod.f90
+2 -2
View File
@@ -234,8 +234,8 @@ Module psb_d_tools_mod
!!$
!!$ ictxt = psb_cd_get_context(descin)
!!$ call psb_cdcpy(descin,cd_xt,info)
!!$ if (info ==0) call psb_cd_reinit(cd_xt,info)
!!$ if (info /= 0) then
!!$ if (info == psb_success_) call psb_cd_reinit(cd_xt,info)
!!$ if (info /= psb_success_) then
!!$ write(0,*) 'Error on reinitialising the extension map'
!!$ call psb_error(ictxt)
!!$ call psb_abort(ictxt)