Home
last modified time | relevance | path

Searched refs:work1 (Results 26 – 50 of 630) sorted by relevance

12345678910>>...26

/dports/science/tinker/tinker/source/
H A Dsquare.f641 real*8, allocatable :: work1(:)
660 allocate (work1(n))
669 work1(i) = ga(i) / xscale(i)
673 alpha = alpha + work1(i)**2
713 gnstep(ipvt(j)) = -work1(j)
730 work1(j) = ga(j) / xscale(j)
779 work1(n) = work1(n) / a(n,n)
785 work1(j) = (work1(j)-sum) / a(j,j)
835 work1(j) = work1(j) / diag(j)
839 work1(i) = work1(i) - work1(j)*a(i,j)
[all …]
/dports/math/blis/blis-0.8.1/frame/thread/
H A Dbli_thread.c1058 dim_t work1, in bli_thread_partition_2x2() argument
1089 dim_t work1, in bli_thread_partition_2x2_fast() argument
1127 if ( work1 > work2 ) { work1 /= f; tn1 *= f; } in bli_thread_partition_2x2_fast()
1145 if ( work1 > work2 ) in bli_thread_partition_2x2_fast()
1159 else if ( work1 < work2 ) in bli_thread_partition_2x2_fast()
1189 dim_t work1, in bli_thread_partition_2x2_slow() argument
1286 dim_t work1,
1338 if ( work1 > work2 )
1340 work1 /= f;
1361 if ( work1 > work2 )
[all …]
/dports/science/cdo/cdo-2.0.0/src/
H A DTimstat2.cc38 work1[i] += yy; in correlation_init()
56 work1[i] += yy; in correlation_init()
74 work0, work1, work2, work3, work4); in correlation_init()
97 const auto temp0 = MULMN(work0[i], work1[i]); in correlation()
100 const auto temp3 = MULMN(work1[i], work1[i]); in correlation()
126 Varray<double> &work0, Varray<double> &work1, Varray<double> &work2) in covariance_init() argument
140 work1[i] += yy; in covariance_init()
156 work1[i] += yy; in covariance_init()
165 Varray<double> &work1, Varray<double> &work2) in covariance_init() argument
172 work0, work1, work2); in covariance_init()
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/selci/
H A Dmakeh.F18 $ work1, work2, work3, f)
36 $ work1(nfmax*nfmax),work3(nfmax*nfmax),
87 call selci_makehd(work1,.false.,
94 hd(ibase+id) = work1(idid+id)
96 work1(idid+jd) = 0.0d0
103 call selci_makehs(work1,i,j,ns,indbar,iocc,lists,
108 call selci_makhdb(work1,ind,icase,ns,indbar,iocc,
117 call dcopy(numf*numf2,work1,1,hbuf(ninhb+1),1)
H A Dmakhdb.F5 $ w1,w2,work1,work2,g,int12,int34,numf,numf2)
14 $ work1(*),work2(*),g(*),int12(*),int34(*)
54 $ work1,numf,numf2)
65 $ work1,numf,numf2)
76 $ iocc,w1,w2,work1,numf,numf2)
80 $ w1,w2,work1,numf,numf2)
H A Dmakehd.F17 $ work1,work2,f,h,g,int12,int34,numf)
24 $ indbar(*),iocc(*),work1(*),work2(*),hii(*),
80 call selci_eijeji(work1,odonly,i,j,ns,indbar,iocc,
84 hii(kkk) = hii(kkk) + gijij*work1(kkk)
88 hii(kkk) = hii(kkk) + gijij*work1(kkk)
H A Dmkvc.F4 $ iexv,iconf,ncold,ci,vc,iocc,ipack,numf,work1)
17 $ work1(nfmax,nfmax),iocc(255)
66 call selci_makehs(work1,i,j,ns,indbar,iocc,lists,
72 call selci_makhdb(work1,ind,icase,ns,indbar,iocc,
80 call selci_mxmb(work1, 1, numf, ci(jbase,1), 1, nci,
86 call selci_makehd(work1,.true.,
/dports/science/nwchem-data/nwchem-7.0.2-release/src/selci/
H A Dmakeh.F18 $ work1, work2, work3, f)
36 $ work1(nfmax*nfmax),work3(nfmax*nfmax),
87 call selci_makehd(work1,.false.,
94 hd(ibase+id) = work1(idid+id)
96 work1(idid+jd) = 0.0d0
103 call selci_makehs(work1,i,j,ns,indbar,iocc,lists,
108 call selci_makhdb(work1,ind,icase,ns,indbar,iocc,
117 call dcopy(numf*numf2,work1,1,hbuf(ninhb+1),1)
H A Dmakhdb.F5 $ w1,w2,work1,work2,g,int12,int34,numf,numf2)
14 $ work1(*),work2(*),g(*),int12(*),int34(*)
54 $ work1,numf,numf2)
65 $ work1,numf,numf2)
76 $ iocc,w1,w2,work1,numf,numf2)
80 $ w1,w2,work1,numf,numf2)
H A Dmakehd.F17 $ work1,work2,f,h,g,int12,int34,numf)
24 $ indbar(*),iocc(*),work1(*),work2(*),hii(*),
80 call selci_eijeji(work1,odonly,i,j,ns,indbar,iocc,
84 hii(kkk) = hii(kkk) + gijij*work1(kkk)
88 hii(kkk) = hii(kkk) + gijij*work1(kkk)
H A Dmkvc.F4 $ iexv,iconf,ncold,ci,vc,iocc,ipack,numf,work1)
17 $ work1(nfmax,nfmax),iocc(255)
66 call selci_makehs(work1,i,j,ns,indbar,iocc,lists,
72 call selci_makhdb(work1,ind,icase,ns,indbar,iocc,
80 call selci_mxmb(work1, 1, numf, ci(jbase,1), 1, nci,
86 call selci_makehd(work1,.true.,
/dports/cad/ghdl/ghdl-1.0.0/testsuite/gna/issue147/
H A Dtestsuite.sh5 GHDL_STD_FLAGS=--workdir=work1
6 rm -rf work1
7 mkdir work1
13 rmdir work1
/dports/science/quantum-espresso/q-e-qe-6.7.0/PP/src/
H A Dprojwfc.f90491 work1(:)=work1(:)+d1(m1,m,isym)*proj0(nwfc1+m1,:)
496 work1(:)=work1(:)+d2(m1,m,isym)*proj0(nwfc1+m1,:)
501 work1(:)=work1(:)+d3(m1,m,isym)*proj0(nwfc1+m1,:)
506 work1(ibnd) * conjg (work1(ibnd)) / nsym
578 work1(:)=work1(:)+d12(m1,ind,isym)*proj0(nwfc1+m1,:)
598 work1(ibnd) * conjg (work1(ibnd)) / nsym
674 work1(:) = work1(:) + d012 (m1, ind, isym) * &
680 work1(:) = work1(:) + d112 (m1, ind, isym) * &
686 work1(:) = work1(:) + d212 (m1, ind, isym) * &
692 work1(:) = work1(:) + d312 (m1, ind, isym) * &
[all …]
/dports/math/csdp/Csdp-releases-6.2.0/lib/
H A Dmakefill.c15 void makefill(k,C,constraints,pfill,work1,printlevel) in makefill() argument
20 struct blockmatrix work1;
29 zero_mat(work1);
39 work1.blocks[blk].data.vec[i]=1.0;
46 work1.blocks[blk].data.mat[ijtok(i,j,C.blocks[blk].blocksize)]=1.0;
76 work1.blocks[blk].data.mat[ijtok(p,q,C.blocks[blk].blocksize)]=1.0;
77 work1.blocks[blk].data.mat[ijtok(q,p,C.blocks[blk].blocksize)]=1.0;
178 if (work1.blocks[blk].data.mat[ijtok(i,j,blksize)] == 1.0)
211 if (work1.blocks[blk].data.mat[ijtok(i,j,blksize)] == 1.0)
H A Dlinesearch.c14 double linesearch(n,dX,work1,work2,work3,cholinv,q,z,workvec, in linesearch() argument
17 struct blockmatrix dX,work1,work2,work3,cholinv;
58 for (blk=1; blk<=work1.nblocks; blk++)
60 if ((work1.blocks[blk].blocksize > maxn) &&
61 (work1.blocks[blk].blockcategory==MATRIX))
62 maxn=work1.blocks[blk].blocksize;
90 zero_mat(work1);
93 addscaledmat(work1,scale1,work3,work2);
118 mat_mult(scale1,scale2,work2,work3,work1);
148 matvec(work1,q,z);
/dports/math/tblis/tblis-1.2.0/src/external/tci/tci/
H A Dparallel.h29 uint64_t work1, unsigned max1,
76 partition_2x2(unsigned nthreads, uint64_t work1, uint64_t work2) in partition_2x2() argument
79 tci_partition_2x2(nthreads, work1, nthreads, work2, nthreads, &nt1, &nt2); in partition_2x2()
85 uint64_t work1, unsigned max1, in partition_2x2() argument
89 tci_partition_2x2(nthreads, work1, max1, work2, max2, &nt1, &nt2); in partition_2x2()
/dports/math/gmm++/gmm-5.4/include/gmm/
H A Dgmm_lapack_interface.h160 base_type work1; \
163 lapack_name(&n, &A(0,0), &n, ipvt.pfirst(), &work1, &lwork, &info); \
164 lwork = int(gmm::real(work1)); \
184 base_type work1; \
187 lapack_name1(&m, &n, &A(0,0), &m, &tau[0], &work1 , &lwork, &info); \
188 lwork = BLAS_INT(gmm::real(work1)); \
208 base_type work1; \
212 lapack_name1(&m, &n, &Q(0,0), &m, &tau[0], &work1 , &lwork, &info); \
213 lwork = BLAS_INT(gmm::real(work1)); \
243 base_type work1; \
[all …]
/dports/misc/vxl/vxl-3.3.2/contrib/mul/vimt3d/
H A Dvimt3d_gauss_reduce.h22 vimt3d_image_3d_of<T>& work1, in vimt3d_gauss_reduce() argument
25 vil3d_gauss_reduce(src.image(), dst.image(), work1.image(), work2.image()); in vimt3d_gauss_reduce()
41 vimt3d_image_3d_of<T> work1; in vimt3d_gauss_reduce() local
43 vimt3d_gauss_reduce(src, dst, work1, work2); in vimt3d_gauss_reduce()
/dports/science/py-abipy/abipy-0.9.0/abipy/integration_tests/
H A Ditest_scheduler.py59 work1 = flowtk.Work()
60 work1.register_nscf_task(nscf_input, deps={scf_task: "DEN", dos_task: "WFK"})
62 work1.register_nscf_task(nscf_input, deps={scf_task: "DEN", nscf_task: "WFK"})
63 flow.register_work(work1)
77 assert all(task.status == task.S_OK for task in [scf_task, dos_task, work1[0]])
81 assert work1[1] in g.deadlocked
/dports/devel/xa65/xa-2.3.12/tests/dos51/
H A Ddos51.inc39 sta work1
47 ldx work1
77 sta work1
83 ldx work1
115 sta work1
118 lda work1
122 lda work1
134 work1 .byt 0
/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/
H A Dstres_us.f9098 COMPLEX(DP), ALLOCATABLE :: work1(:), work2(:), dvkb(:,:) local
116 ALLOCATE( work1( npwx ), work2( npwx ) )
208 ddot( 2 * npw, work1, 1, work2, 1 )
265 work1(i) = evc(i,ibnd) * gk(i, jpol)
269 ddot( 2 * npw, work1, 1, work2, 1 )
289 DEALLOCATE( deff, work2, work1 )
308 COMPLEX(DP), ALLOCATABLE :: work1(:), work2(:), dvkb(:,:) local
325 ALLOCATE( work1(npwx), work2(npwx) )
486 work1(i) = evc( i ,ibnd)*gk(i,ipol)* &
600 work1(i) = evc(i,ibnd) * gk(i, jpol)
[all …]
/dports/math/py-graphillion/Graphillion-1.3/src/subsetting/op/
H A DLookahead.hpp41 std::vector<char> work1; member in tdzdd::BddLookahead
49 spec.get_copy(work1.data(), p); in lookahead()
50 int level1 = spec.get_child(work1.data(), level, b); in lookahead()
53 || spec.equal_to(work0.data(), work1.data(), in lookahead()
56 spec.destruct(work1.data()); in lookahead()
59 spec.destruct(work1.data()); in lookahead()
73 : spec(s), work0(spec.datasize()), work1(spec.datasize()) { in BddLookahead()
/dports/math/apache-commons-math/commons-math3-3.6.1-src/src/main/java/org/apache/commons/math3/optimization/general/
H A DLevenbergMarquardtOptimizer.java300 double[] work1 = new double[nC]; in doOptimize() local
438 work1[j] = 0; in doOptimize()
445 coeff1 += work1[j] * work1[j]; in doOptimize()
581 work1[pj] = s; in determineLMParameter()
599 work1[pj] *= diag[pj] / dxNorm; in determineLMParameter()
608 double s = (work1[pj] - sum) / diagR[pj]; in determineLMParameter()
609 work1[pj] = s; in determineLMParameter()
649 work1[pj] = sPar * diag[pj]; in determineLMParameter()
678 work1[pj] /= work2[j]; in determineLMParameter()
679 double tmp = work1[pj]; in determineLMParameter()
[all …]
/dports/math/apache-commons-math/commons-math3-3.6.1-src/src/main/java/org/apache/commons/math3/optim/nonlinear/vector/jacobian/
H A DLevenbergMarquardtOptimizer.java313 double[] work1 = new double[nC]; in doOptimize() local
449 work1[j] = 0; in doOptimize()
456 coeff1 += work1[j] * work1[j]; in doOptimize()
589 work1[pj] = s; in determineLMParameter()
607 work1[pj] *= diag[pj] / dxNorm; in determineLMParameter()
616 double s = (work1[pj] - sum) / diagR[pj]; in determineLMParameter()
617 work1[pj] = s; in determineLMParameter()
656 work1[pj] = sPar * diag[pj]; in determineLMParameter()
685 work1[pj] /= work2[j]; in determineLMParameter()
686 double tmp = work1[pj]; in determineLMParameter()
[all …]
/dports/www/mediawiki137/mediawiki-1.37.1/tests/phpunit/includes/poolcounter/
H A DPoolWorkArticleViewCurrentTest.php94 $work1 = $this->newPoolWorkArticleView( $page, null, $options );
95 $this->assertFalse( $work1->getCachedWork() );
104 $work1->getCachedWork();
105 $this->assertInstanceOf( ParserOutput::class, $work1->getParserOutput() );
106 $this->assertSame( $work2->getParserOutput()->getText(), $work1->getParserOutput()->getText() );

12345678910>>...26