Conversion F90 vers F03 problematique.

Bonjour,

Je suis actuellement en train de convertir du code Lapack fait en F95 vers du code F2003.

Le probleme est que l'instruction GOTO est maintenant obsolete et que je ne sais pas par quel code la remplacer....

Pourriez vous s'il vous plait m'aider ?

Code:

---

GO TO ( 10, 10, 10, 80, 90, 100, 110, 120, 130, 140, 150, 160, 160, 160, 160, 160 )ISPEC

---

Citation:

---

Envoyé par Flob91

Code:

---

GO TO ( 10, 10, 10, 80, 90, 100, 110, 120, 130, 140, 150, 160, 160, 160, 160, 160 )ISPEC

---

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

select case (iSpec) case(1,2,3) Lignes suivant l'étiquette 10 ... case(4) Lignes suivant l'étiquette 80 ... case(5) Lignes suivant l'étiquette 90 ... case(6) Lignes suivant l'étiquette 100 ... case(7) Lignes suivant l'étiquette 110 ... case(8) Lignes suivant l'étiquette 120 ... case(9) Lignes suivant l'étiquette 130 ... case(10) Lignes suivant l'étiquette 140 ... case(11) Lignes suivant l'étiquette 150 ... case(12:16) Lignes suivant l'étiquette 160 ... end select

---

merci de ton aide.

J'ai fais cela au final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

select case (iSpec) case(1,2,3) GOTO 10 ... case(4) GOTO 80 ... case(5) GOTO 90 ... case(6) GOTO 100 ... case(7) GOTO 110 ... case(8) GOTO 120 ... case(9) GOTO 130 ... case(10) GOTO 140 ... case(11) GOTO 150 ... case(12:16) GOTO 160 ... end select

---