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

Make constants agree with psblas

Browse Source
merge-amgext
Cirdans-Home 4 years ago
parent 4a7631908c
commit f7d8a0d21a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File

5
amgprec/amg_base_ainv_mod.F90
Unescape Escape View File

@ -36,10 +36,11 @@
module amg_base_ainv_mod module amg_base_ainv_mod
use amg_base_prec_type use amg_base_prec_type
use psb_prec_const_mod, only : psb_inv_fillin_, psb_inv_thresh_
integer, parameter :: amg_inv_fillin_ = amg_ifpsz_ + 1 integer, parameter :: amg_inv_fillin_ = psb_inv_fillin_
integer, parameter :: amg_ainv_alg_ = amg_inv_fillin_ + 1 integer, parameter :: amg_ainv_alg_ = amg_inv_fillin_ + 1
integer, parameter :: amg_inv_thresh_ = amg_max_sub_solve_ + 1 integer, parameter :: amg_inv_thresh_ = psb_inv_thresh_
#if 0 #if 0
integer, parameter :: amg_ainv_orth1_ = amg_inv_thresh_ + 1 integer, parameter :: amg_ainv_orth1_ = amg_inv_thresh_ + 1
integer, parameter :: amg_ainv_orth2_ = amg_ainv_orth1_ + 1 integer, parameter :: amg_ainv_orth2_ = amg_ainv_orth1_ + 1

Write Preview
Loading…
Cancel
Save