Home
last modified time | relevance | path

Searched refs:LIWORK (Results 1 – 25 of 1421) sorted by relevance

12345678910>>...57

/dports/math/lapack95/LAPACK95/SRC/
H A Dla_dstevd.f9062 INTEGER :: N, LD, ISTAT1, S1Z, S2Z, LWORK, LIWORK local
82 LWORK = MAX( 1, LWORKN ); LIWORK = MAX( 1, LIWORKN )
85 LIWORK = MAX( 3+5*N, LIWORKV )
87 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
90 IF( LSAME(LJOBZ,'N') )THEN; LWORK = 1; LIWORK = 1
93 LIWORK = 3+5*N; END IF
94 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
100 IWORK, LIWORK, LINFO )
103 IWORK, LIWORK, LINFO )
H A Dla_sstevd.f9062 INTEGER :: N, LD, ISTAT1, S1Z, S2Z, LWORK, LIWORK local
82 LWORK = MAX( 1, LWORKN ); LIWORK = MAX( 1, LIWORKN )
85 LIWORK = MAX( 3+5*N, LIWORKV )
87 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
90 IF( LSAME(LJOBZ,'N') )THEN; LWORK = 1; LIWORK = 1
93 LIWORK = 3+5*N; END IF
94 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
100 IWORK, LIWORK, LINFO )
103 IWORK, LIWORK, LINFO )
H A Dla_chbgvd.f90106 LDAB, LDBB, LWORK, LIWORK, LRWORK, IWORKMIN(1) local
128 LIWORK = -1
134 & IWORKMIN, LIWORK, LINFO )
138 & IWORKMIN, LIWORK, LINFO )
142 LIWORK = IWORKMIN(1)
146 LIWORK =2 * LIWORK + 1
148 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
153 & LIWORK, LINFO )
157 & LIWORK, LINFO )
H A Dla_zhbgvd.f90106 LDAB, LDBB, LWORK, LIWORK, LRWORK, IWORKMIN(1) local
128 LIWORK = -1
134 & IWORKMIN, LIWORK, LINFO )
138 & IWORKMIN, LIWORK, LINFO )
142 LIWORK = IWORKMIN(1)
146 LIWORK =2 * LIWORK + 1
148 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
153 & LIWORK, LINFO )
157 & LIWORK, LINFO )
H A Dla_sspevd.f9083 INTEGER :: N, NN, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LIWORK local
106 LWORK = MAX( 1, 2*N, LWORKN ); LIWORK = MAX( 1, LIWORKN )
109 LIWORK = MAX( 3+5*N, LIWORKV )
111 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
114 IF( LSAME(LJOBZ,'N') )THEN; LWORK = MAX( 1, 2*N ); LIWORK = 1
117 LIWORK = 3+5*N; END IF
118 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
124 IWORK, LIWORK, LINFO )
127 IWORK, LIWORK, LINFO )
H A Dla_dspevd.f9083 INTEGER :: N, NN, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LIWORK local
106 LWORK = MAX( 1, 2*N, LWORKN ); LIWORK = MAX( 1, LIWORKN )
109 LIWORK = MAX( 3+5*N, LIWORKV )
111 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
114 IF( LSAME(LJOBZ,'N') )THEN; LWORK = MAX( 1, 2*N ); LIWORK = 1
117 LIWORK = 3+5*N; END IF
118 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
124 IWORK, LIWORK, LINFO )
127 IWORK, LIWORK, LINFO )
H A Dla_ssbevd.f9088 INTEGER :: N, KD, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LIWORK, LGN local
110 LWORK = MAX( 1, 2*N, LWORKN ); LIWORK = MAX( 1, LIWORKN )
113 LIWORK = MAX( 3+5*N, LIWORKV )
115 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
118 IF( LSAME(LJOBZ,'N') )THEN; LWORK = MAX( 1, 2*N ); LIWORK = 1
119 ELSE; LWORK = 1 + 5*N + 2*N**2; LIWORK = 3+5*N; END IF
120 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
126 IWORK, LIWORK, LINFO )
129 IWORK, LIWORK, LINFO )
H A Dla_dsbevd.f9088 INTEGER :: N, KD, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LIWORK, LGN local
110 LWORK = MAX( 1, 2*N, LWORKN ); LIWORK = MAX( 1, LIWORKN )
113 LIWORK = MAX( 3+5*N, LIWORKV )
115 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
118 IF( LSAME(LJOBZ,'N') )THEN; LWORK = MAX( 1, 2*N ); LIWORK = 1
119 ELSE; LWORK = 1 + 5*N + 2*N**2; LIWORK = 3+5*N; END IF
120 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
126 IWORK, LIWORK, LINFO )
129 IWORK, LIWORK, LINFO )
H A Dla_sggsvd.f90164 INTEGER, POINTER :: LIWORK(:) local
186 LIWORK => IWORK
188 ALLOCATE( LIWORK(MAX(1,N)), STAT=ISTAT )
199 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO )
203 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO )
209 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO )
213 LLV, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO )
221 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO )
225 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO )
231 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO )
[all …]
H A Dla_dggsvd.f90164 INTEGER, POINTER :: LIWORK(:) local
186 LIWORK => IWORK
188 ALLOCATE( LIWORK(MAX(1,N)), STAT=ISTAT )
199 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO )
203 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO )
209 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO )
213 LLV, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO )
221 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO )
225 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, LIWORK, LINFO )
231 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, LIWORK, LINFO )
[all …]
H A Dla_chbevd.f9088 INTEGER :: N, KD, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LRWORK, LIWORK, LGN local
112 LWORK = MAX( 1, N, LWORKN ); LIWORK = MAX( 1, LIWORKN )
117 LIWORK = MAX( 3+5*N, LIWORKV )
119 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
123 LRWORK = MAX(1,N); LIWORK = 1
125 LWORK = MAX(1, 2*N**2); LIWORK = 3+5*N; END IF
126 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
132 RWORK, LRWORK, IWORK, LIWORK, LINFO )
135 RWORK, LRWORK, IWORK, LIWORK, LINFO )
H A Dla_zhbevd.f9088 INTEGER :: N, KD, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LRWORK, LIWORK, LGN local
112 LWORK = MAX( 1, N, LWORKN ); LIWORK = MAX( 1, LIWORKN )
117 LIWORK = MAX( 3+5*N, LIWORKV )
119 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
123 LRWORK = MAX(1,N); LIWORK = 1
125 LWORK = MAX(1, 2*N**2); LIWORK = 3+5*N; END IF
126 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
132 RWORK, LRWORK, IWORK, LIWORK, LINFO )
135 RWORK, LRWORK, IWORK, LIWORK, LINFO )
H A Dla_zggsvd.f90164 INTEGER, POINTER :: LIWORK(:) local
187 LIWORK => IWORK
189 ALLOCATE( LIWORK(MAX(1,N)), STAT=ISTAT )
203 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
207 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
213 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
217 LLV, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
225 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
229 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
235 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
[all …]
H A Dla_cggsvd.f90164 INTEGER, POINTER :: LIWORK(:) local
187 LIWORK => IWORK
189 ALLOCATE( LIWORK(MAX(1,N)), STAT=ISTAT )
203 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
207 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
213 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
217 LLV, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
225 V, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
229 V, MAX(1,S1V), LLQ, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
235 LLV, MAX(1,S1V), Q, MAX(1,S1Q), WORK, RWORK, LIWORK, LINFO )
[all …]
H A Dla_chpevd.f9083 INTEGER :: N, NN, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LRWORK, LIWORK, LGN local
109 LWORK = MAX( 1, N, LWORKN ); LIWORK = MAX( 1, LIWORKN )
114 LIWORK = MAX( 3+5*N, LIWORKV )
117 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
121 LRWORK = MAX(1, 2*N ); LIWORK = 1
122 ELSE; LWORK = MAX( 1, 2*N ); LIWORK = 2+5*N
124 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
130 RWORK, LRWORK, IWORK, LIWORK, LINFO )
133 RWORK, LRWORK, IWORK, LIWORK, LINFO )
H A Dla_zhpevd.f9083 INTEGER :: N, NN, LINFO, LD, ISTAT, ISTAT1, S1Z, S2Z, LWORK, LRWORK, LIWORK, LGN local
109 LWORK = MAX( 1, N, LWORKN ); LIWORK = MAX( 1, LIWORKN )
114 LIWORK = MAX( 3+5*N, LIWORKV )
117 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
121 LRWORK = MAX(1, 2*N ); LIWORK = 1
122 ELSE; LWORK = MAX( 1, 2*N ); LIWORK = 2+5*N
124 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
130 RWORK, LRWORK, IWORK, LIWORK, LINFO )
133 RWORK, LRWORK, IWORK, LIWORK, LINFO )
H A Dla_ssbgvd.f90106 LDAB, LDBB, LWORK, LIWORK, IWORKMIN(1) local
126 LIWORK = -1
130 & LDBB, W, Z, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO )
133 & LDBB, W, LLZ, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO )
136 LIWORK = IWORKMIN(1)
137 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
141 & LDBB, W, Z, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
144 & LDBB, W, LLZ, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
H A Dla_sspgvd.f90107 INTEGER :: LWORK, LIWORK local
133 LIWORK = -1
136 & Z, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO )
139 & LLZ, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO )
142 LIWORK= IWORKMIN(1)
143 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
147 & Z, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
150 & LLZ, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
H A Dla_dsbgvd.f90106 LDAB, LDBB, LWORK, LIWORK, IWORKMIN(1) local
126 LIWORK = -1
130 & LDBB, W, Z, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO )
133 & LDBB, W, LLZ, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO )
136 LIWORK = IWORKMIN(1)
137 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
141 & LDBB, W, Z, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
144 & LDBB, W, LLZ, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
H A Dla_dspgvd.f90107 INTEGER :: LWORK, LIWORK local
133 LIWORK = -1
136 & Z, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO )
139 & LLZ, S1Z, WORKMIN, LWORK, IWORKMIN, LIWORK, LINFO )
142 LIWORK= IWORKMIN(1)
143 ALLOCATE(WORK(LWORK), IWORK(LIWORK), STAT=ISTAT)
147 & Z, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
150 & LLZ, S1Z, WORK, LWORK, IWORK, LIWORK, LINFO )
H A Dla_chpgvd.f90107 INTEGER :: LWORK, LIWORK, LRWORK local
136 LIWORK = -1
140 & LIWORK, LINFO )
144 & LIWORK, LINFO )
149 LIWORK= IWORKMIN(1)
151 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
155 & Z, S1Z, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, &
159 & LLZ, S1Z, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, &
H A Dla_zhpgvd.f90107 INTEGER :: LWORK, LIWORK, LRWORK local
136 LIWORK = -1
140 & LIWORK, LINFO )
144 & LIWORK, LINFO )
149 LIWORK= IWORKMIN(1)
151 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
155 & Z, S1Z, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, &
159 & LLZ, S1Z, WORK, LWORK, RWORK, LRWORK, IWORK, LIWORK, &
H A Dla_cheevd.f9084 INTEGER :: N, LINFO, LD, ISTAT, ISTAT1, LIWORK, LMWORK, LWORK, LRWORK local
119 LIWORK = -1
121 & RWORKMIN, LRWORK, IWORKMIN, LIWORK, LINFO )
124 LIWORK = IWORKMIN(1)
125 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
134 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
145 RWORK, LRWORK, IWORK, LIWORK, LINFO )
H A Dla_zheevd.f9084 INTEGER :: N, LINFO, LD, ISTAT, ISTAT1, LIWORK, LMWORK, LWORK, LRWORK local
119 LIWORK = -1
121 & RWORKMIN, LRWORK, IWORKMIN, LIWORK, LINFO )
124 LIWORK = IWORKMIN(1)
125 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
134 ALLOCATE(WORK(LWORK), RWORK(LRWORK), IWORK(LIWORK), STAT=ISTAT)
145 RWORK, LRWORK, IWORK, LIWORK, LINFO )
/dports/science/nwchem-data/nwchem-7.0.2-release/src/fft/pfft1.0/pfft/
H A Dpfft3d.F35 $ LWORK, WORK, LIWORK, IWORK, INFO )
39 INTEGER ISIGN, N1, N2, N3, LWORK, LIWORK, INFO
40 INTEGER MAP1(N3), MAP2(N2), IWORK(LIWORK)
248 $ LWORK, WORK, LIWORK, IWORK, INFO )
257 $ LWORK, WORK, LIWORK, IWORK, INFO )

12345678910>>...57