# | Line 80 | Line 80 | contains | |
---|---|---|
80 | ul2(3) = u_l(3,atom2) | |
81 | #endif | |
82 | ||
83 | – | if( atom1 .eq. 2 )then |
84 | – | write (0,*) 'ul =', ul1(1), ul1(2), ul1(3) |
85 | – | endif |
83 | ||
87 | – | if( atom2 .eq. 2 )then |
88 | – | write (0,*) 'ul =', ul2(1), ul2(2), ul2(3) |
89 | – | endif |
90 | – | |
91 | – | |
84 | call getElementProperty(atypes, me1, "dipole_moment", mu1) | |
85 | call getElementProperty(atypes, me2, "dipole_moment", mu2) | |
86 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |