00001
00006 #ifndef REACTORFORTRAN_HH
00007 #define REACTORFORTRAN_HH
00008 #include <complex>
00009
00010
00011
00012 extern "C" {
00013
00014
00015
00016 void hbook_init__();
00017
00018 void hropen_(const int&,const char*,const char*,const char*,int&,int&,
00019 int lchar1,int lchar2,int lchar3);
00020 void hbookn_(const int&,const char*,const int&,const char*,const int&,
00021 const char*ntTags,
00022 int lchar1,int lchar2,int lchar3,int lchar4);
00023 void hbook1_(const int&,const char*,const int&,
00024 const float&,const float&,const float&,
00025 const int title_length);
00026 void hfill_(const int&,const float&,const float& y=0,const float& w=1);
00027
00028 void hfn_(const int&,const float*);
00029
00030 void hldir_(const char*,const char*,
00031 int lchar1,int lchar2);
00032 void hcdir_(const char*,const char*,
00033 int lchar1,int lchar2);
00034 void hrout_(const int&,int&,const char*,
00035 int lchar1);
00036 void hrend_(const char*,int lchar1);
00037
00038
00039
00040 void ranlux_(float*,const int&);
00041 void rluxgo_(int& lux,int& init,int& k1,int& k2);
00042 void rnpssn_(const float& Mean,int& Value,int& ErrorCode);
00043 void rnormx_(float*,int&,void(float*,const int&));
00044 void rnhpre_(float*,const int&);
00045 void rnhran_(float*,const int&,const float&,const float&, float&);
00046
00047
00048
00049 void funlxp_(float(const float&),float*,const float&,const float&);
00050 void funlux_(float*,float&,const int&);
00051
00052
00053
00054 float divdif_(float*,float*,const int&,const float&,const int&);
00055
00056
00057
00058 complex<double> wgamma_(complex<double>&);
00059 float gamma_(float*);
00060 }
00061 #endif
00062
00063
00064
00065