Main Page   Compound List   File List   Compound Members   File Members  

ReactorFortran.hh

Go to the documentation of this file.
00001 
00006 #ifndef REACTORFORTRAN_HH
00007 #define REACTORFORTRAN_HH
00008 #include <complex>
00009 //
00010 //  Fortran prototypes for calling from C++
00011 //
00012 extern "C" {
00013   //
00014   // Hbook Interfaces
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   //  random generators
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   // value from function generators
00048   //
00049   void funlxp_(float(const float&),float*,const float&,const float&);
00050   void funlux_(float*,float&,const int&);
00051   //
00052   // cernlib interpolation routine
00053   //
00054   float divdif_(float*,float*,const int&,const float&,const int&);
00055   //
00056   // gamma function
00057   //
00058   complex<double> wgamma_(complex<double>&);
00059 }
00060 #endif
00061 
00062  
00063 
00064 

Generated on Fri Oct 22 13:56:25 2004 for ReactorFsim by doxygen1.2.14 written by Dimitri van Heesch, © 1997-2002