/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
H A D | compute_rho.f90 | 33 REAL(DP) :: amag local 39 amag=SQRT(rho(ir,2)**2+rho(ir,3)**2+rho(ir,4)**2) 40 rhoout(ir,1)=0.5d0*(rho(ir,1)+segni(ir)*amag) 41 rhoout(ir,2)=0.5d0*(rho(ir,1)-segni(ir)*amag) 48 amag=SQRT(rho(ir,2)**2+rho(ir,3)**2+rho(ir,4)**2) 49 rhoout(ir,1)=0.5d0*(rho(ir,1) + amag) 50 rhoout(ir,2)=0.5d0*(rho(ir,1) - amag)
|
H A D | compute_ux.f90 | 29 REAL(DP) :: amag, uxmod ! modulus of the magnetization and of ux local 42 amag=m_loc(1,na)**2+m_loc(2,na)**2+m_loc(3,na)**2 43 IF (amag > eps12) THEN
|
H A D | gradcorr.f90 | 48 REAL(DP) :: sgn(2), etxcgc, vtxcgc, segno, fac, amag local 210 amag = SQRT(rho(k,2)**2+rho(k,3)**2+rho(k,4)**2) 211 IF (amag > 1.d-12) THEN 212 v(k,2) = v(k,2) + segni(k)*0.5d0*(vgg(k,1)-vgg(k,2))*rho(k,2)/amag 213 v(k,3) = v(k,3) + segni(k)*0.5d0*(vgg(k,1)-vgg(k,2))*rho(k,3)/amag 214 v(k,4) = v(k,4) + segni(k)*0.5d0*(vgg(k,1)-vgg(k,2))*rho(k,4)/amag
|
/dports/math/arb/arb-2.21.1/arb/ |
H A D | bell_fmpz.c | 175 fmpz_init(a); fmpz_init(amag); in arb_bell_find_cutoffs() 193 fmpz_zero(amag); in arb_bell_find_cutoffs() 210 fmpz_swap(amag, mmag); in arb_bell_find_cutoffs() 220 fmpz_set(Mmag, amag); in arb_bell_find_cutoffs() 225 fmpz_zero(amag); in arb_bell_find_cutoffs() 241 fmpz_swap(amag, mmag); in arb_bell_find_cutoffs() 251 fmpz_set(Amag, amag); in arb_bell_find_cutoffs() 255 fmpz_set(amag, Mmag); in arb_bell_find_cutoffs() 276 fmpz_swap(amag, mmag); in arb_bell_find_cutoffs() 281 fmpz_set(Bmag, amag); in arb_bell_find_cutoffs() [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
H A D | dmxc_drivers.f90 | 539 amag = amag_trash 556 amag(i) = SQRT( m(i,1)**2 + m(i,2)**2 + m(i,3)**2 ) 557 IF (rhotot(i) > small) zeta_s = amag(i) / rhotot(i) 583 WHERE (amag > 1.E-10_DP) 584 dbx_rho(:) = aux2(1:length) * m(:,1) / (4.0_DP*dr*amag) 585 dby_rho(:) = aux2(1:length) * m(:,2) / (4.0_DP*dr*amag) 586 dbz_rho(:) = aux2(1:length) * m(:,3) / (4.0_DP*dr*amag) 601 IF (amag(i) <= 1.E-10_DP) THEN 625 vs(i) * m(i,1) * m(i,2) ) / amag(i)**3 627 vs(i) * m(i,1) * m(i,3) ) / amag(i)**3 [all …]
|
/dports/java/java3d/java3d-1.5.2/vecmath/src/javax/vecmath/ |
H A D | Quat4d.java | 556 double mag,amag; in set() local 560 if( amag < EPS ) { in set() 567 amag = 1.0/amag; in set() 569 x = a.x*amag*mag; in set() 570 y = a.y*amag*mag; in set() 571 z = a.z*amag*mag; in set() 583 double mag,amag; in set() local 587 if( amag < EPS ) { in set() 593 amag = 1.0/amag; in set() 596 x = a.x*amag*mag; in set() [all …]
|
H A D | Quat4f.java | 560 float mag,amag; in set() local 563 if (amag < EPS ) { in set() 569 amag = 1.0f/amag; in set() 572 x = a.x*amag*mag; in set() 573 y = a.y*amag*mag; in set() 574 z = a.z*amag*mag; in set() 586 float mag,amag; in set() local 591 if (amag < EPS ) { in set() 597 amag = 1.0f/amag; in set() 600 x = (float)a.x*amag*mag; in set() [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/LR_Modules/ |
H A D | dgradcorr.f90 | 38 real(DP) :: grho2, seg, seg0, amag local 75 amag=sqrt(rho(k,2)**2+rho(k,3)**2+rho(k,4)**2) 76 IF (amag>1.d-12) THEN 79 drho(k,jpol)/amag 89 rho(k,jpol)*gdmag(ipol,k,jpol))/amag & 90 -seg*(rho(k,jpol)*gmag(ipol,k,jpol)*fact)/amag**3 212 amag=sqrt(rho(k,2)**2+rho(k,3)**2+rho(k,4)**2) 213 IF (amag.GT.1.d-12) THEN 219 term=term*rho(k,is)/amag**2 221 *rho(k,is)+vsgga(k)*(drho(k,is)-term))/amag
|
/dports/science/tinker/tinker/source/ |
H A D | testvir.f | 220 real*8 amag,bmag,cmag local 235 amag = sqrt(lvec(1,1)**2+lvec(1,2)**2+lvec(1,3)**2) 244 xbox = amag 248 beta = radian * acos(acdot/(amag*cmag)) 249 gamma = radian * acos(abdot/(amag*bmag))
|
/dports/databases/postgresql96-pltcl/postgresql-9.6.24/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql96-server/postgresql-9.6.24/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql96-plperl/postgresql-9.6.24/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql96-plpython/postgresql-9.6.24/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql10-plperl/postgresql-10.19/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql10-contrib/postgresql-10.19/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql10-client/postgresql-10.19/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql10-plpython/postgresql-10.19/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql10-docs/postgresql-10.19/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql11-plperl/postgresql-11.14/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), 137 if (amag < bmag) 139 if (amag > bmag)
|
/dports/databases/postgresql11-contrib/postgresql-11.14/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql11-client/postgresql-11.14/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql11-docs/postgresql-11.14/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql10-pltcl/postgresql-10.19/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql10-server/postgresql-10.19/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|
/dports/databases/postgresql11-pltcl/postgresql-11.14/src/tutorial/ |
H A D | complex.c | 134 double amag = Mag(a), in complex_abs_cmp_internal() local 137 if (amag < bmag) in complex_abs_cmp_internal() 139 if (amag > bmag) in complex_abs_cmp_internal()
|