/dports/science/nwchem-data/nwchem-7.0.2-release/src/leps/ |
H A D | gasdev.F | 41 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 D | gasdev.F | 41 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 D | la_test_ssbevx.f90 | 33 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 D | la_test_chbevx.f90 | 35 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 D | la_test_dsbevx.f90 | 33 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 D | la_test_zhbevx.f90 | 35 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 D | la_test_dggsvd.f90 | 30 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 D | la_test_sggsvd.f90 | 30 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 D | dlaed2.f | 242 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 D | slaed2.f | 242 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 D | slaed2.f | 239 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 D | dlaed2.f | 239 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 D | slaed2.f | 239 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 D | dlaed2.f | 239 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 D | dlaed2.f | 242 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 D | slaed2.f | 141 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 D | dlaed2.f | 141 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 D | dlaed2.f | 239 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 D | slaed2.f | 239 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 D | dlaed2.f | 239 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 D | slaed2.f | 239 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 D | dlaed2.f | 141 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 D | slaed2.f | 149 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 D | slaed2.f | 242 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 D | dlaed2.f | 242 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,
|