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