| Revision: | 939 |
| Committed: | Thu Apr 20 18:24:24 2006 UTC (19 years, 6 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 | 727 | subroutine setFunctionType(the_FT) |
| 2 | gezelter | 939 | use switcheroo, ONLY : module_setFT => set_switch_type |
| 3 | chrisfen | 727 | integer,intent(inout) :: the_FT |
| 4 | call module_setFT(the_FT) | ||
| 5 | end subroutine setFunctionType | ||
| 6 | |||
| 7 | gezelter | 939 | subroutine deleteSwitch() |
| 8 | use switcheroo, ONLY : module_delete_switch => delete_switch | ||
| 9 | call module_delete_switch() | ||
| 10 | end subroutine deleteSwitch | ||
| 11 |