Commit | Line | Data |
---|---|---|
547779a8 WH |
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 | extern int 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 integer do_fio(ftnint *, char *, ftnlen); | |
40 | extern integer do_lio(ftnint *, ftnint *, char *, ftnlen); | |
41 | extern integer do_uio(ftnint *, char *, ftnlen); | |
42 | extern integer e_rdfe(void); | |
43 | extern integer e_rdue(void); | |
44 | extern integer e_rsfe(void); | |
45 | extern integer e_rsfi(void); | |
46 | extern integer e_rsle(void); | |
47 | extern integer e_rsli(void); | |
48 | extern integer e_rsue(void); | |
49 | extern integer e_wdfe(void); | |
50 | extern integer e_wdue(void); | |
51 | extern integer e_wsfe(void); | |
52 | extern integer e_wsfi(void); | |
53 | extern integer e_wsle(void); | |
54 | extern integer e_wsli(void); | |
55 | extern integer e_wsue(void); | |
56 | extern int ef1asc_(ftnint *, ftnlen *, ftnint *, ftnlen *); | |
57 | extern integer ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *); | |
58 | extern double erf(double); | |
59 | extern double erf_(float *); | |
60 | extern double erfc(double); | |
61 | extern double erfc_(float *); | |
62 | extern integer f_back(alist *); | |
63 | extern integer f_clos(cllist *); | |
64 | extern integer f_end(alist *); | |
65 | extern void f_exit(void); | |
66 | extern integer f_inqu(inlist *); | |
67 | extern integer f_open(olist *); | |
68 | extern integer f_rew(alist *); | |
69 | extern int flush_(void); | |
70 | extern void getarg_(integer *, char *, ftnlen); | |
71 | extern void getenv_(char *, char *, ftnlen, ftnlen); | |
72 | extern short h_abs(short *); | |
73 | extern short h_dim(short *, short *); | |
74 | extern short h_dnnt(double *); | |
75 | extern short h_indx(char *, char *, ftnlen, ftnlen); | |
76 | extern short h_len(char *, ftnlen); | |
77 | extern short h_mod(short *, short *); | |
78 | extern short h_nint(float *); | |
79 | extern short h_sign(short *, short *); | |
80 | extern short hl_ge(char *, char *, ftnlen, ftnlen); | |
81 | extern short hl_gt(char *, char *, ftnlen, ftnlen); | |
82 | extern short hl_le(char *, char *, ftnlen, ftnlen); | |
83 | extern short hl_lt(char *, char *, ftnlen, ftnlen); | |
84 | extern integer i_abs(integer *); | |
85 | extern integer i_dim(integer *, integer *); | |
86 | extern integer i_dnnt(double *); | |
87 | extern integer i_indx(char *, char *, ftnlen, ftnlen); | |
88 | extern integer i_len(char *, ftnlen); | |
89 | extern integer i_mod(integer *, integer *); | |
90 | extern integer i_nint(float *); | |
91 | extern integer i_sign(integer *, integer *); | |
92 | extern integer iargc_(void); | |
93 | extern ftnlen l_ge(char *, char *, ftnlen, ftnlen); | |
94 | extern ftnlen l_gt(char *, char *, ftnlen, ftnlen); | |
95 | extern ftnlen l_le(char *, char *, ftnlen, ftnlen); | |
96 | extern ftnlen l_lt(char *, char *, ftnlen, ftnlen); | |
97 | extern void pow_ci(complex *, complex *, integer *); | |
98 | extern double pow_dd(double *, double *); | |
99 | extern double pow_di(double *, integer *); | |
100 | extern short pow_hh(short *, shortint *); | |
101 | extern integer pow_ii(integer *, integer *); | |
102 | extern double pow_ri(float *, integer *); | |
103 | extern void pow_zi(doublecomplex *, doublecomplex *, integer *); | |
104 | extern void pow_zz(doublecomplex *, doublecomplex *, doublecomplex *); | |
105 | extern double r_abs(float *); | |
106 | extern double r_acos(float *); | |
107 | extern double r_asin(float *); | |
108 | extern double r_atan(float *); | |
109 | extern double r_atn2(float *, float *); | |
110 | extern void r_cnjg(complex *, complex *); | |
111 | extern double r_cos(float *); | |
112 | extern double r_cosh(float *); | |
113 | extern double r_dim(float *, float *); | |
114 | extern double r_exp(float *); | |
115 | extern double r_imag(complex *); | |
116 | extern double r_int(float *); | |
117 | extern double r_lg10(float *); | |
118 | extern double r_log(float *); | |
119 | extern double r_mod(float *, float *); | |
120 | extern double r_nint(float *); | |
121 | extern double r_sign(float *, float *); | |
122 | extern double r_sin(float *); | |
123 | extern double r_sinh(float *); | |
124 | extern double r_sqrt(float *); | |
125 | extern double r_tan(float *); | |
126 | extern double r_tanh(float *); | |
127 | extern void s_cat(char *, char **, integer *, integer *, ftnlen); | |
128 | extern integer s_cmp(char *, char *, ftnlen, ftnlen); | |
129 | extern void s_copy(char *, char *, ftnlen, ftnlen); | |
130 | extern int s_paus(char *, ftnlen); | |
131 | extern integer s_rdfe(cilist *); | |
132 | extern integer s_rdue(cilist *); | |
133 | extern integer s_rnge(char *, integer, char *, integer); | |
134 | extern integer s_rsfe(cilist *); | |
135 | extern integer s_rsfi(icilist *); | |
136 | extern integer s_rsle(cilist *); | |
137 | extern integer s_rsli(icilist *); | |
138 | extern integer s_rsne(cilist *); | |
139 | extern integer s_rsni(icilist *); | |
140 | extern integer s_rsue(cilist *); | |
141 | extern int s_stop(char *, ftnlen); | |
142 | extern integer s_wdfe(cilist *); | |
143 | extern integer s_wdue(cilist *); | |
144 | extern integer s_wsfe(cilist *); | |
145 | extern integer s_wsfi(icilist *); | |
146 | extern integer s_wsle(cilist *); | |
147 | extern integer s_wsli(icilist *); | |
148 | extern integer s_wsne(cilist *); | |
149 | extern integer s_wsni(icilist *); | |
150 | extern integer s_wsue(cilist *); | |
151 | extern void sig_die(char *, int); | |
152 | extern integer signal_(integer *, void (*)(int)); | |
153 | extern int system_(char *, ftnlen); | |
154 | extern double z_abs(doublecomplex *); | |
155 | extern void z_cos(doublecomplex *, doublecomplex *); | |
156 | extern void z_div(doublecomplex *, doublecomplex *, doublecomplex *); | |
157 | extern void z_exp(doublecomplex *, doublecomplex *); | |
158 | extern void z_log(doublecomplex *, doublecomplex *); | |
159 | extern void z_sin(doublecomplex *, doublecomplex *); | |
160 | extern void z_sqrt(doublecomplex *, doublecomplex *); | |
161 | } | |
162 | #endif |