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