/dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/ |
H A D | pzbslanczos.f90 | 234 X, IX, JX, DESCX, CPLX_ZERO, X, IX+N, JX, DESCX ) 237 X, IX, JX, DESCX, CPLX_ONE, X, IX+N, JX, DESCX ) 240 X, IX+N, JX, DESCX, 1 ) 253 X, IX+N, JX+J-1, DESCX, CPLX_ZERO, X, IX, JX+J, DESCX ) 256 X, IX+N, JX+J-1, DESCX, CPLX_ONE, X, IX, JX+J, DESCX ) 266 X, IX, JX+J-2, DESCX, 1, X, IX, JX+J, DESCX, 1 ) 274 X, IX, JX+J, DESCX, CPLX_ZERO, X, IX+N, JX+J, DESCX ) 277 X, IX, JX+J, DESCX, CPLX_ONE, X, IX+N, JX+J, DESCX ) 287 X, IX+N, JX+J, DESCX, 1 ) 291 X, IX, JX+J-1, DESCX, 1, X, IX, JX+J, DESCX, 1 ) [all …]
|
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/openblas/xianyi-OpenBLAS-e6e87a2/reference/ |
H A D | strmvf.f | 178 JX = KX 188 $ X( JX ) = X( JX )*A( J, J ) 190 JX = JX + INCX 207 JX = KX 217 $ X( JX ) = X( JX )*A( J, J ) 219 JX = JX - INCX 242 IX = JX 250 JX = JX - INCX 265 JX = KX 268 IX = JX [all …]
|
H A D | strsvf.f | 185 $ X( JX ) = X( JX )/A( J, J ) 187 IX = JX 193 JX = JX - INCX 209 JX = KX 213 $ X( JX ) = X( JX )/A( J, J ) 215 IX = JX 221 JX = JX + INCX 241 JX = KX 252 JX = JX + INCX 268 JX = KX [all …]
|
H A D | dtrmvf.f | 178 JX = KX 188 $ X( JX ) = X( JX )*A( J, J ) 190 JX = JX + INCX 207 JX = KX 217 $ X( JX ) = X( JX )*A( J, J ) 219 JX = JX - INCX 242 IX = JX 250 JX = JX - INCX 265 JX = KX 268 IX = JX [all …]
|
H A D | dtrsvf.f | 185 $ X( JX ) = X( JX )/A( J, J ) 187 IX = JX 193 JX = JX - INCX 209 JX = KX 213 $ X( JX ) = X( JX )/A( J, J ) 215 IX = JX 221 JX = JX + INCX 241 JX = KX 252 JX = JX + INCX 268 JX = KX [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/blas/ |
H A D | dtrmv.f | 178 JX = KX 188 $ X( JX ) = X( JX )*A( J, J ) 190 JX = JX + INCX 207 JX = KX 217 $ X( JX ) = X( JX )*A( J, J ) 219 JX = JX - INCX 242 IX = JX 250 JX = JX - INCX 265 JX = KX 268 IX = JX [all …]
|
H A D | dtrsv.f | 185 $ X( JX ) = X( JX )/A( J, J ) 187 IX = JX 193 JX = JX - INCX 209 JX = KX 213 $ X( JX ) = X( JX )/A( J, J ) 215 IX = JX 221 JX = JX + INCX 241 JX = KX 252 JX = JX + INCX 268 JX = KX [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/BLAS/SRC/ |
H A D | strmv.f | 241 JX = KX 250 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 252 JX = JX + INCX 268 JX = KX 277 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 279 JX = JX - INCX 301 IX = JX 308 JX = JX - INCX 322 JX = KX 325 IX = JX [all …]
|
H A D | dtrsv.f | 167 INTEGER I,INFO,IX,J,JX,KX 240 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 242 IX = JX 248 JX = JX - INCX 263 JX = KX 266 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 274 JX = JX + INCX 293 JX = KX 303 JX = JX + INCX 318 JX = KX [all …]
|
H A D | strsv.f | 173 INTEGER I,INFO,IX,J,JX,KX 246 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 248 IX = JX 254 JX = JX - INCX 269 JX = KX 272 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 280 JX = JX + INCX 299 JX = KX 309 JX = JX + INCX 324 JX = KX [all …]
|
/dports/math/xlapack/lapack-3.10.0/BLAS/SRC/ |
H A D | dtrmv.f | 238 JX = KX 247 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 249 JX = JX + INCX 265 JX = KX 274 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 276 JX = JX - INCX 298 IX = JX 305 JX = JX - INCX 319 JX = KX 322 IX = JX [all …]
|
H A D | dtrsv.f | 164 INTEGER I,INFO,IX,J,JX,KX 237 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 239 IX = JX 245 JX = JX - INCX 260 JX = KX 263 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 271 JX = JX + INCX 290 JX = KX 300 JX = JX + INCX 315 JX = KX [all …]
|
H A D | strmv.f | 238 JX = KX 247 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 249 JX = JX + INCX 265 JX = KX 274 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 276 JX = JX - INCX 298 IX = JX 305 JX = JX - INCX 319 JX = KX 322 IX = JX [all …]
|
H A D | strsv.f | 170 INTEGER I,INFO,IX,J,JX,KX 243 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 245 IX = JX 251 JX = JX - INCX 266 JX = KX 269 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 277 JX = JX + INCX 296 JX = KX 306 JX = JX + INCX 321 JX = KX [all …]
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/ |
H A D | dtrsv.f | 167 INTEGER I,INFO,IX,J,JX,KX 240 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 242 IX = JX 248 JX = JX - INCX 263 JX = KX 266 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 274 JX = JX + INCX 293 JX = KX 303 JX = JX + INCX 318 JX = KX [all …]
|
H A D | dtrmv.f | 241 JX = KX 250 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 252 JX = JX + INCX 268 JX = KX 277 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 279 JX = JX - INCX 301 IX = JX 308 JX = JX - INCX 322 JX = KX 325 IX = JX [all …]
|
/dports/math/blas/lapack-3.10.0/BLAS/SRC/ |
H A D | dtrmv.f | 238 JX = KX 247 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 249 JX = JX + INCX 265 JX = KX 274 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 276 JX = JX - INCX 298 IX = JX 305 JX = JX - INCX 319 JX = KX 322 IX = JX [all …]
|
H A D | strsv.f | 170 INTEGER I,INFO,IX,J,JX,KX 243 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 245 IX = JX 251 JX = JX - INCX 266 JX = KX 269 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 277 JX = JX + INCX 296 JX = KX 306 JX = JX + INCX 321 JX = KX [all …]
|
H A D | dtrsv.f | 164 INTEGER I,INFO,IX,J,JX,KX 237 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 239 IX = JX 245 JX = JX - INCX 260 JX = KX 263 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 271 JX = JX + INCX 290 JX = KX 300 JX = JX + INCX 315 JX = KX [all …]
|
H A D | strmv.f | 238 JX = KX 247 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 249 JX = JX + INCX 265 JX = KX 274 IF (NOUNIT) X(JX) = X(JX)*A(J,J) 276 JX = JX - INCX 298 IX = JX 305 JX = JX - INCX 319 JX = KX 322 IX = JX [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/blas/src_f77/ |
H A D | strsv.f | 185 $ X( JX ) = X( JX )/A( J, J ) 187 IX = JX 193 JX = JX - INCX 209 JX = KX 213 $ X( JX ) = X( JX )/A( J, J ) 215 IX = JX 221 JX = JX + INCX 241 JX = KX 252 JX = JX + INCX 268 JX = KX [all …]
|
H A D | dtrmv.f | 178 JX = KX 188 $ X( JX ) = X( JX )*A( J, J ) 190 JX = JX + INCX 207 JX = KX 217 $ X( JX ) = X( JX )*A( J, J ) 219 JX = JX - INCX 242 IX = JX 250 JX = JX - INCX 265 JX = KX 268 IX = JX [all …]
|
H A D | dtrsv.f | 185 $ X( JX ) = X( JX )/A( J, J ) 187 IX = JX 193 JX = JX - INCX 209 JX = KX 213 $ X( JX ) = X( JX )/A( J, J ) 215 IX = JX 221 JX = JX + INCX 241 JX = KX 252 JX = JX + INCX 268 JX = KX [all …]
|
H A D | strmv.f | 178 JX = KX 188 $ X( JX ) = X( JX )*A( J, J ) 190 JX = JX + INCX 207 JX = KX 217 $ X( JX ) = X( JX )*A( J, J ) 219 JX = JX - INCX 242 IX = JX 250 JX = JX - INCX 265 JX = KX 268 IX = JX [all …]
|
/dports/math/lapack/lapack-3.10.0/BLAS/SRC/ |
H A D | dtrsv.f | 164 INTEGER I,INFO,IX,J,JX,KX local 237 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 239 IX = JX 245 JX = JX - INCX 260 JX = KX 263 IF (NOUNIT) X(JX) = X(JX)/A(J,J) 271 JX = JX + INCX 290 JX = KX 300 JX = JX + INCX 315 JX = KX [all …]
|