Discussion :

[bmoumen27]

salut tous
j'ai un code en fortran écrit en fortran66 contenant cette forme que j'ai pas compris

GO TO (42,43,51,58) ,IGO

42 ...
.....
43 ...
.....
.....
51 ...
.....
.....
58 ...

celui ou celle qui a une idée sur cette forme me poste une réponse
merci

[FR119492]

Salut!
Heureusement qu'il y a encore un "vieux" dans le club!

• Si IGO=1, le programme va à 42
• Si IGO=2, le programme va à 43
• Si IGO=3, le programme va à 51
• Si IGO=4, le programme va à 58

Jean-Marc Blanc

[genteur slayer]

c'est bien vrai jean-marc... le F66 ça commence à faire dinosaure!!! lol!!!

[Sylvain Bergeron]

Ça se modernise en (F90 et +) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
select case(IGO)
case(1)
   ! instructions de la section 42 ...
   ...
case(2)
   ! instructions de la section 43 ...
   ...
case(3)
   ! instructions de la section 51 ...
   ...
case(4)
   ! instructions de la section 58 ...
   ...
case default
   ! instructions entre le goto et l'étiquette 42, s'il y a lieu...
   ...
end case

[FR119492]

le F66 ça commence à faire dinosaure!!!

Moi aussi!
Avant les cartes perforées, il y avait les rubans papier ASCII (8 bits dont un était toujours un 0), et avant ça il y avait les rubans papier Beaudot (télex 5 bits). Mais je n'ai pas commencé encore plus tôt.
Jean-Marc Blanc