prototypes.h

Go to the documentation of this file.

/* prototypes.h
 * Prototypes from some builtin FORTRAN routines
 * to allow prototyping with protoize.
 * Use: protoize -c "-include prototypes.h -I INCLUDEDIRS" program.c
 * KG, 2002-12-31, $Id: prototypes.h,v 1.1.2.4 2019/05/29 08:40:56 garloff Exp $
 */

#ifndef _PROTOTYPES_H
#define _PROTOTYPES_H

#ifdef __cplusplus
extern "C" {
#endif

#include "tbci/lapack/f2c.h"

double r_imag(const complex*), c_abs(const complex*);
double d_imag(const doublecomplex*), z_abs(const doublecomplex*);
void c_log(complex*, const complex*);
void z_log(doublecomplex*, const doublecomplex*);
void c_div(complex*, const complex*, const complex*);
void z_div(doublecomplex*, const doublecomplex*, const doublecomplex*);
void c_sin(complex*, const complex*), c_exp(complex*, const complex*);

double pow_di(const doublereal*, const integer*);
double d_int(const doublereal*);
double d_nint(const doublereal*);
double d_sign(const doublereal*, const doublereal*);
double d_lg10(const doublereal*);
double pow_dd(const doublereal*, const doublereal*);

integer f_open(olist*);
integer s_rsle(cilist*), s_wsle(cilist*), s_wsfe(cilist*);
integer do_lio(integer*, integer*, char*, ftnlen);
integer do_fio(integer*, char*, ftnlen);
integer e_wsfe(), e_rsle(), e_wsle();
int s_stop(const char*, ftnlen);

double log(const double), sqrt(const double);
double atan2(const double, const double), sin(const double), cos(const double);
double sinh(const double), cosh(const double);
double exp(const double), atan(const double);

#ifdef __cplusplus
}
#endif

#endif