| 274 |
|
end subroutine do_dipole_pair |
| 275 |
|
|
| 276 |
|
end module dipole_dipole |
| 277 |
– |
|
| 278 |
– |
subroutine newDipoleType(ident, dipole_moment, status) |
| 279 |
– |
|
| 280 |
– |
use dipole_dipole, ONLY : module_newDipoleType => newDipoleType |
| 277 |
|
|
| 282 |
– |
integer, parameter :: DP = selected_real_kind(15) |
| 283 |
– |
integer,intent(inout) :: ident |
| 284 |
– |
real(kind=dp),intent(inout) :: dipole_moment |
| 285 |
– |
integer,intent(inout) :: status |
| 286 |
– |
|
| 287 |
– |
call module_newDipoleType(ident, dipole_moment, status) |
| 288 |
– |
|
| 289 |
– |
end subroutine newDipoleType |
