You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
1018 B
Plaintext
27 lines
1018 B
Plaintext
INTEGER MINJDROWS, MAXJDROWS
|
|
PARAMETER (MINJDROWS=4, MAXJDROWS=8)
|
|
DOUBLE PRECISION PERCENT
|
|
INTEGER DBLEINT_
|
|
INTEGER DCMPLXINT_
|
|
C ... This parameter represent sizeof(DOUBLE)/sizeof(INTEGER) ...
|
|
PARAMETER (PERCENT=0.7,DBLEINT_=2)
|
|
PARAMETER (DCMPLXINT_ = 4)
|
|
character fidef*5
|
|
parameter (fidef='CSR')
|
|
integer, parameter :: nnz_=1
|
|
integer, parameter :: del_bnd_=6, srtd_=7
|
|
integer, parameter :: state_=8, upd_=9
|
|
integer, parameter :: upd_pnt_=10, ifasize_=10
|
|
integer, parameter :: spmat_null=0, spmat_bld=1
|
|
integer, parameter :: spmat_asb=2, spmat_upd=4
|
|
|
|
integer perm_update
|
|
parameter (perm_update=98765)
|
|
integer isrtdcoo
|
|
parameter (isrtdcoo=98764)
|
|
integer ireg_flgs
|
|
parameter (ireg_flgs=10)
|
|
integer ip2_, iflag_, ipc_, ichk_, nnzt_, zero_
|
|
parameter (ip2_=0, iflag_=2, ichk_=3)
|
|
parameter ( nnzt_=4, zero_=5,ipc_=6)
|