Revision: | 2722 |
Committed: | Thu Apr 20 18:24:24 2006 UTC (18 years, 4 months ago) by gezelter |
File size: | 334 byte(s) |
Log Message: | Complete rewrite of spline code and everything that uses it. |
# | User | Rev | Content |
---|---|---|---|
1 | chrisfen | 2426 | subroutine setFunctionType(the_FT) |
2 | gezelter | 2722 | use switcheroo, ONLY : module_setFT => set_switch_type |
3 | chrisfen | 2426 | integer,intent(inout) :: the_FT |
4 | call module_setFT(the_FT) | ||
5 | end subroutine setFunctionType | ||
6 | |||
7 | gezelter | 2722 | subroutine deleteSwitch() |
8 | use switcheroo, ONLY : module_delete_switch => delete_switch | ||
9 | call module_delete_switch() | ||
10 | end subroutine deleteSwitch | ||
11 |