Les notions de base du Fortran

IF arithmétique : IF (ITEST) 10,11,12

==> IF--THEN--ELSE, IF—ELSE--ENDIF ;

Branchement au END IF depuis l'extérieur(3)

==> se brancher à l'instruction suivante ;

Boucles DO pilotées par réels : DO 10 R=1., 5.7, 1.3 ^(*) ;

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 ;

Fins de boucles autres que CONTINUE ou END DO ;

ASSIGN et le GO TO assigné : ^(*)

ASSIGN 10 TO intvar
....
ASSIGN 20 TO intvar
....
GO TO intvar

==> SELECT CASE ou IF/THEN/ELSE ;

ASSIGN d'une étiquette de FORMAT : ^(*) ;

  ASSIGN 2 TO NF
2 FORMAT (F9.2)
  PRINT NF,TRUC

CHARACTER(7),DIMENSION(4)::C
I = 2; C(2) = '(F9.2)'
PRINT C(I),TRUC

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

PAUSE 'Montez la bande 102423 SVP' ^(*)

==> READ qui attend les données ;

FORMAT(9H à eviter) ^(*)

==> Constante littérale : FORMAT(' Recommandé').

Le « format fixe » du source

==> « format libre » ;

Le GO TO calculé (GO TO (10,11,12,...), int_expr)

==> select case ;

L'instruction DATA placée au sein des instructions exécutables

==> avant les instructions exécutables ;

Statement functions (sin_deg(x)=sin(x*3.14/180.))

==> procédures internes ;

Le type CHARACTER*… dans les déclarations

==> CHARACTER(LEN=...) ;

Le type CHARACTER(LEN=*) de longueur implicite en retour d'une fonction

==> CHARACTER(LEN=len(str)).