Patrick Corde & Anne Fouilloux

Aspect obsolètes 217
Aspects obsolètes
1. IF arithmétique : IF (ITEST) 10,11,12
==> IF--THEN--ELSE IF--ELSE--ENDIF
2. Branchement au END IF depuis l’extérieur (*)
==> se brancher à l’instruction suivante.
3. Boucles DO pilotées par réels : DO 10 R=1., 5.7, 1.3 (*)
4. Partage d’une instruction de fin de boucle :
DO 1 I=1,N
DO 1 J=1,N
A(I,J)=A(I,J)+C(J,I)
1 CONTINUE
==> autant de CONTINUE que de boucles.
5. Fins de boucles autres que CONTINUE ou END DO
6. ASSIGN et le GO TO assigné : (*)
ASSIGN 10 TO intvar
....
ASSIGN 20 TO intvar
....
GO TO intvar
==> SELECT CASE ou IF/THEN/ELSE
(*) : aspects obsolètes déclarés hors norme par Fortran 95
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux