Searched refs:m1_loc (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | report_mag.f90 | 28 REAL(DP) :: r1_loc(nat), m1_loc(nspin-1,nat) local
32 CALL get_locals( r1_loc, m1_loc, rho%of_r )
38 WRITE(stdout,1020) iat, r1_loc(iat), m1_loc(1,iat), mcons(1,ityp(iat))
46 norm = DSQRT( m1_loc(1,iat)**2+m1_loc(2,iat)**2+m1_loc(3,iat)**2 )
51 norm1 = DSQRT( m1_loc(1,iat)**2+m1_loc(2,iat)**2 )
56 theta = ACOS(m1_loc(3,iat)/norm)
58 phi = ACOS(m1_loc(1,iat)/norm1)
59 IF (m1_loc(2,iat) < 0.d0) phi = - phi
75 WRITE( stdout,1012) (m1_loc(ipol,iat),ipol=1,3)
76 WRITE( stdout,1018) (m1_loc(ipol,iat)/r1_loc(iat),ipol=1,3)
|