Revision: | 1948 |
Committed: | Fri Jan 14 20:31:16 2005 UTC (19 years, 8 months ago) by gezelter |
File size: | 382 byte(s) |
Log Message: | separating modules and C/Fortran interface subroutines |
# | User | Rev | Content |
---|---|---|---|
1 | gezelter | 1948 | 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 |