/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | stgex2.f | 261 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 262 $ LICOP( LDST, LDST ), S( LDST, LDST ), 263 $ SCPY( LDST, LDST ), T( LDST, LDST ), 264 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 300 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 301 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 488 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 489 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 490 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 491 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | dtgex2.f | 261 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 262 $ LICOP( LDST, LDST ), S( LDST, LDST ), 263 $ SCPY( LDST, LDST ), T( LDST, LDST ), 264 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 300 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 301 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 488 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 489 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 490 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 491 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | stgex2.f | 260 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 261 $ LICOP( LDST, LDST ), S( LDST, LDST ), 262 $ SCPY( LDST, LDST ), T( LDST, LDST ), 263 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 299 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 300 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 498 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 499 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 500 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 501 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | dtgex2.f | 259 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 260 $ LICOP( LDST, LDST ), S( LDST, LDST ), 261 $ SCPY( LDST, LDST ), T( LDST, LDST ), 262 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 298 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 299 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 497 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 498 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 499 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 500 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | stgex2.f | 260 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 261 $ LICOP( LDST, LDST ), S( LDST, LDST ), 262 $ SCPY( LDST, LDST ), T( LDST, LDST ), 263 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 299 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 300 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 498 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 499 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 500 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 501 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | dtgex2.f | 259 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 260 $ LICOP( LDST, LDST ), S( LDST, LDST ), 261 $ SCPY( LDST, LDST ), T( LDST, LDST ), 262 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 298 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 299 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 497 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 498 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 499 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 500 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dtgex2.f | 259 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 260 $ LICOP( LDST, LDST ), S( LDST, LDST ), 261 $ SCPY( LDST, LDST ), T( LDST, LDST ), 262 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 298 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 299 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 497 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 498 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 499 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 500 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | stgex2.f | 260 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 261 $ LICOP( LDST, LDST ), S( LDST, LDST ), 262 $ SCPY( LDST, LDST ), T( LDST, LDST ), 263 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 299 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 300 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 498 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 499 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 500 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 501 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dtgex2.f | 259 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 260 $ LICOP( LDST, LDST ), S( LDST, LDST ), 261 $ SCPY( LDST, LDST ), T( LDST, LDST ), 262 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 298 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 299 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 497 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 498 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 499 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 500 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | stgex2.f | 260 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 261 $ LICOP( LDST, LDST ), S( LDST, LDST ), 262 $ SCPY( LDST, LDST ), T( LDST, LDST ), 263 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 299 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 300 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 498 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 499 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 500 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 501 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | stgex2.f | 261 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 262 $ LICOP( LDST, LDST ), S( LDST, LDST ), 263 $ SCPY( LDST, LDST ), T( LDST, LDST ), 264 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 300 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 301 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 488 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 489 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 490 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 491 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | dtgex2.f | 261 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 262 $ LICOP( LDST, LDST ), S( LDST, LDST ), 263 $ SCPY( LDST, LDST ), T( LDST, LDST ), 264 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 300 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 301 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 488 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 489 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 490 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 491 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | ctgex2.f | 215 INTEGER LDST local 216 PARAMETER ( LDST = 2 ) 228 COMPLEX S( LDST, LDST ), T( LDST, LDST ), WORK( 8 ) 249 M = LDST 255 CALL CLACPY( 'Full', M, M, A( J1, J1 ), LDA, S, LDST ) 256 CALL CLACPY( 'Full', M, M, B( J1, J1 ), LDB, T, LDST ) 264 CALL CLACPY( 'Full', M, M, S, LDST, WORK, M ) 265 CALL CLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) 295 CALL CROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) 296 CALL CROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dtgex2.f | 259 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 260 $ LICOP( LDST, LDST ), S( LDST, LDST ), 261 $ SCPY( LDST, LDST ), T( LDST, LDST ), 262 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 298 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 299 CALL DLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 497 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 498 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 499 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 500 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | stgex2.f | 260 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 261 $ LICOP( LDST, LDST ), S( LDST, LDST ), 262 $ SCPY( LDST, LDST ), T( LDST, LDST ), 263 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 299 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, LI, LDST ) 300 CALL SLASET( 'Full', LDST, LDST, ZERO, ZERO, IR, LDST ) 498 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 499 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 500 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 501 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
H A D | dtgex2.f | 151 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 152 $ LICOP( LDST, LDST ), S( LDST, LDST ), 153 $ SCPY( LDST, LDST ), T( LDST, LDST ), 154 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 190 CALL DCOPY( LDST*LDST, ZERO, 0, LI, 1 ) 191 CALL DCOPY( LDST*LDST, ZERO, 0, IR, 1 ) 369 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 370 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 371 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 372 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | stgex2.f | 151 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 152 $ LICOP( LDST, LDST ), S( LDST, LDST ), 153 $ SCPY( LDST, LDST ), T( LDST, LDST ), 154 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 190 CALL SCOPY( LDST*LDST, ZERO, 0, LI, 1 ) 191 CALL SCOPY( LDST*LDST, ZERO, 0, IR, 1 ) 369 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 370 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 371 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 372 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | dtgex2.f | 151 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 152 $ LICOP( LDST, LDST ), S( LDST, LDST ), 153 $ SCPY( LDST, LDST ), T( LDST, LDST ), 154 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 190 CALL DCOPY( LDST*LDST, ZERO, 0, LI, 1 ) 191 CALL DCOPY( LDST*LDST, ZERO, 0, IR, 1 ) 369 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 370 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 371 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 372 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | ctgex2.f | 125 INTEGER LDST 126 PARAMETER ( LDST = 2 ) 138 COMPLEX S( LDST, LDST ), T( LDST, LDST ), WORK( 8 ) 159 M = LDST 165 CALL CLACPY( 'Full', M, M, A( J1, J1 ), LDA, S, LDST ) 166 CALL CLACPY( 'Full', M, M, B( J1, J1 ), LDB, T, LDST ) 174 CALL CLACPY( 'Full', M, M, S, LDST, WORK, M ) 175 CALL CLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) 196 CALL CROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) 197 CALL CROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) [all …]
|
H A D | ztgex2.f | 125 INTEGER LDST local 126 PARAMETER ( LDST = 2 ) 138 COMPLEX*16 S( LDST, LDST ), T( LDST, LDST ), WORK( 8 ) 159 M = LDST 165 CALL ZLACPY( 'Full', M, M, A( J1, J1 ), LDA, S, LDST ) 166 CALL ZLACPY( 'Full', M, M, B( J1, J1 ), LDB, T, LDST ) 174 CALL ZLACPY( 'Full', M, M, S, LDST, WORK, M ) 175 CALL ZLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) 196 CALL ZROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) 197 CALL ZROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | stgex2.f | 151 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 152 $ LICOP( LDST, LDST ), S( LDST, LDST ), 153 $ SCPY( LDST, LDST ), T( LDST, LDST ), 154 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 190 CALL SCOPY( LDST*LDST, ZERO, 0, LI, 1 ) 191 CALL SCOPY( LDST*LDST, ZERO, 0, IR, 1 ) 369 CALL SLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 370 CALL SLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 371 CALL SLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 372 CALL SLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | dtgex2.f | 151 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 152 $ LICOP( LDST, LDST ), S( LDST, LDST ), 153 $ SCPY( LDST, LDST ), T( LDST, LDST ), 154 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 190 CALL DCOPY( LDST*LDST, ZERO, 0, LI, 1 ) 191 CALL DCOPY( LDST*LDST, ZERO, 0, IR, 1 ) 369 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 370 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 371 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 372 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
H A D | ctgex2.f | 125 INTEGER LDST 126 PARAMETER ( LDST = 2 ) 138 COMPLEX S( LDST, LDST ), T( LDST, LDST ), WORK( 8 ) 159 M = LDST 165 CALL CLACPY( 'Full', M, M, A( J1, J1 ), LDA, S, LDST ) 166 CALL CLACPY( 'Full', M, M, B( J1, J1 ), LDB, T, LDST ) 174 CALL CLACPY( 'Full', M, M, S, LDST, WORK, M ) 175 CALL CLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) 196 CALL CROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) 197 CALL CROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) [all …]
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/double/ |
H A D | dtgex2.f | 151 $ IRCOP( LDST, LDST ), LI( LDST, LDST ), 152 $ LICOP( LDST, LDST ), S( LDST, LDST ), 153 $ SCPY( LDST, LDST ), T( LDST, LDST ), 154 $ TAUL( LDST ), TAUR( LDST ), TCPY( LDST, LDST ) 190 CALL DCOPY( LDST*LDST, ZERO, 0, LI, 1 ) 191 CALL DCOPY( LDST*LDST, ZERO, 0, IR, 1 ) 369 CALL DLACPY( 'F', M, M, S, LDST, SCPY, LDST ) 370 CALL DLACPY( 'F', M, M, T, LDST, TCPY, LDST ) 371 CALL DLACPY( 'F', M, M, IR, LDST, IRCOP, LDST ) 372 CALL DLACPY( 'F', M, M, LI, LDST, LICOP, LDST ) [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
H A D | ztgex2.f | 123 INTEGER LDST 124 PARAMETER ( LDST = 2 ) 136 COMPLEX*16 S( LDST, LDST ), T( LDST, LDST ), WORK( 8 ) 157 M = LDST 163 CALL ZLACPY( 'Full', M, M, A( J1, J1 ), LDA, S, LDST ) 164 CALL ZLACPY( 'Full', M, M, B( J1, J1 ), LDB, T, LDST ) 172 CALL ZLACPY( 'Full', M, M, S, LDST, WORK, M ) 173 CALL ZLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) 203 CALL ZROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) 204 CALL ZROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) [all …]
|