TBCI Numerical high perf. C++ Library: prototypes.h Source File

00001 /* prototypes.h
00002  * Prototypes from some builtin FORTRAN routines
00003  * to allow prototyping with protoize.
00004  * Use: protoize -c "-include prototypes.h -I INCLUDEDIRS" program.c
00005  * KG, 2002-12-31, $Id: prototypes.h,v 1.1.2.2 2008/07/17 17:07:08 garloff Exp $
00006  */
00007 
00008 #ifndef _PROTOTYPES_H
00009 #define _PROTOTYPES_H
00010 
00011 #ifdef __cplusplus
00012 extern "C" {
00013 #endif
00014 
00015 #include "f2c.h"
00016 
00017 double r_imag(const complex*), c_abs(const complex*);
00018 double d_imag(const doublecomplex*), z_abs(const doublecomplex*);
00019 void c_log(complex*, const complex*);
00020 void z_log(doublecomplex*, const doublecomplex*);
00021 void c_div(complex*, const complex*, const complex*);
00022 void z_div(doublecomplex*, const doublecomplex*, const doublecomplex*);
00023 void c_sin(complex*, const complex*), c_exp(complex*, const complex*);
00024 
00025 double pow_di(const doublereal*, const integer*);
00026 double d_int(const doublereal*);
00027 double d_nint(const doublereal*);
00028 double d_sign(const doublereal*, const doublereal*);
00029 double d_lg10(const doublereal*);
00030 double pow_dd(const doublereal*, const doublereal*);
00031 
00032 integer f_open(olist*);
00033 integer s_rsle(cilist*), s_wsle(cilist*), s_wsfe(cilist*);
00034 integer do_lio(integer*, integer*, char*, ftnlen);
00035 integer do_fio(integer*, char*, ftnlen); 
00036 integer e_wsfe(), e_rsle(), e_wsle();
00037 int s_stop(const char*, ftnlen);
00038 
00039 double log(const double), sqrt(const double);
00040 double atan2(const double, const double), sin(const double), cos(const double);
00041 double sinh(const double), cosh(const double);
00042 double exp(const double), atan(const double);
00043 
00044 #ifdef __cplusplus
00045 }
00046 #endif
00047 
00048 #endif