Discussion :

[manaiilhem]

Bonjour,
Je viens d'utiliser Fortran sur code::blocks
Dans ci-dessous une partie de mon programme

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
22
23
24
do i = 2,n-1
            j=1
            l=(j-1)*n+i
            l1=(j-1)*n+i+1
            l2=(j-1)*n+i-1
            l3=j*n+i
 
            A(l,l)=(2.0D0*r(j)*(dr/dz))+(r(j)*(dz/dr))-(dz/(2.0D0))
		    A(l,l1)=(-1.0D0)*r(j)*(dr/dz)
		    A(l,l2)=(-1.0D0)*r(j)*(dr/dz)
		    A(l,l3)=(-1.0D0)*(r(j)-(dr/2.0D0))*(dz/dr)
 
            if (z(i) <= L_evap) then
		    vect(l,1)=(q_evap*(r(j)+(dr/2.0D0))*dz)/(Conds)
 
          else if (z(i)>L_evap).and. (z(i)<== L_test)) then
                vect(l,1)=0.0D0
            else
             A(l,l)=(2.0D0*r(j)*(dr/dz))+(r(j)*(dz/dr))-(dz/(2.0D0))+((Coef*(r(j)+(dr/2.0D0))*dz)/(Conds))
             vect(l,1)= ((Coef*T_inf*(r(j)+(dr/2.0D0))*dz)/(Conds))
		   end if
		! end if
 
		 end do

J'ai eu le retour de l’erreur suivante dont je le comprends pas.
|||Error: Unexpected junk after ELSE statement ||
Prière de m'aider à identifier les erreurs.
Merci

[__dardanos__]

Salut.
Pour le calcul de l'élément 2, essaie :

Code :

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

1
2
3
4
5
6
7
8
            if (z(i) <= L_evap) then
                vect(l,1)=(q_evap*(r(j)+(dr/2.0D0))*dz)/(Conds)
            else if (z(i)>L_evap) .and. (z(i)<= L_test)) then
                vect(l,1)=0.0D0
            else
                A(l,l)=(2.0D0*r(j)*(dr/dz))+(r(j)*(dz/dr))-(dz/(2.0D0))+((Coef*(r(j)+(dr/2.0D0))*dz)/(Conds))
                vect(l,1)= ((Coef*T_inf*(r(j)+(dr/2.0D0))*dz)/(Conds))
            end if

[manaiilhem]

J'ai eu toujours le retour de la même erreur malheureusement

[__dardanos__]

Il manquait une parenthese :

Code :

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

1
2
3
4
5
6
7
8
            if (z(i) <= L_evap) then
                vect(l,1)=(q_evap*(r(j)+(dr/2.0D0))*dz)/(Conds)
            elseif ( (z(i)>L_evap) .and. (z(i)<= L_test) ) then
                vect(l,1)=0.0D0
            else
                A(l,l)=(2.0D0*r(j)*(dr/dz))+(r(j)*(dz/dr))-(dz/(2.0D0))+((Coef*(r(j)+(dr/2.0D0))*dz)/(Conds))
                vect(l,1)= ((Coef*T_inf*(r(j)+(dr/2.0D0))*dz)/(Conds))
            endif

[manaiilhem]

Je te remercie.
oui ça marche

[manaiilhem]

Une autre question:
En utilisant le fortran avec code::blocks pourquoi si on fait des modification sur un projet et on l'exécute on tombe sur l'exécution précédente. Il fait pas la mise à jour des nouvelles modifications.
Quelqu'un peut m'expliquer s'il te plait.
merci.

[__dardanos__]

Probablement que CodeBlocks est configuré de façon à lancer l'exécution sans vérifier s'il est nécessaire de recompiler.

Il doit être possible de forcer la compilation en modifiant les options du projet.

[manaiilhem]

Bonjour,
Mais je refais la compilation après je fais l'exécution et je constate qu'il ne tient pas compte des nouvelles modifications.
que dois je faire , une solution s'il te plaît.
Merci

[__dardanos__]

Salut.
Si ça te bloque, tu peux faire un re-générer (Ctrl+F11) puis un exécuter (Ctrl+F10).
Je ne peux pas être plus précis car Code Blocks n'est pas installé sur ma machine actuelle.
Regarde dans le manuel technique, il est bien documenté.