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