00001 #if (defined(__linux) && !defined(__ia64))
00002 #include <fpu_control.h>
00003 void __attribute__ ((constructor))
00004 trapfpe () {
00005 fpu_control_t cw = _FPU_DEFAULT & ~(_FPU_MASK_IM | _FPU_MASK_ZM |
00006 _FPU_MASK_OM);
00007 _FPU_SETCW(cw);
00008 }
00009 void MAIN__() {}
00010 #endif
00011
00012 void izrtoc_() {}
00013 void igmess_() {}
00014 void igloc2_() {}
00015 void igpxmp_() {}
00016 void izitoc_() {}
00017
00018
00019
00020
00021
00022 void kuproi_() {}
00023 void kuproc_() {}
00024 void kupror_() {}
00025 void kualfa_() {}
00026 void umlog_() {}
00027 void czgeta_() {}
00028 void czputa_() {}
00029
00030
00031
00032 void hdelet_() {}
00033 void hphist_() {}
00034 void hbookb_() {}
00035 void hfill_() {}
00036 void hidopt_() {}
00037
00038
00039 void hbook1_() {}
00040 void hbookn_() {}
00041 void hcopy_() {}
00042
00043
00044 void hlimit_() {}
00045
00046
00047
00048 void iacwk_(int* dum) {}
00049 void iclrwk_(int* dum,int* dum2) {}
00050 void iclwk_(int* dum,int* dum2) {}
00051 void idawk_(int* dum) {}
00052 void ifa_(int* n,float* x, float* y) {}
00053 void igbox_(float* x1,float* x2,float* y1,float* y2) {}
00054 void ightor_(float* h,float* l,float* s,
00055 float* r,float* g,float* b) {}
00056 void igpave_(float* x1,float* x2,float* yy1,
00057 float* yy2,float* dum4,int* isbox,
00058 int* isfram,const char* dum5, const int dum) {}
00059 void igpid_(int* dum,const char* name,int* pid,
00060 const char* dum6 , const int l1, const int dum8) {}
00061 void igq_(const char *name,float* rval, const int l1) {}
00062 void igrng_(float* xsize,float* ysize) {}
00063 void igsa_(int* dum) {}
00064 void igset_(const char *name,float* rval, const int l1) {}
00065 void igterm_() {}
00066 void iopwk_(int* iwkid,int* iconid,int* iwtypi) {}
00067 void ipl_(int* n,float* x,float* y) {}
00068 void ipm_(int* n,float* x,float* y) {}
00069 void irqlc_(int* dum, int* dum2, int* dum3, int* dum4, float* dum5, float* dum6) {}
00070 void iscr_(int* dum,int* ici,float* r,float* g,float* b) {}
00071 void isfaci_(int* col) {}
00072 void isfais_(int* is) {}
00073 void isln_(int* ln) {}
00074 void ismk_(int* mk) {}
00075 void islwsc_(float* wl) {}
00076 void isplci_(int* col) {}
00077 void ispmci_(int* col) {}
00078 void istxci_(int* col) {}
00079 void isvp_(int* dum,float* dum2,float* dum3,float* dum4,float* dum5) {}
00080 void iswn_(int* dum,float* x1,float* x2,float* y1,float* y2) {}
00081 void itx_(float* x,float* y,const char* ptext, const int l1p) {}
00082 void hplint_(int* dum) {}
00083 void hplend_() {}
00084 void hplfra_(float* x1,float* x2,float* y1,
00085 float* y2,const char* dum6, const int dum) {}
00086 void igmeta_(int* dum, int* dum2) {}
00087 void iselnt_(int* dum) {}
00088 int igiwty_(int* dum) {return 1;}
00089 void igqwk_(int* dum, const char *name, float* rval, const int l1) {}
00090