1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
extern int bitmov_(integer *a, integer *aoff, integer *b, integer *boff, integer *nbits);
extern int bswap2_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len);
extern int bswap4_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len);
extern int bytmov_(char *a, integer *aoff, char *b, integer *boff, integer *nbytes, ftnlen a_len, ftnlen b_len);
extern int chrpak_(shortint *a, integer *aoff, char *b, integer *boff, integer *nchars, ftnlen b_len);
extern int chrupk_(char *a, integer *aoff, shortint *b, integer *boff, integer *nchars, ftnlen a_len);
extern int f77pak_(shortint *sppstr, char *f77str, integer *maxch, ftnlen f77str_len);
extern int f77upk_(char *f77str, shortint *sppstr, integer *maxch, ftnlen f77str_len);
extern int ieevpd_(doublereal *native, doublereal *ieee, integer *nelem);
extern int ieevud_(doublereal *ieee, doublereal *native, integer *nelem);
extern int ieepad_(doublereal *x);
extern int ieeupd_(doublereal *x);
extern int ieesnd_(doublereal *x);
extern int ieegnd_(doublereal *x);
extern int ieestd_(integer *onin, integer *onout);
extern int ieezsd_(void);
extern int ieemad_(integer *inval, integer *outval);
extern int ieegmd_(integer *inval, integer *outval);
extern int ieesmd_(integer *inval, integer *outval);
extern int ieevpr_(real *native, real *ieee, integer *nelem);
extern int ieevur_(real *ieee, real *native, integer *nelem);
extern int ieepar_(real *x);
extern int ieeupr_(real *x);
extern int ieesnr_(real *x);
extern int ieegnr_(real *x);
extern int ieestr_(integer *onin, integer *onout);
extern int ieezsr_(void);
extern int ieemar_(integer *inval, integer *outval);
extern int ieegmr_(integer *inval, integer *outval);
extern int ieesmr_(integer *inval, integer *outval);
extern integer miilen_(integer *nelems, integer *miidae);
extern integer miinem_(integer *nchars, integer *miitye);
extern int miipak_(integer *spp, integer *mii, integer *nelems, integer *sppdae, integer *miidae);
extern int miipa6_(integer *spp, integer *mii, integer *nelems, integer *sppdae);
extern int miipa2_(integer *spp, integer *mii, integer *nelems, integer *sppdae);
extern int miipa8_(integer *spp, integer *mii, integer *nelems, integer *sppdae);
extern int miipad_(integer *spp, doublereal *mii, integer *nelems, integer *sppdae);
extern int miipar_(integer *spp, real *mii, integer *nelems, integer *sppdae);
extern integer miipke_(integer *nelems, integer *miitye);
extern int miiupk_(integer *mii, integer *spp, integer *nelems, integer *miidae, integer *sppdae);
extern int miiup6_(integer *mii, integer *spp, integer *nelems, integer *sppdae);
extern int miiup2_(integer *mii, integer *spp, integer *nelems, integer *sppdae);
extern int miiup8_(integer *mii, integer *spp, integer *nelems, integer *sppdae);
extern int miiupd_(doublereal *mii, integer *spp, integer *nelems, integer *sppdae);
extern int miiupr_(real *mii, integer *spp, integer *nelems, integer *sppdae);
extern integer nmilen_(integer *nelems, integer *nmidae);
extern integer nminem_(integer *nchars, integer *nmitye);
extern int nmipak_(integer *spp, integer *nmi, integer *nelems, integer *sppdae, integer *nmidae);
extern int nmipa6_(integer *spp, integer *nmi, integer *nelems, integer *sppdae);
extern int nmipa2_(integer *spp, integer *nmi, integer *nelems, integer *sppdae);
extern int nmipa8_(integer *spp, integer *nmi, integer *nelems, integer *sppdae);
extern int nmipad_(integer *spp, doublereal *nmi, integer *nelems, integer *sppdae);
extern int nmipar_(integer *spp, real *nmi, integer *nelems, integer *sppdae);
extern integer nmipke_(integer *nelems, integer *nmitye);
extern int nmiupk_(integer *nmi, integer *spp, integer *nelems, integer *nmidae, integer *sppdae);
extern int nmiup6_(integer *nmi, integer *spp, integer *nelems, integer *sppdae);
extern int nmiup2_(integer *nmi, integer *spp, integer *nelems, integer *sppdae);
extern int nmiup8_(integer *nmi, integer *spp, integer *nelems, integer *sppdae);
extern int nmiupd_(doublereal *nmi, integer *spp, integer *nelems, integer *sppdae);
extern int nmiupr_(real *nmi, integer *spp, integer *nelems, integer *sppdae);
extern int strpak_(shortint *instr, char *outstr, integer *maxch, ftnlen outstr_len);
extern int strupk_(char *instr, shortint *outstr, integer *maxch, ftnlen instr_len);
extern real urand_(integer *lseed);
extern integer xori_(integer *a, integer *b);
extern shortint xors_(shortint *a, shortint *b);
extern integer xorl_(integer *a, integer *b);
extern integer sysruk_(shortint *task, shortint *cmd, integer *rukarf, integer *rukint);
extern int sbit_(void);
extern int tbit_(void);
extern int cseps_(real *seps);
extern logical sgt_(real *value);
extern int cdeps_(doublereal *deps);
extern logical dgt_(doublereal *value);
extern int cseps_(real *seps);
extern logical sgt_(real *value, real *ref);
extern int cdeps_(doublereal *deps);
extern logical dgt_(doublereal *value, doublereal *ref);
|
