Bonjour à tous,

J'ai écris une routine en Fortran qui a pour but de récupérer les valeurs d'un tableau passé en paramètre et de les écrire dans un fichier binaire.
Voici le code :

C Subroutine simple pour récupérer les valeurs d'un tableau et
C les écrire dans un fichier

Code fortran : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
SUBROUTINE ecriproj(TAB,d,nAng,largCha)
 
 
REAL :: largColTot
REAL, INTENT(IN) :: d,nAng
INTEGER, INTENT(IN) :: largCha
INTEGER :: NENRG
INTEGER :: nl
REAL, DIMENSION(nAng*d,largCha) :: TAB
REAL, DIMENSION(nAng*d,largCha) :: RECU
CHARACTER*150 FICPRJ
 
largeur = largCha
FICPRJ= 'im.proj'
NENRG = 0
nl = nAng*d
 
C Récupération des données du tableau
 
DO m = 1, nl
DO n = 1, largeur
RECU(m,n) = TAB(m,n)
WRITE (*,*) RECU(m,n)
END DO
END DO
 
 
largColTot=d
 
C Création du fichier de sortie
 
OPEN ( UNIT=1, FILE=FICPRJ , STATUS='NEW' , IOSTAT=IO )
DO J = 1 , largeur ! largeur de trou
DO I = 1, nl
NENRG = NENRG + 1
!on écrit les résultats des projections dans le fichier de sortie
WRITE (IUREP,REC=NENRG2) TAB(I,J)
END DO
END DO
CLOSE(1)
RETURN
END SUBROUTINE
Je souhaite l'utiliser avec python en utilisant le module f2py.
J'exécute la commande f2py -c -m petit petit.f et j'obtiens l'erreur suivante:

error: Command "/usr/bin/g77 -g -Wall -fno-second-underscore -fPIC -O3 -funroll-loops -I/tmp/tmpw41Mch/src.linux-i686-2.6 -I/usr/lib/python2.5/site-packages/numpy/core/include -I/usr/local/include/python2.6 -c -c petit.f -o /tmp/tmpw41Mch/petit.o" failed with exit status 1


Auriez-vous une idée d'où cela peut-il provenir?
Merci d'avance!