Discussion :

[stephanie.ben]

bonjour , je suis nouvelle sur le forum et j'ai un probleme que j'aimerais que vous m'aidiez a le resoudre ,
bon ,j'ai un devoir dans lequel on me donne un programme ecrit en format 77 , dans ce format ce programme comporte une erreur qui n'est parcontre pas considérée comme erreur dans la norma 90 , ce qu'on m'a demandé c'est de chercher cette erreur , et réécrire le programme correctement ensuite ,
voila je vous ecrit le programme tel qu'il est , ca concerne l'evaluation d une integrale double voila:

MAIN PROGRAM
*
* [warning: this contains error.]
*
EXTERNAL G
ANSWR=GAUSQ(G,0.,1.,10)
WRITE(*,*)'double integral = ', ANSWR
STOP
END
===================================
FUNCTION G(Y)
COMMON/Y/YY
EXTERNAL FF
YY=Y
G=GAUSQD(FF,0.,1.,10)
RETURN
END
===================================
FUNCTION FF(X)
COMMON/Y/Y
FF=F(X,Y)
RETURN
END
==================================
FUNCTION F(X,Y)
F=...
RETURN
END
==================================
FUNCTION GAUSQD(FNC,A,B,K)
...
...
END

[Nanzilla]

Bonjour Stéphanie.
Il y a plusieurs manques/incohérences dans ton exemple (pas de problème de norme, mais des problèmes de structuration):

• Le programme principal appelle la fonction GAUSQ (D je suppose) en passant une fonction en paramètre (G) qui est utilisé dans la fonction hors la fonction G fait appelle au GAUSQ, donc une boucle infinie (sauf si la fonction GAUSQ existe dans Fortran en natif, je ne l'ai pas trouvée)
• Le programme utilise le common YY qui n'est jamais utilisé

Pour pouvoir t'aider un peu plus, il faudrait fournir également le code présent dans les ...