prototypes2.h

Go to the documentation of this file.

#ifndef _PROTOTYPES2_H
#define _PROTOTYPES2_H

#ifdef __cplusplus
extern "C" {
#endif

#include "tbci/lapack/f2c.h"

typedef complex floatcomplex;

#define LONG_

//NAMESPACE_TBCI

int zairy_ (const doublereal * zr, const doublereal * zi,
        const integer * id, const integer * kode,
        doublereal * air, doublereal * aii,  integer * nz, integer * ierr);

int zbesh_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int*  m, LONG_ int* n,
           double* cyr, double* cyi, LONG_ int* nz, LONG_ int* ierr);
int zbesj_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* n,
           double* cyr, double* cyi, LONG_ int* nz, LONG_ int* ierr);
int zbesi_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* n,
           double* cyr, double* cyi, LONG_ int* nz, LONG_ int* ierr);
int zbesy_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* n,
           double* cyr, double* cyi, LONG_ int* nz, double* wcyr, double* wcyi, LONG_ int* ierr);
int zbesk_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* n,
           double* cyr, double* cyi, LONG_ int* nz, LONG_ int* ierr);

void conhyp_(doublecomplex* ret_val,
             const doublecomplex* a, const doublecomplex* b, const doublecomplex* z,
             const LONG_ int* lnchf, const LONG_ int* ip);

void cgamma_(complex* ret_val, complex* z);
void z_sin(doublecomplex *r, const doublecomplex *z);
void pow_zz(doublecomplex *r, const doublecomplex *a, const doublecomplex *b);

//NAMESPACE_END

#ifdef __cplusplus
}
#endif

#endif