Fedora-Fr

Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

fortran et DO

melianos

bonjour,
désolé de demander quelque chose qui n'a rien à voir avec fedora, mais c'est le seul forum informatique que je visite.

J'étudie et modifie en ce moment un programme FORTRAN, et je chercher a enlever tout les GOTO (car les GOTO, c'est mal 🙁 ).

sauf que là, je sais pas trop
(les etoiles sont pour l'indentation)

*****DO 10 I=1,9
********OMINV=OMINV+C0(I)*TR
10******TR = TR*TXP

Est-ce que la ligne TR = TR*TXP est évaluée à chaque tour de boucle, ou pas ?
(car ca change completement le résultat)

Si quelqu'un a encore des souvenirs de FORTRAN et la réponse, merci pour l'info.

phlux

Bon, je ne connais pas le FORTRAN, mais d'après http://www.math.u-bordeaux.fr/~saad/coursf90/node5.html et http://www.softndesign.org/manuels/fortran.html la structure d'une boucle se termine par un CONTINUE, donc ton listing est-il complet ?

DO 10 I = 1, N
S = S + I
10 CONTINUE

Sinon, si le fin de boucle est le n° de ligne alors je dirais que TR = TR*TXP n'est pas dans la boucle. Tu ne peux pas afficher les variables pour confirmer ? Cela dit, je trouve ça aussi illisible que du COLBOL ;o)

Bon courage !

eddy33

hum...juste une remarque. Les GOTO, c'est pas toujours mal. Dans les langages evolues, on peut les eviter en utilisant d'autres constructions mais dans certains cas, cela permet d'optimiser les temps d'execution comme dans les routines d'interruptions. Et puis un GOTO, c'est un branchement (in)conditionnel et il y en a dans tout jeu d'instructions de processeur...

++

Sat

+1 eddy33
Ceux qui croient que le goto c'est le mal absolu sont de sombres crétins.
le goto des langages évolués correspond la plupart du temps à l'instruction en asm jmp & cie, en C, break/continue et return sont des cas particuliers de goto même si on peut l'éviter la plupart du temps.
Dans l'embarqué ou le souci d'optimisation est important, le goto permet comme l'a rappelé eddy33 de simuler une exception, d'accélerer le traitement en gagnant quelques cycles CPU.
D'ailleurs dans le kernel Linux, on fait usage (avec modération) de goto.
http://lxr.linux.no/source/fs/read_write.c
Je ne connais pas du tout le Fortran, tu peux essayer de "nettoyer" le code mais ne pars pas dans l'optique d'une chasse aux goto à tout pris, privilégie la clareté du code, l'optimisation du traitement.
Ce n'est pas l'abus de goto qui mène à la programmation spaghettis mais l'inverse 😉

Je recommande de lire l'article wikipedia sur goto avec l'argumentaire anti-goto de dijkstra et la réponse plus nuancée de Donald Knuth en liens.
http://en.wikipedia.org/wiki/GOTO

eddy33

@Sat +1

on s'est compris 😉

++

melianos

c'est vrai que le branchement inconditionnel est parfois pratique ( je m'en suis déjà servi en ARM), mais c'est egalement vrai que 9 fois sur 10, quand on croise un GOTO dans un programme, c'est de la programmation "spaghetti" (jolie expression). Souvent ca rend le code illisible, si quelqu'un tente de le relire un mois apres.

@phlux : si, en fait je devrais passer par la, oups