Home
last modified time | relevance | path

Searched refs:omat (Results 1 – 25 of 342) sorted by relevance

12345678910>>...14

/dports/games/vamos/vamos-0.7.1/body/
H A DFrame.cc180 double trace = omat [0][0] + omat [1][1] + omat [2][2] + 1.0; in axis_angle()
187 x = (omat [2][1] - omat [1][2]) * s; in axis_angle()
188 y = (omat [0][2] - omat [2][0]) * s; in axis_angle()
189 z = (omat [1][0] - omat [0][1]) * s; in axis_angle()
206 s = sqrt (1.0 - omat [0][0] - omat [1][1] + omat [2][2]) * 2.0; in axis_angle()
207 w = (omat [0][1] + omat [1][0]) / s; in axis_angle()
208 x = (omat [0][2] + omat [2][0]) / s; in axis_angle()
209 y = (omat [1][2] + omat [2][1]) / s; in axis_angle()
214 s = sqrt (1.0 + omat [0][0] - omat [1][1] - omat [2][2]) * 2.0; in axis_angle()
215 w = (omat [1][2] + omat [2][1]) / s; in axis_angle()
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/examples/example05/reference/
H A Dsi_head.out314 lanczos d f omat
317 lanczos d f omat
320 lanczos d f omat
323 lanczos d f omat
326 lanczos d f omat
329 lanczos d f omat
332 lanczos d f omat
335 lanczos d f omat
338 lanczos d f omat
341 lanczos d f omat
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/examples/example02/reference/
H A Dsi_head.out308 lanczos d f omat
311 lanczos d f omat
314 lanczos d f omat
317 lanczos d f omat
320 lanczos d f omat
323 lanczos d f omat
326 lanczos d f omat
329 lanczos d f omat
332 lanczos d f omat
335 lanczos d f omat
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Datom_operators.F210 DEALLOCATE (omat)
384 omat = 0._dp
388 omat = 0._dp
446 DEALLOCATE (omat)
456 omat = 0._dp
458 omat(1:m, 1:m) = -potential%gth_pot%zion*omat(1:m, 1:m)
463 omat(1:m, 1:m) = potential%gth_pot%cl(i)*omat(1:m, 1:m)
472 omat(1:m, 1:m) = potential%gth_pot%cval_lpot(i, k)*omat(1:m, 1:m)
483 omat(1:m, 1:m) = potential%gth_pot%cval_lsd(i, k)*omat(1:m, 1:m)
549 omat = 0._dp
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Datom_operators.F210 DEALLOCATE (omat)
385 omat = 0._dp
389 omat = 0._dp
447 DEALLOCATE (omat)
457 omat = 0._dp
459 omat(1:m, 1:m) = -potential%gth_pot%zion*omat(1:m, 1:m)
464 omat(1:m, 1:m) = potential%gth_pot%cl(i)*omat(1:m, 1:m)
473 omat(1:m, 1:m) = potential%gth_pot%cval_lpot(i, k)*omat(1:m, 1:m)
484 omat(1:m, 1:m) = potential%gth_pot%cval_lsd(i, k)*omat(1:m, 1:m)
550 omat = 0._dp
[all …]
/dports/math/R-cran-spdep/spdep/R/
H A Dlag.hessian.R88 omat <- matrix(0, nrow=p2, ncol=p2) functionVar
89 omat[3:p2, 3:p2] <- -crossprod(get("x", envir=env))/s2
90 omat[2, 2] <- mat[1, 1]
91 omat[2, 3:p2] <- omat[3:p2, 2] <- -c(crossprod(get("wy", envir=env),
93 omat[1, 1] <- -n/(2*(s2^2))
94 omat[1, 2] <- omat[2, 1] <- -trB(coefs[1], trs)/s2
95 omat
H A Derror.hessian.R69 omat <- matrix(0, nrow=p2, ncol=p2) functionVar
74 omat[3:p2, 3:p2] <- -crossprod(LX)/s2
75 omat[2, 2] <- mat[1, 1]
77 omat[1, 1] <- -n/(2*(s2^2))
79 omat[1, 2] <- omat[2, 1] <- -trB(lambda, trs)/s2
81 omat
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/
H A Dpola_lanczos.f90842 omat(:,:)=0.d0
915 omat(:,:)=0.d0
1173 omat(:,:)=0.d0
1175 omat(ii,ii)=1.d0
1218 omat(:,:)=0.d0
1276 deallocate (omat)
1647 omat(:,:)=0.d0
1851 omat(jj,ii)=omat(jj,ii)-dble(conjg(state2(1,jj))*state2(1,ii))
1886 omat(:,:)=0.d0
1919 omat(1:n2,ii)=omat(1:n2,ii)/dsqrt(eigen(ii))
[all …]
H A Do_bands.f9069 REAL(kind=DP), ALLOCATABLE :: omat(:,:) local
263 allocate(omat(fcw_number,fcw_number))
264 omat(:,:)=0.d0
265 if(nsize>0) omat(1:fcw_number,nbegin:nend)=fcw_mat(1:fcw_number,1:nsize)
267 call mp_sum(omat(:,iw),world_comm)
273 call DSYEVR('V','I','U',fcw_number,omat,fcw_number,0.d0,0.d0,&
281 call DSYEVR('V','I','U',fcw_number,omat,fcw_number,0.d0,0.d0,&
298 deallocate(omat)
H A Dfake_conduction.f9082 REAL(kind=DP), ALLOCATABLE :: omat(:,:) local
681 omat(jj,ii)=omat(jj,ii)-dble(conjg(state_g(1,jj))*state_g(1,ii))
685 call mp_sum(omat,world_comm)
756 omat(:,:)=0.d0
820 omat(1:num_fc_spin,ii)=omat(1:num_fc_spin,ii)/dsqrt(eigen(ii))
878 omat(1:num_fc_spin,ii)=omat(1:num_fc_spin,ii)/dsqrt(eigen(ii))
964 deallocate( omat, eigen )
1371 if( allocated( omat ) ) deallocate( omat )
1458 REAL(kind=DP), ALLOCATABLE :: omat(:,:) local
2124 if( allocated( omat ) ) deallocate( omat )
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/simple/
H A Dwfc_basis.f90152 allocate(omat(ntot_e,ntot))
160 call mp_sum(omat,world_comm)
188 call mp_sum(omat,world_comm)
204 deallocate(omat)
229 allocate(omat(ntot_e,ntot_e))
231 call mp_sum(omat,world_comm)
238 deallocate(omat)
271 allocate(omat(ntot_e,ntot))
293 call mp_sum(omat,world_comm)
299 … call ZGEMM('C','N',ntot,ntot,ntot_e,(1.d0,0.d0),omat,ntot_e,omat,ntot_e,(0.d0,0.d0),zmat,ntot)
[all …]
H A Depe.f9026 complex(kind=DP), allocatable :: omat(:,:,:),ge(:,:,:) local
37 allocate(omat(ntot_e,ntot_e,3))
58 & npw_max*npol,(0.0d0,0.0d0),omat(:,:,a),ntot_e)
60 call mp_sum(omat,world_comm)
171 & npw_max*npol,(0.0d0,0.0d0), omat(1,1,a),ntot_e)
173 call mp_sum(omat,world_comm)
193 write(iun) omat(1:ntot_e,i,a)
202 deallocate(omat)
H A Dproduct_basis.f9036 COMPLEX(kind=DP), ALLOCATABLE :: omat(:,:),prod_tmp(:,:),zmat(:,:),omatij(:,:),omatm(:,:) local
158 allocate(omat(nprod_e,num))
160 …d_e,num,npw_max*npol,(1.0d0,0.d0),prod_e,npw_max*npol,prod_g,npw_max*npol,(0.d0,0.d0),omat,nprod_e)
162 call mp_sum(omat,world_comm)
164 …call ZGEMM('N','N',npw_max*npol,num,nprod_e,(-1.d0,0.d0),prod_e,npw_max*npol,omat,nprod_e,(1.d0,0.…
166 deallocate(omat)
226 allocate(omat(nprod_e,ntot_e))
259 …e,ntot_e,npw_max*npol,(1.d0,0.d0),prod_e,npw_max*npol,prod_g,npw_max*npol,(0.d0,0.d0),omat,nprod_e)
260 call mp_sum(omat,world_comm)
263 write(iun) omat(1:nprod_e,jj)
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/bse/
H A Dcgsolve.f9038 real(kind=DP), allocatable :: omat(:,:) local
55 allocate(omat(nbnd,nbnd))
56 omat(1:nbnd,1:nbnd)=0.d0
58 call dgemm('T','N',nbnd,nbnd,2*npw,2.d0,b,2*npwx,b,2*npwx,0.d0,omat,nbnd)
62 omat(i,j)=omat(i,j)-dble(b(1,i)*conjg(b(1,j)))
67 call mp_sum(omat,world_comm)
70 if(ionode) write(*,*) 'nbnd1,nbnd2,omat4(1,2)', i,j,omat(i,j)
187 deallocate(omat)
/dports/math/gap/gap-4.11.0/pkg/RingsForHomalg-2019.12.08/examples/
H A Dconvert_test.g19 omat := ShallowCopy( imat );
21 ## omat converted
22 cmat := c( omat, S );
35 b := b and bmat = omat;
/dports/science/qmcpack/qmcpack-3.11.0/src/Containers/MinimalContainers/tests/
H A Dtest_ConstantSizeMatrix.cpp56 Matrix<double> omat(2, 9); variable
57 omat = 2.0;
58 cmat = omat;
61 CHECK(*omat[1] == 2.0);
/dports/science/afni/afni-AFNI_21.3.16/src/
H A Dedt_geomcon.c339 mat44_nxyz omat ; in EDIT_geometry_string_to_mat44() local
346 LOAD_IDENT_MAT44(omat.mat) ; omat.nx = omat.ny = omat.nz = 0 ; in EDIT_geometry_string_to_mat44()
347 if( !ISVALID_GEOMETRY_STRING(gstr) ) return omat ; in EDIT_geometry_string_to_mat44()
356 if( ii < 15 ) return omat ; in EDIT_geometry_string_to_mat44()
358 LOAD_MAT44( omat.mat , in EDIT_geometry_string_to_mat44()
360 omat.nx = nx ; omat.ny = ny ; omat.nz = nz ; in EDIT_geometry_string_to_mat44()
361 return omat ; in EDIT_geometry_string_to_mat44()
370 omat = EDIT_geometry_string_to_mat44(gstr) ; in EDIT_geometry_string_to_delxyz()
371 if( omat.nx == 0 ) return dxyz ; in EDIT_geometry_string_to_delxyz()
373 dxyz.a = MAT44_COLNORM(omat.mat,0) ; in EDIT_geometry_string_to_delxyz()
[all …]
/dports/games/libretro-fbneo/FBNeo-bbe3c05/src/dep/pi/gles/
H A Dmatrix.c139 struct phl_matrix omat; in phl_matrix_ortho() local
140 phl_matrix_identity(&omat); in phl_matrix_ortho()
142 omat.xx = 2.0f / (right - left); in phl_matrix_ortho()
143 omat.yy = 2.0f / (top - bottom); in phl_matrix_ortho()
144 omat.zz = 2.0f / (near - far); in phl_matrix_ortho()
145 omat.wx = -(right + left) / (right - left); in phl_matrix_ortho()
146 omat.wy = -(top + bottom) / (top - bottom); in phl_matrix_ortho()
147 omat.wz = -(far + near) / (far - near); in phl_matrix_ortho()
149 phl_matrix_multiply(m, &mcopy, &omat); in phl_matrix_ortho()
/dports/graphics/blender/blender-2.91.0/source/blender/modifiers/intern/
H A DMOD_boolean.c155 float omat[4][4]; in get_quick_mesh() local
158 mul_m4_m4m4(omat, imat, ob_operand_ob->obmat); in get_quick_mesh()
164 mul_m4_v3(omat, mv->co); in get_quick_mesh()
335 float omat[4][4]; in BMD_mesh_intersection() local
347 mul_m4_m4m4(omat, imat, cleaned_operand_obmat); in BMD_mesh_intersection()
351 mul_m4_m4m4(omat, imat, operand_ob->obmat); in BMD_mesh_intersection()
357 mul_m4_v3(omat, eve->co); in BMD_mesh_intersection()
367 copy_m3_m4(nmat, omat); in BMD_mesh_intersection()
530 float omat[4][4]; in collection_boolean_exact() local
544 mul_m4_m4m4(omat, imat, cleaned_object_obmat); in collection_boolean_exact()
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/simple_bse/
H A Dderived_object.f90122 tmp_mat2(1:pp%ntot_e,1:pp%numv)=conjg(bd%omat(1:pp%ntot_e,1:pp%numv,ik))
123 tmp_mat3(1:pp%ntot_e,1:pp%numc)=bd%omat(1:pp%ntot_e,pp%numv+1:pp%numv+pp%numc,ik)
141 …call ZGEMM('C','N',bd%num,bd%num,bd%ntot_e,(1.d0,0.d0),bd%omat(1,1,ik),bd%ntot_e,bd%omat(1,1,ik),b…
233 emat(1:pm%ntot_e,1:pm%numv)=bd%omat(1:pm%ntot_e,1:pm%numv,ik-pm%ik_first+1)
261 tmp_mat2(1:pm%ntot_e,1:pm%numv)=conjg(bd%omat(1:pm%ntot_e,1:pm%numv,jk))
294 … emat(1:pm%ntot_e,1:pm%numc)=bd%omat(1:pm%ntot_e,pm%numv+1:pm%numv+pm%numc,ik-pm%ik_first+1)
304 tmp_mat2(1:pm%ntot_e,1:pm%numc)=conjg(bd%omat(1:pm%ntot_e,pm%numv+1:pm%numv+pm%numc,jk))
H A Dsimple_object.f9019 COMPLEX(kind=DP), DIMENSION(:,:,:), POINTER :: omat!overlap matrix (ntot_e,num,nk_loc) component
228 if(associated(bd%omat)) deallocate(bd%omat)
232 nullify(bd%omat)
310 COMPLEX(kind=DP), allocatable :: omat(:,:) local
351 allocate(bd%omat(bd%ntot_e,bd%num,bd%nk_loc))
356 nullify(bd%omat)
362 allocate(omat(bd%ntot_e,bd%num))
369 read(iun) omat(1:bd%ntot_e,i)
374 call mp_bcast(omat, ionode_id, world_comm )
379 bd%omat(1:bd%ntot_e,1:bd%num,ik-bd%ik_first+1)=omat(1:bd%ntot_e,1:bd%num)
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/head/
H A Dlanczos_k.f9042 COMPLEX(kind=DP), INTENT(out) :: omat(nsteps,3,nstates)!overlaps local
176 omat(:,:,:)=(0.d0,0.d0)
180 …','N',1,1,npw,(1.d0,0.d0),dpsi_ipol(:,is,ipol),npwx,psi_1(:,is),npwx,(0.d0,0.d0),omat(1,ipol,is),1)
181 …','N',1,1,npw,(1.d0,0.d0),dpsi_ipol(:,is,ipol),npwx,psi_2(:,is),npwx,(0.d0,0.d0),omat(2,ipol,is),1)
186 call mp_sum(omat(1:2,1:3,1:nstates),world_comm)
279 &omat(it+1,ipol,is),1)
283 call mp_sum(omat(it+1,1:3,1:nstates),world_comm)
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/interface/
H A Diguess.c321 Mat omat = NULL; in KSPGuessSetUp() local
328 omat = guess->A; in KSPGuessSetUp()
339 } else if (!reuse && (omat != guess->A || guess->omatstate != matstate)) { in KSPGuessSetUp()
340 …ierr = PetscInfo1(guess,"Resetting KSPGuess since %s has changed\n",omat != guess->A ? "matrix" : … in KSPGuessSetUp()
349 ierr = MatDestroy(&omat);CHKERRQ(ierr); in KSPGuessSetUp()
/dports/science/qmcpack/qmcpack-3.11.0/src/QMCWaveFunctions/HarmonicOscillator/
H A DSHOSet.cpp474 Array<double, 2> omat; in test_overlap() local
475 omat.resize(nphi, nphi); in test_overlap()
478 omat(i, j) = 0.0; in test_overlap()
489 omat(i, j) += bvalues(d, i) * bvalues(d, j) * dr; in test_overlap()
496 app_log() << omat(i, j) << " "; in test_overlap()
505 omat.resize(nphi, nphi); in test_overlap()
508 omat(i, j) = 0.0; in test_overlap()
521 omat(i, j) += std::abs(psi[i] * psi[j]) * dV; in test_overlap()
527 app_log() << omat(i, j) << " "; in test_overlap()
/dports/science/bagel/bagel-1.2.2/src/grad/
H A Dgradtask.hpp95 …nst std::shared_ptr<const Matrix> kmat, const std::shared_ptr<const Matrix> omat, GradEval_base* p) in GradTask1() argument
96 : GradTask(a, o, p), shell_(s), den2_(nmat), den3_(kmat), eden_(omat) { } in GradTask1()
114 …nst std::shared_ptr<const Matrix> kmat, const std::shared_ptr<const Matrix> omat, GradEval_base* p) in GradTask1s() argument
115 : GradTask(a, o, p), shell_(s), den2_(omat), den3_(kmat), eden_(vmat) { } in GradTask1s()

12345678910>>...14