From 1797b931dd30e7fffea34c0187b5cb933e72ff4c Mon Sep 17 00:00:00 2001 From: Alfredo Buttari Date: Wed, 7 Sep 2005 16:07:37 +0000 Subject: [PATCH] constants added --- src/modules/psb_const_mod.f90 | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/modules/psb_const_mod.f90 b/src/modules/psb_const_mod.f90 index 3b14144d..ae3f36c4 100644 --- a/src/modules/psb_const_mod.f90 +++ b/src/modules/psb_const_mod.f90 @@ -15,6 +15,7 @@ module psb_const_mod integer, parameter :: psb_n_row_=4, psb_n_col_=5,psb_ctxt_=6 integer, parameter :: psb_loc_to_glob_=7, psb_mpi_c_=9,psb_mdata_size_=10 integer, parameter :: psb_desc_asb_=3099, psb_desc_bld_=psb_desc_asb_+1 + integer, parameter :: psb_desc_repl_=3199 integer, parameter :: psb_desc_upd_=psb_desc_bld_+1, psb_desc_upd_asb_=psb_desc_upd_+1 integer, parameter :: psb_upd_glb_=998, psb_upd_loc_=997 integer, parameter :: psb_proc_id_=0, psb_n_elem_recv_=1 @@ -24,8 +25,13 @@ module psb_const_mod integer, parameter :: psb_nnz_=1 integer, parameter :: psb_no_comm_=-1 integer, parameter :: ione=1, done=1.d0, izero=0, dzero=0.d0 - integer, parameter :: itwo=2, ithree=3, root=0 + integer, parameter :: itwo=2, ithree=3, psb_root_=0 integer, parameter :: psb_nztotreq_=1, psb_nzrowreq_=2, psb_nzsizereq_=3 + integer, parameter :: psb_del_bnd_=6, psb_srtd_=7 + integer, parameter :: psb_state_=8, psb_upd_=9 + integer, parameter :: psb_upd_pnt_=10, psb_ifasize_=10 + integer, parameter :: psb_spmat_null_=0, psb_spmat_bld_=1 + integer, parameter :: psb_spmat_asb_=2, psb_spmat_upd_=4 real(kind(1.d0)), parameter :: psb_colrow_=0.33