Home
last modified time | relevance | path

Searched refs:JLO (Results 1 – 25 of 49) sorted by relevance

12

/dports/math/math77/MATH77/
H A Ddtggrd.f255 JLO = B(3, KBLO)
261 if ( X(JNEW) .eq. X(JLO) .and. Y(JNEW).eq.Y(JLO)) then
288 call DTGSET(NT,B(4, KBLO),0,0,JHI,JLO,JNEW,TRIANG,MT)
317 JLO = B(3, KBLO)
318 CROSS = -(Y(JHI)-Y(JNEW)) * (X(JLO)-X(JHI))
319 * +(X(JHI)-X(JNEW)) * (Y(JLO)-Y(JHI))
332 call DTGSET(NT, B(4, KBLO), 0, B(4, KBHI), JHI, JLO,
361 JLO= B(3, KBLO)
362 CROSS = -(Y(JLO)-Y(JHI)) * (X(JNEW)-X(JLO))
363 * +(X(JLO)-X(JHI)) * (Y(JNEW)-Y(JLO))
[all …]
H A Dstggrd.f255 JLO = B(3, KBLO)
261 if ( X(JNEW) .eq. X(JLO) .and. Y(JNEW).eq.Y(JLO)) then
288 call STGSET(NT,B(4, KBLO),0,0,JHI,JLO,JNEW,TRIANG,MT)
317 JLO = B(3, KBLO)
318 CROSS = -(Y(JHI)-Y(JNEW)) * (X(JLO)-X(JHI))
319 * +(X(JHI)-X(JNEW)) * (Y(JLO)-Y(JHI))
332 call STGSET(NT, B(4, KBLO), 0, B(4, KBHI), JHI, JLO,
361 JLO= B(3, KBLO)
362 CROSS = -(Y(JLO)-Y(JHI)) * (X(JNEW)-X(JLO))
363 * +(X(JLO)-X(JHI)) * (Y(JNEW)-Y(JLO))
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dzlahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
288 $ H( JLO, I ), 1 )
H A Dclahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dclahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
H A Dzlahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
288 $ H( JLO, I ), 1 )
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzlahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
288 $ H( JLO, I ), 1 )
H A Dclahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dzlahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M, local
272 JLO = 1
275 JLO = ILO
287 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
288 $ H( JLO, I ), 1 )
H A Dclahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dclahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
H A Dzlahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
288 $ H( JLO, I ), 1 )
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/
H A Dzlahqr.f229 INTEGER I, I1, I2, ITS, J, JHI, JLO, K, L, M, NH, NZ
273 JLO = 1
276 JLO = ILO
288 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
289 $ H( JLO, I ), 1 )
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/
H A Dclahqr.f229 INTEGER I, I1, I2, ITS, J, JHI, JLO, K, L, M, NH, NZ
273 JLO = 1
276 JLO = ILO
288 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dclahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M, local
272 JLO = 1
275 JLO = ILO
287 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
H A Dzlahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
288 $ H( JLO, I ), 1 )
/dports/science/elk/elk-7.2.42/src/LAPACK/
H A Dzlahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
288 $ H( JLO, I ), 1 )
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/
H A Dzlahqr.f229 INTEGER I, I1, I2, ITS, J, JHI, JLO, K, L, M, NH, NZ
273 JLO = 1
276 JLO = ILO
288 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
289 $ H( JLO, I ), 1 )
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/
H A Dclahqr.f229 INTEGER I, I1, I2, ITS, J, JHI, JLO, K, L, M, NH, NZ
273 JLO = 1
276 JLO = ILO
288 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
/dports/math/cblas/lapack-3.10.0/SRC/
H A Dclahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL CSCAL( MIN( JHI, I+1 )-JLO+1, CONJG( SC ), H( JLO, I ),
H A Dzlahqr.f227 INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M,
272 JLO = 1
275 JLO = ILO
287 CALL ZSCAL( MIN( JHI, I+1 )-JLO+1, DCONJG( SC ),
288 $ H( JLO, I ), 1 )
/dports/biology/mopac/mopac7-1.15/fortran/
H A Dmatout.f32 JLO=NFIRST(I)
36 DO 10 J=JLO,JHI
H A Dvecprt.f45 JLO=NFIRST(I)
49 DO 20 J=JLO,JHI
H A Dmatou1.f59 JLO=NFIRST(I)
64 DO 10 J=JLO,JHI
/dports/devel/ga/ga-5.8/pario/dra/
H A Ddisk.arrays.c69 #define JLO 2 macro
991 aligned[a][ JLO ] = ds_a.lo[1]; aligned[a][ JHI ] = ds_a.hi[1]; in dai_decomp_section()
1013 unaligned[u][ JLO ] = cover[u][ JLO ] = ds_a.lo[1]; in dai_decomp_section()
1042 unaligned[u][ JLO ] = cover[u][ JLO ] = ds_a.lo[1]; in dai_decomp_section()
1102 &ds_chunk->lo[1], list[ JLO ], list[ JHI ], in dai_next_chunk()
1115 if(ds_chunk->lo[1] < list[ JLO ]) ds_chunk->lo[1] = list[ JLO ]; in dai_next_chunk()

12