/dports/games/vamos/vamos-0.7.1/body/ |
H A D | Frame.cc | 180 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 D | si_head.out | 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 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 D | si_head.out | 308 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 D | atom_operators.F | 210 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 D | atom_operators.F | 210 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 D | lag.hessian.R | 88 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 D | error.hessian.R | 69 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 D | pola_lanczos.f90 | 842 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 D | o_bands.f90 | 69 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 D | fake_conduction.f90 | 82 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 D | wfc_basis.f90 | 152 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 D | epe.f90 | 26 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 D | product_basis.f90 | 36 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 D | cgsolve.f90 | 38 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 D | convert_test.g | 19 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 D | test_ConstantSizeMatrix.cpp | 56 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 D | edt_geomcon.c | 339 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 D | matrix.c | 139 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 D | MOD_boolean.c | 155 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 D | derived_object.f90 | 122 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 D | simple_object.f90 | 19 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 D | lanczos_k.f90 | 42 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 D | iguess.c | 321 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 D | SHOSet.cpp | 474 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 D | gradtask.hpp | 95 …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()
|