Discussion :

[saida29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

parameter(n=50,m=1000)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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

[__dardanos__]

Salut.
Les includes, c'est pas propre du tout.
Pourquoi ne pas continuer avec les modules ? Un module parameters ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[hajer boussetta]

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

[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.

[hajer boussetta]

merci beaucoup , c'est très clair maintenant