2 typedef struct { float real
, imag
; } complex;
3 typedef struct { double dreal
, dimag
; } dcomplex
;
6 void s_rnge(char *varn
, long int offset
, char *procn
, int line
);
8 void getarg_(long int *n
, char *s
, long int ls
);
10 void (*signal_(int *sigp
, void (**procp
)(int)))(int);
11 void s_stop(char *s
, long int n
);
13 void s_paus(char *s
, long int n
);
14 void pow_ci(complex *p
, complex *a
, long int *b
);
15 void pow_zi(dcomplex
*p
, dcomplex
*a
, long int *b
);
16 double pow_dd(double *ap
, double *bp
);
17 double pow_di(double *ap
, long int *bp
);
18 short pow_hh(short *ap
, short *bp
);
19 long int pow_ii(long int *ap
, long int *bp
);
20 float pow_ri(float *ap
, long int *bp
);
21 void z_div(dcomplex
*c
, dcomplex
*a
, dcomplex
*b
);
22 void pow_zz(dcomplex
*r
,dcomplex
*a
,dcomplex
*b
);
23 float c_abs(complex *z
);
24 void c_cos(complex *r
, complex *z
);
25 void c_div(complex *c
, complex *a
, complex *b
);
26 void c_exp(complex *r
, complex *z
);
27 void c_log(complex *r
, complex *z
);
28 void c_sin(complex *r
, complex *z
);
29 void c_sqrt(complex *r
, complex *z
);
30 double z_abs(dcomplex
*z
);
31 void z_cos(dcomplex
*r
, dcomplex
*z
);
32 void z_exp(dcomplex
*r
, dcomplex
*z
);
33 void z_log(dcomplex
*r
, dcomplex
*z
);
34 void z_sin(dcomplex
*r
, dcomplex
*z
);
35 void z_sqrt(dcomplex
*r
, dcomplex
*z
);
36 double r_abs(float *x
);
37 double r_acos(float *x
);
38 double r_asin(float *x
);
39 double r_atan(float *x
);
40 double r_atn2(float *x
,float *y
);
41 void r_cnjg(complex *r
, complex *z
);
42 double r_cos(float *x
);
43 double r_cosh(float *x
);
44 double r_dim(float *a
,float *b
);
45 double r_exp(float *x
);
46 double r_imag(complex *z
);
47 double r_int(float *x
);
48 double r_lg10(float *x
);
49 double r_log(float *x
);
50 double r_mod(float *x
,float *y
);
51 double r_nint(float *x
);
52 double r_sign(float *a
,float *b
);
53 double r_sin(float *x
);
54 double r_sinh(float *x
);
55 double r_sqrt(float *x
);
56 double r_tan(float *x
);
57 double r_tanh(float *x
);
58 double d_abs(double *x
);
59 double d_acos(double *x
);
60 double d_asin(double *x
);
61 double d_atan(double *x
);
62 double d_atn2(double *x
,double *y
);
63 void d_cnjg(dcomplex
*r
, dcomplex
*z
);
64 double d_cos(double *x
);
65 double d_cosh(double *x
);
66 double d_dim(double *a
,double *b
);
67 double derf_(double *x
);
68 double derfc_(double *x
);
69 double d_exp(double *x
);
70 double d_imag(dcomplex
*z
);
71 double d_int(double *x
);
72 double d_lg10(double *x
);
73 double d_log(double *x
);
74 double d_mod(double *x
,double *y
);
75 double d_nint(double *x
);
76 double d_prod(float *x
,float *y
);
77 double d_sign(double *a
,double *b
);
78 double d_sin(double *x
);
79 double d_sinh(double *x
);
80 double d_sqrt(double *x
);
81 double d_tan(double *x
);
82 double d_tanh(double *x
);
83 long int i_abs(long int *x
);
84 long int i_dim(long int *a
,long int *b
);
85 long int i_dnnt(double *x
);
86 long int i_indx(char *a
, char *b
, long int la
, long int lb
);
87 long int i_len(char *s
, long int n
);
88 long int i_mod(long int *a
,long int *b
);
89 long int i_nint(float *x
);
90 long int i_sign(long int *a
,long int *b
);
91 short h_abs(short *x
);
92 short h_dim(short *a
,short *b
);
93 short h_dnnt(double *x
);
94 short h_indx(char *a
, char *b
, long int la
, long int lb
);
95 short h_len(char *s
, long int n
);
96 short h_mod(short *a
,short *b
);
97 short h_nint(float *x
);
98 short h_sign(short *a
,short *b
);
99 long int l_ge(char *a
,char *b
,long int la
,long int lb
);
100 long int l_gt(char *a
,char *b
,long int la
,long int lb
);
101 long int l_le(char *a
,char *b
,long int la
,long int lb
);
102 long int l_lt(char *a
,char *b
,long int la
,long int lb
);
103 int s_cmp(char *a
, char *b
, long int la
, long int lb
);
104 short hl_ge(char *a
,char *b
,long int la
,long int lb
);
105 short hl_gt(char *a
,char *b
,long int la
,long int lb
);
106 short hl_le(char *a
,char *b
,long int la
,long int lb
);
107 short hl_lt(char *a
,char *b
,long int la
,long int lb
);
108 void s_cat(char *lp
, char *rpp
[], long int rnp
[], long int *np
, long int ll
);
109 void s_copy(char *a
, char *b
, long int la
, long int lb
);
110 double fcabs(double real
, double imag
);
