181 lines
9.2 KiB
C
181 lines
9.2 KiB
C
|
|
#ifndef GETNP4_H
|
|
#define GETNP4_H
|
|
|
|
#ifdef fortran1
|
|
#define f_getnp4old getnp4old
|
|
#define f_getnp4oldscalar getnp4oldscalar
|
|
#define f_getnp4oldscalar_ss getnp4oldscalar_ss
|
|
#define f_getnp4 getnp4
|
|
#define f_getnp4_point getnp4_point
|
|
#define f_getnp4_ss getnp4_ss
|
|
#define f_getnp4old_ss getnp4old_ss
|
|
#define f_getnp4scalar getnp4scalar
|
|
#define f_getnp4scalar_ss getnp4scalar_ss
|
|
#endif
|
|
#ifdef fortran2
|
|
#define f_getnp4 GETNP4
|
|
#define f_getnp4_point GETNP4_POINT
|
|
#define f_getnp4 GETNP4OLD
|
|
#define f_getnp4scalar GETNP4OLDSCALAR
|
|
#define f_getnp4_ss GETNP4_SS
|
|
#define f_getnp4old_ss GETNP4OLD_SS
|
|
#define f_getnp4oldscalar_ss GETNP4OLDSCALAR_SS
|
|
#define f_getnp4scalar GETNP4SCALAR
|
|
#define f_getnp4scalar_ss GETNP4SCALAR_SS
|
|
#endif
|
|
#ifdef fortran3
|
|
#define f_getnp4old getnp4old_
|
|
#define f_getnp4_point getnp4_point_
|
|
#define f_getnp4oldscalar getnp4oldscalar_
|
|
#define f_getnp4oldscalar_ss getnp4oldscalar_ss_
|
|
#define f_getnp4 getnp4_
|
|
#define f_getnp4_ss getnp4_ss_
|
|
#define f_getnp4old_ss getnp4old_ss_
|
|
#define f_getnp4scalar getnp4scalar_
|
|
#define f_getnp4scalar_ss getnp4scalar_ss_
|
|
#endif
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4old(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4old_ss(int *, double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, int &, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4oldscalar(int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4oldscalar_ss(int *, double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *,
|
|
double *, double *, int &, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4(int *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4_point(double &, double &, double &, // XYZ
|
|
double &, double &, // chi,trK
|
|
double &, double &, double &, double &, double &, double &, // gamma_ij
|
|
double &, double &, double &, double &, double &, double &, // A_ij
|
|
double &, double &, double &, // chi_i
|
|
double &, double &, double &, // trK_i
|
|
double &, double &, double &, // A_ijk
|
|
double &, double &, double &,
|
|
double &, double &, double &,
|
|
double &, double &, double &,
|
|
double &, double &, double &,
|
|
double &, double &, double &,
|
|
double &, double &, double &, double &, double &, double &, // Gam_ijk
|
|
double &, double &, double &, double &, double &, double &,
|
|
double &, double &, double &, double &, double &, double &,
|
|
double &, double &, double &, double &, double &, double &, // R_ij
|
|
double &, double &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4_ss(int *, double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, int &, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4scalar(int *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, int &);
|
|
}
|
|
|
|
extern "C"
|
|
{
|
|
void f_getnp4scalar_ss(int *, double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, double *, double *, double *, double *,
|
|
double *, double *, int &, int &);
|
|
}
|
|
|
|
#endif /* GETNP4_H */
|