F77/common/common_c2f.f

C-----------------------------------------------------------------------
C     variables for file rz
C-----------------------------------------------------------------------
      
      REAL hmemor(9000000)
      integer Iquest(100)    
      COMMON /pawc/hmemor
      save /pawc/
      Common /QUEST/Iquest
      save /quest/

C------------------------------------------------------------------------
    
c------------------------------------------------------------------------
c     common to pass some variable from C++ to FORTRAN routines
c------------------------------------------------------------------------
      character*80 path
      integer      pathlen
      integer      error
      common/path/path,pathlen,error
C------------------------------------------------------------------------
1	pam-fi	1.1	C-----------------------------------------------------------------------
2			C variables for file rz
3			C-----------------------------------------------------------------------
4
5			REAL hmemor(9000000)
6			integer Iquest(100)
7			COMMON /pawc/hmemor
8			save /pawc/
9	pam-fi	1.2	Common /QUEST/Iquest
10	pam-fi	1.1	save /quest/
11
12			C------------------------------------------------------------------------
13
14			c------------------------------------------------------------------------
15			c common to pass some variable from C++ to FORTRAN routines
16			c------------------------------------------------------------------------
17			character*80 path
18			integer pathlen
19			integer error
20			common/path/path,pathlen,error
21			C------------------------------------------------------------------------