SSL include.ftn   Sprache: Fortran

PROGRAM
  INCLUDE 'COMMON.FOR'         
  REAL, DIMENSION(M) :: Z     
  CALL CUBE                    
  DO I = 1, M
    Z(I) = X(I) + SQRT(Y(I))
    ...
  END DO
END

SUBROUTINE CUBE
  INCLUDE 'COMMON.FOR'
  DO I=1,M
    X(I) = Y(I)**3
  END DO
  RETURN
END

  INTEGER, PARAMETER :: M=100
  REAL, DIMENSION(M) :: X, Y
  COMMON X, Y