| Revision: | 1948 |
| Committed: | Fri Jan 14 20:31:16 2005 UTC (19 years, 6 months ago) by gezelter |
| File size: | 405 byte(s) |
| Log Message: | separating modules and C/Fortran interface subroutines |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | gezelter | 1948 | subroutine newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, isError) |
| 2 | |||
| 3 | use definitions, ONLY : dp | ||
| 4 | use sticky, ONLY : module_newStickyType => newStickyType | ||
| 5 | |||
| 6 | integer, intent(inout) :: c_ident, isError | ||
| 7 | real( kind = dp ), intent(inout) :: w0, v0, v0p, rl, ru, rlp, rup | ||
| 8 | |||
| 9 | call module_newStickyType(c_ident, w0, v0, v0p, rl, ru, rlp, rup, & | ||
| 10 | isError) | ||
| 11 | |||
| 12 | end subroutine newStickyType |