| # | 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 |