home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / f77lib / f2ch.add < prev    next >
Text File  |  2000-06-22  |  5KB  |  123 lines

  1. /* If you are using a C++ compiler, append the following to f2c.h
  2.    for compiling libF77 */
  3.  
  4. #ifdef __cplusplus
  5. extern "C" {
  6. extern void abort_(void);
  7. extern double c_abs(complex *);
  8. extern void c_cos(complex *, complex *);
  9. extern void c_div(complex *, complex *, complex *);
  10. extern void c_exp(complex *, complex *);
  11. extern void c_log(complex *, complex *);
  12. extern void c_sin(complex *, complex *);
  13. extern void c_sqrt(complex *, complex *);
  14. extern double d_abs(double *);
  15. extern double d_acos(double *);
  16. extern double d_asin(double *);
  17. extern double d_atan(double *);
  18. extern double d_atn2(double *, double *);
  19. extern void d_cnjg(doublecomplex *, doublecomplex *);
  20. extern double d_cos(double *);
  21. extern double d_cosh(double *);
  22. extern double d_dim(double *, double *);
  23. extern double d_exp(double *);
  24. extern double d_imag(doublecomplex *);
  25. extern double d_int(double *);
  26. extern double d_lg10(double *);
  27. extern double d_log(double *);
  28. extern double d_mod(double *, double *);
  29. extern double d_nint(double *);
  30. extern double d_prod(float *, float *);
  31. extern double d_sign(double *, double *);
  32. extern double d_sin(double *);
  33. extern double d_sinh(double *);
  34. extern double d_sqrt(double *);
  35. extern double d_tan(double *);
  36. extern double d_tanh(double *);
  37. extern double derf_(double *);
  38. extern double derfc_(double *);
  39. extern void ef1asc_(long int *, long int *, long int *, long int *);
  40. extern long int ef1cmc_(long int *, long int *, long int *, long int *);
  41. extern double erf(double);
  42. extern double erf_(float *);
  43. extern double erfc(double);
  44. extern double erfc_(float *);
  45. extern void getarg_(long int *, char *, long int);
  46. extern void getenv_(char *, char *, long int, long int);
  47. extern int getpid(void);
  48. extern short h_abs(short *);
  49. extern short h_dim(short *, short *);
  50. extern short h_dnnt(double *);
  51. extern short h_indx(char *, char *, long int, long int);
  52. extern short h_len(char *, long int);
  53. extern short h_mod(short *, short *);
  54. extern short h_nint(float *);
  55. extern short h_sign(short *, short *);
  56. extern short hl_ge(char *, char *, long int, long int);
  57. extern short hl_gt(char *, char *, long int, long int);
  58. extern short hl_le(char *, char *, long int, long int);
  59. extern short hl_lt(char *, char *, long int, long int);
  60. extern long int i_abs(long int *);
  61. extern long int i_dim(long int *, long int *);
  62. extern long int i_dnnt(double *);
  63. extern long int i_indx(char *, char *, long int, long int);
  64. extern long int i_len(char *, long int);
  65. extern long int i_mod(long int *, long int *);
  66. extern long int i_nint(float *);
  67. extern long int i_sign(long int *, long int *);
  68. extern long int iargc_(void);
  69. extern long int l_ge(char *, char *, long int, long int);
  70. extern long int l_gt(char *, char *, long int, long int);
  71. extern long int l_le(char *, char *, long int, long int);
  72. extern long int l_lt(char *, char *, long int, long int);
  73. extern int main(int, char **);
  74. extern int pause(void);
  75. extern void pow_ci(complex *, complex *, long int *);
  76. extern double pow_dd(double *, double *);
  77. extern double pow_di(double *, long int *);
  78. extern short pow_hh(short *, short *);
  79. extern long int pow_ii(long int *, long int *);
  80. extern double pow_ri(float *, long int *);
  81. extern void pow_zi(doublecomplex *, doublecomplex *, long int *);
  82. extern void pow_zz(doublecomplex *, doublecomplex *, doublecomplex *);
  83. extern double r_abs(float *);
  84. extern double r_acos(float *);
  85. extern double r_asin(float *);
  86. extern double r_atan(float *);
  87. extern double r_atn2(float *, float *);
  88. extern void r_cnjg(complex *, complex *);
  89. extern double r_cos(float *);
  90. extern double r_cosh(float *);
  91. extern double r_dim(float *, float *);
  92. extern double r_exp(float *);
  93. extern double r_imag(complex *);
  94. extern double r_int(float *);
  95. extern double r_lg10(float *);
  96. extern double r_log(float *);
  97. extern double r_mod(float *, float *);
  98. extern double r_nint(float *);
  99. extern double r_sign(float *, float *);
  100. extern double r_sin(float *);
  101. extern double r_sinh(float *);
  102. extern double r_sqrt(float *);
  103. extern double r_tan(float *);
  104. extern double r_tanh(float *);
  105. extern void s_cat(char *, char **, long int *, long int *, long int);
  106. extern long int s_cmp(char *, char *, long int, long int);
  107. extern void s_copy(char *, char *, long int, long int);
  108. extern void s_paus(char *, long int);
  109. extern void s_rnge(char *, long int, char *, long int);
  110. extern void s_stop(char *, long int);
  111. extern void sig_die(char *, int);
  112. extern long int signal_(long int *, void *);
  113. extern int system_(char *, long int);
  114. extern double z_abs(doublecomplex *);
  115. extern void z_cos(doublecomplex *, doublecomplex *);
  116. extern void z_div(doublecomplex *, doublecomplex *, doublecomplex *);
  117. extern void z_exp(doublecomplex *, doublecomplex *);
  118. extern void z_log(doublecomplex *, doublecomplex *);
  119. extern void z_sin(doublecomplex *, doublecomplex *);
  120. extern void z_sqrt(doublecomplex *, doublecomplex *);
  121.     }
  122. #endif
  123.