Explications sur un code ancien

Bonjour (ou bonsoir :lol:),

voila je viens de me mettre à Fortran et je viens de rencontrer deux syntaxe qui me paraissent inconnues c'est à dire que je ne les comprend pas.. :/

la première est celle là :

do 10 i = 1, n

je comprend que i varie de 1 à n mais je ne vois pas ce que fais le 10 après le do... j'ai en effet vu cette syntaxe ici :

http://folk.uio.no/hpl/scripting/doc...ial/loops.html

L a 2e incompréhension est celle-ci :

je viens de voir dans un livre ce genre d'instruction :

open(1, file = 'sol.sol', status = 'unknown') voila ce que je demande serait de me traduire ce charabia (malheureusement c'en est bien pour moi :/ ) en français ! :)

Je vous suis infiniment reconnaissant !!!

Un grand merci à vous !!!

Bonjour.

Mes souvenirs de Fortran sont assez lointains mais je vais essayer de t'expliquer sous le contrôle des mes collègues et la doc :

- pour la première question concernant le DO, le 10 est une étiquette (label, N° de ligne), unique dans le programme et non forcément en séquence ordonnée, jusqu'à laquelle le DO va s'exécuter. C'est l'équivalent du ENDDO qui apparaitra plus tard dans les compilateurs Fortran.
Cette étiquette contient souvent l'instruction CONTINUE mais cela n'est pas obligatoire, c'est beaucoup plus pour une meilleure commodité de lisibilité et de maintenance.
Exemple :

Code:

---

1 2 3 4 5 6

1 DO 100 I = 1,L 2 DO 50 J = 1,M READ(7,*)A(I,J) 50 CONTINUE 100 CONTINUE

---

Le DO de la ligne étiquetée 1 s'étend jusqu'à la ligne étiquetée 100 et celui de la ligne étiquetée 2 s'étend jusqu'à la ligne étiquetée 50.

- Pour la deuxième question concernant l'open :

Code:

---

1 2	open(1, file = 'sol.sol', status = 'unknown')

---

* Le 1 est le n° d'unité, c'est le n° d'accès (canal) au fichier, il est unique dans tout le programme et ses dépendances et ne peut pas être attribué à un autre fichier. Il est donné arbitrairement.
* file = 'sol.sol' est le nom du fichier tel qu'il doit exister ou être crée
* status = 'unknown' est le statut que doit avoir le fichier au moment de son ouverture :
UNKNOWN : si le fichier, il sera utilisé, sinon il sera crée ;
OLD : le fichier doit exister, sinon erreur à l'exécution ;
NEW : le fichier ne doit pas exister et sera crée, sinon erreur à l'exécution.

Voilà un lien pour une petite doc en français mais très sommaire. ftp://ftp-developpez.com/fortran/cou...et-fortran.pdf
De toute façon il faut admettre qu'on ne peut pas faire autrement que d'utiliser la doc d'origine qui est toujours en anglais, par exemple : http://www-01.ibm.com/support/docvie...27012855&aid=1

Merci ! En gros je peux dire que si j'ai Do 3 I=1,n... je peux traduire ça en français par fais blablabla et arrête toi à la ligne 3 ? Par contre à quoi sert le continue ? C'est pour dire va au delà de la ligne 3 ? Ou juste alors pour dire continue de faire varier I maintenant que tu as pris I=1 tu prend I=2et ainsi de suite jusqu'à I=n ? Merci encore de votre aide ! :)

Citation:

---

Envoyé par toto456

Merci ! En gros je peux dire que si j'ai Do 3 I=1,n... je peux traduire ça en français par fais blablabla et arrête toi à la ligne 3 ? Par contre à quoi sert le continue ? C'est pour dire va au delà de la ligne 3 ? Ou juste alors pour dire continue de faire varier I maintenant que tu as pris I=1 tu prend I=2et ainsi de suite jusqu'à I=n ? Merci encore de votre aide ! :)

---

L'étiquette 3 sera comprise dans les instructions exécutées par le DO. L'instruction CONTINUE est une instruction blanche et en effet elle veut dire : "continue de faire varier I maintenant que tu as pris I=1 tu prend I=2et ainsi de suite jusqu'à I=n". A la sortie de la boucle, l'exécution continuera par l'instruction juste suivant l'étiquette. On utilise l'instruction CONTINUE pour rendre le code plus lisible et surtout pour pouvoir faire des insertions juste avant sans modifier la ligne de l'étiquette. Il me semble qu'elle peut servir aussi dans un IF pour remplacer l'instruction impérative quand il n'y a rien à faire (à vérifier).

Le CONTINUE est une instruction qui ne fait rien. Elle ne veut pas dire « continue de faire varier I maintenant que tu as pris I=1 tu prend I=2... ». Elle ne fait rien. C'est l'exécution du code de contrôle de la boucle après le CONTINUE qui incrémente le compteur.

Elle était très utilisée avant l'apparition des instructions CYCLE, ELSE, ENDIF... En Fortran 66, la seule façon élégante de dire « va à l'itération suivante » (i.e. cycle), était de faire un GOTO à une ligne inactive (donc un CONTINUE) à la fin de la boucle. Par exemple :

Code:

---

1 2 3 4 5 6

DO 10 I = 1, N ... IF (...) GOTO 10 ... 10 CONTINUE

---

En Fortran moderne, on écrirait :

Code:

---

1 2 3 4 5 6

do i = 1, n ... if (...) cycle ... enddo

---

En Fortran non structuré, une bonne habitude de programmation était donc de terminer les boucles par des continue.

Merci ! :)