ReactorFortran.hh Source File

00001 #ifndef REACTORFORTRAN_HH
00002 #define REACTORFORTRAN_HH
00003 //
00004 //  Fortran prototypes for calling from C++
00005 //
00006 extern "C" {
00007   //
00008   // Hbook Interfaces
00009   //
00010   void hbook_init__();
00011 
00012   void hropen_(const int&,const char*,const char*,const char*,int&,int&,
00013                int lchar1,int lchar2,int lchar3);
00014   void hbookn_(const int&,const char*,const int&,const char*,const int&,
00015                const char*ntTags,
00016                int lchar1,int lchar2,int lchar3,int lchar4);
00017   void hbook1_(const int&,const char*,const int&,
00018                const float&,const float&,const float&,
00019                const int title_length);
00020   void hfill_(const int&,const float&,const float& y=0,const float& w=1);
00021 
00022   void hfn_(const int&,const float*);
00023 
00024   void hldir_(const char*,const char*,
00025               int lchar1,int lchar2);
00026   void hcdir_(const char*,const char*,
00027               int lchar1,int lchar2);
00028   void hrout_(const int&,int&,const char*,
00029               int lchar1);
00030   void hrend_(const char*,int lchar1);
00031   //
00032   //  random generators
00033   //
00034   void ranlux_(float*,const int&);
00035   void rluxgo_(int& lux,int& init,int& k1,int& k2);
00036   void rnpssn_(const float& Mean,int& Value,int& ErrorCode);
00037   void rnormx_(float*,int&,void(float*,const int&));
00038   //
00039   // cernlib interpolation routine
00040   //
00041   float divdif_(float*,float*,const int&,const float&,const int&);
00042 
00043 
00044 }
00045 #endif
00046 
00047  
00048 
00049