fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-21 05:12:13 +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/tools/psb_cspalloc.f90
+4 -4
View File
@@ -60,7 +60,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
character(len=20) :: name, ch_err
if(psb_get_errstatus() /= 0) return
info=0
info=psb_success_
call psb_erractionsave(err_act)
name = 'psb_cspall'
debug_unit = psb_get_debug_unit()
@@ -72,7 +72,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
call psb_info(ictxt, me, np)
! ....verify blacs grid correctness..
if (np == -1) then
info = 2010
info = psb_err_blacs_error_
call psb_errpush(info,name)
goto 9999
endif
@@ -103,8 +103,8 @@ subroutine psb_cspalloc(a, desc_a, info, nnz)
!....allocate aspk, ia1, ia2.....
call a%csall(loc_row,loc_col,info,nz=length_ia1)
if(info /= 0) then
info=4010
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='sp_all'
call psb_errpush(info,name,int_err)
goto 9999