Discussion :

[Flow_75]

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 :

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

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

[Sylvain Bergeron]

Code :

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

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

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
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

[Flow_75]

merci de ton aide.

J'ai fais cela au final :

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
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