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