/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | slaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dlaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | slaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dlaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | slaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/ |
H A D | dlaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | slaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | slaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | dlaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/ |
H A D | slaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, local 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | slaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, local 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slaeda.f | 100 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, local 164 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 166 ZPTR1 = MID - PSIZ1 180 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 182 DO 50 I = 0, PSIZ1 - 1 186 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 202 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 206 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 208 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | dlaeda.f | 100 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, local 164 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 166 ZPTR1 = MID - PSIZ1 180 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 182 DO 50 I = 0, PSIZ1 - 1 186 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 202 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 206 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 208 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/science/elk/elk-7.2.42/src/LAPACK/ |
H A D | dlaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlaeda.f | 100 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 164 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 166 ZPTR1 = MID - PSIZ1 180 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 182 DO 50 I = 0, PSIZ1 - 1 186 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 202 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 206 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 208 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | slaeda.f | 100 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 164 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 166 ZPTR1 = MID - PSIZ1 180 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 182 DO 50 I = 0, PSIZ1 - 1 186 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 202 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 206 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 208 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dlaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
H A D | slaeda.f | 190 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 254 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 256 ZPTR1 = MID - PSIZ1 270 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 272 DO 50 I = 0, PSIZ1 - 1 276 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 292 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 296 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 298 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
H A D | dlaeda.f | 187 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, 251 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 253 ZPTR1 = MID - PSIZ1 267 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 269 DO 50 I = 0, PSIZ1 - 1 273 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 289 CALL DCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 293 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 295 CALL DCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | slaeda.f | 108 INTEGER BSIZ1, BSIZ2, CURR, I, K, MID, PSIZ1, PSIZ2, local 173 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 175 ZPTR1 = MID - PSIZ1 190 PSIZ1 = PRMPTR( CURR+1 ) - PRMPTR( CURR ) 192 DO 50 I = 0, PSIZ1 - 1 196 ZTEMP( PSIZ1+I+1 ) = Z( MID+PERM( PRMPTR( CURR+1 )+I )-1 ) 214 CALL SCOPY( PSIZ1-BSIZ1, ZTEMP( BSIZ1+1 ), 1, Z( ZPTR1+BSIZ1 ), 219 $ BSIZ2, ZTEMP( PSIZ1+1 ), 1, ZERO, Z( MID ), 1 ) 221 CALL SCOPY( PSIZ2-BSIZ2, ZTEMP( PSIZ1+BSIZ2+1 ), 1,
|