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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations) (download)
Wed Nov 8 16:42:28 2006 UTC (18 years ago) by pam-fi
Branch: MAIN
CVS Tags: v5r00, v4r00, v2r01, v10RED, v9r00, v9r01, v10REDr01, v3r04, v3r05, v3r06, v3r00, v3r03, v6r01, v6r00, HEAD
Changes since 1.3: +7 -6 lines
fixed bug in readB

1
2 c------------------------------------------------------------------------
3 c common to pass some variable from C++ to FORTRAN routines
4 c------------------------------------------------------------------------
5
6
7 character*256 c2f_path
8 integer c2f_pathlen
9 integer c2f_error
10 cc integer c2f_loaded
11 common/path/c2f_path,c2f_pathlen,c2f_error!,c2f_loaded
12
13 cc character*256 b_path
14 cc integer b_pathlen
15 cc integer b_loaded
16 cc integer b_error
17 cc common/bpath/b_path,b_pathlen,b_loaded,b_error

  ViewVC Help
Powered by ViewVC 1.1.23