/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | dppt03.f | 108 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 D | sppt03.f | 108 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 D | zspt03.f | 122 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 D | cspt03.f | 122 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 D | dppt03.f | 110 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 D | sppt03.f | 110 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 D | cspt03.f | 125 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 D | sppt03.f | 108 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 D | dppt03.f | 108 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 D | zspt03.f | 122 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 D | cspt03.f | 122 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 D | dppt03.f | 108 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 D | sppt03.f | 108 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 D | dppt03.f | 108 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 D | sppt03.f | 108 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 D | dppt03.f | 110 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 D | sppt03.f | 110 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 D | dppt03.f | 110 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 D | sppt03.f | 110 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 D | sppt03.f | 110 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 D | dppt03.f | 110 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 D | dppt03.f | 110 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 D | sppt03.f | 110 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 D | sppt03.f | 108 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 D | dppt03.f | 108 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 …]
|