Home
last modified time | relevance | path

Searched refs:AINV (Results 1 – 25 of 1211) sorted by relevance

12345678910>>...49

/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/
H A Ddppt03.f108 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ),
160 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dsppt03.f108 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 REAL A( * ), AINV( * ), RWORK( * ),
160 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dzspt03.f122 COMPLEX*16 A( * ), AINV( * ), WORK( LDW, * )
159 AINVNM = ZLANSP( '1', UPLO, N, AINV, RWORK )
179 T = ZDOTU( J, A( ICOL ), 1, AINV( JCOL ), 1 )
183 T = T + A( KCOL+K )*AINV( JCOL )
188 T = T + A( KCOL )*AINV( JCOL )
203 T = T + A( KCOL )*AINV( JCOL+K )
208 T = T + A( KCOL )*AINV( JCOL )
231 T = T + A( KCOL )*AINV( JCOL )
237 T = T + A( KCOL )*AINV( JCOL+K )
252 T = T + A( KCOL )*AINV( JCOL )
[all …]
H A Dcspt03.f122 COMPLEX A( * ), AINV( * ), WORK( LDW, * )
159 AINVNM = CLANSP( '1', UPLO, N, AINV, RWORK )
179 T = CDOTU( J, A( ICOL ), 1, AINV( JCOL ), 1 )
183 T = T + A( KCOL+K )*AINV( JCOL )
188 T = T + A( KCOL )*AINV( JCOL )
203 T = T + A( KCOL )*AINV( JCOL+K )
208 T = T + A( KCOL )*AINV( JCOL )
231 T = T + A( KCOL )*AINV( JCOL )
237 T = T + A( KCOL )*AINV( JCOL+K )
252 T = T + A( KCOL )*AINV( JCOL )
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/
H A Ddppt03.f110 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ),
163 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dsppt03.f110 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 REAL A( * ), AINV( * ), RWORK( * ),
163 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dcspt03.f125 COMPLEX A( * ), AINV( * ), WORK( LDW, * )
162 AINVNM = CLANSP( '1', UPLO, N, AINV, RWORK )
182 T = CDOTU( J, A( ICOL ), 1, AINV( JCOL ), 1 )
186 T = T + A( KCOL+K )*AINV( JCOL )
191 T = T + A( KCOL )*AINV( JCOL )
206 T = T + A( KCOL )*AINV( JCOL+K )
211 T = T + A( KCOL )*AINV( JCOL )
234 T = T + A( KCOL )*AINV( JCOL )
240 T = T + A( KCOL )*AINV( JCOL+K )
255 T = T + A( KCOL )*AINV( JCOL )
[all …]
/dports/math/blas/lapack-3.10.0/TESTING/LIN/
H A Dsppt03.f108 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 REAL A( * ), AINV( * ), RWORK( * ), local
160 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Ddppt03.f108 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ), local
160 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dzspt03.f122 COMPLEX*16 A( * ), AINV( * ), WORK( LDW, * ) local
159 AINVNM = ZLANSP( '1', UPLO, N, AINV, RWORK )
179 T = ZDOTU( J, A( ICOL ), 1, AINV( JCOL ), 1 )
183 T = T + A( KCOL+K )*AINV( JCOL )
188 T = T + A( KCOL )*AINV( JCOL )
203 T = T + A( KCOL )*AINV( JCOL+K )
208 T = T + A( KCOL )*AINV( JCOL )
231 T = T + A( KCOL )*AINV( JCOL )
237 T = T + A( KCOL )*AINV( JCOL+K )
252 T = T + A( KCOL )*AINV( JCOL )
[all …]
H A Dcspt03.f122 COMPLEX A( * ), AINV( * ), WORK( LDW, * )
159 AINVNM = CLANSP( '1', UPLO, N, AINV, RWORK )
179 T = CDOTU( J, A( ICOL ), 1, AINV( JCOL ), 1 )
183 T = T + A( KCOL+K )*AINV( JCOL )
188 T = T + A( KCOL )*AINV( JCOL )
203 T = T + A( KCOL )*AINV( JCOL+K )
208 T = T + A( KCOL )*AINV( JCOL )
231 T = T + A( KCOL )*AINV( JCOL )
237 T = T + A( KCOL )*AINV( JCOL+K )
252 T = T + A( KCOL )*AINV( JCOL )
[all …]
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/
H A Ddppt03.f108 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ),
160 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dsppt03.f108 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 REAL A( * ), AINV( * ), RWORK( * ),
160 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/
H A Ddppt03.f108 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ),
160 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dsppt03.f108 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 REAL A( * ), AINV( * ), RWORK( * ), local
160 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/
H A Ddppt03.f110 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ), local
163 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dsppt03.f110 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 REAL A( * ), AINV( * ), RWORK( * ), local
163 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/
H A Ddppt03.f110 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ), local
163 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dsppt03.f110 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 REAL A( * ), AINV( * ), RWORK( * ),
163 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/LIN/
H A Dsppt03.f110 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 REAL A( * ), AINV( * ), RWORK( * ),
163 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Ddppt03.f110 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ),
163 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/LIN/
H A Ddppt03.f110 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ), local
163 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Dsppt03.f110 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
124 REAL A( * ), AINV( * ), RWORK( * ),
163 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
182 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
183 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
187 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
195 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
206 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
209 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
210 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
/dports/math/cblas/lapack-3.10.0/TESTING/LIN/
H A Dsppt03.f108 SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 REAL A( * ), AINV( * ), RWORK( * ),
160 AINVNM = SLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL SCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL SCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL SCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL SSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL SCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL SCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL SCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]
H A Ddppt03.f108 SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, argument
121 DOUBLE PRECISION A( * ), AINV( * ), RWORK( * ),
160 AINVNM = DLANSP( '1', UPLO, N, AINV, RWORK )
179 CALL DCOPY( J, AINV( JJ ), 1, WORK( 1, J+1 ), 1 )
180 CALL DCOPY( J-1, AINV( JJ ), 1, WORK( J, 2 ), LDWORK )
184 CALL DCOPY( N-1, AINV( JJ ), 1, WORK( N, 2 ), LDWORK )
192 CALL DSPMV( 'Upper', N, -ONE, A, AINV( JJ ), 1, ZERO,
203 CALL DCOPY( N-1, AINV( 2 ), 1, WORK( 1, 1 ), LDWORK )
206 CALL DCOPY( N-J+1, AINV( JJ ), 1, WORK( J, J-1 ), 1 )
207 CALL DCOPY( N-J, AINV( JJ+1 ), 1, WORK( J, J ), LDWORK )
[all …]

12345678910>>...49