*** empty log message ***

2026-10-16 10:52:08 +00:00 · 2008-02-12 10:32:25 +00:00
parent 6b13585ad6
commit 113d536e1d
1 changed files with 1 additions and 0 deletions
@@ -701,6 +701,7 @@ contains
      call psb_cd_inloc((/(i,i=nlp+1,nlp+nl)/),ictxt,desc_a,info)

    endif
+    if (info /= 0) goto 999
    call psb_erractionrestore(err_act)
    return