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

psblas3:

Browse Source 
base/modules/psb_const_mod.F90

Take out obsolete constants.
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 1d0007fc7d
commit c622e413a2
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File

5
base/modules/psb_const_mod.F90
Unescape Escape View File

@ -106,11 +106,6 @@ module psb_const_mod
integer, parameter :: psb_upd_srch_ = 98764 integer, parameter :: psb_upd_srch_ = 98764
integer, parameter :: psb_upd_perm_ = 98765 integer, parameter :: psb_upd_perm_ = 98765
integer, parameter :: psb_upd_dflt_ = psb_upd_srch_ integer, parameter :: psb_upd_dflt_ = psb_upd_srch_
! Mark a COO matrix with sorted entries.
integer, parameter :: psb_isrtdcoo_ = 98761
integer, parameter :: psb_maxjdrows_=8, psb_minjdrows_=4
integer, parameter :: psb_dbleint_=2
character(len=5) :: psb_fidef_='CSR'
#if defined(HAVE_ISO_FORTRAN_ENV) #if defined(HAVE_ISO_FORTRAN_ENV)
integer, save :: psb_err_unit = error_unit integer, save :: psb_err_unit = error_unit

Write Preview
Loading…
Cancel
Save