Instruction IF structuré

Les instructions IF donnent le moyen de rendre un branchement dépendant d'une condition.

Exemple :

 
       IF ( a<b) THEN
           print*,'a est plus petit que b'
       ELSE
           print*,'a est plus grand que b'
       ENDIF

La partie ELSE peut ne pas exister, par exemple

 
       IF ( x < 3 ) THEN
          x=y+19
          z=z+1
       ENDIF

Si la partie ELSE n'existe pas et la partie THEN ne comporte qu'une seule instruction, on peut utiliser le ' IF logique '. Par exemple

 
       IF ( x > maximum ) maximum = x

ceci est équivalent à

 
       IF ( x > maximum ) THEN
          maximum = x
       ENDIF

On peut donner à une instruction IF structuré un nom. Ainsi sa forme générale est

 
       [nom :] IF (expr_log) THEN    ! si la condition expr_log est vraie
                  bloc1              ! bloc1 est execute
               ELSE                  ! sinon
                  bloc2              ! bloc2 est execute
               ENDIF [nom]

$[$nom :$]$ est facultatif, ceci présente un intérêt pour faire des branchements au niveau $[$nom :$]$ pour mieux répérer les instructions,...