/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/common_c2f.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/common_c2f.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mocchiut, Fri May 19 13:15:52 2006 UTC revision 1.4 by pam-fi, Wed Nov 8 16:42:28 2006 UTC
# Line 3  c--------------------------------------- Line 3  c---------------------------------------
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*256 c2f_path
8        integer      c2f_pathlen        integer       c2f_pathlen
9        integer      c2f_error        integer       c2f_error
10        integer      c2f_debug  cc      integer       c2f_loaded
11        common/path/c2f_path,c2f_pathlen,c2f_error,c2f_debug        common/path/c2f_path,c2f_pathlen,c2f_error!,c2f_loaded
12    
13        character*80 b_path  cc      character*256 b_path
14        integer      b_pathlen  cc      integer       b_pathlen
15        integer      b_loaded  cc      integer       b_loaded
16        integer      b_error  cc      integer       b_error
17        integer      b_debug  cc      common/bpath/b_path,b_pathlen,b_loaded,b_error
       common/bpath/b_path,b_pathlen,b_loaded,b_error,b_debug  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23