Home
last modified time | relevance | path

Searched refs:work1 (Results 1 – 25 of 630) sorted by relevance

12345678910>>...26

/dports/math/csdp/Csdp-releases-6.2.0/lib/
H A Dpsd_feas.c44 struct blockmatrix work1;
53 zero_mat(work1);
55 op_at(k,y,constraints,work1);
57 addscaledmat(work1,-1.0,C,work1);
58 addscaledmat(work1,-1.0,Z,work1);
65 nrme=Fnorm(work1);
79 struct blockmatrix work1;
87 zero_mat(work1);
91 addscaledmat(work1,-1.0,C,work1);
92 addscaledmat(work1,-1.0,Z,work1);
[all …]
H A Dsdp.c285 copy_mat(X,work1);
286 ret=chol(work1);
303 copy_mat(Z,work1);
304 ret=chol(work1);
326 trans(work1);
586 addscaledmat(work1,-1.0,Z,work1);
600 addscaledmat(work1,-1.0/(*dobj),Z,work1);
616 addscaledmat(work1,1.0/trace_prod(C,X),X,work1);
1398 make_i(work1);
1547 make_i(work1);
[all …]
/dports/science/sparta/sparta-20Oct2021/src/
H A Dirregular.cpp116 work1[i] = 0; in create_procs()
122 if (work1[me]) { in create_procs()
123 work1[me] = 0; in create_procs()
133 nrecv = work1[me]; in create_procs()
151 work1[me] = 0; in create_procs()
230 work1[i] = 0; in create_data_uniform()
234 work1[me] = 0; in create_data_uniform()
242 nrecv = work1[me]; in create_data_uniform()
404 work1[me] = 0; in create_data_uniform_grouped()
412 nrecv = work1[me]; in create_data_uniform_grouped()
[all …]
/dports/science/lammps/lammps-stable_29Sep2021/src/
H A Dirregular.cpp89 memory->destroy(work1); in ~Irregular()
316 work1[i] = 0; in create_atom()
320 work1[me] = 0; in create_atom()
328 nrecv_proc = work1[me]; in create_atom()
589 work1[i] = 0; in create_data()
593 work1[me] = 0; in create_data()
601 nrecv_proc = work1[me]; in create_data()
651 work1[iproc] = 0; in create_data()
762 work1[i] = procs[i]; in create_data_grouped()
765 work1[me] = 0; in create_data_grouped()
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/CMatrix/
H A DCMatrix-mpi.F56 complex*16 work1(*),work2(*)
247 complex*16 work1(*),work2(*)
612 complex*16 work1(*),work2(*)
749 complex*16 work1(*),work2(*)
904 complex*16 work1(*),work2(*)
1047 real*8 work1(*),work2(*)
1659 > work1,work2)
1687 complex*16 work1(*),work2(*)
1779 > work1)
1790 real*8 work1(*)
[all …]
H A DCMatrix-tcgmsg.F55 complex*16 work1(*),work2(*)
101 complex*16 work1(*),work2(*)
124 > work1,work2)
144 complex*16 work1(*),work2(*)
259 complex*16 work1(*),work2(*)
491 complex*16 work1(*),work2(*)
639 complex*16 work1(*),work2(*)
772 > work1,work2)
872 > work1)
883 real*8 work1(*)
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/atomic/src/
H A Dnormalize.f9036 work1, & ! the norm local
59 work1=int_0_inf_dr(gi,grid,grid%mesh,nst)
65 work1=work1+qq(n1,n2)*work(n1)*work(n2)
68 if (abs(work1) < 1e-10_dp) then
72 work1=1.0_dp
73 else if (work1 <= -1e-10_dp) then
76 work1=sqrt(work1)
78 phi(n)=phi(n)/work1
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/nwpwlib/DMatrix/
H A DDMatrix-mpi.F56 real*8 work1(*),work2(*)
247 real*8 work1(*),work2(*)
618 real*8 work1(*),work2(*)
757 real*8 work1(*),work2(*)
911 real*8 work1(*),work2(*)
1063 real*8 work1(*),work2(*)
1823 > work1)
1833 real*8 work1(*)
1872 work1(j) = A(ii,jj)
1927 work1(i) = A(ii,jj)
[all …]
H A DDMatrix-tcgmsg.F56 real*8 work1(*),work2(*)
102 real*8 work1(*),work2(*)
145 real*8 work1(*),work2(*)
260 real*8 work1(*),work2(*)
389 real*8 work1(*),work2(*)
519 real*8 work1(*),work2(*)
621 real*8 work1(*),work2(*)
1000 > work1)
1010 real*8 work1(*)
1043 work1(j) = A(ii,jj)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/DMatrix/
H A DDMatrix-mpi.F56 real*8 work1(*),work2(*)
247 real*8 work1(*),work2(*)
618 real*8 work1(*),work2(*)
757 real*8 work1(*),work2(*)
911 real*8 work1(*),work2(*)
1063 real*8 work1(*),work2(*)
1800 > work1)
1810 real*8 work1(*)
1847 work1(j) = A(ii,jj)
1900 work1(i) = A(ii,jj)
[all …]
H A DDMatrix-tcgmsg.F56 real*8 work1(*),work2(*)
102 real*8 work1(*),work2(*)
145 real*8 work1(*),work2(*)
260 real*8 work1(*),work2(*)
389 real*8 work1(*),work2(*)
519 real*8 work1(*),work2(*)
621 real*8 work1(*),work2(*)
1000 > work1)
1010 real*8 work1(*)
1043 work1(j) = A(ii,jj)
[all …]
/dports/textproc/p5-RDFStore/RDFStore-0.51/lib/DBD/
H A DRDFStore.pm362 my $work1 = shift;
372 my $work1 = shift;
382 my $work1 = shift;
392 my $work1 = shift;
402 my $work1 = shift;
413 my $work1 = shift;
425 my $work1 = shift;
437 my $work1 = shift;
449 my $work1 = shift;
464 my $work1 = shift;
[all …]
/dports/math/highs/HiGHS-cfe064e/src/ipm/basiclu/src/
H A Dlu_solve_dense.c32 double *work1 = this->work1; in lu_solve_dense() local
46 memcpy(work1, rhs, m*sizeof(double)); in lu_solve_dense()
53 x = work1[jpivot] / col_pivot[jpivot]; in lu_solve_dense()
56 work1[Windex[pos]] -= x * Wvalue[pos]; in lu_solve_dense()
90 memcpy(work1, rhs, m*sizeof(double)); in lu_solve_dense()
98 x += work1[i] * Lvalue[pos]; in lu_solve_dense()
100 work1[p[k]] -= x; in lu_solve_dense()
111 x += work1[Lindex[pos]] * Lvalue[pos]; in lu_solve_dense()
113 work1[ipivot] -= x; in lu_solve_dense()
121 x = work1[ipivot] / row_pivot[ipivot]; in lu_solve_dense()
[all …]
/dports/science/py-scipy/scipy-1.7.1/scipy/optimize/_highs/src/ipm/basiclu/src/
H A Dlu_solve_dense.c32 double *work1 = this->work1; in lu_solve_dense() local
46 memcpy(work1, rhs, m*sizeof(double)); in lu_solve_dense()
53 x = work1[jpivot] / col_pivot[jpivot]; in lu_solve_dense()
56 work1[Windex[pos]] -= x * Wvalue[pos]; in lu_solve_dense()
90 memcpy(work1, rhs, m*sizeof(double)); in lu_solve_dense()
98 x += work1[i] * Lvalue[pos]; in lu_solve_dense()
100 work1[p[k]] -= x; in lu_solve_dense()
111 x += work1[Lindex[pos]] * Lvalue[pos]; in lu_solve_dense()
113 work1[ipivot] -= x; in lu_solve_dense()
121 x = work1[ipivot] / row_pivot[ipivot]; in lu_solve_dense()
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/nwpwlib/CMatrix/
H A DCMatrix-mpi.F56 complex*16 work1(*),work2(*)
242 complex*16 work1(*),work2(*)
598 complex*16 work1(*),work2(*)
732 complex*16 work1(*),work2(*)
883 complex*16 work1(*),work2(*)
1334 > work1,work2)
1362 complex*16 work1(*),work2(*)
1454 > work1)
1465 real*8 work1(*)
1502 work1(j) = dble(A(ii,jj))
[all …]
H A DCMatrix-tcgmsg.F55 complex*16 work1(*),work2(*)
101 complex*16 work1(*),work2(*)
124 > work1,work2)
144 complex*16 work1(*),work2(*)
259 complex*16 work1(*),work2(*)
491 complex*16 work1(*),work2(*)
639 complex*16 work1(*),work2(*)
772 > work1,work2)
872 > work1)
883 real*8 work1(*)
[all …]
/dports/science/sparta/sparta-20Oct2021/src/KOKKOS/
H A Dirregular_kokkos.cpp82 work1[i] = 0; in create_data_uniform()
86 work1[me] = 0; in create_data_uniform()
94 nrecv = work1[me]; in create_data_uniform()
112 if (work1[i]) nsend++; in create_data_uniform()
113 if (work1[me]) nsend--; in create_data_uniform()
126 indexselfmax = work1[me]; in create_data_uniform()
145 num_self = work1[iproc]; in create_data_uniform()
146 work1[iproc] = 0; in create_data_uniform()
147 } else if (work1[iproc]) { in create_data_uniform()
150 work1[iproc] = isend; in create_data_uniform()
[all …]
/dports/math/R-cran-gss/gss/src/
H A Dddeev.f4 *gwk2, kwk, ldk, work1, work2, work3, info)
101 call dcopy (n, x, 1, work1, 1)
102 call dpbsl (t, 2, n, 1, work1)
104 call dcopy (n, work1, 1, work2, 1)
130 call dpbsl (t, 2, n, 1, work1)
131 gwk2(i) = gwk2(i) - work1(j)
142 call dcopy (n, x, 1, work1, 1)
143 call dpbsl (t, 2, n, 1, work1)
182 call dcopy (n, x, 1, work1, 1)
183 call dpbsl (t, 2, n, 1, work1)
[all …]
/dports/emulators/xsystem35/xsystem35-1.7.3-pre5/src/
H A Dcmdh.c36 char *work1 = _work1, *work2 = _work2; in commandH() local
40 sprintf(work1, "%d", num); in commandH()
42 len = strlen(work1); in commandH()
50 work1 += (len - fig); in commandH()
53 while(*work1) { in commandH()
54 strcat(work2, num2sjis((*work1) - '0')); work1++; in commandH()
/dports/cad/gmsh/gmsh-4.9.2-source/contrib/gmm/
H A Dgmm_lapack_interface.h142 int n(mat_nrows(A)), info, lwork(-1); base_type work1; \
145 lapack_name(&n, &A(0,0), &n, &ipvt[0], &work1, &lwork, &info); \
146 lwork = int(gmm::real(work1)); \
165 int m(mat_nrows(A)), n(mat_ncols(A)), info, lwork(-1); base_type work1;\
168 lapack_name1(&m, &n, &A(0,0), &m, &tau[0], &work1 , &lwork, &info); \
169 lwork = int(gmm::real(work1)); \
187 int m(mat_nrows(A)), n(mat_ncols(A)), info, lwork(-1); base_type work1;\
274 &Q(0,0), &n, &Q(0,0), &n, &work1, &lwork, &info); \
296 &Q(0,0), &n, &work1, &lwork, &rwork[0], &info); \
321 &Q(0,0), &n, &Q(0,0), &n, &work1, &lwork, &info); \
[all …]
/dports/math/R-cran-gss/gss/src/ratfor/
H A Dddeev.r11 kwk, ldk, work1, work2, work3,_
114 call dset (n, 10.d0 ** nlaht, work1, 1)
115 call daxpy (n, 1.d0, work1, 1, t(2,1), 2)
131 call dcopy (n, x, 1, work1, 1)
132 call dpbsl (t, 2, n, 1, work1)
134 call dcopy (n, work1, 1, work2, 1)
152 gwk2(i) = gwk2(i) - work1(j)
161 call dcopy (n, x, 1, work1, 1)
162 call dpbsl (t, 2, n, 1, work1)
183 call dcopy (n, x, 1, work1, 1)
[all …]
/dports/science/lammps/lammps-stable_29Sep2021/src/KSPACE/
H A Dpppm_dipole.cpp1297 fft1->compute(work1,work1,FFT3d::FORWARD); in poisson_ik_dipole()
2484 fft1->compute(work1,work1,FFT3d::FFT3d::FORWARD); in timing_3d()
2485 fft1->compute(work1,work1,FFT3d::FFT3d::FORWARD); in timing_3d()
2486 fft1->compute(work1,work1,FFT3d::FFT3d::FORWARD); in timing_3d()
2487 fft2->compute(work1,work1,FFT3d::FFT3d::BACKWARD); in timing_3d()
2488 fft2->compute(work1,work1,FFT3d::FFT3d::BACKWARD); in timing_3d()
2489 fft2->compute(work1,work1,FFT3d::FFT3d::BACKWARD); in timing_3d()
2490 fft2->compute(work1,work1,FFT3d::FFT3d::BACKWARD); in timing_3d()
2491 fft2->compute(work1,work1,FFT3d::FFT3d::BACKWARD); in timing_3d()
2492 fft2->compute(work1,work1,FFT3d::FFT3d::BACKWARD); in timing_3d()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/ksp/pc/impls/composite/
H A Dcomposite.c18 Vec work1; member
56 ierr = MatMult(mat,y,jac->work1);CHKERRQ(ierr); in PCApply_Composite_Multiplicative()
59 ierr = VecAXPY(y,1.0,jac->work1);CHKERRQ(ierr); in PCApply_Composite_Multiplicative()
88 ierr = VecAXPY(y,1.0,jac->work1);CHKERRQ(ierr); in PCApplyTranspose_Composite_Multiplicative()
97 ierr = VecAXPY(y,1.0,jac->work1);CHKERRQ(ierr); in PCApplyTranspose_Composite_Multiplicative()
122 ierr = PCApply(next->pc,x,jac->work1);CHKERRQ(ierr); in PCApply_Composite_Special()
147 ierr = VecAXPY(y,1.0,jac->work1);CHKERRQ(ierr); in PCApply_Composite_Additive()
164 ierr = VecAXPY(y,1.0,jac->work1);CHKERRQ(ierr); in PCApplyTranspose_Composite_Additive()
177 if (!jac->work1) { in PCSetUp_Composite()
204 ierr = VecDestroy(&jac->work1);CHKERRQ(ierr); in PCReset_Composite()
[all …]
/dports/science/PETSc/petsc-3.14.1/src/ksp/pc/impls/bddc/
H A Dbddcnullspace.c161 Vec work1,work2; in PCBDDCNullSpaceAssembleCorrection() local
190 ierr = MatMult(local_mat,work2,work1);CHKERRQ(ierr); in PCBDDCNullSpaceAssembleCorrection()
191 ierr = KSPSolve(check_ksp,work1,work1);CHKERRQ(ierr); in PCBDDCNullSpaceAssembleCorrection()
193 ierr = VecAXPY(work1,-1.,work2);CHKERRQ(ierr); in PCBDDCNullSpaceAssembleCorrection()
220 ierr = KSPSolve(check_ksp,work1,work1);CHKERRQ(ierr); in PCBDDCNullSpaceAssembleCorrection()
222 ierr = VecAXPY(work1,-1.,work2);CHKERRQ(ierr); in PCBDDCNullSpaceAssembleCorrection()
235 ierr = VecDestroy(&work1);CHKERRQ(ierr); in PCBDDCNullSpaceAssembleCorrection()
241 Vec work1,work2,work3; in PCBDDCNullSpaceAssembleCorrection() local
250 ierr = VecCopy(work1,work2);CHKERRQ(ierr); in PCBDDCNullSpaceAssembleCorrection()
253 ierr = VecAXPY(work1,-1.,work2);CHKERRQ(ierr); in PCBDDCNullSpaceAssembleCorrection()
[all …]
/dports/science/chemps2/CheMPS2-1.8.10/CheMPS2/
H A DDMRGSCFunitary.cpp128 double * work1 = temp1 + 2 * size; //linsize*linsize in updateUnitary() local
164 work1[cnt] = 0.5 * ( work2[ 2 * cnt + linsize * ( 2 * cnt + 1 ) ] in updateUnitary()
170 work2[ 2 * cnt + linsize * ( 2 * cnt + 1 ) ] -= work1[ cnt ]; in updateUnitary()
171 work2[ 2 * cnt + 1 + linsize * ( 2 * cnt ) ] += work1[ cnt ]; in updateUnitary()
182 double cosine = cos( work1[ cnt ] ); in updateUnitary()
183 double sine = sin( work1[ cnt ] ); in updateUnitary()
198 dcopy_( &size, work1, &inc1, entries[ irrep ], &inc1 ); in updateUnitary()
277 work1[ row + NORB * col ] = ( entries[ irrep ][ row + NORB * col ] in get_determinant()
286 dsyev_( &jobz, &uplo, &NORB, work1, &NORB, work2, work_eig, &lwork_eig, &info ); in get_determinant()
332 double * work1 = temp1; //linsize * linsize in getLog() local
[all …]

12345678910>>...26