increased NMAX to 128
This commit is contained in:
parent
887aed634d
commit
4de7b9ae47
|
@ -120,7 +120,7 @@
|
|||
REAL RZERO
|
||||
PARAMETER ( RZERO = 0.0 )
|
||||
INTEGER NMAX, INCMAX
|
||||
PARAMETER ( NMAX = 65, INCMAX = 2 )
|
||||
PARAMETER ( NMAX = 128, INCMAX = 2 )
|
||||
INTEGER NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX
|
||||
PARAMETER ( NINMAX = 7, NIDMAX = 9, NKBMAX = 7,
|
||||
$ NALMAX = 7, NBEMAX = 7 )
|
||||
|
|
|
@ -102,7 +102,7 @@
|
|||
REAL RZERO
|
||||
PARAMETER ( RZERO = 0.0 )
|
||||
INTEGER NMAX
|
||||
PARAMETER ( NMAX = 65 )
|
||||
PARAMETER ( NMAX = 128 )
|
||||
INTEGER NIDMAX, NALMAX, NBEMAX
|
||||
PARAMETER ( NIDMAX = 9, NALMAX = 7, NBEMAX = 7 )
|
||||
* .. Local Scalars ..
|
||||
|
|
|
@ -117,7 +117,7 @@
|
|||
DOUBLE PRECISION ZERO, ONE
|
||||
PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 )
|
||||
INTEGER NMAX, INCMAX
|
||||
PARAMETER ( NMAX = 65, INCMAX = 2 )
|
||||
PARAMETER ( NMAX = 128, INCMAX = 2 )
|
||||
INTEGER NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX
|
||||
PARAMETER ( NINMAX = 7, NIDMAX = 9, NKBMAX = 7,
|
||||
$ NALMAX = 7, NBEMAX = 7 )
|
||||
|
|
|
@ -97,7 +97,7 @@
|
|||
DOUBLE PRECISION ZERO, ONE
|
||||
PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 )
|
||||
INTEGER NMAX
|
||||
PARAMETER ( NMAX = 65 )
|
||||
PARAMETER ( NMAX = 128 )
|
||||
INTEGER NIDMAX, NALMAX, NBEMAX
|
||||
PARAMETER ( NIDMAX = 9, NALMAX = 7, NBEMAX = 7 )
|
||||
* .. Local Scalars ..
|
||||
|
|
|
@ -117,7 +117,7 @@
|
|||
REAL ZERO, ONE
|
||||
PARAMETER ( ZERO = 0.0, ONE = 1.0 )
|
||||
INTEGER NMAX, INCMAX
|
||||
PARAMETER ( NMAX = 65, INCMAX = 2 )
|
||||
PARAMETER ( NMAX = 128, INCMAX = 2 )
|
||||
INTEGER NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX
|
||||
PARAMETER ( NINMAX = 7, NIDMAX = 9, NKBMAX = 7,
|
||||
$ NALMAX = 7, NBEMAX = 7 )
|
||||
|
|
|
@ -97,7 +97,7 @@
|
|||
REAL ZERO, ONE
|
||||
PARAMETER ( ZERO = 0.0, ONE = 1.0 )
|
||||
INTEGER NMAX
|
||||
PARAMETER ( NMAX = 65 )
|
||||
PARAMETER ( NMAX = 128 )
|
||||
INTEGER NIDMAX, NALMAX, NBEMAX
|
||||
PARAMETER ( NIDMAX = 9, NALMAX = 7, NBEMAX = 7 )
|
||||
* .. Local Scalars ..
|
||||
|
|
|
@ -121,7 +121,7 @@
|
|||
DOUBLE PRECISION RZERO
|
||||
PARAMETER ( RZERO = 0.0D0 )
|
||||
INTEGER NMAX, INCMAX
|
||||
PARAMETER ( NMAX = 65, INCMAX = 2 )
|
||||
PARAMETER ( NMAX = 128, INCMAX = 2 )
|
||||
INTEGER NINMAX, NIDMAX, NKBMAX, NALMAX, NBEMAX
|
||||
PARAMETER ( NINMAX = 7, NIDMAX = 9, NKBMAX = 7,
|
||||
$ NALMAX = 7, NBEMAX = 7 )
|
||||
|
|
|
@ -104,7 +104,7 @@
|
|||
DOUBLE PRECISION RZERO
|
||||
PARAMETER ( RZERO = 0.0D0 )
|
||||
INTEGER NMAX
|
||||
PARAMETER ( NMAX = 65 )
|
||||
PARAMETER ( NMAX = 128 )
|
||||
INTEGER NIDMAX, NALMAX, NBEMAX
|
||||
PARAMETER ( NIDMAX = 9, NALMAX = 7, NBEMAX = 7 )
|
||||
* .. Local Scalars ..
|
||||
|
|
Loading…
Reference in New Issue