1 |
< |
/* |
1 |
> |
/* |
2 |
|
* Copyright (c) 2005 The University of Notre Dame. All Rights Reserved. |
3 |
|
* |
4 |
|
* The University of Notre Dame grants you ("Licensee") a |
45 |
|
#define __C |
46 |
|
#include "config.h" |
47 |
|
|
48 |
< |
#define newStickyType F90_FUNC(newstickytype, NEWSTICKYTYPE) |
49 |
< |
#define destroyStickyTypes F90_FUNC(destroystickytypes,DESTROYSTICKYTYPES) |
48 |
> |
#define newStickyType FC_FUNC(newstickytype, NEWSTICKYTYPE) |
49 |
> |
#define destroyStickyTypes FC_FUNC(destroystickytypes,DESTROYSTICKYTYPES) |
50 |
|
extern "C" { |
51 |
|
|
52 |
|
void newStickyType( int* c_ident, |
53 |
< |
double* sticky_w0, |
54 |
< |
double* sticky_v0, |
55 |
< |
double* sticky_v0p, |
56 |
< |
double* sticky_rl, |
57 |
< |
double* sticky_ru, |
58 |
< |
double* sticky_rlp, |
59 |
< |
double* sticky_rup, |
53 |
> |
RealType* sticky_w0, |
54 |
> |
RealType* sticky_v0, |
55 |
> |
RealType* sticky_v0p, |
56 |
> |
RealType* sticky_rl, |
57 |
> |
RealType* sticky_ru, |
58 |
> |
RealType* sticky_rlp, |
59 |
> |
RealType* sticky_rup, |
60 |
|
int* isError ); |
61 |
< |
void destroyStickyTypes(); |
61 |
> |
void destroyStickyTypes(); |
62 |
|
} |
63 |
|
|
64 |
|
#endif |