53 |
|
|
54 |
|
#include "config.h" |
55 |
|
|
56 |
< |
#define makeShape F90_FUNC(makeshape, MAKESHAPE) |
57 |
< |
#define completeShapeFF F90_FUNC(completeshapeff, COMPLETESHAPEFF) |
58 |
< |
#define destroyShapeTypes F90_FUNC(destroyshapetypes, DESTROYSHAPETYPES) |
56 |
> |
#define makeShape FC_FUNC(makeshape, MAKESHAPE) |
57 |
> |
#define completeShapeFF FC_FUNC(completeshapeff, COMPLETESHAPEFF) |
58 |
> |
#define destroyShapeTypes FC_FUNC(destroyshapetypes, DESTROYSHAPETYPES) |
59 |
|
|
60 |
|
#define SH_COS 0 |
61 |
|
#define SH_SIN 1 |
77 |
|
int* StrengthFuncMValue, |
78 |
|
int* StrengthFunctionType, |
79 |
|
double* StrengthFuncCoefficient, |
80 |
< |
int* myAtid, |
80 |
> |
int* c_ident, |
81 |
|
int* status); |
82 |
|
|
83 |
|
void completeShapeFF( int* status); |