/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slaed0.f | 114 $ J, K, LGN, MATSIZ, MSD2, SMLSIZ, SMM1, SPM1, local 196 LGN = INT( TEMP ) 197 IF( 2**LGN.LT.N ) 198 $ LGN = LGN + 1 199 IF( 2**LGN.LT.N ) 200 $ LGN = LGN + 1 202 IPERM = IPRMPT + N*LGN 203 IQPTR = IPERM + N*LGN 205 IGIVCL = IGIVPT + N*LGN 208 IQ = IGIVNM + 2*N*LGN
|
H A D | dlaed0.f | 114 $ J, K, LGN, MATSIZ, MSD2, SMLSIZ, SMM1, SPM1, 196 LGN = INT( TEMP ) 197 IF( 2**LGN.LT.N ) 198 $ LGN = LGN + 1 199 IF( 2**LGN.LT.N ) 200 $ LGN = LGN + 1 202 IPERM = IPRMPT + N*LGN 203 IQPTR = IPERM + N*LGN 205 IGIVCL = IGIVPT + N*LGN 208 IQ = IGIVNM + 2*N*LGN
|
H A D | cstedc.f | 139 INTEGER END, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, local 177 LGN = INT( LOG( REAL( N ) ) / LOG( TWO ) ) 178 IF( 2**LGN.LT.N ) 179 $ LGN = LGN + 1 180 IF( 2**LGN.LT.N ) 181 $ LGN = LGN + 1 184 LRWMIN = 1 + 3*N + 2*N*LGN + 3*N**2 185 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | zstedc.f | 139 INTEGER END, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, local 177 LGN = INT( LOG( DBLE( N ) ) / LOG( TWO ) ) 178 IF( 2**LGN.LT.N ) 179 $ LGN = LGN + 1 180 IF( 2**LGN.LT.N ) 181 $ LGN = LGN + 1 184 LRWMIN = 1 + 3*N + 2*N*LGN + 3*N**2 185 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | sstedc.f | 127 INTEGER END, I, ICOMPZ, II, J, K, LGN, LIWMIN, LWMIN, local 164 LGN = INT( LOG( REAL( N ) ) / LOG( TWO ) ) 165 IF( 2**LGN.LT.N ) 166 $ LGN = LGN + 1 167 IF( 2**LGN.LT.N ) 168 $ LGN = LGN + 1 170 LWMIN = 1 + 3*N + 2*N*LGN + 3*N**2 171 LIWMIN = 6 + 6*N + 5*N*LGN
|
/dports/science/elk/elk-7.2.42/src/LAPACK/ |
H A D | dlaed0.f | 198 $ J, K, LGN, MATSIZ, MSD2, SMLSIZ, SMM1, SPM1, 280 LGN = INT( TEMP ) 281 IF( 2**LGN.LT.N ) 282 $ LGN = LGN + 1 283 IF( 2**LGN.LT.N ) 284 $ LGN = LGN + 1 286 IPERM = IPRMPT + N*LGN 287 IQPTR = IPERM + N*LGN 289 IGIVCL = IGIVPT + N*LGN 292 IQ = IGIVNM + 2*N*LGN
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | slaed0.f | 114 $ J, K, LGN, MATSIZ, MSD2, SMLSIZ, SMM1, SPM1, 196 LGN = INT( TEMP ) 197 IF( 2**LGN.LT.N ) 198 $ LGN = LGN + 1 199 IF( 2**LGN.LT.N ) 200 $ LGN = LGN + 1 202 IPERM = IPRMPT + N*LGN 203 IQPTR = IPERM + N*LGN 205 IGIVCL = IGIVPT + N*LGN 208 IQ = IGIVNM + 2*N*LGN
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slaed0.f | 195 $ J, K, LGN, MATSIZ, MSD2, SMLSIZ, SMM1, SPM1, 277 LGN = INT( TEMP ) 278 IF( 2**LGN.LT.N ) 279 $ LGN = LGN + 1 280 IF( 2**LGN.LT.N ) 281 $ LGN = LGN + 1 283 IPERM = IPRMPT + N*LGN 284 IQPTR = IPERM + N*LGN 286 IGIVCL = IGIVPT + N*LGN 289 IQ = IGIVNM + 2*N*LGN
|
H A D | dlaed0.f | 195 $ J, K, LGN, MATSIZ, MSD2, SMLSIZ, SMM1, SPM1, 277 LGN = INT( TEMP ) 278 IF( 2**LGN.LT.N ) 279 $ LGN = LGN + 1 280 IF( 2**LGN.LT.N ) 281 $ LGN = LGN + 1 283 IPERM = IPRMPT + N*LGN 284 IQPTR = IPERM + N*LGN 286 IGIVCL = IGIVPT + N*LGN 289 IQ = IGIVNM + 2*N*LGN
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | cstedc.f | 238 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, 294 LGN = INT( LOG( REAL( N ) ) / LOG( TWO ) ) 295 IF( 2**LGN.LT.N ) 296 $ LGN = LGN + 1 297 IF( 2**LGN.LT.N ) 298 $ LGN = LGN + 1 300 LRWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 301 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | dstedc.f | 214 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 268 LGN = INT( LOG( DBLE( N ) )/LOG( TWO ) ) 269 IF( 2**LGN.LT.N ) 270 $ LGN = LGN + 1 271 IF( 2**LGN.LT.N ) 272 $ LGN = LGN + 1 274 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 275 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | sstedc.f | 213 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 267 LGN = INT( LOG( REAL( N ) )/LOG( TWO ) ) 268 IF( 2**LGN.LT.N ) 269 $ LGN = LGN + 1 270 IF( 2**LGN.LT.N ) 271 $ LGN = LGN + 1 273 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 274 LIWMIN = 6 + 6*N + 5*N*LGN
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | cstedc.f | 235 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, 291 LGN = INT( LOG( REAL( N ) ) / LOG( TWO ) ) 292 IF( 2**LGN.LT.N ) 293 $ LGN = LGN + 1 294 IF( 2**LGN.LT.N ) 295 $ LGN = LGN + 1 297 LRWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 298 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | dstedc.f | 210 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 264 LGN = INT( LOG( DBLE( N ) )/LOG( TWO ) ) 265 IF( 2**LGN.LT.N ) 266 $ LGN = LGN + 1 267 IF( 2**LGN.LT.N ) 268 $ LGN = LGN + 1 270 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 271 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | zstedc.f | 235 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, 291 LGN = INT( LOG( DBLE( N ) ) / LOG( TWO ) ) 292 IF( 2**LGN.LT.N ) 293 $ LGN = LGN + 1 294 IF( 2**LGN.LT.N ) 295 $ LGN = LGN + 1 297 LRWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 298 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | sstedc.f | 210 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 264 LGN = INT( LOG( REAL( N ) )/LOG( TWO ) ) 265 IF( 2**LGN.LT.N ) 266 $ LGN = LGN + 1 267 IF( 2**LGN.LT.N ) 268 $ LGN = LGN + 1 270 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 271 LIWMIN = 6 + 6*N + 5*N*LGN
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/ |
H A D | dstedc.f | 213 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 267 LGN = INT( LOG( DBLE( N ) )/LOG( TWO ) ) 268 IF( 2**LGN.LT.N ) 269 $ LGN = LGN + 1 270 IF( 2**LGN.LT.N ) 271 $ LGN = LGN + 1 273 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 274 LIWMIN = 6 + 6*N + 5*N*LGN
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | sstedc.f | 210 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 264 LGN = INT( LOG( REAL( N ) )/LOG( TWO ) ) 265 IF( 2**LGN.LT.N ) 266 $ LGN = LGN + 1 267 IF( 2**LGN.LT.N ) 268 $ LGN = LGN + 1 270 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 271 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | dstedc.f | 210 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 264 LGN = INT( LOG( DBLE( N ) )/LOG( TWO ) ) 265 IF( 2**LGN.LT.N ) 266 $ LGN = LGN + 1 267 IF( 2**LGN.LT.N ) 268 $ LGN = LGN + 1 270 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 271 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | zstedc.f | 235 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, 291 LGN = INT( LOG( DBLE( N ) ) / LOG( TWO ) ) 292 IF( 2**LGN.LT.N ) 293 $ LGN = LGN + 1 294 IF( 2**LGN.LT.N ) 295 $ LGN = LGN + 1 297 LRWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 298 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | cstedc.f | 235 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, 291 LGN = INT( LOG( REAL( N ) ) / LOG( TWO ) ) 292 IF( 2**LGN.LT.N ) 293 $ LGN = LGN + 1 294 IF( 2**LGN.LT.N ) 295 $ LGN = LGN + 1 297 LRWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 298 LIWMIN = 6 + 6*N + 5*N*LGN
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | sstedc.f | 210 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 264 LGN = INT( LOG( REAL( N ) )/LOG( TWO ) ) 265 IF( 2**LGN.LT.N ) 266 $ LGN = LGN + 1 267 IF( 2**LGN.LT.N ) 268 $ LGN = LGN + 1 270 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 271 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | zstedc.f | 235 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, local 291 LGN = INT( LOG( DBLE( N ) ) / LOG( TWO ) ) 292 IF( 2**LGN.LT.N ) 293 $ LGN = LGN + 1 294 IF( 2**LGN.LT.N ) 295 $ LGN = LGN + 1 297 LRWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 298 LIWMIN = 6 + 6*N + 5*N*LGN
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | cstedc.f | 235 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, LL, 291 LGN = INT( LOG( REAL( N ) ) / LOG( TWO ) ) 292 IF( 2**LGN.LT.N ) 293 $ LGN = LGN + 1 294 IF( 2**LGN.LT.N ) 295 $ LGN = LGN + 1 297 LRWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 298 LIWMIN = 6 + 6*N + 5*N*LGN
|
H A D | dstedc.f | 210 INTEGER FINISH, I, ICOMPZ, II, J, K, LGN, LIWMIN, 264 LGN = INT( LOG( DBLE( N ) )/LOG( TWO ) ) 265 IF( 2**LGN.LT.N ) 266 $ LGN = LGN + 1 267 IF( 2**LGN.LT.N ) 268 $ LGN = LGN + 1 270 LWMIN = 1 + 3*N + 2*N*LGN + 4*N**2 271 LIWMIN = 6 + 6*N + 5*N*LGN
|