00001
00003 #ifndef _PROTOTYPES2_H
00004 #define _PROTOTYPES2_H
00005
00006 #ifdef __cplusplus
00007 extern "C" {
00008 #endif
00009
00010 #include "f2c.h"
00011
00012 typedef complex floatcomplex;
00013
00014 #define LONG_
00015
00016
00017
00018 int zairy_ (const doublereal * zr, const doublereal * zi,
00019 const integer * id, const integer * kode,
00020 doublereal * air, doublereal * aii, integer * nz, integer * ierr);
00021
00022 int zbesh_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* m, LONG_ int* n,
00023 double* cyr, double* cyi, LONG_ int* nz, LONG_ int* ierr);
00024 int zbesj_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* n,
00025 double* cyr, double* cyi, LONG_ int* nz, LONG_ int* ierr);
00026 int zbesi_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* n,
00027 double* cyr, double* cyi, LONG_ int* nz, LONG_ int* ierr);
00028 int zbesy_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* n,
00029 double* cyr, double* cyi, LONG_ int* nz, double* wcyr, double* wcyi, LONG_ int* ierr);
00030 int zbesk_(double* zr, double* zi, double* fnu, LONG_ int* kode, LONG_ int* n,
00031 double* cyr, double* cyi, LONG_ int* nz, LONG_ int* ierr);
00032
00033 void conhyp_(doublecomplex* ret_val,
00034 const doublecomplex* a, const doublecomplex* b, const doublecomplex* z,
00035 const LONG_ int* lnchf, const LONG_ int* ip);
00036
00037 void cgamma_(complex* ret_val, complex* z);
00038 void z_sin(doublecomplex *r, const doublecomplex *z);
00039 void pow_zz(doublecomplex *r, const doublecomplex *a, const doublecomplex *b);
00040
00041
00042
00043 #ifdef __cplusplus
00044 }
00045 #endif
00046
00047 #endif
