Home
last modified time | relevance | path

Searched refs:N2 (Results 1 – 25 of 3950) sorted by relevance

12345678910>>...158

/dports/science/plumed/plumed2-2.7.2/regtest/crystallization/rt-urea/
H A Dtraj.xyz6 N2 15.150000 14.820000 26.490000
10 N2 23.500000 17.580000 26.170000
14 N2 21.600000 -0.210000 0.350000
18 N2 17.690001 14.350000 22.350000
22 N2 19.930000 20.020000 17.980000
26 N2 5.100000 10.020000 27.629999
30 N2 14.650000 23.730000 13.800000
34 N2 -0.040000 12.900000 16.139999
38 N2 3.980000 11.280000 15.020000
42 N2 16.680000 9.140000 20.920000
[all …]
/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/
H A Dzlqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL ZLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL ZGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL ZGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL ZGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Dclqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL CLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL CLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL CGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL CLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL CGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL CGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Ddlqt05.f126 LWORK = N2*N2*NB
130 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
164 CALL DLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
170 CALL DLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
175 CALL DGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
186 CALL DLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
187 CALL DSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
198 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
207 CALL DGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
218 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
H A Dslqt05.f125 LWORK = N2*N2*NB
129 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
163 CALL SLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
169 CALL SLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
174 CALL SGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
185 CALL SLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
186 CALL SSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
197 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
206 CALL SGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
217 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
/dports/math/blas/lapack-3.10.0/TESTING/LIN/
H A Dclqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL CLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL CLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL CGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL CLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL CGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL CGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Dslqt05.f125 LWORK = N2*N2*NB
129 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
163 CALL SLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
169 CALL SLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
174 CALL SGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
185 CALL SLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
186 CALL SSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
197 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
206 CALL SGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
217 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
H A Dzlqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL ZLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL ZGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL ZGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL ZGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Ddlqt05.f126 LWORK = N2*N2*NB
130 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
164 CALL DLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
170 CALL DLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
175 CALL DGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
186 CALL DLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
187 CALL DSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
198 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
207 CALL DGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
218 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/
H A Dclqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL CLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL CLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL CGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL CLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL CGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL CGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Dzlqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL ZLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL ZGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL ZGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL ZGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Ddlqt05.f126 LWORK = N2*N2*NB
130 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
164 CALL DLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
170 CALL DLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
175 CALL DGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
186 CALL DLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
187 CALL DSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
198 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
207 CALL DGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
218 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
H A Dslqt05.f125 LWORK = N2*N2*NB
129 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
163 CALL SLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
169 CALL SLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
174 CALL SGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
185 CALL SLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
186 CALL SSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
197 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
206 CALL SGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
217 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/
H A Ddlqt05.f126 LWORK = N2*N2*NB
130 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
164 CALL DLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
170 CALL DLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
175 CALL DGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
186 CALL DLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
187 CALL DSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
198 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
207 CALL DGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
218 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
H A Dslqt05.f125 LWORK = N2*N2*NB
129 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
163 CALL SLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
169 CALL SLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
174 CALL SGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
185 CALL SLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
186 CALL SSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
197 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
206 CALL SGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
217 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
H A Dzlqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL ZLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL ZGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL ZGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL ZGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Dclqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL CLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL CLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL CGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL CLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL CGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL CGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/
H A Ddlqt05.f129 LWORK = N2*N2*NB
133 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
167 CALL DLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
173 CALL DLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
178 CALL DGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
189 CALL DLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
190 CALL DSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
201 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL DGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
H A Dslqt05.f122 LWORK = N2*N2*NB
126 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
160 CALL SLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
166 CALL SLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
171 CALL SGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
182 CALL SLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
183 CALL SSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
194 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
203 CALL SGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
214 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
H A Dzlqt05.f131 LWORK = N2*N2*NB
135 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
169 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
175 CALL ZLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
180 CALL ZGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
191 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
204 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
213 CALL ZGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
224 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
233 CALL ZGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Dclqt05.f131 LWORK = N2*N2*NB
135 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
169 CALL CLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
175 CALL CLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
180 CALL CGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
191 CALL CLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
204 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
213 CALL CGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
224 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
233 CALL CGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/
H A Dclqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL CLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL CLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL CGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL CLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL CGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL CLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL CGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Ddlqt05.f126 LWORK = N2*N2*NB
130 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
164 CALL DLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
170 CALL DLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
175 CALL DGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
186 CALL DLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
187 CALL DSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
198 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
207 CALL DGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
218 CALL DLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]
H A Dzlqt05.f128 LWORK = N2*N2*NB
132 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
166 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, Q, N2 )
172 CALL ZLASET( 'Full', N2, N2, CZERO, CZERO, R, N2 )
177 CALL ZGEMM( 'N', 'C', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
188 CALL ZLASET( 'Full', N2, N2, CZERO, ONE, R, N2 )
201 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
210 CALL ZGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
221 CALL ZLACPY( 'Full', N2, M, C, N2, CF, N2 )
230 CALL ZGEMM('C','N',N2,M,N2,-ONE,Q,N2,C,N2,ONE,CF,N2)
[all …]
H A Dslqt05.f125 LWORK = N2*N2*NB
129 ALLOCATE(A(M,N2),AF(M,N2),Q(N2,N2),R(N2,N2),RWORK(N2),
163 CALL SLASET( 'Full', N2, N2, ZERO, ONE, Q, N2 )
169 CALL SLASET( 'Full', N2, N2, ZERO, ZERO, R, N2 )
174 CALL SGEMM( 'N', 'T', M, N2, N2, -ONE, A, M, Q, N2, ONE, R, N2)
185 CALL SLASET( 'Full', N2, N2, ZERO, ONE, R, N2 )
186 CALL SSYRK( 'U', 'N', N2, N2, -ONE, Q, N2, ONE, R, N2 )
197 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
206 CALL SGEMM( 'N', 'N', N2, M, N2, -ONE, Q, N2, C, N2, ONE, CF, N2 )
217 CALL SLACPY( 'Full', N2, M, C, N2, CF, N2 )
[all …]

12345678910>>...158