--- DarthVader/TrackerLevel2/inc/F77/common_c2f.f	2006/05/19 13:15:52	1.1.1.1
+++ DarthVader/TrackerLevel2/inc/F77/common_c2f.f	2006/11/08 16:42:28	1.4
@@ -3,57 +3,15 @@
 c     common to pass some variable from C++ to FORTRAN routines
 c------------------------------------------------------------------------
 
-c------------------------------------------------------------------------
-c
-c     variables passed from TRACKEREXE.cra
-c
-c------------------------------------------------------------------------
-      
-c$$$      integer trkpaw
-c$$$      integer procerr
-c$$$
-c$$$      common/c2red/trkpaw,procerr
-
-c     =============================
-c$$$      character*80 pedsig_parampath
-c$$$      character*80 charge_parampath
-c$$$      character*80 mip_parampath
-c$$$      character*80 eta_parampath
-c$$$      character*80 B_parampath
-c$$$      character*80 align_parampath
-c$$$      character*80 mask_parampath
-c$$$      integer pedsig_pathlen
-c$$$      integer mip_pathlen
-c$$$      integer charge_pathlen
-c$$$      integer eta_pathlen
-c$$$      integer B_pathlen
-c$$$      integer align_pathlen
-c$$$      common/parampath/
-c$$$     $      pedsig_parampath
-c$$$     $     ,mip_parampath
-c$$$     $     ,charge_parampath
-c$$$     $     ,eta_parampath
-c$$$     $     ,B_parampath
-c$$$     $     ,align_parampath
-c$$$     $     ,mask_parampath
-c$$$     $     ,pedsig_pathlen
-c$$$     $     ,mip_pathlen
-c$$$     $     ,charge_pathlen
-c$$$     $     ,eta_pathlen
-c$$$     $     ,B_pathlen
-c$$$     $     ,align_pathlen
-c$$$     $     ,mask_pathlen
-
       
-      character*80 c2f_path
-      integer      c2f_pathlen
-      integer      c2f_error
-      integer      c2f_debug
-      common/path/c2f_path,c2f_pathlen,c2f_error,c2f_debug
+      character*256 c2f_path
+      integer       c2f_pathlen
+      integer       c2f_error
+cc      integer       c2f_loaded
+      common/path/c2f_path,c2f_pathlen,c2f_error!,c2f_loaded
 
-      character*80 b_path
-      integer      b_pathlen
-      integer      b_loaded
-      integer      b_error
-      integer      b_debug
-      common/bpath/b_path,b_pathlen,b_loaded,b_error,b_debug
+cc      character*256 b_path
+cc      integer       b_pathlen
+cc      integer       b_loaded
+cc      integer       b_error
+cc      common/bpath/b_path,b_pathlen,b_loaded,b_error