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