Bonjour,

Je travaille actuellement sur une fonction et j'ai un problème qui me parait assez étrange:

j'ai une boucle du type:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
do
    ...
 
    call DEDP(F2,NENQ,Y,ufi,ufi+pas,RELERR,ABSERR,IFLAG)
 
    ...
 
end do
Si je fais tourner mon programme, j'ai une boucle infinie. Bon ok je dois avoir un problème dans mes conditions de sortie.

Le problème est que si je change cette boucle en ajoutant : write(*,*)"hello" juste avant mon call de la façon suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
do
 
    ...
 
    write(*,*)"hello"
    call DEDP(F2,NENQ,Y,ufi,ufi+pas,RELERR,ABSERR,IFLAG)
 
    ...
 
end do
Mon programme se finit en moins d'une milliseconde. (inutile de préciser que je pourrais afficher n'importe quoi à l'écran, cela reviens au même).

Quelqu'un a déjà eu le même problème et/ou saurait m'aider?

Merci d'avance