f2ch.add 5.9 KB

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