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

psblas3:

Browse Source 
util/psb_c_mat_dist_impl.f90
 util/psb_c_renum_impl.F90
 util/psb_d_genpde_impl.f90
 util/psb_d_mat_dist_impl.f90
 util/psb_d_renum_impl.F90
 util/psb_s_genpde_impl.f90
 util/psb_s_mat_dist_impl.f90
 util/psb_s_renum_impl.F90
 util/psb_z_mat_dist_impl.f90
 util/psb_z_renum_impl.F90

New error handling.
psblas3-accel
Salvatore Filippone 10 years ago
parent a94ab3d22f
commit 70b0e9102a
10 changed files with 39 additions and 144 deletions
Show Stats Download Patch File Download Diff File

8
util/psb_c_mat_dist_impl.f90
Unescape Escape View File

@ -450,12 +450,8 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,&
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 cmatdist end subroutine cmatdist

30
util/psb_c_renum_impl.F90
Unescape Escape View File

@ -69,12 +69,7 @@ subroutine psb_c_mat_renums(alg,mat,info,perm)
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 psb_c_mat_renums end subroutine psb_c_mat_renums
@ -142,12 +137,7 @@ subroutine psb_c_mat_renum(alg,mat,info,perm)
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
contains contains
@ -235,13 +225,9 @@ contains
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 psb_mat_renum_gps end subroutine psb_mat_renum_gps
@ -343,13 +329,9 @@ contains
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 psb_mat_renum_amd end subroutine psb_mat_renum_amd
end subroutine psb_c_mat_renum end subroutine psb_c_mat_renum

16
util/psb_d_genpde_impl.f90
Unescape Escape View File

@ -349,12 +349,8 @@ subroutine psb_d_gen_pde3d(ictxt,idim,a,bv,xv,desc_a,afmt,&
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_d_gen_pde3d end subroutine psb_d_gen_pde3d
@ -655,11 +651,7 @@ subroutine psb_d_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,&
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_d_gen_pde2d end subroutine psb_d_gen_pde2d

8
util/psb_d_mat_dist_impl.f90
Unescape Escape View File

@ -452,12 +452,8 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,&
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 dmatdist end subroutine dmatdist

29
util/psb_d_renum_impl.F90
Unescape Escape View File

@ -69,12 +69,7 @@ subroutine psb_d_mat_renums(alg,mat,info,perm)
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 psb_d_mat_renums end subroutine psb_d_mat_renums
@ -142,12 +137,7 @@ subroutine psb_d_mat_renum(alg,mat,info,perm)
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
contains contains
@ -235,13 +225,9 @@ contains
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 psb_mat_renum_gps end subroutine psb_mat_renum_gps
@ -343,12 +329,7 @@ contains
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 psb_mat_renum_amd end subroutine psb_mat_renum_amd

16
util/psb_s_genpde_impl.f90
Unescape Escape View File

@ -334,12 +334,8 @@ subroutine psb_s_gen_pde3d(ictxt,idim,a,bv,xv,desc_a,afmt,&
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_s_gen_pde3d end subroutine psb_s_gen_pde3d
@ -625,11 +621,7 @@ subroutine psb_s_gen_pde2d(ictxt,idim,a,bv,xv,desc_a,afmt,&
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_s_gen_pde2d end subroutine psb_s_gen_pde2d

8
util/psb_s_mat_dist_impl.f90
Unescape Escape View File

@ -450,12 +450,8 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,&
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 smatdist end subroutine smatdist

31
util/psb_s_renum_impl.F90
Unescape Escape View File

@ -69,13 +69,9 @@ subroutine psb_s_mat_renums(alg,mat,info,perm)
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 psb_s_mat_renums end subroutine psb_s_mat_renums
subroutine psb_s_mat_renum(alg,mat,info,perm) subroutine psb_s_mat_renum(alg,mat,info,perm)
@ -142,12 +138,7 @@ subroutine psb_s_mat_renum(alg,mat,info,perm)
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
contains contains
@ -235,13 +226,9 @@ contains
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 psb_mat_renum_gps end subroutine psb_mat_renum_gps
@ -343,13 +330,9 @@ contains
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 psb_mat_renum_amd end subroutine psb_mat_renum_amd
end subroutine psb_s_mat_renum end subroutine psb_s_mat_renum

8
util/psb_z_mat_dist_impl.f90
Unescape Escape View File

@ -450,12 +450,8 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,&
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 zmatdist end subroutine zmatdist

29
util/psb_z_renum_impl.F90
Unescape Escape View File

@ -69,13 +69,9 @@ subroutine psb_z_mat_renums(alg,mat,info,perm)
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 psb_z_mat_renums end subroutine psb_z_mat_renums
subroutine psb_z_mat_renum(alg,mat,info,perm) subroutine psb_z_mat_renum(alg,mat,info,perm)
@ -142,12 +138,7 @@ subroutine psb_z_mat_renum(alg,mat,info,perm)
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
contains contains
@ -235,12 +226,7 @@ contains
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 psb_mat_renum_gps end subroutine psb_mat_renum_gps
@ -343,12 +329,7 @@ contains
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 psb_mat_renum_amd end subroutine psb_mat_renum_amd

Write Preview
Loading…
Cancel
Save