psblas3:

base/modules/psb_const_mod.F90 New symbolic names for row/col major order.
11 years ago · 19da10f555
parent eb63bf8c4b
commit 19da10f555
1 changed files with 4 additions and 0 deletions
--- a/base/modules/psb_const_mod.F90
+++ b/base/modules/psb_const_mod.F90
@ -112,6 +112,10 @@ module psb_const_mod
  integer(psb_ipk_), parameter :: psb_ireg_flgs_=10, psb_ip2_=0
  integer(psb_ipk_), parameter :: psb_iflag_=2, psb_ichk_=3
  integer(psb_ipk_), parameter :: psb_nnzt_=4, psb_zero_=5,psb_ipc_=6
+
+  integer(psb_ipk_), parameter :: psb_row_major_ = 0 
+  integer(psb_ipk_), parameter :: psb_col_major_ = 1
+  
  ! Duplicate coefficients handling
  ! These are usually set while calling spcnv as one of its
  ! optional arugments.