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
Je souhaite l'utiliser avec python en utilisant le module f2py.
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
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!
Partager