erreur avec l' instruction include

Version imprimable

Bonnjour
j'essaye de reduire la taille de mon code en mettant le variables que j'utilise dans de petits fichiers que je l'appelle avec l'instuction include mais malheuresement ca n'a pas donne un resultat. si quelqu'un peut m'aider je serais toujours reconnaissante. merci bien .
cordialement

Code:

1
2
3
4
5
6
7
8
9
common/my_common_1/i,j,k,kk   
	common/my_common_2/n,m    
	common/my_common_3/u0,rhof,t_in,tw
	common/my_common_4/visc,alpha,omega,omegat
	common/my_common_5/u,v,rho,strf
	common/my_common_6/ Re,pr
        common/my_common_7/theta,th
        common/my_common_8/f,feq,g,geq
        common/my_common_9/Y,cx,cy,w,theta_in

Code:

parameter(n=50,m=1000)

Code:

1
2
3
4
5
6
7
8
9
10
11
dimension f(0:8,0:n,0:m)
	dimension feq(0:8,0:n,0:m),rho(0:n,0:m)
	dimension w(0:8), cx(0:8),cy(0:8)
	dimension u(0:n,0:m), v(0:n,0:m),strf(0:n,0:m)
	dimension g(0:8,0:n,0:m), geq(0:8,0:n,0:m),th(0:n,0:m)
        dimension theta(0:n,0:m),theta_in(0:m)
        dimension t_in(0:m)
        dimension Y(0:m)
        integer i,j,k,kk
        integer dx,dy,dt
        character Saida*2910

voila le message d'erreur qu'obtient lors d'excution avec gfortran

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Included at modthereco2.for:5:
 
parameter(n=50,m=1000)                                                  
 1
Error: Non-numeric character in statement label at (1)
parameter.for:1.1:
    Included at modthereco2.for:5:
 
parameter(n=50,m=1000)                                                  
 1
Error: Unclassifiable statement at (1)
common.for:8.28:
    Included at modthereco2.for:6:
 
        common/my_common_8/f,feq,g,geq                                  
                            1
Error: The module or main program array 'f' at (1) must have constant shape
common.for:8.32:
    Included at modthereco2.for:6:
 
        common/my_common_8/f,feq,g,geq

12/06/2013, 16h53
__dardanos__

Salut.
Les includes, c'est pas propre du tout.
Pourquoi ne pas continuer avec les modules ? Un module parameters ?
12/06/2013, 18h05
Sylvain Bergeron
Ton erreur semble venir du fait que tu n'as pas respecté les colonnes 1 pour commentaires, 1-5 pour étiquettes, 6 pour continuité, 7-72 pour instructions,...

Cela dit, les commons sont très dépréciés, beaucoup plus que les includes. Comme dit dardanos, tu devrais utiliser des modules.

Si tu dois maintenir les commons, c'est une très bonne idée de les placer dans des fichiers includes.

Normalement, tu devrais utiliser un fichier include distinct pour chaque common avec la définition complète des variables du common dans le fichier. Par exemple, my_common_8 devrait être placé dans le fichier my_common_8.i :
Code:

1 2 3 4 5 6 include 'constantes.i' dimension f(0:8,0:n,0:m) dimension feq(0:8,0:n,0:m) dimension g(0:8,0:n,0:m), geq(0:8,0:n,0:m) common/my_common_8/f,feq,g,geq
et constantes.i contient la définition de n et m.

Dans ton cas, tu y arriveras difficilement avec un tel découpage à cause des constantes n et m qui sont utilisés partout (en passant, n et m ne devrait pas être dans un common puisque que ce sont des constantes). Dès le deuxième include, le compilateur te dira que n et m sont déjà définis.

Tes commons ne semblent pas indépendants l'un de l'autre en fait. Ils devront probablement être tous dans le même fichier include.
06/02/2015, 13h35
hajer boussetta

include et common !

bonjour ,je suis débutante avec FOrtran
j'arrive pas à comprendre l'utilité des instructions include et common
est ce que quelqu'un peut m'aider svp ;)
06/02/2015, 14h18
Sylvain Bergeron

L'instruction common permet de définir un bloc de variables qui sont partagées par l'ensemble des routines, fonctions et / ou le programme principal dans lesquels le common est déclarer. Les variables n'ont pas à être passées en argument par les instructions d'appel des sous-programme.

L'instruction include ne fait qu'insérer le texte du fichier nommé. Ce n'est pas vraiment une instruction du langage. Ça ne fait que manipuler du code source. En pratique, elle est (était?) beaucoup utiliser avec les commons parce qu'elle permet d'insérer facilement l'ensemble des déclarations d'un common en ajoutant simplement l'instruction "include 'MonCommon.fh' " dans chaque fonction ou routine en ayant besoin. Si tu as à modifier le common, tu le fais à un endroit et le changement se répercute partout.

Dans un programme Fortran 90 et plus récent, on essaie généralement de remplacer les commons par des modules, et les includes deviennent inutiles.
06/02/2015, 14h26
hajer boussetta

merci beaucoup , c'est très clair maintenant :)