Version imprimable
Bonjour,
Quand je fais la compilation pour:
soundsp(i) = Dcj*((rhoini*(Dcj**2)/Pcj)-1)/(((rhoini*
(Dcj**2)/Pcj)-1)+1)
il me donne cette erreur:
Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
C'est pour le premiere fois quand j'utilise fortran. Est-ce que pouvez-vous m'aider?
D'avance merci!
Que fais tu avant de faire ce calcul?
common/jwl/A,B,R1,R2,omega,Dcj,Pcj,E0,rhoini,P0
C I n i t i a l i s a t i o n s
if (TIME.eq.0.) then
do 100 i=1,nel
c volume massique vol
uvar(i,1) = 1./uparam(1)
c press
uvar(i,2) = uparam(10)
c eneint
uvar(i,3) = uparam(7)
c vitesse du son
soundsp(i)= sqrt(uparam(11)/uparam(1))
100 continue
endif
C C a l c u l s
A = uparam(2)
B = uparam(3)
R1 = uparam(4)
R2 = uparam(5)
omega= uparam(6)
Dcj = uparam(8)
Pcj= uparam(9)
rhoini = uparam(1)
E0 = uparam(7)
P0 = uparam(10)
do 300 i=1,nel
vol = RHO(i) / RHO0(i)
uvar(i,2) = A*(1-omega/(R1*vol))*exp(-1.0*R1*vol)+
+ B*(1-omega/(R2*vol))*exp(R2*vol)+omega*Eint(i)/vol
soundsp(i) = Dcj*((rhoini*(Dcj**2)/Pcj)-1)/(((rhoini*
(Dcj**2)/Pcj)-1)+1)
Dans ce forum, tu dois placer tes bouts de code à l'intérieur de balise code. Pour ce faire, tu dois utiliser le bouton # en haut de la boîte de rédaction.
Ton code est en Fortran 77, donc en format « carte perforée ». Dans ce format, tu ne peux pas dépasser la colonne 72. Ton erreur vient probablement de là. Le compilateur ignore les derniers caractères de l'expression, et les parenthèses ne sont donc pas fermées à la fin de ce qu'il voit. Tu dois donc couper l'expression en la continuant sur la ligne suivante, en utilisant un caractère de continuité à la colonne 6 de la 2ième ligne.