fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Cleanup error returns.

Browse Source
psblas-3.5-maint
Salvatore Filippone 6 years ago
parent 6c6d2c71ee
commit ae2e575a29
4 changed files with 48 additions and 56 deletions
Show Stats Download Patch File Download Diff File

26
base/tools/psb_csphalo.F90
Unescape Escape View File

@ -199,8 +199,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& rvsz,1,psb_mpi_def_integer,icomm,minfo) & rvsz,1,psb_mpi_def_integer,icomm,minfo)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='mpi_alltoall' call psb_errpush(info,name,a_err='mpi_alltoall')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -228,8 +227,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& ' Send:',sdsz(:),' Receive:',rvsz(:) & ' Send:',sdsz(:),' Receive:',rvsz(:)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_sp_reall' call psb_errpush(info,name,a_err='psb_sp_reall')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
mat_recv = iszr mat_recv = iszr
@ -237,6 +235,11 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call psb_ensure_size(max(iszs,1),iasnd,info) call psb_ensure_size(max(iszs,1),iasnd,info)
if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info) if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info)
if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info) if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info)
if (info /= psb_success_) then
info=psb_err_from_subroutine_
call psb_errpush(info,name,a_err='ensure_size')
goto 9999
end if
l1 = 0 l1 = 0
ipx = 1 ipx = 1
@ -258,8 +261,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& append=.true.,nzin=tot_elem) & append=.true.,nzin=tot_elem)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_sp_getrow' call psb_errpush(info,name,a_err='psb_sp_getrow')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
tot_elem=tot_elem+n_elem tot_elem=tot_elem+n_elem
@ -273,8 +275,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
if (colcnv_) call psb_loc_to_glob(jasnd(1:nz),desc_a,info,iact='I') if (colcnv_) call psb_loc_to_glob(jasnd(1:nz),desc_a,info,iact='I')
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_loc_to_glob' call psb_errpush(info,name,a_err='psb_loc_to_glob')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -287,8 +288,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='mpi_alltoallv' call psb_errpush(info,name,a_err='mpi_alltoallv')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -300,8 +300,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psbglob_to_loc' call psb_errpush(info,name,a_err='psbglob_to_loc')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -353,8 +352,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call blk%cscnv(info,type=outfmt_,dupl=psb_dupl_add_) call blk%cscnv(info,type=outfmt_,dupl=psb_dupl_add_)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_spcnv' call psb_errpush(info,name,a_err='psb_spcnv')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if

26
base/tools/psb_dsphalo.F90
Unescape Escape View File

@ -199,8 +199,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& rvsz,1,psb_mpi_def_integer,icomm,minfo) & rvsz,1,psb_mpi_def_integer,icomm,minfo)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='mpi_alltoall' call psb_errpush(info,name,a_err='mpi_alltoall')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -228,8 +227,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& ' Send:',sdsz(:),' Receive:',rvsz(:) & ' Send:',sdsz(:),' Receive:',rvsz(:)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_sp_reall' call psb_errpush(info,name,a_err='psb_sp_reall')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
mat_recv = iszr mat_recv = iszr
@ -237,6 +235,11 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call psb_ensure_size(max(iszs,1),iasnd,info) call psb_ensure_size(max(iszs,1),iasnd,info)
if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info) if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info)
if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info) if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info)
if (info /= psb_success_) then
info=psb_err_from_subroutine_
call psb_errpush(info,name,a_err='ensure_size')
goto 9999
end if
l1 = 0 l1 = 0
ipx = 1 ipx = 1
@ -258,8 +261,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& append=.true.,nzin=tot_elem) & append=.true.,nzin=tot_elem)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_sp_getrow' call psb_errpush(info,name,a_err='psb_sp_getrow')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
tot_elem=tot_elem+n_elem tot_elem=tot_elem+n_elem
@ -273,8 +275,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
if (colcnv_) call psb_loc_to_glob(jasnd(1:nz),desc_a,info,iact='I') if (colcnv_) call psb_loc_to_glob(jasnd(1:nz),desc_a,info,iact='I')
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_loc_to_glob' call psb_errpush(info,name,a_err='psb_loc_to_glob')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -287,8 +288,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='mpi_alltoallv' call psb_errpush(info,name,a_err='mpi_alltoallv')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -300,8 +300,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psbglob_to_loc' call psb_errpush(info,name,a_err='psbglob_to_loc')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -353,8 +352,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call blk%cscnv(info,type=outfmt_,dupl=psb_dupl_add_) call blk%cscnv(info,type=outfmt_,dupl=psb_dupl_add_)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_spcnv' call psb_errpush(info,name,a_err='psb_spcnv')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if

26
base/tools/psb_ssphalo.F90
Unescape Escape View File

@ -199,8 +199,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& rvsz,1,psb_mpi_def_integer,icomm,minfo) & rvsz,1,psb_mpi_def_integer,icomm,minfo)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='mpi_alltoall' call psb_errpush(info,name,a_err='mpi_alltoall')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -228,8 +227,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& ' Send:',sdsz(:),' Receive:',rvsz(:) & ' Send:',sdsz(:),' Receive:',rvsz(:)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_sp_reall' call psb_errpush(info,name,a_err='psb_sp_reall')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
mat_recv = iszr mat_recv = iszr
@ -237,6 +235,11 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call psb_ensure_size(max(iszs,1),iasnd,info) call psb_ensure_size(max(iszs,1),iasnd,info)
if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info) if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info)
if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info) if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info)
if (info /= psb_success_) then
info=psb_err_from_subroutine_
call psb_errpush(info,name,a_err='ensure_size')
goto 9999
end if
l1 = 0 l1 = 0
ipx = 1 ipx = 1
@ -258,8 +261,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& append=.true.,nzin=tot_elem) & append=.true.,nzin=tot_elem)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_sp_getrow' call psb_errpush(info,name,a_err='psb_sp_getrow')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
tot_elem=tot_elem+n_elem tot_elem=tot_elem+n_elem
@ -273,8 +275,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
if (colcnv_) call psb_loc_to_glob(jasnd(1:nz),desc_a,info,iact='I') if (colcnv_) call psb_loc_to_glob(jasnd(1:nz),desc_a,info,iact='I')
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_loc_to_glob' call psb_errpush(info,name,a_err='psb_loc_to_glob')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -287,8 +288,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='mpi_alltoallv' call psb_errpush(info,name,a_err='mpi_alltoallv')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -300,8 +300,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psbglob_to_loc' call psb_errpush(info,name,a_err='psbglob_to_loc')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -353,8 +352,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call blk%cscnv(info,type=outfmt_,dupl=psb_dupl_add_) call blk%cscnv(info,type=outfmt_,dupl=psb_dupl_add_)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_spcnv' call psb_errpush(info,name,a_err='psb_spcnv')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if

26
base/tools/psb_zsphalo.F90
Unescape Escape View File

@ -199,8 +199,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& rvsz,1,psb_mpi_def_integer,icomm,minfo) & rvsz,1,psb_mpi_def_integer,icomm,minfo)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='mpi_alltoall' call psb_errpush(info,name,a_err='mpi_alltoall')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -228,8 +227,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& ' Send:',sdsz(:),' Receive:',rvsz(:) & ' Send:',sdsz(:),' Receive:',rvsz(:)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_sp_reall' call psb_errpush(info,name,a_err='psb_sp_reall')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
mat_recv = iszr mat_recv = iszr
@ -237,6 +235,11 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call psb_ensure_size(max(iszs,1),iasnd,info) call psb_ensure_size(max(iszs,1),iasnd,info)
if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info) if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info)
if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info) if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info)
if (info /= psb_success_) then
info=psb_err_from_subroutine_
call psb_errpush(info,name,a_err='ensure_size')
goto 9999
end if
l1 = 0 l1 = 0
ipx = 1 ipx = 1
@ -258,8 +261,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& append=.true.,nzin=tot_elem) & append=.true.,nzin=tot_elem)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_sp_getrow' call psb_errpush(info,name,a_err='psb_sp_getrow')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
tot_elem=tot_elem+n_elem tot_elem=tot_elem+n_elem
@ -273,8 +275,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
if (colcnv_) call psb_loc_to_glob(jasnd(1:nz),desc_a,info,iact='I') if (colcnv_) call psb_loc_to_glob(jasnd(1:nz),desc_a,info,iact='I')
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_loc_to_glob' call psb_errpush(info,name,a_err='psb_loc_to_glob')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -287,8 +288,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
& acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo) & acoo%ja,rvsz,brvindx,psb_mpi_ipk_integer,icomm,minfo)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='mpi_alltoallv' call psb_errpush(info,name,a_err='mpi_alltoallv')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -300,8 +300,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psbglob_to_loc' call psb_errpush(info,name,a_err='psbglob_to_loc')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
@ -353,8 +352,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call blk%cscnv(info,type=outfmt_,dupl=psb_dupl_add_) call blk%cscnv(info,type=outfmt_,dupl=psb_dupl_add_)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_spcnv' call psb_errpush(info,name,a_err='psb_spcnv')
call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if

Write Preview
Loading…
Cancel
Save