/dports/science/xcrysden/xcrysden-1.6.2/F/SRC_nn/ |
H A D | dirlat.f | 15 COMMON /GENER / BR2(3,3) 39 BR2(2,1)=0.0d0 51 BR2(1,1)=1.0d0*sin(gamma0)*sin(beta1) 52 BR2(1,2)=1.0d0*cos(gamma0)*sin(beta1) 53 BR2(1,3)=1.0d0*cos(beta1) 55 BR2(2,2)=1.0d0*sin(alpha1) 56 BR2(2,3)=1.0d0*cos(alpha1) 160 80 BR2(1,1)=1/2.d0/sqrt(3.d0) 164 BR2(2,2)=1*0.5d0 166 BR2(3,1)=-1/SQRT(3.d0) [all …]
|
H A D | nn.f | 138 P(1)=I1*BR2(1,1)+I2*BR2(2,1)+I3*BR2(3,1) 139 P(2)=I1*BR2(1,2)+I2*BR2(2,2)+I3*BR2(3,2) 140 P(3)=I1*BR2(1,3)+I2*BR2(2,3)+I3*BR2(3,3) 164 dif(1)=help(1)*BR2(1,1)+help(2)*BR2(2,1)+help(3)*BR2(3,1) 165 dif(2)=help(1)*BR2(1,2)+help(2)*BR2(2,2)+help(3)*BR2(3,2) 166 dif(3)=help(1)*BR2(1,3)+help(2)*BR2(2,3)+help(3)*BR2(3,3) 172 dif(1)=(help(1)*BR2(1,1)*a(1)+help(2)*BR2(2,1)*a(2)+ 173 * help(3)*BR2(3,1)*a(3))/a(1) 174 dif(2)=(help(1)*BR2(1,2)*a(1)+help(2)*BR2(2,2)*a(2)+ 176 dif(3)=(help(1)*BR2(1,3)*a(1)+help(2)*BR2(2,3)*a(2)+ [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlaln2.f | 425 BR2 = B( 1, 1 ) 428 BR2 = B( 2, 1 ) 430 BR2 = BR2 - LR21*BR1 431 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 437 XR2 = ( BR2*SCALE ) / UR22 550 BR2 = B( 1, 1 ) 556 BR2 = B( 2, 1 ) 560 BR2 = BR2 - LR21*BR1 + LI21*BI1 564 $ ABS( BR2 )+ABS( BI2 ) ) 570 BR2 = SCALE*BR2 [all …]
|
H A D | slaln2.f | 425 BR2 = B( 1, 1 ) 428 BR2 = B( 2, 1 ) 430 BR2 = BR2 - LR21*BR1 431 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 437 XR2 = ( BR2*SCALE ) / UR22 550 BR2 = B( 1, 1 ) 556 BR2 = B( 2, 1 ) 560 BR2 = BR2 - LR21*BR1 + LI21*BI1 564 $ ABS( BR2 )+ABS( BI2 ) ) 570 BR2 = SCALE*BR2 [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
H A D | dlaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | slaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
H A D | dlaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slaln2.f | 322 BR2 = B( 1, 1 ) 325 BR2 = B( 2, 1 ) 327 BR2 = BR2 - LR21*BR1 328 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 334 XR2 = ( BR2*SCALE ) / UR22 447 BR2 = B( 1, 1 ) 453 BR2 = B( 2, 1 ) 457 BR2 = BR2 - LR21*BR1 + LI21*BI1 461 $ ABS( BR2 )+ABS( BI2 ) ) 467 BR2 = SCALE*BR2 [all …]
|
H A D | dlaln2.f | 322 BR2 = B( 1, 1 ) 325 BR2 = B( 2, 1 ) 327 BR2 = BR2 - LR21*BR1 328 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 334 XR2 = ( BR2*SCALE ) / UR22 447 BR2 = B( 1, 1 ) 453 BR2 = B( 2, 1 ) 457 BR2 = BR2 - LR21*BR1 + LI21*BI1 461 $ ABS( BR2 )+ABS( BI2 ) ) 467 BR2 = SCALE*BR2 [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
H A D | slaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
H A D | slaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | dlaln2.f | 322 BR2 = B( 1, 1 ) 325 BR2 = B( 2, 1 ) 327 BR2 = BR2 - LR21*BR1 328 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 334 XR2 = ( BR2*SCALE ) / UR22 447 BR2 = B( 1, 1 ) 453 BR2 = B( 2, 1 ) 457 BR2 = BR2 - LR21*BR1 + LI21*BI1 461 $ ABS( BR2 )+ABS( BI2 ) ) 467 BR2 = SCALE*BR2 [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlaln2.f | 322 BR2 = B( 1, 1 ) 325 BR2 = B( 2, 1 ) 327 BR2 = BR2 - LR21*BR1 328 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 334 XR2 = ( BR2*SCALE ) / UR22 447 BR2 = B( 1, 1 ) 453 BR2 = B( 2, 1 ) 457 BR2 = BR2 - LR21*BR1 + LI21*BI1 461 $ ABS( BR2 )+ABS( BI2 ) ) 467 BR2 = SCALE*BR2 [all …]
|
H A D | slaln2.f | 322 BR2 = B( 1, 1 ) 325 BR2 = B( 2, 1 ) 327 BR2 = BR2 - LR21*BR1 328 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 334 XR2 = ( BR2*SCALE ) / UR22 447 BR2 = B( 1, 1 ) 453 BR2 = B( 2, 1 ) 457 BR2 = BR2 - LR21*BR1 + LI21*BI1 461 $ ABS( BR2 )+ABS( BI2 ) ) 467 BR2 = SCALE*BR2 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | dlaln2.f | 425 BR2 = B( 1, 1 ) 428 BR2 = B( 2, 1 ) 430 BR2 = BR2 - LR21*BR1 431 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 437 XR2 = ( BR2*SCALE ) / UR22 550 BR2 = B( 1, 1 ) 556 BR2 = B( 2, 1 ) 560 BR2 = BR2 - LR21*BR1 + LI21*BI1 564 $ ABS( BR2 )+ABS( BI2 ) ) 570 BR2 = SCALE*BR2 [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/ |
H A D | slaln2.f | 425 BR2 = B( 1, 1 ) 428 BR2 = B( 2, 1 ) 430 BR2 = BR2 - LR21*BR1 431 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 437 XR2 = ( BR2*SCALE ) / UR22 550 BR2 = B( 1, 1 ) 556 BR2 = B( 2, 1 ) 560 BR2 = BR2 - LR21*BR1 + LI21*BI1 564 $ ABS( BR2 )+ABS( BI2 ) ) 570 BR2 = SCALE*BR2 [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlaln2.f | 425 BR2 = B( 1, 1 ) 428 BR2 = B( 2, 1 ) 430 BR2 = BR2 - LR21*BR1 431 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 437 XR2 = ( BR2*SCALE ) / UR22 550 BR2 = B( 1, 1 ) 556 BR2 = B( 2, 1 ) 560 BR2 = BR2 - LR21*BR1 + LI21*BI1 564 $ ABS( BR2 )+ABS( BI2 ) ) 570 BR2 = SCALE*BR2 [all …]
|
H A D | slaln2.f | 425 BR2 = B( 1, 1 ) 428 BR2 = B( 2, 1 ) 430 BR2 = BR2 - LR21*BR1 431 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 437 XR2 = ( BR2*SCALE ) / UR22 550 BR2 = B( 1, 1 ) 556 BR2 = B( 2, 1 ) 560 BR2 = BR2 - LR21*BR1 + LI21*BI1 564 $ ABS( BR2 )+ABS( BI2 ) ) 570 BR2 = SCALE*BR2 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dlaln2.f | 425 BR2 = B( 1, 1 ) 428 BR2 = B( 2, 1 ) 430 BR2 = BR2 - LR21*BR1 431 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 437 XR2 = ( BR2*SCALE ) / UR22 550 BR2 = B( 1, 1 ) 556 BR2 = B( 2, 1 ) 560 BR2 = BR2 - LR21*BR1 + LI21*BI1 564 $ ABS( BR2 )+ABS( BI2 ) ) 570 BR2 = SCALE*BR2 [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
H A D | slaln2.f | 425 BR2 = B( 1, 1 ) 428 BR2 = B( 2, 1 ) 430 BR2 = BR2 - LR21*BR1 431 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 437 XR2 = ( BR2*SCALE ) / UR22 550 BR2 = B( 1, 1 ) 556 BR2 = B( 2, 1 ) 560 BR2 = BR2 - LR21*BR1 + LI21*BI1 564 $ ABS( BR2 )+ABS( BI2 ) ) 570 BR2 = SCALE*BR2 [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|
H A D | dlaln2.f | 422 BR2 = B( 1, 1 ) 425 BR2 = B( 2, 1 ) 427 BR2 = BR2 - LR21*BR1 428 BBND = MAX( ABS( BR1*( UR22*UR11R ) ), ABS( BR2 ) ) 434 XR2 = ( BR2*SCALE ) / UR22 547 BR2 = B( 1, 1 ) 553 BR2 = B( 2, 1 ) 557 BR2 = BR2 - LR21*BR1 + LI21*BI1 561 $ ABS( BR2 )+ABS( BI2 ) ) 567 BR2 = SCALE*BR2 [all …]
|