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/serial/psb_cgelp.f90
 base/serial/psb_dgelp.f90
 base/serial/psb_sgelp.f90
 base/serial/psb_sort_impl.f90
 base/serial/psb_zgelp.f90
 base/serial/psi_serial_impl.f90

New error handling.
psblas3-accel
Salvatore Filippone 10 years ago
parent 9112285d99
commit f343a60819
6 changed files with 101 additions and 199 deletions
Show Stats Download Patch File Download Diff File

16
base/serial/psb_cgelp.f90
Unescape Escape View File

@ -117,14 +117,8 @@ subroutine psb_cgelp(trans,iperm,x,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_ret_) then
return
else
call psb_error()
end if
return return
end subroutine psb_cgelp end subroutine psb_cgelp
@ -244,14 +238,8 @@ subroutine psb_cgelpv(trans,iperm,x,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_ret_) then
return
else
call psb_error()
end if
return return
end subroutine psb_cgelpv end subroutine psb_cgelpv

16
base/serial/psb_dgelp.f90
Unescape Escape View File

@ -117,14 +117,8 @@ subroutine psb_dgelp(trans,iperm,x,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_ret_) then
return
else
call psb_error()
end if
return return
end subroutine psb_dgelp end subroutine psb_dgelp
@ -244,14 +238,8 @@ subroutine psb_dgelpv(trans,iperm,x,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_ret_) then
return
else
call psb_error()
end if
return return
end subroutine psb_dgelpv end subroutine psb_dgelpv

16
base/serial/psb_sgelp.f90
Unescape Escape View File

@ -117,14 +117,8 @@ subroutine psb_sgelp(trans,iperm,x,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_ret_) then
return
else
call psb_error(ictxt)
end if
return return
end subroutine psb_sgelp end subroutine psb_sgelp
@ -245,14 +239,8 @@ subroutine psb_sgelpv(trans,iperm,x,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_ret_) then
return
else
call psb_error(ictxt)
end if
return return
end subroutine psb_sgelpv end subroutine psb_sgelpv

128
base/serial/psb_sort_impl.f90
Unescape Escape View File

@ -243,11 +243,11 @@ subroutine imsort(x,ix,dir,flag)
call imsr(n,x,dir_) call imsr(n,x,dir_)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine imsort end subroutine imsort
@ -308,11 +308,11 @@ subroutine smsort(x,ix,dir,flag)
call smsr(n,x,dir_) call smsr(n,x,dir_)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine smsort end subroutine smsort
subroutine dmsort(x,ix,dir,flag) subroutine dmsort(x,ix,dir,flag)
@ -372,11 +372,11 @@ subroutine dmsort(x,ix,dir,flag)
call dmsr(n,x,dir_) call dmsr(n,x,dir_)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine dmsort end subroutine dmsort
subroutine camsort(x,ix,dir,flag) subroutine camsort(x,ix,dir,flag)
@ -436,11 +436,11 @@ subroutine camsort(x,ix,dir,flag)
call camsr(n,x,dir_) call camsr(n,x,dir_)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine camsort end subroutine camsort
subroutine zamsort(x,ix,dir,flag) subroutine zamsort(x,ix,dir,flag)
@ -500,11 +500,11 @@ subroutine zamsort(x,ix,dir,flag)
call zamsr(n,x,dir_) call zamsr(n,x,dir_)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine zamsort end subroutine zamsort
@ -543,11 +543,11 @@ subroutine imsort_u(x,nout,dir)
call imsru(n,x,dir_,nout) call imsru(n,x,dir_,nout)
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine imsort_u end subroutine imsort_u
@ -625,11 +625,11 @@ subroutine iqsort(x,ix,dir,flag)
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine iqsort end subroutine iqsort
@ -707,11 +707,11 @@ subroutine sqsort(x,ix,dir,flag)
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine sqsort end subroutine sqsort
subroutine dqsort(x,ix,dir,flag) subroutine dqsort(x,ix,dir,flag)
@ -788,11 +788,11 @@ subroutine dqsort(x,ix,dir,flag)
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine dqsort end subroutine dqsort
@ -884,11 +884,11 @@ subroutine cqsort(x,ix,dir,flag)
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine cqsort end subroutine cqsort
@ -980,11 +980,11 @@ subroutine zqsort(x,ix,dir,flag)
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine zqsort end subroutine zqsort
@ -1095,11 +1095,11 @@ subroutine ihsort(x,ix,dir,flag)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine ihsort end subroutine ihsort
@ -1208,11 +1208,11 @@ subroutine shsort(x,ix,dir,flag)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine shsort end subroutine shsort
@ -1321,11 +1321,11 @@ subroutine dhsort(x,ix,dir,flag)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine dhsort end subroutine dhsort
@ -1434,11 +1434,11 @@ subroutine chsort(x,ix,dir,flag)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine chsort end subroutine chsort
@ -1547,11 +1547,11 @@ subroutine zhsort(x,ix,dir,flag)
end if end if
9999 continue
if (err_act == psb_act_abort_) then
call psb_error()
return return
end if
9999 call psb_error_handler(err_act)
return
end subroutine zhsort end subroutine zhsort

16
base/serial/psb_zgelp.f90
Unescape Escape View File

@ -117,14 +117,8 @@ subroutine psb_zgelp(trans,iperm,x,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_ret_) then
return
else
call psb_error()
end if
return return
end subroutine psb_zgelp end subroutine psb_zgelp
@ -244,14 +238,8 @@ subroutine psb_zgelpv(trans,iperm,x,info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_ret_) then
return
else
call psb_error()
end if
return return
end subroutine psb_zgelpv end subroutine psb_zgelpv

70
base/serial/psi_serial_impl.f90
Unescape Escape View File

@ -891,13 +891,8 @@ subroutine psi_iaxpbyv(m,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_iaxpbyv end subroutine psi_iaxpbyv
@ -952,13 +947,8 @@ subroutine psi_iaxpby(m,n,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_iaxpby end subroutine psi_iaxpby
@ -1009,13 +999,8 @@ subroutine psi_saxpbyv(m,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_saxpbyv end subroutine psi_saxpbyv
@ -1070,13 +1055,8 @@ subroutine psi_saxpby(m,n,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_saxpby end subroutine psi_saxpby
@ -1126,13 +1106,8 @@ subroutine psi_daxpbyv(m,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_daxpbyv end subroutine psi_daxpbyv
@ -1187,13 +1162,8 @@ subroutine psi_daxpby(m,n,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_daxpby end subroutine psi_daxpby
@ -1242,13 +1212,8 @@ subroutine psi_caxpbyv(m,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_caxpbyv end subroutine psi_caxpbyv
@ -1303,13 +1268,8 @@ subroutine psi_caxpby(m,n,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_caxpby end subroutine psi_caxpby
@ -1358,13 +1318,8 @@ subroutine psi_zaxpbyv(m,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_zaxpbyv end subroutine psi_zaxpbyv
@ -1419,13 +1374,8 @@ subroutine psi_zaxpby(m,n,alpha, x, beta, y, info)
call psb_erractionrestore(err_act) call psb_erractionrestore(err_act)
return return
9999 continue 9999 call psb_error_handler(err_act)
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
return return
end subroutine psi_zaxpby end subroutine psi_zaxpby

Write Preview
Loading…
Cancel
Save