| Revision: | 1948 |
| Committed: | Fri Jan 14 20:31:16 2005 UTC (19 years, 6 months ago) by gezelter |
| File size: | 382 byte(s) |
| Log Message: | separating modules and C/Fortran interface subroutines |
| # | Content |
|---|---|
| 1 | subroutine newDipoleType(ident, dipole_moment, status) |
| 2 | |
| 3 | use dipole_dipole, ONLY : module_newDipoleType => newDipoleType |
| 4 | |
| 5 | integer, parameter :: DP = selected_real_kind(15) |
| 6 | integer,intent(inout) :: ident |
| 7 | real(kind=dp),intent(inout) :: dipole_moment |
| 8 | integer,intent(inout) :: status |
| 9 | |
| 10 | call module_newDipoleType(ident, dipole_moment, status) |
| 11 | |
| 12 | end subroutine newDipoleType |