toolchain/gcc/libf2c/libI77/f2ch.add

   1 /* If you are using a C++ compiler, append the following to f2c.h
   2    for compiling libF77 and libI77. */
   3
   4 #ifdef __cplusplus
   5 extern "C"
   6 {
   7   extern int abort_ (void);
   8   extern double c_abs (complex *);
   9   extern void c_cos (complex *, complex *);
  10   extern void c_div (complex *, complex *, complex *);
  11   extern void c_exp (complex *, complex *);
  12   extern void c_log (complex *, complex *);
  13   extern void c_sin (complex *, complex *);
  14   extern void c_sqrt (complex *, complex *);
  15   extern double d_abs (double *);
  16   extern double d_acos (double *);
  17   extern double d_asin (double *);
  18   extern double d_atan (double *);
  19   extern double d_atn2 (double *, double *);
  20   extern void d_cnjg (doublecomplex *, doublecomplex *);
  21   extern double d_cos (double *);
  22   extern double d_cosh (double *);
  23   extern double d_dim (double *, double *);
  24   extern double d_exp (double *);
  25   extern double d_imag (doublecomplex *);
  26   extern double d_int (double *);
  27   extern double d_lg10 (double *);
  28   extern double d_log (double *);
  29   extern double d_mod (double *, double *);
  30   extern double d_nint (double *);
  31   extern double d_prod (float *, float *);
  32   extern double d_sign (double *, double *);
  33   extern double d_sin (double *);
  34   extern double d_sinh (double *);
  35   extern double d_sqrt (double *);
  36   extern double d_tan (double *);
  37   extern double d_tanh (double *);
  38   extern double derf_ (double *);
  39   extern double derfc_ (double *);
  40   extern integer do_fio (ftnint *, char *, ftnlen);
  41   extern integer do_lio (ftnint *, ftnint *, char *, ftnlen);
  42   extern integer do_uio (ftnint *, char *, ftnlen);
  43   extern integer e_rdfe (void);
  44   extern integer e_rdue (void);
  45   extern integer e_rsfe (void);
  46   extern integer e_rsfi (void);
  47   extern integer e_rsle (void);
  48   extern integer e_rsli (void);
  49   extern integer e_rsue (void);
  50   extern integer e_wdfe (void);
  51   extern integer e_wdue (void);
  52   extern integer e_wsfe (void);
  53   extern integer e_wsfi (void);
  54   extern integer e_wsle (void);
  55   extern integer e_wsli (void);
  56   extern integer e_wsue (void);
  57   extern int ef1asc_ (ftnint *, ftnlen *, ftnint *, ftnlen *);
  58   extern integer ef1cmc_ (ftnint *, ftnlen *, ftnint *, ftnlen *);
  59   extern double erf (double);
  60   extern double erf_ (float *);
  61   extern double erfc (double);
  62   extern double erfc_ (float *);
  63   extern integer f_back (alist *);
  64   extern integer f_clos (cllist *);
  65   extern integer f_end (alist *);
  66   extern void f_exit (void);
  67   extern integer f_inqu (inlist *);
  68   extern integer f_open (olist *);
  69   extern integer f_rew (alist *);
  70   extern int flush_ (void);
  71   extern void getarg_ (integer *, char *, ftnlen);
  72   extern void getenv_ (char *, char *, ftnlen, ftnlen);
  73   extern short h_abs (short *);
  74   extern short h_dim (short *, short *);
  75   extern short h_dnnt (double *);
  76   extern short h_indx (char *, char *, ftnlen, ftnlen);
  77   extern short h_len (char *, ftnlen);
  78   extern short h_mod (short *, short *);
  79   extern short h_nint (float *);
  80   extern short h_sign (short *, short *);
  81   extern short hl_ge (char *, char *, ftnlen, ftnlen);
  82   extern short hl_gt (char *, char *, ftnlen, ftnlen);
  83   extern short hl_le (char *, char *, ftnlen, ftnlen);
  84   extern short hl_lt (char *, char *, ftnlen, ftnlen);
  85   extern integer i_abs (integer *);
  86   extern integer i_dim (integer *, integer *);
  87   extern integer i_dnnt (double *);
  88   extern integer i_indx (char *, char *, ftnlen, ftnlen);
  89   extern integer i_len (char *, ftnlen);
  90   extern integer i_mod (integer *, integer *);
  91   extern integer i_nint (float *);
  92   extern integer i_sign (integer *, integer *);
  93   extern integer iargc_ (void);
  94   extern ftnlen l_ge (char *, char *, ftnlen, ftnlen);
  95   extern ftnlen l_gt (char *, char *, ftnlen, ftnlen);
  96   extern ftnlen l_le (char *, char *, ftnlen, ftnlen);
  97   extern ftnlen l_lt (char *, char *, ftnlen, ftnlen);
  98   extern void pow_ci (complex *, complex *, integer *);
  99   extern double pow_dd (double *, double *);
 100   extern double pow_di (double *, integer *);
 101   extern short pow_hh (short *, shortint *);
 102   extern integer pow_ii (integer *, integer *);
 103   extern double pow_ri (float *, integer *);
 104   extern void pow_zi (doublecomplex *, doublecomplex *, integer *);
 105   extern void pow_zz (doublecomplex *, doublecomplex *, doublecomplex *);
 106   extern double r_abs (float *);
 107   extern double r_acos (float *);
 108   extern double r_asin (float *);
 109   extern double r_atan (float *);
 110   extern double r_atn2 (float *, float *);
 111   extern void r_cnjg (complex *, complex *);
 112   extern double r_cos (float *);
 113   extern double r_cosh (float *);
 114   extern double r_dim (float *, float *);
 115   extern double r_exp (float *);
 116   extern double r_imag (complex *);
 117   extern double r_int (float *);
 118   extern double r_lg10 (float *);
 119   extern double r_log (float *);
 120   extern double r_mod (float *, float *);
 121   extern double r_nint (float *);
 122   extern double r_sign (float *, float *);
 123   extern double r_sin (float *);
 124   extern double r_sinh (float *);
 125   extern double r_sqrt (float *);
 126   extern double r_tan (float *);
 127   extern double r_tanh (float *);
 128   extern void s_cat (char *, char **, integer *, integer *, ftnlen);
 129   extern integer s_cmp (char *, char *, ftnlen, ftnlen);
 130   extern void s_copy (char *, char *, ftnlen, ftnlen);
 131   extern int s_paus (char *, ftnlen);
 132   extern integer s_rdfe (cilist *);
 133   extern integer s_rdue (cilist *);
 134   extern integer s_rnge (char *, integer, char *, integer);
 135   extern integer s_rsfe (cilist *);
 136   extern integer s_rsfi (icilist *);
 137   extern integer s_rsle (cilist *);
 138   extern integer s_rsli (icilist *);
 139   extern integer s_rsne (cilist *);
 140   extern integer s_rsni (icilist *);
 141   extern integer s_rsue (cilist *);
 142   extern int s_stop (char *, ftnlen);
 143   extern integer s_wdfe (cilist *);
 144   extern integer s_wdue (cilist *);
 145   extern integer s_wsfe (cilist *);
 146   extern integer s_wsfi (icilist *);
 147   extern integer s_wsle (cilist *);
 148   extern integer s_wsli (icilist *);
 149   extern integer s_wsne (cilist *);
 150   extern integer s_wsni (icilist *);
 151   extern integer s_wsue (cilist *);
 152   extern void sig_die (char *, int);
 153   extern integer signal_ (integer *, void (*)(int));
 154   extern integer system_ (char *, ftnlen);
 155   extern double z_abs (doublecomplex *);
 156   extern void z_cos (doublecomplex *, doublecomplex *);
 157   extern void z_div (doublecomplex *, doublecomplex *, doublecomplex *);
 158   extern void z_exp (doublecomplex *, doublecomplex *);
 159   extern void z_log (doublecomplex *, doublecomplex *);
 160   extern void z_sin (doublecomplex *, doublecomplex *);
 161   extern void z_sqrt (doublecomplex *, doublecomplex *);
 162 }
 163 #endif