/dports/science/plumed/plumed2-2.7.2/regtest/crystallization/rt-urea/ |
H A D | traj.xyz | 6 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 D | zlqt05.f | 128 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 D | clqt05.f | 128 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 D | dlqt05.f | 126 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 D | slqt05.f | 125 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 D | clqt05.f | 128 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 D | slqt05.f | 125 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 D | zlqt05.f | 128 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 D | dlqt05.f | 126 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 D | clqt05.f | 128 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 D | zlqt05.f | 128 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 D | dlqt05.f | 126 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 D | slqt05.f | 125 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 D | dlqt05.f | 126 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 D | slqt05.f | 125 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 D | zlqt05.f | 128 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 D | clqt05.f | 128 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 D | dlqt05.f | 129 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 D | slqt05.f | 122 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 D | zlqt05.f | 131 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 D | clqt05.f | 131 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 D | clqt05.f | 128 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 D | dlqt05.f | 126 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 D | zlqt05.f | 128 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 D | slqt05.f | 125 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 …]
|