BOSS_7.0.2: /home/bes3soft/bes3soft/Boss/7.0.2/dist/7.0.2/Generator/GeneratorUtil/GeneratorUtil-00-00-03/src/getaddr.cxx Source File

00001 
00002 // Routine meant to be called from FORTRAN which simply returns the
00003 // address of the (FORTRAN) argument. This should be 64bit-safe.
00004 //
00005 // 1999/01/08 Chris Green (Purdue University)
00006 // 1999/04/29 CG * altered to use void* from long*
00008 
00009 extern "C" {
00010 
00011   void* getaddr_(void* arg);
00012 
00013 }
00014 
00015 void* getaddr_(void* arg) {
00016 
00017   return(arg);
00018 
00019 }