Bonjour,
Je travaille sur un code en fortran qui permet de calculer les concentrations de NO, NO2 et HNO2. Il calcule l'évolution de ces concentrations en fonction
de l'épaisseur du lit catalytique que j'utilise et également la consommation de la fraction de sites catalytiques. La boucle est la suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
dowhile (i<=n)
        i=i+1  
dXNO(i)=dz*(-G*k1*XNO(i)*XNO2(i)*XH2O+G*k1*XHNO2(i)**2)      
dXNO2(i)=dz*(-G*k1*XNO(i)*XNO2(i)*XH2O+G*k1*XHNO2(i)**2)
dXHNO2(i)=dz*G*(k1*XNO(i)*XNO2(i)*XH2O
     .          +k4*XH2O**2*(1-frac(i)))/(k2+k3*frac(i))     
dfrac(i)=dt*(-k4*(1-frac(i))*XH2O**2+k3*frac(i)*XHNO2(i)**2)
frac(i)=DMAX1(frac(i)-dt*dfrac(i),0.0D+00)
       XNO2(i+1)=XNO2(i)+dXNO2(i)
       XNO(i+1)=XNO(i)+dXNO(i)
       XHNO2(i+1)=XHNO2(i)+dXHNO2(i)
enddo
Le problème est qu'il ne tourne pas, il m'affiche le message suivant :
parse error, unexpected end of statement, expecting EQV, or NEQv or ')'
sur l'équation de dfrac(i).
J'ai vérifié s'il manque une parenthèse ou autre, il y a rien qui manque et je ne sais pas pourquoi il me sort ce message d'erreur.

Pourriez vous m'aider?

Merci d'avance pour votre aide.