Les notions de base du Fortran

Elle demande au compilateur d'inclure un fichier contenant des instructions Fortran :

INCLUDE 'nom_de_fichier'

PROGRAM inclusion
  IMPLICIT NONE
  INTEGER :: i
  INCLUDE 'inclusion.inc'

  DO i=1,6
    itab(i) = PI
  END DO
  ltab(1) = .true.
  ltab(2) = .false.
  ltab(3) = .true.
  CALL sub
END PROGRAM inclusion

SUBROUTINE sub
  IMPLICIT NONE
  INCLUDE 'inclusion.inc'

  PRINT*,'Tableau réels = ', rtab
  PRINT*,'Tableau logique = ', ltab
END SUBROUTINE sub

Le fichier inclusion.inc contient les déclarations de COMMONs et de paramètres :

DOUBLE PRECISION, PARAMETER    :: PI=3.14159265d0
DOUBLE PRECISION, DIMENSION(6) :: rtab
LOGICAL, DIMENSION(3)          :: ltab
COMMON rtab,ltab

Remarques :

• l'inclusion du contenu du fichier se fait là où est placée la directive INCLUDE ;
• il est possible d'imbriquer plusieurs directives INCLUDE. Le nombre d'imbrications possible dépend du compilateur ;
• la localisation du fichier à inclure peut être précisée à l'aide de l'option -I du système de compilation.