Discussion :

[perfide]

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

[François L.]

La dernière fois que j'ai vu ce genre de problèmes, ça venait du passage des arguments...
AMHA il faut bien vérifier si les types et tailles d'arguments formels et effectifs concordent. Surtout s'il y a des tableaux.

Peut-être qu'une compilation avec tous les flags de vérification amènerait plus de détails?

Le 5ème argument (ufi+pas) est-il modifié dans la routine? (peut-être le déclarer en intent(IN) dans la routine en question?)

En espérant que ça aide...

[Sylvain Bergeron]

Y a-t-il un message d'erreur ? Lequel ? "hello" s'affiche t-il ?

(je suis d'accord avec la stratégie de François, mais sans message d'erreur, on ne peut que faire des suppositions...)