/dports/science/afni/afni-AFNI_21.3.16/src/ptaylor/ |
H A D | LS_funcs.c | 170 double *wk1, double *wk2, int Nwk, in PR89_fasper() argument 231 wk1[j] = wk2[j] = 0.; in PR89_fasper() 239 PR89_spread(1., wk2, Ndim, Ckk, MACC); in PR89_fasper() 245 mm = gsl_fft_real_radix2_transform(wk2+1, 1, Ndim); in PR89_fasper() 275 hypo = sqrt(wk2[K]*wk2[K]+wk2[KK]*wk2[KK])+0.000001; in PR89_fasper() 277 hc2wt = 0.5*wk2[K]/hypo; in PR89_fasper() 278 hs2wt = -0.5*wk2[KK]/hypo; in PR89_fasper() 281 den = 0.5*N + hc2wt*wk2[K] - hs2wt*wk2[KK]; in PR89_fasper() 287 wk2[j] = (cterm + sterm)/(2.); in PR89_fasper() 291 wk2[j]/= VAR; in PR89_fasper()
|
H A D | 3dLombScargle.c | 308 double *wk1=NULL, *wk2=NULL; in main() local 732 wk2 = (double *)calloc(Npts_wrk, sizeof(double)); in main() 743 (wk1 == NULL) || (wk2 == NULL) || in main() 790 wk1[pp] = wk2[pp] = 0.; in main() 824 wk1-1, wk2-1, Npts_wrk, in main() 833 wk1-1, wk2-1, Npts_wrk, in main() 851 all_ls[l][idx]+= (float) wk2[l]; in main() 1004 if(wk2) in main() 1005 free(wk2); in main()
|
/dports/japanese/suicavalue/SuicaValue/ |
H A D | SuicaValue.c | 12 int wk, wk2; in main() local 41 wk2=b[5]>>5; in main() 42 wk2=wk2&0x07; in main() 43 wk=wk+wk2; in main()
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | crackrate.f | 22 & wk1,wk2,wk3,xkeqmin,xkeqmax,dkeq,domstep,domphi, argument 92 & wk1(*),wk2(*),wk3(*), local 110 wk2(i)=0.d0 122 if(dabs(xk2(m,i)).gt.dabs(wk2(i))) wk2(i)=xk2(m,i)
|
H A D | globalcrackresults.f | 19 subroutine globalcrackresults(nfront,ifront,wk1,wk2,wk3,dkeq, argument 30 real*8 wk1(*),wk2(*),wk3(*),dkeq(*),domphi(*),dadn(*), local 46 wk2glob(node)=wk2(i)
|
/dports/science/kst2/kst-plot-38eddb5322a1d557f9d86ea95d456d76272941e3/src/plugins/dataobject/periodogram/ |
H A D | periodogram.cpp | 561 double wk2[], in FastLombPeriodogram() argument 614 wk2[j] = 0.0; in FastLombPeriodogram() 631 realft(wk2, ndim, 1); in FastLombPeriodogram() 635 hypo = sqrt(wk2[k]*wk2[k] + wk2[k+1]*wk2[k+1]); in FastLombPeriodogram() 636 hc2wt = 0.5 * wk2[k ] / hypo; in FastLombPeriodogram() 637 hs2wt = 0.5 * wk2[k+1] / hypo; in FastLombPeriodogram() 643 den = 0.5*n + hc2wt*wk2[k] + hs2wt*wk2[k+1]; in FastLombPeriodogram() 651 wk2[j] = (cterm + sterm); in FastLombPeriodogram() 653 wk2[j] /= (2.0 * *pvar); in FastLombPeriodogram() 655 if (wk2[j] > pmax) { in FastLombPeriodogram() [all …]
|
/dports/cad/ngspice_rework/ngspice-35/src/frontend/trannoise/ |
H A D | FastNorm3.c | 594 Sf wk1 [WL], wk2 [WL]; /* Pools of variates. */ variable 641 ppt[j] = wk2 + j * VL + top[i]; in regen() 671 printf ("Chunk %1d done. Ptr %1d now %4d\n", i, j, ppt[j]-wk2); in regen() 685 p = wk2[j^m]; j++; in regen() 686 s = wk2[j^m]; j++; in regen() 687 q = wk2[j^m]; j++; in regen() 688 r = wk2[j^m]; j++; in regen() 820 wk1[i] = wk2[i] = 0.0; in initnorm()
|
/dports/cad/jspice3/jspice3-2.5/examples/ |
H A D | process.mod | 15 + k2 = -0.020029 lk2 = 0.0197751 wk2 = -0.040038 43 + k2 = -0.020029 lk2 = 0.0197751 wk2 = -0.040038 71 + k2 = 0.14664 lk2 = 0.168585 wk2 = -0.18796 99 + k2 = 0.14664 lk2 = 0.168585 wk2 = -0.18796 127 + k2 = 0.14664 lk2 = 0.168585 wk2 = -0.18796 155 + k2 = 0.14664 lk2 = 0.168585 wk2 = -0.18796 183 + k2 = 0.160163 lk2 = 0.141849 wk2 = -0.20333 211 + k2 = 0.160163 lk2 = 0.141849 wk2 = -0.20333 239 + k2 = 0.14664 lk2 = 0.168585 wk2 = -0.18796 267 + k2 = 0.14664 lk2 = 0.168585 wk2 = -0.18796
|
/dports/math/R-cran-gss/gss/R/ |
H A D | ssanova.R | 489 wk2 <- t(t(wk1)/sqrt(val)) functionVar 490 wk2 <- t(wk2)%*%wk2 491 wk2 <- solve(wk2+diag(10^nlambda,dim(wk2)[1]),wk2) 492 wk2 <- (wk2+t(wk2))/2 493 wk2 <- t(wk2/sqrt(val))/sqrt(val) 494 wk2 <- diag(1/val,dim(wk2)[1])-wk2 507 wk1[nnull+(1:rkq),nnull+(1:rkq)] <- wk2
|
/dports/sysutils/slurm-wlm/slurm-20.02.7/testsuite/expect/ |
H A D | test21.23 | 36 set wk2 "test$test_id-wckey2" 341 set saadd_pid [spawn $sacctmgr -i add user $user_name cluster=$cn wckey=$wk,$wk2,$wk3] 377 -ex "\n$wk2\|$cn\|$user_name\|" { 403 set sadel_pid [spawn $sacctmgr -i delete user $user_name wckey=$wk,$wk2,$wk3] 427 -ex "\n$wk2\|$cn\|$user_name\|" { 429 log_error "WCKey = $wk2 should be deleted, but was not"
|
/dports/math/R-cran-VGAM/VGAM/src/ |
H A D | muxr3.c | 25 double *wk, double *wk2, 29 double *wk2, int *hqipzx3n, int *exz2jrhq, 34 double *wkcc, double *wk2, int *hqipzx3n, int *exz2jrhq, 155 double *wk, double *wk2, in mux5ccc() argument 167 pd2 = wk2; in mux5ccc() 210 double *wk2, int *hqipzx3n, int *exz2jrhq, in mux55ccc() argument 220 pd2 = wk2; in mux55ccc() 229 bpvaqm5z += wk2[yq6lorbx + urohxe6t * *M] * in mux55ccc() 279 double *wkcc, double *wk2, in mux111ccc() argument 306 wk2[ayfnwr1v + yq6lorbx * *M] = *pd2++; in mux111ccc() [all …]
|
/dports/devel/efl/efl-1.25.1/src/tests/eina/ |
H A D | eina_test_barrier.c | 29 static Eina_Thread wk1, wk2, wk3, wk4, wk5; variable 74 r = eina_thread_create(&wk2, EINA_THREAD_NORMAL, -1, wk_func, NULL); in EFL_START_TEST() 90 eina_thread_join(wk2); in EFL_START_TEST()
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/awpmd/systems/interact/TCP/ |
H A D | wpmd_split.cpp | 521 move_to_image(wj2,wk2); in interaction_hartree() 553 o2.set2(wk2,&I02); in interaction_hartree() 747 move_to_image(wj1,wk2); in interaction() 753 o12.set2(wk2,&I012); in interaction() 929 move_to_image(wj1,wk2); in interaction() 938 cVector_3 v1=conj(wj1.b)*wk2.a-wk2.b*conj(wj1.a); in interaction() 940 v-=6.*wk2.a*conj(wj1.a); in interaction() 956 cVector_3 tv=wk2.b*conj(wj1.a)-conj(wj1.b)*wk2.a; in interaction() 959 cdouble dv_aj_conj= -2*wk2.a*(3*wjk12.a*wk2.a-tv*wjk12.b)/ajk3; in interaction() 965 o12.set2(wk2,&I012); in interaction() [all …]
|
/dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/lib/awpmd/systems/interact/TCP/ |
H A D | wpmd_split.cpp | 524 move_to_image(wj2,wk2); in interaction_hartree() 556 o2.set2(wk2,&I02); in interaction_hartree() 750 move_to_image(wj1,wk2); in interaction() 756 o12.set2(wk2,&I012); in interaction() 932 move_to_image(wj1,wk2); in interaction() 941 cVector_3 v1=conj(wj1.b)*wk2.a-wk2.b*conj(wj1.a); in interaction() 943 v-=6.*wk2.a*conj(wj1.a); in interaction() 959 cVector_3 tv=wk2.b*conj(wj1.a)-conj(wj1.b)*wk2.a; in interaction() 962 cdouble dv_aj_conj= -2*wk2.a*(3*wjk12.a*wk2.a-tv*wjk12.b)/ajk3; in interaction() 968 o12.set2(wk2,&I012); in interaction() [all …]
|
/dports/math/m4ri/m4ri-release-20200125/m4ri/ |
H A D | mzd.c | 661 word* RESTRICT wk2 = wk; in _mzd_copy_transpose_lt64x64() local 664 wk2[0] = tk & m; in _mzd_copy_transpose_lt64x64() 665 wk2[j_rowstride_dst] = (tk >> 4) & m; in _mzd_copy_transpose_lt64x64() 672 wk2 += 8 * j_rowstride_dst; in _mzd_copy_transpose_lt64x64() 683 word* RESTRICT wk2 = wk; in _mzd_copy_transpose_lt64x64() local 686 wk2[0] = tk & m; in _mzd_copy_transpose_lt64x64() 690 wk2 += 4 * j_rowstride_dst; in _mzd_copy_transpose_lt64x64() 699 word* RESTRICT wk2 = wk; in _mzd_copy_transpose_lt64x64() local 702 wk2[0] = tk & m; in _mzd_copy_transpose_lt64x64() 703 wk2[rowstride_dst] = (tk >> 1) & m; in _mzd_copy_transpose_lt64x64() [all …]
|
/dports/cad/irsim/irsim-9.7.110/lib/calibrate_spice3/ |
H A D | mosis1_6u.spi | 13 + k2 = -0.023484 lk2 = 0.00657988 wk2 = 0.0861925 41 + k2 = 0.245245 lk2 = 0.0147686 wk2 = -0.13972
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/optimization/src/fortran/ |
H A D | zgcbd.f | 15 &izs,rzs,dzs,y,s,z,ys,zs,nt,index,wk1,wk2,alg,ialg,nomf) 23 dimension wk1(n),wk2(n),alg(15) 238 call majysa(n,nt,np,y,s,ys,lb,g,x,wk2,wk1,index,ialg,nb) 305 & wk2,epsgcp) 337 call dcopy(n,g,1,wk2,1)
|
/dports/misc/vxl/vxl-3.3.2/contrib/mul/vil3d/algo/ |
H A D | vil3d_make_distance_filter.cxx | 33 double wk2=width_k*width_k; in vil3d_make_distance_filter_r1() local 49 d.push_back(std::sqrt(double(i*i*wi2+j*j*wj2+k*k*wk2))); in vil3d_make_distance_filter_r1()
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/ida/fcmix_openmp/ |
H A D | fidaRoberts_dns_openmp.f | 214 1 ipar, rpar, wk1, wk2, wk3, djacerr) 223 double precision wk1(*), wk2(*), wk3(*)
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/ida/fcmix_pthreads/ |
H A D | fidaRoberts_dns_pthreads.f | 214 1 ipar, rpar, wk1, wk2, wk3, djacerr) 223 double precision wk1(*), wk2(*), wk3(*)
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/examples/ida/fcmix_serial/ |
H A D | fidaRoberts_dns.f | 211 1 ipar, rpar, wk1, wk2, wk3, djacerr) 220 double precision wk1(*), wk2(*), wk3(*)
|
/dports/math/sundials/sundials-5.7.0/examples/ida/fcmix_openmp/ |
H A D | fidaRoberts_dns_openmp.f | 214 1 ipar, rpar, wk1, wk2, wk3, djacerr) 223 double precision wk1(*), wk2(*), wk3(*)
|
/dports/math/sundials/sundials-5.7.0/examples/ida/fcmix_pthreads/ |
H A D | fidaRoberts_dns_pthreads.f | 214 1 ipar, rpar, wk1, wk2, wk3, djacerr) 223 double precision wk1(*), wk2(*), wk3(*)
|
/dports/math/sundials/sundials-5.7.0/examples/ida/fcmix_serial/ |
H A D | fidaRoberts_dns.f | 211 1 ipar, rpar, wk1, wk2, wk3, djacerr) 220 double precision wk1(*), wk2(*), wk3(*)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/contrib/pseudopotentials/troullier-martins/ |
H A D | atm.f | 412 2 wk1,wk2,wk3,wk4,wk5,wk6,wk7,wk8,wk9,wkb) 453 call dmixp(vod,vid,xmixo,iiter,3,nr,wk1,wk2, 2050 2 ev,iflag,wk1,wk2,wk3,evi) 2054 2 ev,wk1,wk2,wk3,wk4,evi) 3634 2 vid,viu,ev,iflag,wk1,wk2,wk3,evi) 3638 2 ev,wk1,wk2,wk3,wk4,evi) 4740 2 wk2,wk3,evi) 6253 2 wk2,wk3,evi) 6846 2 vid,viu,ev,iflag,wk1,wk2,wk3,evi) 6850 2 ev,wk1,wk2,wk3,wk4,evi) [all …]
|