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

Fix copy of ictxt in prec%build.

Browse Source
pull/7/head v3.5.0-1
Salvatore Filippone 7 years ago
parent a044889257
commit a628e9c873
16 changed files with 8 additions and 24 deletions
Show Stats Download Patch File Download Diff File

1
prec/impl/psb_c_diagprec_impl.f90
Unescape Escape 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)

1
prec/impl/psb_d_diagprec_impl.f90
Unescape Escape 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)

1
prec/impl/psb_s_diagprec_impl.f90
Unescape Escape 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)

1
prec/impl/psb_z_diagprec_impl.f90
Unescape Escape 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)

1
prec/psb_c_bjacprec.f90
Unescape Escape 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

2
prec/psb_c_diagprec.f90
Unescape Escape 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

4
prec/psb_c_nullprec.f90
Unescape Escape 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

1
prec/psb_d_bjacprec.f90
Unescape Escape 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

2
prec/psb_d_diagprec.f90
Unescape Escape 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

4
prec/psb_d_nullprec.f90
Unescape Escape 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

1
prec/psb_s_bjacprec.f90
Unescape Escape 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

2
prec/psb_s_diagprec.f90
Unescape Escape 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

4
prec/psb_s_nullprec.f90
Unescape Escape 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

1
prec/psb_z_bjacprec.f90
Unescape Escape 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

2
prec/psb_z_diagprec.f90
Unescape Escape 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

4
prec/psb_z_nullprec.f90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save