Patrick Corde & Anne Fouilloux

Aspect obsolètes 218
7. ASSIGN d’une étiquette de FORMAT : (*)
ASSIGN 2 TO NF
CHARACTER(7),DIMENSION(4)::C
2 FORMAT (F9.2) ==> I = 2; C(2) = ’(F9.2)’
PRINT NF,TRUC
PRINT C(I),TRUC
8. RETURN multiples :
CALL SP1(X,Y,*10,*20)
...
10 ...
...
20 ...
...
SUBROUTINE SP1(X1,Y1,*,*)
...
RETURN 1
...
RETURN 2
...
==> SELECT CASE sur la valeur d’un argument retourné
9. PAUSE ’Montez la bande 102423 SVP’ (*)
==> READ qui attend les données
10. FORMAT(9H A éviter) (*)
==> Constante littérale : FORMAT(’ Recommandé’)
(*) : 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