fortran fichier de sortie vide

[Amhali]

Bonjour les amis,
je viens d'avoir un problème après la compilation de mon programme fortran,
lorsque je compile le programme je trouve que le fichier de sortie est vide, sachant qu'avant j'avais pas ce problème
si vous avez une idée pourquoi le fichier de sortie devient vide dans un moment donné
Merci d'avance
-----

[umfred]

alors, je dirais qu'une (ou plusieurs) de tes modifications fait que tu n'écris plus dans le fichier.
si tu recomplies le code d'origine, ça devrait refonctionner, non?

mais surtout, comment veux-tu qu'avec si peu d'info, on puisse t'apporter une aide plus utile pour toi que dire de vérifier tes modifications ?

[Amhali]

voilà la partie que j'ai modifié

     do while(mt.eq.mb)
      if(mb.eq.1.5d0)then
      if(N.le.devn1.and.N.gt.devn2)then
      coef=sb
      elseif(N.le.devn3.and.N.gt.devn4)then 
      coef=sb
      else
      coef=1.0d0
      endif
      endif
      enddo
      
c      f2=-(mt*ab+mb*bc)+alpha*bc 
      
      f2=-(mt*ab+coef*mb*bc)     
 
      inert=d2+f2
c      inert=abs(d2+f2)
c      inert=d2+f2+0.5d0
      E2theo=(3.0*10.0**3)/inert
      RPtheo=E2theo/6.0
c      write(2,*)A,Z,Zm,N,Nm,E2exp(i),E2theo,RPexp(i),inerexp(i),inert
      write(2,*)A,Z,Zm,N,Nm,mt,mb,inerexp(i),inert
      write(3,*)A,Z,inerexp(i),inert,RPexp(i),RPtheo(i)
      if (i.eq.14) go to 10
      go to 20
   10 continue  
      CONTINUE
      RETURN
      END

[umfred]

a priori tu écris dans 2 fichiers (vu que je vois du write(2,*) et du write(3,*))
Donc il y a des open de ces fichiers à un moment. Est-ce que ceux si dans une boucle ? (tu écrases peut-être les données à un moment)
Est-ce que la partie où tu écris est dans une condition ? auquel cas, la condition n'est peut-être pas remplie (ou plus rempli à cause de tes modifications)
Peut-être fermer manuellement les fichiers (ils sont peut-être encore dans un état ouvert quand tu vas les vérifier et les données ne sont pas physiquement écrites dans le fichier)

[A voir en vidéo sur Futura]

[Amhali]

je viens de réaliser que le fichier ne se compile pas, il reste en situation de compilation

[Amhali]

Oui ta raison, lorsque j'ai supprimé la dernière boucle qui se trouve avant l'écriture dans le fichier, le problème a été résolu.
Merci beaucoup umfred

[Amhali]

En faite j'ai un problème à programmer la dernière boucle, je sais pas pourquoi les conditions que je met dans la boucle ne fonctionne pas comme je veux
dans la dernière boucle je veux que le coefficient coef soit égal à la valeur 2/3 lorsque les deux paramètres mt et mb sont les deux égales à la valeur 1.5 et aussi lorsque le nombre N est borné par devn1 et devn2 ou bien devn3 et devn4, si son la valeur de coef sera 1.0
dans la première photo que j'ai envoyé vous pouvez voir la boucle que j'ai fait mais il n'a pas fonctionner
cette deuxième boucle aussi ne fonctionne plus

if(mb.eq.1.5d0.and.mt.eq.1.5d0)then
      if(N.le.devn1.and.N.gt.devn2)then
      coef=sb
      elseif(N.le.devn3.and.N.gt.devn4)then 
      coef=sb
      else
      coef=1.0d0
      endif
      else 
      coef=1.0d0
      endif

[Amhali]

C'est bon j'ai réglé le problème, j'avais trompé dans le nombre, au lieu de donner 1.7 j'ai écrit 1.5
Merci beaucoup

[JPL]

Un petit détail ; c’est du Fortran donc je ne sais pas, mais

devn2)then

ne devrait-il pas s’écrire

devn2) then