inc/F77/common_c2f.f


c------------------------------------------------------------------------
c     common to pass some variable from C++ to FORTRAN routines
c------------------------------------------------------------------------

      
      character*256 c2f_path
      integer       c2f_pathlen
      integer       c2f_error
      common/path/c2f_path,c2f_pathlen,c2f_error

      character*256 b_path
      integer       b_pathlen
      integer       b_loaded
      integer       b_error
      common/bpath/b_path,b_pathlen,b_loaded,b_error
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	common/path/c2f_path,c2f_pathlen,c2f_error
11
12	character*256 b_path
13	integer b_pathlen
14	integer b_loaded
15	integer b_error
16	common/bpath/b_path,b_pathlen,b_loaded,b_error