| 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 |