| 44 |
|
* |
| 45 |
|
* Created by Charles F. Vardeman II on 11/10/05. |
| 46 |
|
* @author Charles F. Vardeman II |
| 47 |
< |
* @version $Id: suttonchen_interface.h,v 1.1 2005-11-14 21:29:32 chuckv Exp $ |
| 47 |
> |
* @version $Id: suttonchen_interface.h,v 1.2 2005-11-14 22:20:35 chuckv Exp $ |
| 48 |
|
* |
| 49 |
|
*/ |
| 50 |
|
#ifndef USETHEFORCE_DARKSIDE_SUTTONCHEN_INTERFACE_H |
| 56 |
|
|
| 57 |
|
#define newSCtype F90_FUNC(newsctype, NEWSCTYPE) |
| 58 |
|
#define useSCGeometricMixing F90_FUNC(usescgeometricmixing, USESCGEOMETRICMIXING) |
| 59 |
< |
#define destroySCypes F90_FUNC(destroysctypes, DESTROYSCTYPES) |
| 59 |
> |
#define destroySCTypes F90_FUNC(destroysctypes, DESTROYSCTYPES) |
| 60 |
|
|
| 61 |
|
extern "C"{ |
| 62 |
|
void newSCtype( int* ident, |
| 68 |
|
int* status); |
| 69 |
|
|
| 70 |
|
void useSCGeometricMixing( ); |
| 71 |
< |
void destroySCTypes( void ); |
| 71 |
> |
void destroySCTypes( ); |
| 72 |
|
} |
| 73 |
|
#endif |
