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