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

psblas3:

Browse Source 
base/psblas/psb_camax.f90
 base/psblas/psb_casum.f90
 base/psblas/psb_caxpby.f90
 base/psblas/psb_cdot.f90
 base/psblas/psb_cnrm2.f90
 base/psblas/psb_cnrmi.f90
 base/psblas/psb_cspmm.f90
 base/psblas/psb_cspnrm1.f90
 base/psblas/psb_cspsm.f90
 base/psblas/psb_damax.f90
 base/psblas/psb_dasum.f90
 base/psblas/psb_daxpby.f90
 base/psblas/psb_ddot.f90
 base/psblas/psb_dnrm2.f90
 base/psblas/psb_dnrmi.f90
 base/psblas/psb_dspmm.f90
 base/psblas/psb_dspnrm1.f90
 base/psblas/psb_dspsm.f90
 base/psblas/psb_samax.f90
 base/psblas/psb_sasum.f90
 base/psblas/psb_saxpby.f90
 base/psblas/psb_sdot.f90
 base/psblas/psb_snrm2.f90
 base/psblas/psb_snrmi.f90
 base/psblas/psb_sspmm.f90
 base/psblas/psb_sspnrm1.f90
 base/psblas/psb_sspsm.f90
 base/psblas/psb_zamax.f90
 base/psblas/psb_zasum.f90
 base/psblas/psb_zaxpby.f90
 base/psblas/psb_zdot.f90
 base/psblas/psb_znrm2.f90
 base/psblas/psb_znrmi.f90
 base/psblas/psb_zspmm.f90
 base/psblas/psb_zspnrm1.f90
 base/psblas/psb_zspsm.f90

New error handling.
psblas3-accel
Salvatore Filippone 12 years ago
parent f343a60819
commit 0d49855313
36 changed files with 328 additions and 908 deletions
Show Stats Download Patch File Download Diff File

99
base/psblas/psb_camax.f90
Unescape Escape View File

@ -77,9 +77,9 @@ function psb_camax(x,desc_a, info, jx) result(res)
ix = 1 ix = 1
if (present(jx)) then if (present(jx)) then
ijx = jx ijx = jx
else else
ijx = 1 ijx = 1
endif endif
m = desc_a%get_global_rows() m = desc_a%get_global_rows()
@ -87,16 +87,16 @@ function psb_camax(x,desc_a, info, jx) result(res)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -112,13 +112,8 @@ function psb_camax(x,desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_camax end function psb_camax
@ -206,16 +201,16 @@ function psb_camaxv (x,desc_a, info) result(res)
call psb_chkvect(m,ione,ldx,ix,jx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,jx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -231,13 +226,8 @@ function psb_camaxv (x,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_camaxv end function psb_camaxv
@ -312,13 +302,8 @@ function psb_camax_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_camax_vect end function psb_camax_vect
@ -407,16 +392,16 @@ subroutine psb_camaxvs(res,x,desc_a, info)
ldx=size(x,1) ldx=size(x,1)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -432,13 +417,8 @@ subroutine psb_camaxvs(res,x,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_camaxvs end subroutine psb_camaxvs
@ -518,9 +498,9 @@ subroutine psb_cmamaxs(res,x,desc_a, info,jx)
ix = 1 ix = 1
if (present(jx)) then if (present(jx)) then
ijx = jx ijx = jx
else else
ijx = 1 ijx = 1
endif endif
m = desc_a%get_global_rows() m = desc_a%get_global_rows()
@ -528,16 +508,16 @@ subroutine psb_cmamaxs(res,x,desc_a, info,jx)
ldx = size(x,1) ldx = size(x,1)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
res(1:k) = szero res(1:k) = szero
@ -554,12 +534,7 @@ subroutine psb_cmamaxs(res,x,desc_a, info,jx)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cmamaxs end subroutine psb_cmamaxs

28
base/psblas/psb_casum.f90
Unescape Escape View File

@ -119,13 +119,8 @@ function psb_casum (x,desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_casum end function psb_casum
@ -197,13 +192,8 @@ function psb_casum_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_casum_vect end function psb_casum_vect
@ -322,13 +312,8 @@ function psb_casumv(x,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_casumv end function psb_casumv
@ -447,12 +432,7 @@ subroutine psb_casumvs(res,x,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_casumvs end subroutine psb_casumvs

21
base/psblas/psb_caxpby.f90
Unescape Escape View File

@ -105,13 +105,8 @@ subroutine psb_caxpby_vect(alpha, x, beta, y,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_caxpby_vect end subroutine psb_caxpby_vect
@ -229,13 +224,8 @@ subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_caxpby end subroutine psb_caxpby
@ -356,12 +346,7 @@ subroutine psb_caxpbyv(alpha, x, beta,y,desc_a,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_caxpbyv end subroutine psb_caxpbyv

35
base/psblas/psb_cdot.f90
Unescape Escape View File

@ -137,13 +137,8 @@ function psb_cdot_vect(x, y, desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_cdot_vect end function psb_cdot_vect
@ -238,13 +233,8 @@ function psb_cdot(x, y,desc_a, info, jx, jy) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_cdot end function psb_cdot
@ -368,13 +358,8 @@ function psb_cdotv(x, y,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_cdotv end function psb_cdotv
@ -495,13 +480,8 @@ subroutine psb_cdotvs(res, x, y,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cdotvs end subroutine psb_cdotvs
@ -636,12 +616,7 @@ subroutine psb_cmdots(res, x, y, desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cmdots end subroutine psb_cmdots

28
base/psblas/psb_cnrm2.f90
Unescape Escape View File

@ -119,13 +119,8 @@ function psb_cnrm2(x, desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_cnrm2 end function psb_cnrm2
@ -244,13 +239,8 @@ function psb_cnrm2v(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_cnrm2v end function psb_cnrm2v
@ -333,13 +323,8 @@ function psb_cnrm2_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_cnrm2_vect end function psb_cnrm2_vect
@ -460,12 +445,7 @@ subroutine psb_cnrm2vs(res, x, desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cnrm2vs end subroutine psb_cnrm2vs

7
base/psblas/psb_cnrmi.f90
Unescape Escape View File

@ -106,12 +106,7 @@ function psb_cnrmi(a,desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_cnrmi end function psb_cnrmi

21
base/psblas/psb_cspmm.f90
Unescape Escape View File

@ -348,13 +348,8 @@ subroutine psb_cspmm(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cspmm end subroutine psb_cspmm
@ -664,13 +659,8 @@ subroutine psb_cspmv(alpha,a,x,beta,y,desc_a,info,&
endif endif
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cspmv end subroutine psb_cspmv
@ -877,12 +867,7 @@ subroutine psb_cspmv_vect(alpha,a,x,beta,y,desc_a,info,&
endif endif
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cspmv_vect end subroutine psb_cspmv_vect

7
base/psblas/psb_cspnrm1.f90
Unescape Escape View File

@ -124,12 +124,7 @@ function psb_cspnrm1(a,desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_cspnrm1 end function psb_cspnrm1

21
base/psblas/psb_cspsm.f90
Unescape Escape View File

@ -276,13 +276,8 @@ subroutine psb_cspsm(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cspsm end subroutine psb_cspsm
@ -539,13 +534,8 @@ subroutine psb_cspsv(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cspsv end subroutine psb_cspsv
@ -705,13 +695,8 @@ subroutine psb_cspsv_vect(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_cspsv_vect end subroutine psb_cspsv_vect

99
base/psblas/psb_damax.f90
Unescape Escape View File

@ -77,9 +77,9 @@ function psb_damax(x,desc_a, info, jx) result(res)
ix = 1 ix = 1
if (present(jx)) then if (present(jx)) then
ijx = jx ijx = jx
else else
ijx = 1 ijx = 1
endif endif
m = desc_a%get_global_rows() m = desc_a%get_global_rows()
@ -87,16 +87,16 @@ function psb_damax(x,desc_a, info, jx) result(res)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -112,13 +112,8 @@ function psb_damax(x,desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_damax end function psb_damax
@ -206,16 +201,16 @@ function psb_damaxv (x,desc_a, info) result(res)
call psb_chkvect(m,ione,ldx,ix,jx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,jx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -231,13 +226,8 @@ function psb_damaxv (x,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_damaxv end function psb_damaxv
@ -312,13 +302,8 @@ function psb_damax_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_damax_vect end function psb_damax_vect
@ -407,16 +392,16 @@ subroutine psb_damaxvs(res,x,desc_a, info)
ldx=size(x,1) ldx=size(x,1)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -432,13 +417,8 @@ subroutine psb_damaxvs(res,x,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_damaxvs end subroutine psb_damaxvs
@ -518,9 +498,9 @@ subroutine psb_dmamaxs(res,x,desc_a, info,jx)
ix = 1 ix = 1
if (present(jx)) then if (present(jx)) then
ijx = jx ijx = jx
else else
ijx = 1 ijx = 1
endif endif
m = desc_a%get_global_rows() m = desc_a%get_global_rows()
@ -528,16 +508,16 @@ subroutine psb_dmamaxs(res,x,desc_a, info,jx)
ldx = size(x,1) ldx = size(x,1)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
res(1:k) = dzero res(1:k) = dzero
@ -554,12 +534,7 @@ subroutine psb_dmamaxs(res,x,desc_a, info,jx)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dmamaxs end subroutine psb_dmamaxs

28
base/psblas/psb_dasum.f90
Unescape Escape View File

@ -119,13 +119,8 @@ function psb_dasum (x,desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_dasum end function psb_dasum
@ -197,13 +192,8 @@ function psb_dasum_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_dasum_vect end function psb_dasum_vect
@ -322,13 +312,8 @@ function psb_dasumv(x,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_dasumv end function psb_dasumv
@ -447,12 +432,7 @@ subroutine psb_dasumvs(res,x,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dasumvs end subroutine psb_dasumvs

21
base/psblas/psb_daxpby.f90
Unescape Escape View File

@ -105,13 +105,8 @@ subroutine psb_daxpby_vect(alpha, x, beta, y,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_daxpby_vect end subroutine psb_daxpby_vect
@ -229,13 +224,8 @@ subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_daxpby end subroutine psb_daxpby
@ -356,12 +346,7 @@ subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_daxpbyv end subroutine psb_daxpbyv

35
base/psblas/psb_ddot.f90
Unescape Escape View File

@ -137,13 +137,8 @@ function psb_ddot_vect(x, y, desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_ddot_vect end function psb_ddot_vect
@ -238,13 +233,8 @@ function psb_ddot(x, y,desc_a, info, jx, jy) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_ddot end function psb_ddot
@ -368,13 +358,8 @@ function psb_ddotv(x, y,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_ddotv end function psb_ddotv
@ -495,13 +480,8 @@ subroutine psb_ddotvs(res, x, y,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_ddotvs end subroutine psb_ddotvs
@ -636,12 +616,7 @@ subroutine psb_dmdots(res, x, y, desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dmdots end subroutine psb_dmdots

28
base/psblas/psb_dnrm2.f90
Unescape Escape View File

@ -119,13 +119,8 @@ function psb_dnrm2(x, desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_dnrm2 end function psb_dnrm2
@ -244,13 +239,8 @@ function psb_dnrm2v(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_dnrm2v end function psb_dnrm2v
@ -333,13 +323,8 @@ function psb_dnrm2_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_dnrm2_vect end function psb_dnrm2_vect
@ -460,12 +445,7 @@ subroutine psb_dnrm2vs(res, x, desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dnrm2vs end subroutine psb_dnrm2vs

7
base/psblas/psb_dnrmi.f90
Unescape Escape View File

@ -106,12 +106,7 @@ function psb_dnrmi(a,desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_dnrmi end function psb_dnrmi

21
base/psblas/psb_dspmm.f90
Unescape Escape View File

@ -348,13 +348,8 @@ subroutine psb_dspmm(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dspmm end subroutine psb_dspmm
@ -664,13 +659,8 @@ subroutine psb_dspmv(alpha,a,x,beta,y,desc_a,info,&
endif endif
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dspmv end subroutine psb_dspmv
@ -877,12 +867,7 @@ subroutine psb_dspmv_vect(alpha,a,x,beta,y,desc_a,info,&
endif endif
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dspmv_vect end subroutine psb_dspmv_vect

7
base/psblas/psb_dspnrm1.f90
Unescape Escape View File

@ -124,12 +124,7 @@ function psb_dspnrm1(a,desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_dspnrm1 end function psb_dspnrm1

21
base/psblas/psb_dspsm.f90
Unescape Escape View File

@ -276,13 +276,8 @@ subroutine psb_dspsm(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dspsm end subroutine psb_dspsm
@ -539,13 +534,8 @@ subroutine psb_dspsv(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dspsv end subroutine psb_dspsv
@ -705,13 +695,8 @@ subroutine psb_dspsv_vect(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_dspsv_vect end subroutine psb_dspsv_vect

99
base/psblas/psb_samax.f90
Unescape Escape View File

@ -77,9 +77,9 @@ function psb_samax(x,desc_a, info, jx) result(res)
ix = 1 ix = 1
if (present(jx)) then if (present(jx)) then
ijx = jx ijx = jx
else else
ijx = 1 ijx = 1
endif endif
m = desc_a%get_global_rows() m = desc_a%get_global_rows()
@ -87,16 +87,16 @@ function psb_samax(x,desc_a, info, jx) result(res)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -112,13 +112,8 @@ function psb_samax(x,desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_samax end function psb_samax
@ -206,16 +201,16 @@ function psb_samaxv (x,desc_a, info) result(res)
call psb_chkvect(m,ione,ldx,ix,jx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,jx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -231,13 +226,8 @@ function psb_samaxv (x,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_samaxv end function psb_samaxv
@ -312,13 +302,8 @@ function psb_samax_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_samax_vect end function psb_samax_vect
@ -407,16 +392,16 @@ subroutine psb_samaxvs(res,x,desc_a, info)
ldx=size(x,1) ldx=size(x,1)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -432,13 +417,8 @@ subroutine psb_samaxvs(res,x,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_samaxvs end subroutine psb_samaxvs
@ -518,9 +498,9 @@ subroutine psb_smamaxs(res,x,desc_a, info,jx)
ix = 1 ix = 1
if (present(jx)) then if (present(jx)) then
ijx = jx ijx = jx
else else
ijx = 1 ijx = 1
endif endif
m = desc_a%get_global_rows() m = desc_a%get_global_rows()
@ -528,16 +508,16 @@ subroutine psb_smamaxs(res,x,desc_a, info,jx)
ldx = size(x,1) ldx = size(x,1)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
res(1:k) = szero res(1:k) = szero
@ -554,12 +534,7 @@ subroutine psb_smamaxs(res,x,desc_a, info,jx)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_smamaxs end subroutine psb_smamaxs

28
base/psblas/psb_sasum.f90
Unescape Escape View File

@ -119,13 +119,8 @@ function psb_sasum (x,desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_sasum end function psb_sasum
@ -197,13 +192,8 @@ function psb_sasum_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_sasum_vect end function psb_sasum_vect
@ -322,13 +312,8 @@ function psb_sasumv(x,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_sasumv end function psb_sasumv
@ -447,12 +432,7 @@ subroutine psb_sasumvs(res,x,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_sasumvs end subroutine psb_sasumvs

21
base/psblas/psb_saxpby.f90
Unescape Escape View File

@ -105,13 +105,8 @@ subroutine psb_saxpby_vect(alpha, x, beta, y,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_saxpby_vect end subroutine psb_saxpby_vect
@ -229,13 +224,8 @@ subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_saxpby end subroutine psb_saxpby
@ -356,12 +346,7 @@ subroutine psb_saxpbyv(alpha, x, beta,y,desc_a,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_saxpbyv end subroutine psb_saxpbyv

35
base/psblas/psb_sdot.f90
Unescape Escape View File

@ -137,13 +137,8 @@ function psb_sdot_vect(x, y, desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_sdot_vect end function psb_sdot_vect
@ -238,13 +233,8 @@ function psb_sdot(x, y,desc_a, info, jx, jy) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_sdot end function psb_sdot
@ -368,13 +358,8 @@ function psb_sdotv(x, y,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_sdotv end function psb_sdotv
@ -495,13 +480,8 @@ subroutine psb_sdotvs(res, x, y,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_sdotvs end subroutine psb_sdotvs
@ -636,12 +616,7 @@ subroutine psb_smdots(res, x, y, desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_smdots end subroutine psb_smdots

28
base/psblas/psb_snrm2.f90
Unescape Escape View File

@ -119,13 +119,8 @@ function psb_snrm2(x, desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_snrm2 end function psb_snrm2
@ -244,13 +239,8 @@ function psb_snrm2v(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_snrm2v end function psb_snrm2v
@ -333,13 +323,8 @@ function psb_snrm2_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_snrm2_vect end function psb_snrm2_vect
@ -460,12 +445,7 @@ subroutine psb_snrm2vs(res, x, desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_snrm2vs end subroutine psb_snrm2vs

7
base/psblas/psb_snrmi.f90
Unescape Escape View File

@ -106,12 +106,7 @@ function psb_snrmi(a,desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_snrmi end function psb_snrmi

21
base/psblas/psb_sspmm.f90
Unescape Escape View File

@ -348,13 +348,8 @@ subroutine psb_sspmm(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_sspmm end subroutine psb_sspmm
@ -664,13 +659,8 @@ subroutine psb_sspmv(alpha,a,x,beta,y,desc_a,info,&
endif endif
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_sspmv end subroutine psb_sspmv
@ -877,12 +867,7 @@ subroutine psb_sspmv_vect(alpha,a,x,beta,y,desc_a,info,&
endif endif
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_sspmv_vect end subroutine psb_sspmv_vect

7
base/psblas/psb_sspnrm1.f90
Unescape Escape View File

@ -124,12 +124,7 @@ function psb_sspnrm1(a,desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_sspnrm1 end function psb_sspnrm1

21
base/psblas/psb_sspsm.f90
Unescape Escape View File

@ -276,13 +276,8 @@ subroutine psb_sspsm(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_sspsm end subroutine psb_sspsm
@ -539,13 +534,8 @@ subroutine psb_sspsv(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_sspsv end subroutine psb_sspsv
@ -705,13 +695,8 @@ subroutine psb_sspsv_vect(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_sspsv_vect end subroutine psb_sspsv_vect

99
base/psblas/psb_zamax.f90
Unescape Escape View File

@ -77,9 +77,9 @@ function psb_zamax(x,desc_a, info, jx) result(res)
ix = 1 ix = 1
if (present(jx)) then if (present(jx)) then
ijx = jx ijx = jx
else else
ijx = 1 ijx = 1
endif endif
m = desc_a%get_global_rows() m = desc_a%get_global_rows()
@ -87,16 +87,16 @@ function psb_zamax(x,desc_a, info, jx) result(res)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -112,13 +112,8 @@ function psb_zamax(x,desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zamax end function psb_zamax
@ -206,16 +201,16 @@ function psb_zamaxv (x,desc_a, info) result(res)
call psb_chkvect(m,ione,ldx,ix,jx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,jx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -231,13 +226,8 @@ function psb_zamaxv (x,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zamaxv end function psb_zamaxv
@ -312,13 +302,8 @@ function psb_zamax_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zamax_vect end function psb_zamax_vect
@ -407,16 +392,16 @@ subroutine psb_zamaxvs(res,x,desc_a, info)
ldx=size(x,1) ldx=size(x,1)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
! compute local max ! compute local max
@ -432,13 +417,8 @@ subroutine psb_zamaxvs(res,x,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zamaxvs end subroutine psb_zamaxvs
@ -518,9 +498,9 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx)
ix = 1 ix = 1
if (present(jx)) then if (present(jx)) then
ijx = jx ijx = jx
else else
ijx = 1 ijx = 1
endif endif
m = desc_a%get_global_rows() m = desc_a%get_global_rows()
@ -528,16 +508,16 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx)
ldx = size(x,1) ldx = size(x,1)
call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx) call psb_chkvect(m,ione,ldx,ix,ijx,desc_a,info,iix,jjx)
if(info /= psb_success_) then if(info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
ch_err='psb_chkvect' ch_err='psb_chkvect'
call psb_errpush(info,name,a_err=ch_err) call psb_errpush(info,name,a_err=ch_err)
goto 9999 goto 9999
end if end if
if (iix /= 1) then if (iix /= 1) then
info=psb_err_ix_n1_iy_n1_unsupported_ info=psb_err_ix_n1_iy_n1_unsupported_
call psb_errpush(info,name) call psb_errpush(info,name)
goto 9999 goto 9999
end if end if
res(1:k) = dzero res(1:k) = dzero
@ -554,12 +534,7 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zmamaxs end subroutine psb_zmamaxs

28
base/psblas/psb_zasum.f90
Unescape Escape View File

@ -119,13 +119,8 @@ function psb_zasum (x,desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zasum end function psb_zasum
@ -197,13 +192,8 @@ function psb_zasum_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zasum_vect end function psb_zasum_vect
@ -322,13 +312,8 @@ function psb_zasumv(x,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zasumv end function psb_zasumv
@ -447,12 +432,7 @@ subroutine psb_zasumvs(res,x,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zasumvs end subroutine psb_zasumvs

21
base/psblas/psb_zaxpby.f90
Unescape Escape View File

@ -105,13 +105,8 @@ subroutine psb_zaxpby_vect(alpha, x, beta, y,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zaxpby_vect end subroutine psb_zaxpby_vect
@ -229,13 +224,8 @@ subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zaxpby end subroutine psb_zaxpby
@ -356,12 +346,7 @@ subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zaxpbyv end subroutine psb_zaxpbyv

35
base/psblas/psb_zdot.f90
Unescape Escape View File

@ -137,13 +137,8 @@ function psb_zdot_vect(x, y, desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zdot_vect end function psb_zdot_vect
@ -238,13 +233,8 @@ function psb_zdot(x, y,desc_a, info, jx, jy) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zdot end function psb_zdot
@ -368,13 +358,8 @@ function psb_zdotv(x, y,desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zdotv end function psb_zdotv
@ -495,13 +480,8 @@ subroutine psb_zdotvs(res, x, y,desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zdotvs end subroutine psb_zdotvs
@ -636,12 +616,7 @@ subroutine psb_zmdots(res, x, y, desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zmdots end subroutine psb_zmdots

28
base/psblas/psb_znrm2.f90
Unescape Escape View File

@ -119,13 +119,8 @@ function psb_znrm2(x, desc_a, info, jx) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_znrm2 end function psb_znrm2
@ -244,13 +239,8 @@ function psb_znrm2v(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_znrm2v end function psb_znrm2v
@ -333,13 +323,8 @@ function psb_znrm2_vect(x, desc_a, info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_znrm2_vect end function psb_znrm2_vect
@ -460,12 +445,7 @@ subroutine psb_znrm2vs(res, x, desc_a, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_znrm2vs end subroutine psb_znrm2vs

7
base/psblas/psb_znrmi.f90
Unescape Escape View File

@ -106,12 +106,7 @@ function psb_znrmi(a,desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_znrmi end function psb_znrmi

21
base/psblas/psb_zspmm.f90
Unescape Escape View File

@ -348,13 +348,8 @@ subroutine psb_zspmm(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zspmm end subroutine psb_zspmm
@ -664,13 +659,8 @@ subroutine psb_zspmv(alpha,a,x,beta,y,desc_a,info,&
endif endif
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zspmv end subroutine psb_zspmv
@ -877,12 +867,7 @@ subroutine psb_zspmv_vect(alpha,a,x,beta,y,desc_a,info,&
endif endif
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zspmv_vect end subroutine psb_zspmv_vect

7
base/psblas/psb_zspnrm1.f90
Unescape Escape View File

@ -124,12 +124,7 @@ function psb_zspnrm1(a,desc_a,info) result(res)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end function psb_zspnrm1 end function psb_zspnrm1

21
base/psblas/psb_zspsm.f90
Unescape Escape View File

@ -276,13 +276,8 @@ subroutine psb_zspsm(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zspsm end subroutine psb_zspsm
@ -539,13 +534,8 @@ subroutine psb_zspsv(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zspsv end subroutine psb_zspsv
@ -705,13 +695,8 @@ subroutine psb_zspsv_vect(alpha,a,x,beta,y,desc_a,info,&
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(ictxt,err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error(ictxt)
return
end if
return return
end subroutine psb_zspsv_vect end subroutine psb_zspsv_vect

Write Preview
Loading…
Cancel
Save