1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
*** ./TIMING/EIG/stimee.f~ Fri Nov 18 19:49:14 1994
--- ./TIMING/EIG/stimee.f Tue Jul 4 19:24:06 1995
***************
*** 243,250 ****
INTEGER LIWRK2
PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
INTEGER LWORK
! PARAMETER ( LWORK = MAX( MAXN*( 4*MAXN+2 ),
! $ 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) )
INTEGER MAXIN, MAXPRM, MAXT, MAXSUB
PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10,
$ MAXSUB = 20 )
--- 243,249 ----
INTEGER LIWRK2
PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
INTEGER LWORK
! PARAMETER ( LWORK = MAXN*( 4*MAXN+2 ))
INTEGER MAXIN, MAXPRM, MAXT, MAXSUB
PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10,
$ MAXSUB = 20 )
*** ./TIMING/EIG/ctimee.f~ Fri Nov 18 19:49:34 1994
--- ./TIMING/EIG/ctimee.f Tue Jul 4 22:37:16 1995
***************
*** 262,275 ****
INTEGER LIWRK2
PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
INTEGER LWORK
! PARAMETER ( LWORK = MAX( MAXN*( 4*MAXN+2 ),
! $ 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) )
INTEGER MAXIN, MAXPRM, MAXT, MAXSUB
PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10,
$ MAXSUB = 20 )
INTEGER LRWORK
! PARAMETER ( LRWORK = MAX( MAXIN*MAXT*MAXPRM,
! $ 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) )
INTEGER NIN, NOUT
PARAMETER ( NIN = 5, NOUT = 6 )
* ..
--- 262,273 ----
INTEGER LIWRK2
PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
INTEGER LWORK
! PARAMETER ( LWORK = MAXN*( 4*MAXN+2 ))
INTEGER MAXIN, MAXPRM, MAXT, MAXSUB
PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10,
$ MAXSUB = 20 )
INTEGER LRWORK
! PARAMETER ( LRWORK = 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 )
INTEGER NIN, NOUT
PARAMETER ( NIN = 5, NOUT = 6 )
* ..
*** ./TIMING/EIG/dtimee.f~ Fri Nov 18 19:49:24 1994
--- ./TIMING/EIG/dtimee.f Tue Jul 4 23:41:44 1995
***************
*** 243,250 ****
INTEGER LIWRK2
PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
INTEGER LWORK
! PARAMETER ( LWORK = MAX( MAXN*( 4*MAXN+2 ),
! $ 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) )
INTEGER MAXIN, MAXPRM, MAXT, MAXSUB
PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10,
$ MAXSUB = 20 )
--- 243,249 ----
INTEGER LIWRK2
PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
INTEGER LWORK
! PARAMETER ( LWORK = MAXN*( 4*MAXN+2 ))
INTEGER MAXIN, MAXPRM, MAXT, MAXSUB
PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10,
$ MAXSUB = 20 )
*** ./TIMING/EIG/ztimee.f~ Fri Nov 18 19:49:43 1994
--- ./TIMING/EIG/ztimee.f Wed Jul 5 00:55:56 1995
***************
*** 262,275 ****
INTEGER LIWRK2
PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
INTEGER LWORK
! PARAMETER ( LWORK = MAX( MAXN*( 4*MAXN+2 ),
! $ 2*LDAMAX+1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) )
INTEGER MAXIN, MAXPRM, MAXT, MAXSUB
PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10,
$ MAXSUB = 20 )
INTEGER LRWORK
! PARAMETER ( LRWORK = MAX( MAXIN*MAXT*MAXPRM,
! $ 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 ) )
INTEGER NIN, NOUT
PARAMETER ( NIN = 5, NOUT = 6 )
* ..
--- 262,273 ----
INTEGER LIWRK2
PARAMETER ( LIWRK2 = 6+6*MAXN+5*MAXN*LG2MXN )
INTEGER LWORK
! PARAMETER ( LWORK = MAXN*( 4*MAXN+2 ))
INTEGER MAXIN, MAXPRM, MAXT, MAXSUB
PARAMETER ( MAXIN = 12, MAXPRM = 10, MAXT = 10,
$ MAXSUB = 20 )
INTEGER LRWORK
! PARAMETER ( LRWORK = 1+3*MAXN+2*MAXN*LG2MXN+3*MAXN**2 )
INTEGER NIN, NOUT
PARAMETER ( NIN = 5, NOUT = 6 )
* ..
|