1 #ifndef LIBNCL_H
2 #define LIBNCL_H
3 
4 #include "cf_interface.h"
5 /*
6 void DCFINDIF(double *,double *,int *,double *,
7               double *,int *,int *, double *,
8               double *,int *,double *,int *);
9 
10 void DVRFIDF(double *, double *, double *, double *, int, int, double, int,
11 double *, int *); void DDVFIDF(double *, double *, double *, double *, int, int,
12 double, int, double *, int *);
13 */
14 
15 // LIBNCL Fortran routines
16 
17 #ifdef HAVE_CF_INTERFACE
18 
19 PROTOCCALLSFSUB10(DDVFIDF, ddvfidf, DOUBLEV, DOUBLEV, DOUBLEV, DOUBLEV, INT, INT, DOUBLE, INT, DOUBLEV, PINT)
20 #define DDVFIDF(A1, A2, A3, A4, A5, A6, A7, A8, A9, A10)                                                                           \
21   CCALLSFSUB10(DDVFIDF, ddvfidf, DOUBLEV, DOUBLEV, DOUBLEV, DOUBLEV, INT, INT, DOUBLE, INT, DOUBLEV, PINT, A1, A2, A3, A4, A5, A6, \
22                A7, A8, A9, A10)
23 
24 PROTOCCALLSFSUB10(DVRFIDF, dvrfidf, DOUBLEV, DOUBLEV, DOUBLEV, DOUBLEV, INT, INT, DOUBLE, INT, DOUBLEV, PINT)
25 #define DVRFIDF(A1, A2, A3, A4, A5, A6, A7, A8, A9, A10)                                                                           \
26   CCALLSFSUB10(DVRFIDF, dvrfidf, DOUBLEV, DOUBLEV, DOUBLEV, DOUBLEV, INT, INT, DOUBLE, INT, DOUBLEV, PINT, A1, A2, A3, A4, A5, A6, \
27                A7, A8, A9, A10)
28 
29 #endif
30 
31 #endif
32