[PYTHON/FORTRAN] Recupérer la valeur d'une variable de COMMON FORTRAN vers PYTHON

Bonjour tout le monde,
Je suis coincé ... Je n arrive pas a récupérer une variable Common (FORTRAN) de cc.F dans Test.py

Voici le code :

cc.F

Code:

1
2
3
4
5
6
7
8
9
10
11
 
      SUBROUTINE CC
 
      LOGICAL BOUCLE
      INCLUDE 'zctran'
 
      NCOTE = 9
      WRITE(*,*) 'CC_NCOTE = ', NCOTE
      WRITE(*,*) 'APPUYER SUR ENTREE'
      RETURN 
      END

zctran:

Code:

1
2
3
4
5
 
*
      COMMON /ZCTRAN/ NCOTE
*
      INTEGER       NCOTE

Test.py:

Code:

1
2
3
4
 
>>> import Test
>>> Test.cc()
>>> print ("PYTHON_NCOTE = %i")%Test.zctran.ncote

Voici le resultat :

CC_NCOTE = 9
PYTHON_NCOTE = 0

--> La variable ncote n'est pas récupéré.

Ici je montre que ma variable Test.zctran.ncote existe bien :

Code:

1
2
3
4
5
6
7
8
>>> Test.zctran.ncote
array(0, dtype=int32)

>>> import Test
>>> Test.__doc__

"This module 'Transf' is auto-generated with f2py (version:2_3473).\nFunctions:\n  cc()\n  dmini = dmini(x)\n  fc = fc(x)\n  geometr()\n  parc2()\n  ajlp(tho,lp,dlp)\n  convert()\n  f = f(x)\n  parcour()\n  integr = integr(fonc,a,b)\n  ajust(test)\n  dlim()\n  evalue()\n  gengeo()\n  lecture()\nCOMMON blocks:\n  /zctran/ sommet(50),exc(50),tc(50),kc,zfix,ang(50),ex(50),long,lint(50),t(50),xp(50),yp(50),errel(50),k,perim,perimint,qpuit,errmax,errmoy,ecerrm,dtmin,dtmax,larc,r,lmaxp,precg,precmi,precma,ncote,iinf,ifix1,ifix2,icont,izfix,ipuit,nligne,imarq,ouvert(50,1)\n."