| 47 |
|
!! PURPOSE: |
| 48 |
|
!! |
| 49 |
|
!! @author Charles F. Vardeman II |
| 50 |
< |
!! @version $Id: suttonchen_interface.F90,v 1.1 2005-11-14 21:29:32 chuckv Exp $ |
| 50 |
> |
!! @version $Id: suttonchen_interface.F90,v 1.2 2005-12-07 19:58:18 chuckv Exp $ |
| 51 |
|
|
| 52 |
|
|
| 53 |
|
|
| 68 |
|
|
| 69 |
|
end subroutine newSCtype |
| 70 |
|
|
| 71 |
– |
subroutine useSCGeometricMixing() |
| 72 |
– |
use suttonchen, ONLY: module_useGeometricMixing => useGeometricMixing |
| 73 |
– |
|
| 74 |
– |
call module_useGeometricMixing() |
| 75 |
– |
return |
| 76 |
– |
end subroutine useSCGeometricMixing |
| 77 |
– |
|
| 71 |
|
subroutine destroySCTypes() |
| 72 |
|
use suttonchen, ONLY: module_destroySCTypes => destroySCTypes |
| 73 |
|
|
