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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2014-10-13 16:23:12 +00:00
parent 1fb627f947
commit d332fb2e99
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_glob_to_loc.f90
+3 -3
View File
@@ -224,12 +224,12 @@ subroutine psb_glob_to_loc1v(x,desc_a,info,iact,owned)
call psb_erractionrestore(err_act)
return
case('W')
if ((info /= psb_success_).or.(count(x(1:n)<0) >0)) then
if ((info /= psb_success_).or.(count(x(:)<0) >0)) then
write(psb_err_unit,'("Error ",i5," in subroutine glob_to_loc")') info
end if
case('A')
if ((info /= psb_success_).or.(count(x(1:n)<0) >0)) then
write(psb_err_unit,*) count(x(1:n)<0)
if ((info /= psb_success_).or.(count(x(:)<0) >0)) then
write(psb_err_unit,*) count(x(:)<0)
call psb_errpush(info,name)
goto 9999
end if