amos/camos.h

   1 #ifndef CAMOS_H_
   2 #define CAMOS_H_
   3 #include "amos.h"
   4
   5 // TODO what about all the INTEGER_t and DOUBLE_PRECISION_t?
   6
   7 static inline int camos_zbesh(double zr, double zi, double fnu, int kode, int m,
   8           int n, double *cyr, double *cyi, int *nz) {
   9         int ierr;
  10         amos_zbesh(&zr, &zi, &fnu, &kode, &m, &n, cyr, cyi, nz, &ierr);
  11         return ierr;
  12 }
  13
  14 static inline int camos_zbesj(double zr, double zi, double fnu, int kode, int n, double *cyr,
  15           double *cyi, int *nz) {
  16         int ierr;
  17         double cwrkr[n], cwrki[n];
  18         amos_zbesj(&zr, &zi, &fnu, &kode, &n, cyr, cyi, nz, &ierr);
  19         return ierr;
  20 }
  21
  22 static inline int camos_zbesy(double zr, double zi, double fnu, int kode, int n, double *cyr,
  23           double *cyi, int *nz, double *cwrkr, double *cwrki) {
  24         int ierr;
  25         amos_zbesy(&zr, &zi, &fnu, &kode, &n, cyr, cyi, nz, cwrkr, cwrki, &ierr);
  26         return ierr;
  27 }
  28
  29
  30 #endif // CAMOS_H_