/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
H A D | ztgsy2.f | 171 INTEGER LDZ 172 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 181 INTEGER IPIV( LDZ ), JPIV( LDZ ) 182 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 258 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 262 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 273 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 325 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 328 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | ctgsy2.f | 281 INTEGER LDZ 282 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 291 INTEGER IPIV( LDZ ), JPIV( LDZ ) 292 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 368 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 372 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 383 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 435 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 438 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ztgsy2.f | 281 INTEGER LDZ 282 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 291 INTEGER IPIV( LDZ ), JPIV( LDZ ) 292 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 368 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 372 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 383 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 435 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 438 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | ztgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ctgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | ztgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ctgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | ztgsy2.f | 171 INTEGER LDZ local 172 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 181 INTEGER IPIV( LDZ ), JPIV( LDZ ) 182 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 253 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 257 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 268 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 320 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 323 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ctgsy2.f | 171 INTEGER LDZ 172 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 181 INTEGER IPIV( LDZ ), JPIV( LDZ ) 182 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 253 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 257 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 268 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 320 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 323 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | ctgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ztgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | ctgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ztgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | ctgsy2.f | 281 INTEGER LDZ local 282 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 291 INTEGER IPIV( LDZ ), JPIV( LDZ ) 292 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 368 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 372 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 383 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 435 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 438 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ztgsy2.f | 281 INTEGER LDZ 282 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 291 INTEGER IPIV( LDZ ), JPIV( LDZ ) 292 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 368 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 372 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 383 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 435 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 438 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | ctgsy2.f | 171 INTEGER LDZ 172 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 181 INTEGER IPIV( LDZ ), JPIV( LDZ ) 182 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 253 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 257 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 268 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 320 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 323 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ztgsy2.f | 171 INTEGER LDZ 172 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 181 INTEGER IPIV( LDZ ), JPIV( LDZ ) 182 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 253 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 257 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 268 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 320 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 323 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/complex16/ |
H A D | ztgsy2.f | 171 INTEGER LDZ 172 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 181 INTEGER IPIV( LDZ ), JPIV( LDZ ) 182 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 258 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 262 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 273 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 325 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 328 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | ctgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL CLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL CGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL CGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
H A D | ztgsy2.f | 278 INTEGER LDZ 279 PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, LDZ = 2 ) 288 INTEGER IPIV( LDZ ), JPIV( LDZ ) 289 COMPLEX*16 RHS( LDZ ), Z( LDZ, LDZ ) 365 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 369 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC ) 380 CALL ZLATDF( IJOB, LDZ, Z, LDZ, RHS, RDSUM, RDSCAL, 432 CALL ZGETC2( LDZ, Z, LDZ, IPIV, JPIV, IERR ) 435 CALL ZGESC2( LDZ, Z, LDZ, RHS, IPIV, JPIV, SCALOC )
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | dsgt01.f | 146 SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, argument 156 INTEGER ITYPE, LDA, LDB, LDZ, M, N 160 $ WORK( * ), Z( LDZ, * ) 191 $ DLANGE( '1', N, M, Z, LDZ, WORK ) 199 CALL DSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, 204 CALL DSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, -ONE, 214 CALL DSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, ZERO, 220 $ LDZ ) 222 RESULT( 1 ) = ( DLANGE( '1', N, M, Z, LDZ, WORK ) / ANORM ) / 229 CALL DSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, [all …]
|
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | ssgt01.f | 144 SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, argument 153 INTEGER ITYPE, LDA, LDB, LDZ, M, N 157 $ WORK( * ), Z( LDZ, * ) 188 $ SLANGE( '1', N, M, Z, LDZ, WORK ) 196 CALL SSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, 201 CALL SSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, -ONE, 211 CALL SSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, ZERO, 217 $ LDZ ) 219 RESULT( 1 ) = ( SLANGE( '1', N, M, Z, LDZ, WORK ) / ANORM ) / 226 CALL SSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, [all …]
|
H A D | dsgt01.f | 144 SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, argument 153 INTEGER ITYPE, LDA, LDB, LDZ, M, N 157 $ WORK( * ), Z( LDZ, * ) 188 $ DLANGE( '1', N, M, Z, LDZ, WORK ) 196 CALL DSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, 201 CALL DSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, -ONE, 211 CALL DSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, ZERO, 217 $ LDZ ) 219 RESULT( 1 ) = ( DLANGE( '1', N, M, Z, LDZ, WORK ) / ANORM ) / 226 CALL DSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | ssgt01.f | 144 SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, argument 153 INTEGER ITYPE, LDA, LDB, LDZ, M, N 157 $ WORK( * ), Z( LDZ, * ) 188 $ SLANGE( '1', N, M, Z, LDZ, WORK ) 196 CALL SSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, 201 CALL SSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, -ONE, 211 CALL SSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, ZERO, 217 $ LDZ ) 219 RESULT( 1 ) = ( SLANGE( '1', N, M, Z, LDZ, WORK ) / ANORM ) / 226 CALL SSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, [all …]
|
H A D | dsgt01.f | 144 SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, argument 153 INTEGER ITYPE, LDA, LDB, LDZ, M, N 157 $ WORK( * ), Z( LDZ, * ) 188 $ DLANGE( '1', N, M, Z, LDZ, WORK ) 196 CALL DSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, 201 CALL DSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, -ONE, 211 CALL DSYMM( 'Left', UPLO, N, M, ONE, B, LDB, Z, LDZ, ZERO, 217 $ LDZ ) 219 RESULT( 1 ) = ( DLANGE( '1', N, M, Z, LDZ, WORK ) / ANORM ) / 226 CALL DSYMM( 'Left', UPLO, N, M, ONE, A, LDA, Z, LDZ, ZERO, [all …]
|