--- DarthVader/TrackerLevel2/inc/F77/common_c2f.f 2006/05/19 13:15:52 1.1 +++ DarthVader/TrackerLevel2/inc/F77/common_c2f.f 2006/05/30 16:30:37 1.2 @@ -3,57 +3,14 @@ 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 + common/path/c2f_path,c2f_pathlen,c2f_error 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 + common/bpath/b_path,b_pathlen,b_loaded,b_error