fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix copy of ictxt in prec%build.

Browse Source
This commit is contained in:
Salvatore Filippone
2017-11-12 18:05:56 +00:00
parent a044889257
commit a628e9c873
16 changed files with 8 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/impl/psb_c_diagprec_impl.f90
+1
View File
@@ -244,6 +244,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info)
prec/impl/psb_d_diagprec_impl.f90
+1
View File
@@ -244,6 +244,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info)
prec/impl/psb_s_diagprec_impl.f90
+1
View File
@@ -244,6 +244,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info)
prec/impl/psb_z_diagprec_impl.f90
+1
View File
@@ -244,6 +244,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
nrow = desc_a%get_local_rows()
prec%d=a%get_diag(info)
prec/psb_c_bjacprec.f90
-1
View File
@@ -134,7 +134,6 @@ module psb_c_bjacprec
contains
subroutine psb_c_bjac_precdescr(prec,iout,root)
use psb_penv_mod
use psb_penv_mod
use psb_error_mod
implicit none
prec/psb_c_diagprec.f90
-2
View File
@@ -161,8 +161,6 @@ contains
subroutine psb_c_diag_precdescr(prec,iout,root)
use psb_penv_mod
use psb_error_mod
use psb_penv_mod
use psb_error_mod
Implicit None
prec/psb_c_nullprec.f90
+1 -3
View File
@@ -122,7 +122,7 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
call psb_erractionrestore(err_act)
return
@@ -159,8 +159,6 @@ contains
subroutine psb_c_null_precdescr(prec,iout,root)
use psb_penv_mod
use psb_error_mod
use psb_penv_mod
use psb_error_mod
Implicit None
prec/psb_d_bjacprec.f90
-1
View File
@@ -134,7 +134,6 @@ module psb_d_bjacprec
contains
subroutine psb_d_bjac_precdescr(prec,iout,root)
use psb_penv_mod
use psb_penv_mod
use psb_error_mod
implicit none
prec/psb_d_diagprec.f90
-2
View File
@@ -161,8 +161,6 @@ contains
subroutine psb_d_diag_precdescr(prec,iout,root)
use psb_penv_mod
use psb_error_mod
use psb_penv_mod
use psb_error_mod
Implicit None
prec/psb_d_nullprec.f90
+1 -3
View File
@@ -122,7 +122,7 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
call psb_erractionrestore(err_act)
return
@@ -159,8 +159,6 @@ contains
subroutine psb_d_null_precdescr(prec,iout,root)
use psb_penv_mod
use psb_error_mod
use psb_penv_mod
use psb_error_mod
Implicit None
prec/psb_s_bjacprec.f90
-1
View File
@@ -134,7 +134,6 @@ module psb_s_bjacprec
contains
subroutine psb_s_bjac_precdescr(prec,iout,root)
use psb_penv_mod
use psb_penv_mod
use psb_error_mod
implicit none
prec/psb_s_diagprec.f90
-2
View File
@@ -161,8 +161,6 @@ contains
subroutine psb_s_diag_precdescr(prec,iout,root)
use psb_penv_mod
use psb_error_mod
use psb_penv_mod
use psb_error_mod
Implicit None
prec/psb_s_nullprec.f90
+1 -3
View File
@@ -122,7 +122,7 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
call psb_erractionrestore(err_act)
return
@@ -159,8 +159,6 @@ contains
subroutine psb_s_null_precdescr(prec,iout,root)
use psb_penv_mod
use psb_error_mod
use psb_penv_mod
use psb_error_mod
Implicit None
prec/psb_z_bjacprec.f90
-1
View File
@@ -134,7 +134,6 @@ module psb_z_bjacprec
contains
subroutine psb_z_bjac_precdescr(prec,iout,root)
use psb_penv_mod
use psb_penv_mod
use psb_error_mod
implicit none
prec/psb_z_diagprec.f90
-2
View File
@@ -161,8 +161,6 @@ contains
subroutine psb_z_diag_precdescr(prec,iout,root)
use psb_penv_mod
use psb_error_mod
use psb_penv_mod
use psb_error_mod
Implicit None
prec/psb_z_nullprec.f90
+1 -3
View File
@@ -122,7 +122,7 @@ contains
call psb_erractionsave(err_act)
info = psb_success_
call prec%set_ctxt(desc_a%get_ctxt())
call psb_erractionrestore(err_act)
return
@@ -159,8 +159,6 @@ contains
subroutine psb_z_null_precdescr(prec,iout,root)
use psb_penv_mod
use psb_error_mod
use psb_penv_mod
use psb_error_mod
Implicit None