Home
last modified time | relevance | path

Searched refs:zzr (Results 1 – 25 of 77) sorted by relevance

1234

/dports/math/eispack/eispack-1.0_14/
H A Dcomlr2.f150 zzr = -zzr
180 xi = zzr
181 zzr = xr
183 tst1 = zzr / yi * (zzr + xr + xi)
201 hr(i,j) = zzr
212 480 hr(i,im1) = zzr
234 hr(i,j) = zzr
293 zzr = 0.0d0
298 zzr = zzr + hr(i,j) * hr(j,en) - hi(i,j) * hi(j,en)
345 zzr = 0.0d0
[all …]
H A Dcomlr.f98 zzr = -zzr
128 xi = zzr
129 zzr = xr
131 tst1 = zzr / yi * (zzr + xr + xi)
147 zzr = hr(im1,j)
149 hr(i,j) = zzr
155 call cdiv(xr,xi,yr,yi,zzr,zzi)
158 460 call cdiv(yr,yi,xr,xi,zzr,zzi)
160 480 hr(i,im1) = zzr
180 zzr = hr(i,j-1)
[all …]
H A Dcomqr2.f198 if (yr * zzr + yi * zzi .ge. 0.0d0) go to 310
199 zzr = -zzr
201 310 call cdiv(xr,xi,yr+zzr,yi+zzi,xr,xi)
236 zzr = hr(i,j)
270 zzr = hr(i,j)
283 zzr = zr(i,j)
340 zzr = 0.0d0
345 zzr = zzr + hr(i,j) * hr(j,en) - hi(i,j) * hi(j,en)
392 zzr = 0.0d0
396 zzr = zzr + zr(i,k) * hr(k,j) - zi(i,k) * hi(k,j)
[all …]
H A Dcomqr.f127 call csroot(yr**2-yi**2+xr,2.0d0*yr*yi+xi,zzr,zzi)
128 if (yr * zzr + yi * zzi .ge. 0.0d0) go to 310
129 zzr = -zzr
131 310 call cdiv(xr,xi,yr+zzr,yi+zzi,xr,xi)
166 zzr = hr(i,j)
168 hr(i-1,j) = xr * yr + xi * yi + hi(i,i-1) * zzr
170 hr(i,j) = xr * zzr - xi * zzi - hi(i,i-1) * yr
171 hi(i,j) = xr * zzi + xi * zzr - hi(i,i-1) * yi
191 zzr = hr(i,j)
197 hr(i,j) = xr * zzr + xi * zzi - hi(j,j-1) * yr
[all …]
/dports/science/afni/afni-AFNI_21.3.16/src/eispack/
H A Deis_comlr.c25 doublereal zzi, zzr; in comlr_() local
169 if (yr * zzr + yi * zzi >= 0.) { in comlr_()
172 zzr = -zzr; in comlr_()
175 d__1 = yr + zzr; in comlr_()
218 xi = zzr; in comlr_()
219 zzr = xr; in comlr_()
222 tst1 = zzr / yi * (zzr + xr + xi); in comlr_()
246 zzr = hr[im1 + j * hr_dim1]; in comlr_()
248 hr[i__ + j * hr_dim1] = zzr; in comlr_()
262 hr[i__ + im1 * hr_dim1] = zzr; in comlr_()
[all …]
H A Deis_comlr2.c28 doublereal zzi, zzr; in comlr2_() local
249 zzr = -zzr; in comlr2_()
252 d__1 = yr + zzr; in comlr2_()
295 xi = zzr; in comlr2_()
296 zzr = xr; in comlr2_()
299 tst1 = zzr / yi * (zzr + xr + xi); in comlr2_()
339 hr[i__ + im1 * hr_dim1] = zzr; in comlr2_()
455 zzr = 0.; in comlr2_()
461 zzr = zzr + hr[i__ + j * hr_dim1] * hr[j + en * hr_dim1] - hi[ in comlr2_()
538 zzr = 0.; in comlr2_()
[all …]
H A Deis_comqr2.c29 doublereal zzi, zzr; in comqr2_() local
331 zzr = -zzr; in comqr2_()
334 d__1 = yr + zzr; in comqr2_()
380 zzr = hr[i__ + j * hr_dim1]; in comqr2_()
383 * hi_dim1] * zzr; in comqr2_()
439 hi_dim1] * zzr; in comqr2_()
454 hi_dim1] * zzr; in comqr2_()
533 zzr = 0.; in comqr2_()
539 zzr = zzr + hr[i__ + j * hr_dim1] * hr[j + en * hr_dim1] - hi[ in comqr2_()
616 zzr = 0.; in comqr2_()
[all …]
H A Deis_comqr.c26 doublereal zzi, zzr; in comqr_() local
213 csroot_(&d__1, &d__4, &zzr, &zzi); in comqr_()
214 if (yr * zzr + yi * zzi >= 0.) { in comqr_()
217 zzr = -zzr; in comqr_()
220 d__1 = yr + zzr; in comqr_()
266 zzr = hr[i__ + j * hr_dim1]; in comqr_()
269 * hi_dim1] * zzr; in comqr_()
302 zzr = hr[i__ + j * hr_dim1]; in comqr_()
312 hi_dim1] * zzr; in comqr_()
313 hr[i__ + j * hr_dim1] = xr * zzr + xi * zzi - hi[j + (j - 1) * in comqr_()
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/
H A Dcomqr3.f6 double precision si,sr,ti,tr,xi,xr,yi,yr,zzi,zzr,norm
169 if (yr*zzr + yi*zzi .ge. 0.0d+0) go to 310
170 zzr = -zzr
172 310 call cdiv(xr,xi,yr+zzr,yi+zzi,zzr,zzi)
173 sr = sr - zzr
207 zzr = hr(i,j)
211 hr(i,j) = xr*zzr - xi*zzi - hi(i,i-1)*yr
212 hi(i,j) = xr*zzi + xi*zzr - hi(i,i-1)*yi
241 zzr = hr(i,j)
247 hr(i,j) = xr*zzr + xi*zzi - hi(j,j-1)*yr
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/signal_processing/src/fortran/
H A Dtrbize.f1 subroutine trbize(nmaxi,maxdeg,nzm,nzero,sm,zm,zzr,zzi) argument
9 double precision zm(maxdeg,*), zzr(*), zzi(*) local
26 zzr(i) = (1.0d+0-qqi)/q
32 10 zzr(i) = -1.0d+0
35 20 zzr(i) = 1.0d+0
H A Dblnumz.f1 subroutine blnumz(nzm,nzero,zzr,zzi,b2,b1,b0,nze) argument
6 dimension nzm(*),nzero(*),zzr(*),zzi(*)
17 qr = zzr(i)
37 50 qrr = zzr(ii)
H A Ddesia.f4 *sm,pren,pimn,ugc,ogc,ack,zm,zzr,zzi,rom,
14 double precision zzr(*),zzi(*),b0(*),b1(*),b2(*)
34 call trbize (nmaxi,maxdeg,nzm,nzero,sm,zm,zzr,zzi)
35 call blnumz (nzm,nzero,zzr,zzi,b2,b1,b0,nze)
H A Dsyredi.f2 * nb,fact,b2,b1,b0,c1,c0,zzr,zzi,zpr,zpi,ierr, argument
26 double precision zzr(*),zzi(*),zpr(*),zpi(*) local
49 zzr(i)=0.0d+0
75 *adelta,adeg,sm,pren,pimn,ugc,ogc,ack,zm,zzr,zzi,
/dports/math/scilab/scilab-6.1.1/scilab/modules/signal_processing/sci_gateway/cpp/
H A Dsci_syredi.cpp36 double *zzr, double *zzi,
310 double zzr[], double zzi[], in syredi_buffered() argument
336 zzr, zzi, zpr, zpi, in syredi_buffered()
/dports/print/texlive-base/texlive-20150521-source/utils/asymptote/examples/
H A Dtvgen.asy95 path zzr;
96 zzr = tvrect(lc,0, rc,1, xd,yd,Nv);
97 fill(zzr, p=pred);
106 path zzr;
107 zzr = tvrect(lc,Nv-1, rc,Nv, xd,yd,Nv);
108 fill(zzr, p=pred);
519 path zzl, zzr;
568 fill(zzr, p=pdef+rgb(cR[ir], cG[ir], cB[ir]));
703 path zzl, zzr;
721 zzr=zrb--arc(ccenter,rcrb,rcrt)--zrt--cycle;
[all …]
/dports/math/asymptote/asymptote-2.67/examples/
H A Dtvgen.asy95 path zzr;
96 zzr = tvrect(lc,0, rc,1, xd,yd,Nv);
97 fill(zzr, p=pred);
106 path zzr;
107 zzr = tvrect(lc,Nv-1, rc,Nv, xd,yd,Nv);
108 fill(zzr, p=pred);
519 path zzl, zzr;
568 fill(zzr, p=pdef+rgb(cR[ir], cG[ir], cB[ir]));
703 path zzl, zzr;
721 zzr=zrb--arc(ccenter,rcrb,rcrt)--zrt--cycle;
[all …]
/dports/math/reduce/Reduce-svn5758-src/packages/scope/
H A Dcodopt.red635 begin scalar zz,zzr,zzc,lzzr,lzzc,opv,var,gc,flt,min;
636 zzr:=lzzr:=rzstrtcse() ;
637 lzzc:=czstrtcse(ival car zzr);
651 foreach z in zzr do
653 zzr:=lzzr:=reverse zz;
671 setrow(rowmax,opv:=scope_opval car jsi,var,list nil,zzr);
693 <<zz:=remzzzz(zzr,scope_zstrt x);
927 begin scalar var,pcvary,pcdvar,zzr,ivalz,n,m,npcdvar,npcdv,col!*,
942 pcvary:=pcdvar:=zzr:=nil;
1005 zzr:=mkzel(col!*,car(pc)-n).zzr;
[all …]
H A Dcodad2.red618 begin scalar zzch,zzchl,zzr,chr,zz,ch,nsum,nprod,ns,np,opv,gc,cof,
668 zzch:=updaterowinf(x,nsum,1,cadr gcel,zzr,chr);
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/pspw/lib/exchange-correlation/
H A Dvs98.f.1-1-202056 real*8 gmm,xxr,zzr,GGx,dGx_dx,dGx_dz
63 zzr = zz/gmm
66 > xxr,zzr,gmm,GGx,dGx_dx,dGx_dz)
/dports/biology/fastdnaml/fastDNAml_1.2.2/source/
H A DfastDNAml.c2234 zzr[maxpatterns], zvr[maxpatterns]; in newview() local
2237 double zzq, zvq, zzr, zvr; in newview() local
2267 zzr[i] = zzrtable[cat]; in newview()
2290 lp->a = sumaq * (zzr[i] * (lr->a - tempi) + tempj); in newview()
2291 lp->g = sumgq * (zzr[i] * (lr->g - tempi) + tempj); in newview()
2294 lp->c = sumcq * (zzr[i] * (lr->c - tempi) + tempj); in newview()
2328 zzr = zzrtable[cat]; in newview()
2335 lp->a = sumaq * (zzr * (lr->a - tempi) + tempj); in newview()
2336 lp->g = sumgq * (zzr * (lr->g - tempi) + tempj); in newview()
2339 lp->c = sumcq * (zzr * (lr->c - tempi) + tempj); in newview()
[all …]
/dports/www/py-tuir/tuir-1.29.0/tests/cassettes/
H A Dtest_submission_vote.yaml71 zzr+eD6ocvp8uxDff3/jfLl/hXZnvjxqhfZX4TcA5dCs0bxCUCKFUk32iwCtQbSjv6xsN0W/Jnvz
/dports/math/R-cran-zoo/zoo/man/
H A Dzooreg.Rd169 zzr <- as.zooreg(zz)
/dports/www/flexget/Flexget-3.2.18/flexget/tests/cassettes/
H A Dtest_imdb_parser.TestImdbParser.test_plot_with_links555 hnqe2+f9mpTn2r6Ry/PBBP0LGL6ClhCG9dpv/hAzf1zm+3ND8m0n6Mc/8Tu4XZ+zzr+D3/W5B37I
/dports/net-im/telegram-desktop/tdesktop-3.2.5-full/Telegram/ThirdParty/hime/data/
H A Darray40.cin1379 zzr 坒
7001 5zzr 陛
13561 0zzr 蜌
/dports/chinese/rime-scj/rime-scj-cab5a0858765eff0553dd685a2d61d5536e9149c/
H A Dscj6.dict.yaml62693 ▁ zzr
62694 ▂ zzr
62695 ▃ zzr
62696 ▄ zzr
62697 ▅ zzr
62698 ▆ zzr
62699 ▇ zzr
62700 █ zzr

1234