| @@ -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 .. | ||||