# define ghelix ghelix_
# define grkuta grkuta_
# define gtrack gtrack_
-# define gtreve gtreve_
+# define gtreve_root gtreve_root_
# define glast glast_
#else
# define ghelix GHELIX
# define grkuta GRKUTA
# define gtrack GTRACK
-# define gtreve GTREVE
+# define gtreve_root GTREVE_ROOT
# define glast GLAST
#endif
extern "C" type_of_call void ghelix(Float_t&, Float_t&, Float_t*, Float_t*);
extern "C" type_of_call void grkuta(Float_t&, Float_t&, Float_t*, Float_t*);
extern "C" type_of_call void gtrack();
-extern "C" type_of_call void gtreve();
+extern "C" type_of_call void gtreve_root();
extern "C" type_of_call void glast();
//
// ------------------------------------------------------------------
//
- gtreve();
+ gtreve_root();
}