| 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.2 2005-11-14 22:20:35 chuckv Exp $ |
| 47 |
> |
* @version $Id: suttonchen_interface.h,v 1.4 2006-01-11 23:04:40 gezelter Exp $ |
| 48 |
|
* |
| 49 |
|
*/ |
| 50 |
|
#ifndef USETHEFORCE_DARKSIDE_SUTTONCHEN_INTERFACE_H |
| 54 |
|
|
| 55 |
|
#include "config.h" |
| 56 |
|
|
| 57 |
< |
#define newSCtype F90_FUNC(newsctype, NEWSCTYPE) |
| 58 |
< |
#define useSCGeometricMixing F90_FUNC(usescgeometricmixing, USESCGEOMETRICMIXING) |
| 59 |
< |
#define destroySCTypes F90_FUNC(destroysctypes, DESTROYSCTYPES) |
| 57 |
> |
#define newSCtype FC_FUNC(newsctype, NEWSCTYPE) |
| 58 |
> |
#define destroySCTypes FC_FUNC(destroysctypes, DESTROYSCTYPES) |
| 59 |
|
|
| 60 |
|
extern "C"{ |
| 61 |
|
void newSCtype( int* ident, |
| 66 |
|
double* epsilon, |
| 67 |
|
int* status); |
| 68 |
|
|
| 69 |
< |
void useSCGeometricMixing( ); |
| 71 |
< |
void destroySCTypes( ); |
| 69 |
> |
void destroySCTypes( ); |
| 70 |
|
} |
| 71 |
|
#endif |
