3 |
c common to pass some variable from C++ to FORTRAN routines |
c common to pass some variable from C++ to FORTRAN routines |
4 |
c------------------------------------------------------------------------ |
c------------------------------------------------------------------------ |
5 |
|
|
|
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 |
|
|
|
|
6 |
|
|
7 |
character*80 c2f_path |
character*80 c2f_path |
8 |
integer c2f_pathlen |
integer c2f_pathlen |
9 |
integer c2f_error |
integer c2f_error |
10 |
integer c2f_debug |
common/path/c2f_path,c2f_pathlen,c2f_error |
|
common/path/c2f_path,c2f_pathlen,c2f_error,c2f_debug |
|
11 |
|
|
12 |
character*80 b_path |
character*80 b_path |
13 |
integer b_pathlen |
integer b_pathlen |
14 |
integer b_loaded |
integer b_loaded |
15 |
integer b_error |
integer b_error |
16 |
integer b_debug |
common/bpath/b_path,b_pathlen,b_loaded,b_error |
|
common/bpath/b_path,b_pathlen,b_loaded,b_error,b_debug |
|