Home
last modified time | relevance | path

Searched refs:amag (Results 1 – 25 of 137) sorted by relevance

123456

/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/
H A Dcompute_rho.f9033 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 Dcompute_ux.f9029 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 Dgradcorr.f9048 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 Dbell_fmpz.c175 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 Ddmxc_drivers.f90539 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 DQuat4d.java556 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 DQuat4f.java560 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 Ddgradcorr.f9038 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 Dtestvir.f220 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 double amag = Mag(a),
137 if (amag < bmag)
139 if (amag > bmag)
/dports/databases/postgresql11-contrib/postgresql-11.14/src/tutorial/
H A Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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 Dcomplex.c134 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()

123456