Home
last modified time | relevance | path

Searched refs:PSIZ1 (Results 1 – 25 of 31) sorted by relevance

12

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlaeda.f190 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 Dslaeda.f190 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 Ddlaeda.f187 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 Dslaeda.f187 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 Ddlaeda.f187 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 Dslaeda.f187 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 Ddlaeda.f190 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 Ddlaeda.f187 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 Dslaeda.f187 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 Ddlaeda.f187 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 Dslaeda.f187 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 Ddlaeda.f190 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 Dslaeda.f190 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 Ddlaeda.f190 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 Dslaeda.f190 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 Dslaeda.f100 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 Ddlaeda.f100 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 Ddlaeda.f190 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 Ddlaeda.f100 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 Dslaeda.f100 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 Ddlaeda.f190 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 Dslaeda.f190 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 Dslaeda.f187 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 Ddlaeda.f187 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 Dslaeda.f108 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,

12