/dports/devel/ga/ga-5.8/global/testing/ |
H A D | field-test.F | 163 real breal(n,n),bimg(n,n) 217 breal(i,j) = -1d0 308 if(breal(i,j).ne.0d0) then 374 if (breal(i,j) .ne. areal(i,j)) then 498 if (breal(i,j) .ne. areal(i,j)) then 532 double precision areal(n,n), breal(n,n) 600 breal(i,j) = -1d0 708 if(breal(i,j).ne.(0d0,0d0)) then 765 call util_qfill(n*n, 0.0d0, breal, 1) 777 if (breal(i,j) .ne. areal(i,j)) then [all …]
|
/dports/science/qwalk/mainline-1.0.1-300-g1b7e381/src/attic/ |
H A D | get_zpol.pl | 20 ($breal[0],$breal[1],$bimag[0], $bimag[1])=get_realimag("dist", $suffix); 21 print "dist real/imag $breal[0] $bimag[0] errors $breal[1] $bimag[1] \n"; 22 @b=magnitude(@breal, @bimag); 29 $adotb[0]=$areal[0]*$breal[0]+$aimag[0]*$bimag[0]; 30 $adotb[1]=$areal[1]*$breal[0]+$areal[0]*$breal[1]
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/Chv/src/ |
H A D | factor.c | 922 breal = entries[1] ; in symmetric2x2() 924 if ( (denom = areal*creal - breal*breal) == 0.0 ) { in symmetric2x2() 930 freal = -breal*denom ; in symmetric2x2() 936 breal = entries[2] ; in symmetric2x2() 945 areal, aimag, breal, bimag, in symmetric2x2() 946 breal, -bimag, creal, cimag) ; in symmetric2x2() 951 areal, aimag, breal, bimag, in symmetric2x2() 952 breal, bimag, creal, cimag) ; in symmetric2x2() 1058 l0real = u0real*areal + u1real*breal ; in symmetric2x2() 1059 l1real = u0real*breal + u1real*creal ; in symmetric2x2() [all …]
|
H A D | findPivot.c | 581 double aimag, areal, bimag, breal, cimag, creal, imag, real ; in sym2x2() local 584 Chv_complexEntry(chv, irow, jcol, &breal, &bimag) ; in sym2x2() 588 bmag = Zabs(breal, bimag) ; in sym2x2() 590 denom = fabs(areal*creal - breal*breal - bimag*bimag) ; in sym2x2() 593 bmag = Zabs(breal, bimag) ; in sym2x2() 595 real = areal*creal - aimag*cimag - breal*breal + bimag*bimag ; in sym2x2() 596 imag = areal*cimag + aimag*creal - 2*breal*bimag ; in sym2x2()
|
/dports/math/spooles-mpich/spooles.2.2/Chv/src/ |
H A D | factor.c | 922 breal = entries[1] ; in symmetric2x2() 924 if ( (denom = areal*creal - breal*breal) == 0.0 ) { in symmetric2x2() 930 freal = -breal*denom ; in symmetric2x2() 936 breal = entries[2] ; in symmetric2x2() 945 areal, aimag, breal, bimag, in symmetric2x2() 946 breal, -bimag, creal, cimag) ; in symmetric2x2() 951 areal, aimag, breal, bimag, in symmetric2x2() 952 breal, bimag, creal, cimag) ; in symmetric2x2() 1058 l0real = u0real*areal + u1real*breal ; in symmetric2x2() 1059 l1real = u0real*breal + u1real*creal ; in symmetric2x2() [all …]
|
H A D | findPivot.c | 581 double aimag, areal, bimag, breal, cimag, creal, imag, real ; in sym2x2() local 584 Chv_complexEntry(chv, irow, jcol, &breal, &bimag) ; in sym2x2() 588 bmag = Zabs(breal, bimag) ; in sym2x2() 590 denom = fabs(areal*creal - breal*breal - bimag*bimag) ; in sym2x2() 593 bmag = Zabs(breal, bimag) ; in sym2x2() 595 real = areal*creal - aimag*cimag - breal*breal + bimag*bimag ; in sym2x2() 596 imag = areal*cimag + aimag*creal - 2*breal*bimag ; in sym2x2()
|
/dports/math/spooles/spooles.2.2_SHARED/Chv/src/ |
H A D | factor.c | 922 breal = entries[1] ; in symmetric2x2() 924 if ( (denom = areal*creal - breal*breal) == 0.0 ) { in symmetric2x2() 930 freal = -breal*denom ; in symmetric2x2() 936 breal = entries[2] ; in symmetric2x2() 945 areal, aimag, breal, bimag, in symmetric2x2() 946 breal, -bimag, creal, cimag) ; in symmetric2x2() 951 areal, aimag, breal, bimag, in symmetric2x2() 952 breal, bimag, creal, cimag) ; in symmetric2x2() 1058 l0real = u0real*areal + u1real*breal ; in symmetric2x2() 1059 l1real = u0real*breal + u1real*creal ; in symmetric2x2() [all …]
|
H A D | findPivot.c | 581 double aimag, areal, bimag, breal, cimag, creal, imag, real ; in sym2x2() local 584 Chv_complexEntry(chv, irow, jcol, &breal, &bimag) ; in sym2x2() 588 bmag = Zabs(breal, bimag) ; in sym2x2() 590 denom = fabs(areal*creal - breal*breal - bimag*bimag) ; in sym2x2() 593 bmag = Zabs(breal, bimag) ; in sym2x2() 595 real = areal*creal - aimag*cimag - breal*breal + bimag*bimag ; in sym2x2() 596 imag = areal*cimag + aimag*creal - 2*breal*bimag ; in sym2x2()
|
/dports/math/spooles/spooles.2.2/Chv/src/ |
H A D | factor.c | 922 breal = entries[1] ; in symmetric2x2() 924 if ( (denom = areal*creal - breal*breal) == 0.0 ) { in symmetric2x2() 930 freal = -breal*denom ; in symmetric2x2() 936 breal = entries[2] ; in symmetric2x2() 945 areal, aimag, breal, bimag, in symmetric2x2() 946 breal, -bimag, creal, cimag) ; in symmetric2x2() 951 areal, aimag, breal, bimag, in symmetric2x2() 952 breal, bimag, creal, cimag) ; in symmetric2x2() 1058 l0real = u0real*areal + u1real*breal ; in symmetric2x2() 1059 l1real = u0real*breal + u1real*creal ; in symmetric2x2() [all …]
|
H A D | findPivot.c | 581 double aimag, areal, bimag, breal, cimag, creal, imag, real ; in sym2x2() local 584 Chv_complexEntry(chv, irow, jcol, &breal, &bimag) ; in sym2x2() 588 bmag = Zabs(breal, bimag) ; in sym2x2() 590 denom = fabs(areal*creal - breal*breal - bimag*bimag) ; in sym2x2() 593 bmag = Zabs(breal, bimag) ; in sym2x2() 595 real = areal*creal - aimag*cimag - breal*breal + bimag*bimag ; in sym2x2() 596 imag = areal*cimag + aimag*creal - 2*breal*bimag ; in sym2x2()
|
/dports/math/spooles-mpich/spooles.2.2/Iter/src/ |
H A D | util.c | 227 double *Ai, *Bj, areal, breal, aimag, bimag, tmp; in DenseMtx_colGenAxpy() local 268 breal=*beta; in DenseMtx_colGenAxpy() 277 if (breal != 0.0) { in DenseMtx_colGenAxpy() 278 if (breal == 1.0) in DenseMtx_colGenAxpy() 281 for (k=0; k<nrowA; k++) Ai[k*rowincA]+=breal*Bj[k*rowincB]; in DenseMtx_colGenAxpy() 329 if (breal == 0.0) { in DenseMtx_colGenAxpy() 339 else if (breal == 1.0) { in DenseMtx_colGenAxpy() 356 {Ai[j]+=Bj[k]*breal; Ai[j+1]+=Bj[k+1]*breal;} in DenseMtx_colGenAxpy() 360 {Ai[j]+=(breal*Bj[k]-Bj[k+1]); Ai[j+1]+=(breal*Bj[k+1]+Bj[k]);} in DenseMtx_colGenAxpy() 364 {Ai[j]+=(breal*Bj[k]-bimag*Bj[k+1]); in DenseMtx_colGenAxpy() [all …]
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/Iter/src/ |
H A D | util.c | 227 double *Ai, *Bj, areal, breal, aimag, bimag, tmp; in DenseMtx_colGenAxpy() local 268 breal=*beta; in DenseMtx_colGenAxpy() 277 if (breal != 0.0) { in DenseMtx_colGenAxpy() 278 if (breal == 1.0) in DenseMtx_colGenAxpy() 281 for (k=0; k<nrowA; k++) Ai[k*rowincA]+=breal*Bj[k*rowincB]; in DenseMtx_colGenAxpy() 329 if (breal == 0.0) { in DenseMtx_colGenAxpy() 339 else if (breal == 1.0) { in DenseMtx_colGenAxpy() 356 {Ai[j]+=Bj[k]*breal; Ai[j+1]+=Bj[k+1]*breal;} in DenseMtx_colGenAxpy() 360 {Ai[j]+=(breal*Bj[k]-Bj[k+1]); Ai[j+1]+=(breal*Bj[k+1]+Bj[k]);} in DenseMtx_colGenAxpy() 364 {Ai[j]+=(breal*Bj[k]-bimag*Bj[k+1]); in DenseMtx_colGenAxpy() [all …]
|
/dports/math/spooles/spooles.2.2/Iter/src/ |
H A D | util.c | 227 double *Ai, *Bj, areal, breal, aimag, bimag, tmp; in DenseMtx_colGenAxpy() local 268 breal=*beta; in DenseMtx_colGenAxpy() 277 if (breal != 0.0) { in DenseMtx_colGenAxpy() 278 if (breal == 1.0) in DenseMtx_colGenAxpy() 281 for (k=0; k<nrowA; k++) Ai[k*rowincA]+=breal*Bj[k*rowincB]; in DenseMtx_colGenAxpy() 329 if (breal == 0.0) { in DenseMtx_colGenAxpy() 339 else if (breal == 1.0) { in DenseMtx_colGenAxpy() 356 {Ai[j]+=Bj[k]*breal; Ai[j+1]+=Bj[k+1]*breal;} in DenseMtx_colGenAxpy() 360 {Ai[j]+=(breal*Bj[k]-Bj[k+1]); Ai[j+1]+=(breal*Bj[k+1]+Bj[k]);} in DenseMtx_colGenAxpy() 364 {Ai[j]+=(breal*Bj[k]-bimag*Bj[k+1]); in DenseMtx_colGenAxpy() [all …]
|
/dports/math/spooles/spooles.2.2_SHARED/Iter/src/ |
H A D | util.c | 227 double *Ai, *Bj, areal, breal, aimag, bimag, tmp; in DenseMtx_colGenAxpy() local 268 breal=*beta; in DenseMtx_colGenAxpy() 277 if (breal != 0.0) { in DenseMtx_colGenAxpy() 278 if (breal == 1.0) in DenseMtx_colGenAxpy() 281 for (k=0; k<nrowA; k++) Ai[k*rowincA]+=breal*Bj[k*rowincB]; in DenseMtx_colGenAxpy() 329 if (breal == 0.0) { in DenseMtx_colGenAxpy() 339 else if (breal == 1.0) { in DenseMtx_colGenAxpy() 356 {Ai[j]+=Bj[k]*breal; Ai[j+1]+=Bj[k+1]*breal;} in DenseMtx_colGenAxpy() 360 {Ai[j]+=(breal*Bj[k]-Bj[k+1]); Ai[j+1]+=(breal*Bj[k+1]+Bj[k]);} in DenseMtx_colGenAxpy() 364 {Ai[j]+=(breal*Bj[k]-bimag*Bj[k+1]); in DenseMtx_colGenAxpy() [all …]
|
/dports/games/ultimatestunts/ultimatestunts-srcdata-0771/stuntsserver/ |
H A D | networkthread.cpp | 69 CMessageBuffer &breal = m_OutputBuffer.back(); in sendToClient() local 70 breal.setIP(ip); in sendToClient() 71 breal.setPort(port); in sendToClient() 90 CMessageBuffer &breal = m_OutputBuffer.back(); in sendToAll() local 91 breal.setIP(ip); in sendToAll() 92 breal.setPort(port); in sendToAll()
|
/dports/lang/gnu-apl/apl-1.8/src/ |
H A D | ComplexCell.cc | 422 const APL_Float breal = get_real_value(); in bif_maximum() local 427 return a >= breal ? IntCell::zv(Z, a) : FloatCell::zv(Z, breal); in bif_maximum() 434 return FloatCell::zv(Z, a >= breal ? a : breal); in bif_maximum() 446 const APL_Float breal = get_real_value(); in bif_minimum() local 451 return a <= breal ? IntCell::zv(Z, a) : FloatCell::zv(Z, breal); in bif_minimum() 458 return FloatCell::zv(Z, a <= breal ? a : breal); in bif_minimum() 857 APL_Float breal = get_real_value(); in compare() local 863 if (tolerantly_equal(areal, breal, qct)) in compare() 866 breal = get_imag_value(); in compare() 869 return (breal < areal) ? COMP_LT : COMP_GT; in compare()
|
/dports/math/spooles-mpich/spooles.2.2/FrontMtx/src/ |
H A D | util.c | 102 double arm, areal, bimag, breal, creal, mid, val ; in FrontMtx_inertia() local 186 breal = entries[ii+1] ; in FrontMtx_inertia() 190 + breal*breal) ; in FrontMtx_inertia() 224 breal = entries[2*ii+2] ; in FrontMtx_inertia() 229 + breal*breal + bimag*bimag) ; in FrontMtx_inertia()
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/FrontMtx/src/ |
H A D | util.c | 102 double arm, areal, bimag, breal, creal, mid, val ; in FrontMtx_inertia() local 186 breal = entries[ii+1] ; in FrontMtx_inertia() 190 + breal*breal) ; in FrontMtx_inertia() 224 breal = entries[2*ii+2] ; in FrontMtx_inertia() 229 + breal*breal + bimag*bimag) ; in FrontMtx_inertia()
|
/dports/math/spooles/spooles.2.2_SHARED/FrontMtx/src/ |
H A D | util.c | 102 double arm, areal, bimag, breal, creal, mid, val ; in FrontMtx_inertia() local 186 breal = entries[ii+1] ; in FrontMtx_inertia() 190 + breal*breal) ; in FrontMtx_inertia() 224 breal = entries[2*ii+2] ; in FrontMtx_inertia() 229 + breal*breal + bimag*bimag) ; in FrontMtx_inertia()
|
/dports/math/spooles/spooles.2.2/FrontMtx/src/ |
H A D | util.c | 102 double arm, areal, bimag, breal, creal, mid, val ; in FrontMtx_inertia() local 186 breal = entries[ii+1] ; in FrontMtx_inertia() 190 + breal*breal) ; in FrontMtx_inertia() 224 breal = entries[2*ii+2] ; in FrontMtx_inertia() 229 + breal*breal + bimag*bimag) ; in FrontMtx_inertia()
|
/dports/emulators/xbraitenberg/xbraitenberg-0.9/ |
H A D | moment.cc | 57 double breal = (double)b._sec * Moment::MICRO_PER_SEC + b._usec; in operator /() local 58 return areal / breal; in operator /()
|
/dports/math/spooles/spooles.2.2/Utilities/ |
H A D | ZV.h | 55 double breal, 203 double breal,
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/Utilities/ |
H A D | ZV.h | 55 double breal, 203 double breal,
|
/dports/math/spooles-mpich/spooles.2.2/Utilities/ |
H A D | ZV.h | 55 double breal, 203 double breal,
|
/dports/math/spooles/spooles.2.2_SHARED/Utilities/ |
H A D | ZV.h | 55 double breal, 203 double breal,
|