/dports/science/tinker/tinker/source/ |
H A D | square.f | 641 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 D | bli_thread.c | 1058 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 D | Timstat2.cc | 38 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 D | makeh.F | 18 $ 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 D | makhdb.F | 5 $ 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 D | makehd.F | 17 $ 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 D | mkvc.F | 4 $ 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 D | makeh.F | 18 $ 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 D | makhdb.F | 5 $ 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 D | makehd.F | 17 $ 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 D | mkvc.F | 4 $ 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 D | testsuite.sh | 5 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 D | projwfc.f90 | 491 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 D | makefill.c | 15 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 D | linesearch.c | 14 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 D | parallel.h | 29 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 D | gmm_lapack_interface.h | 160 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 D | vimt3d_gauss_reduce.h | 22 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 D | itest_scheduler.py | 59 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 D | dos51.inc | 39 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 D | stres_us.f90 | 98 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 D | Lookahead.hpp | 41 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 D | LevenbergMarquardtOptimizer.java | 300 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 D | LevenbergMarquardtOptimizer.java | 313 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 D | PoolWorkArticleViewCurrentTest.php | 94 $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() );
|