Home
last modified time | relevance | path

Searched refs:IQ1 (Results 1 – 25 of 83) sorted by relevance

1234

/dports/science/nwchem-data/nwchem-7.0.2-release/src/leps/
H A Dgasdev.F41 INTEGER idum,IM1,IM2,IMM1,IA1,IA2,IQ1,IQ2,IR1,IR2,NTAB,NDIV
44 1 IA1=40014,IA2=40692,IQ1=53668,IQ2=52774,IR1=12211,IR2=3791,
53 k=idum/IQ1
54 idum=IA1*(idum-k*IQ1)-k*IR1
60 k=idum/IQ1
61 idum=IA1*(idum-k*IQ1)-k*IR1
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/leps/
H A Dgasdev.F41 INTEGER idum,IM1,IM2,IMM1,IA1,IA2,IQ1,IQ2,IR1,IR2,NTAB,NDIV
44 1 IA1=40014,IA2=40692,IQ1=53668,IQ2=52774,IR1=12211,IR2=3791,
53 k=idum/IQ1
54 idum=IA1*(idum-k*IQ1)-k*IR1
60 k=idum/IQ1
61 idum=IA1*(idum-k*IQ1)-k*IR1
/dports/math/lapack95/LAPACK95/TESTING/
H A Dla_test_ssbevx.f9033 INTEGER :: I, J, IAB1, IAB2, IW, IZ1, IZ2, IQ1, IQ2, & local
42 IZ1 = N; IZ2 = N; IRANGE = RANGE; IVL=VL; IVU=VU; IQ1 = N
68 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
76 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
84 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
89 IQ1 = IZ1 - 3
92 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
102 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
106 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
110 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
H A Dla_test_chbevx.f9035 INTEGER :: I, J, IAB1, IAB2, IW, IZ1, IZ2, IQ1, IQ2, & local
44 IZ1 = N; IZ2 = N; IRANGE = RANGE; IVL=VL; IVU=VU; IQ1 = N
70 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
78 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
86 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
91 IQ1 = IZ1 - 3
94 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
104 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
108 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
112 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
H A Dla_test_dsbevx.f9033 INTEGER :: I, J, IAB1, IAB2, IW, IZ1, IZ2, IQ1, IQ2, & local
42 IZ1 = N; IZ2 = N; IRANGE = RANGE; IVL=VL; IVU=VU; IQ1 = N
68 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
76 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
84 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
89 IQ1 = IZ1 - 3
92 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
102 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
106 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
110 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
H A Dla_test_zhbevx.f9035 INTEGER :: I, J, IAB1, IAB2, IW, IZ1, IZ2, IQ1, IQ2, & local
44 IZ1 = N; IZ2 = N; IRANGE = RANGE; IVL=VL; IVU=VU; IQ1 = N
70 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
78 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
86 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
91 IQ1 = IZ1 - 3
94 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
104 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
108 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
112 & Q=Q(1:IQ1,1:IQ2), ABSTOL=ABSTOL, INFO=INFO )
H A Dla_test_dggsvd.f9030 INTEGER :: I, J, IA1, IA2, IB1, IB2, IU1, IU2, IV1, IV2, IQ1, & local
41 IQ1 = MAX(1,N); IQ2 = N
58 IQ1 = IQ1 - 1
69 & V(1: IV1, 1: IV2), Q(1: IQ1, 1: IQ2), IWORK, INFO)
79 & V=V(1: IV1, 1: IV2), Q=Q(1: IQ1, 1: IQ2), IWORK=IWORK, INFO=INFO)
91 & Q=Q(1: IQ1, 1: IQ2), IWORK=IWORK, INFO=INFO)
101 & Q=Q(1: IQ1, 1: IQ2), IWORK=IWORK, INFO=INFO)
H A Dla_test_sggsvd.f9030 INTEGER :: I, J, IA1, IA2, IB1, IB2, IU1, IU2, IV1, IV2, IQ1, & local
41 IQ1 = MAX(1,N); IQ2 = N
58 IQ1 = IQ1 - 1
69 & V(1: IV1, 1: IV2), Q(1: IQ1, 1: IQ2), IWORK, INFO)
79 & V=V(1: IV1, 1: IV2), Q=Q(1: IQ1, 1: IQ2), IWORK=IWORK, INFO=INFO)
91 & Q=Q(1: IQ1, 1: IQ2), IWORK=IWORK, INFO=INFO)
101 & Q=Q(1: IQ1, 1: IQ2), IWORK=IWORK, INFO=INFO)
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlaed2.f242 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
482 IQ1 = 1
486 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
489 IQ1 = IQ1 + N1
494 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
498 IQ1 = IQ1 + N1
510 IQ1 = IQ2
523 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
H A Dslaed2.f242 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
482 IQ1 = 1
486 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
489 IQ1 = IQ1 + N1
494 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
498 IQ1 = IQ1 + N1
510 IQ1 = IQ2
523 CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Dslaed2.f239 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
479 IQ1 = 1
483 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
486 IQ1 = IQ1 + N1
491 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
495 IQ1 = IQ1 + N1
507 IQ1 = IQ2
520 CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
H A Ddlaed2.f239 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
479 IQ1 = 1
483 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
486 IQ1 = IQ1 + N1
491 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
495 IQ1 = IQ1 + N1
507 IQ1 = IQ2
520 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
/dports/math/blas/lapack-3.10.0/SRC/
H A Dslaed2.f239 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
479 IQ1 = 1
483 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
486 IQ1 = IQ1 + N1
491 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
495 IQ1 = IQ1 + N1
507 IQ1 = IQ2
520 CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
H A Ddlaed2.f239 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
479 IQ1 = 1
483 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
486 IQ1 = IQ1 + N1
491 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
495 IQ1 = IQ1 + N1
507 IQ1 = IQ2
520 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/
H A Ddlaed2.f242 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
482 IQ1 = 1
486 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
489 IQ1 = IQ1 + N1
494 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
498 IQ1 = IQ1 + N1
510 IQ1 = IQ2
523 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/
H A Dslaed2.f141 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1, local
381 IQ1 = 1
385 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
388 IQ1 = IQ1 + N1
393 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
397 IQ1 = IQ1 + N1
409 IQ1 = IQ2
421 CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, Q( 1, K+1 ), LDQ )
H A Ddlaed2.f141 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1, local
381 IQ1 = 1
385 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
388 IQ1 = IQ1 + N1
393 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
397 IQ1 = IQ1 + N1
409 IQ1 = IQ2
421 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, Q( 1, K+1 ), LDQ )
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Ddlaed2.f239 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
479 IQ1 = 1
483 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
486 IQ1 = IQ1 + N1
491 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
495 IQ1 = IQ1 + N1
507 IQ1 = IQ2
520 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
H A Dslaed2.f239 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
479 IQ1 = 1
483 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
486 IQ1 = IQ1 + N1
491 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
495 IQ1 = IQ1 + N1
507 IQ1 = IQ2
520 CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
/dports/math/lapack/lapack-3.10.0/SRC/
H A Ddlaed2.f239 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
479 IQ1 = 1
483 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
486 IQ1 = IQ1 + N1
491 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
495 IQ1 = IQ1 + N1
507 IQ1 = IQ2
520 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
H A Dslaed2.f239 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
479 IQ1 = 1
483 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
486 IQ1 = IQ1 + N1
491 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
495 IQ1 = IQ1 + N1
507 IQ1 = IQ2
520 CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/
H A Ddlaed2.f141 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
381 IQ1 = 1
385 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
388 IQ1 = IQ1 + N1
393 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
397 IQ1 = IQ1 + N1
409 IQ1 = IQ2
421 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, Q( 1, K+1 ), LDQ )
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/
H A Dslaed2.f149 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
398 IQ1 = 1
402 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
405 IQ1 = IQ1 + N1
410 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
414 IQ1 = IQ1 + N1
426 IQ1 = IQ2
438 CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N, Q( 1, K+1 ), LDQ )
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/
H A Dslaed2.f242 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
482 IQ1 = 1
486 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
489 IQ1 = IQ1 + N1
494 CALL SCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
498 IQ1 = IQ1 + N1
510 IQ1 = IQ2
523 CALL SLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/
H A Ddlaed2.f242 INTEGER CT, I, IMAX, IQ1, IQ2, J, JMAX, JS, K2, N1P1,
482 IQ1 = 1
486 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
489 IQ1 = IQ1 + N1
494 CALL DCOPY( N1, Q( 1, JS ), 1, Q2( IQ1 ), 1 )
498 IQ1 = IQ1 + N1
510 IQ1 = IQ2
523 CALL DLACPY( 'A', N, CTOT( 4 ), Q2( IQ1 ), N,

1234