Les interfaces

La notion d'interface permet de fiabiliser les appels de procédures et fonctions. Elle est également indispensable pour exploiter les possibilités de création de modules, de procédures génériques (voir chapitre 9).

 
    PROGRAM fiable
       IMPLICIT NONE
       REAL  :: a = 1., b = 2. ,c = 5. ,x = 33., y, z

       INTERFACE 
         FUNCTION polynome(a,b,c,x)
             IMPLICIT NONE
              REAL, INTENT(IN)  :: a,b,c,x
              REAL              :: polynome
         END FUNCTION polynome
       END INTERFACE

       y = polynome(x,a,c,b)                     
       z = 2. * y + polynome(a+1.,2.*c ,b,y+0.5) 
       PRINT*,y,z
    END PROGRAM fiable

L'interface fournira alors non seulement le type de la fonction, mais aussi le type de ses arguments, ce qui signifie qu'elle permettra en outre un contrôle de ses arguments. Ainsi le compilateur renvoît un message d'erreur si $a,b, c , x$ ne sont pas des réels.