Home
last modified time | relevance | path

Searched refs:breal (Results 1 – 25 of 112) sorted by relevance

12345

/dports/devel/ga/ga-5.8/global/testing/
H A Dfield-test.F163 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 Dget_zpol.pl20 ($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 Dfactor.c922 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 DfindPivot.c581 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 Dfactor.c922 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 DfindPivot.c581 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 Dfactor.c922 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 DfindPivot.c581 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 Dfactor.c922 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 DfindPivot.c581 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 Dutil.c227 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 Dutil.c227 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 Dutil.c227 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 Dutil.c227 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 Dnetworkthread.cpp69 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 DComplexCell.cc422 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 Dutil.c102 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 Dutil.c102 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 Dutil.c102 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 Dutil.c102 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 Dmoment.cc57 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 DZV.h55 double breal,
203 double breal,
/dports/math/spooles-mpich/spooles.2.2_SHARED/Utilities/
H A DZV.h55 double breal,
203 double breal,
/dports/math/spooles-mpich/spooles.2.2/Utilities/
H A DZV.h55 double breal,
203 double breal,
/dports/math/spooles/spooles.2.2_SHARED/Utilities/
H A DZV.h55 double breal,
203 double breal,

12345