Patrick Corde & Anne Fouilloux

Common blanc 174
Exemples
PROGRAM common_blanc
INTEGER
:: i
INTEGER, DIMENSION(6) :: itab
LOGICAL, DIMENSION(3) :: ltab
COMMON
itab,ltab
DO i=1,6
itab(i) = i
END DO
ltab(1) = .true.
ltab(2) = .false.
ltab(3) = .true.
CALL sub
END PROGRAM common_blanc
!*************************************
SUBROUTINE sub
INTEGER
:: i
INTEGER, DIMENSION(6) :: itab
LOGICAL, DIMENSION(3) :: ltab
COMMON
itab,ltab
PRINT*,’Tableau entier = ’, itab
PRINT*,’Tableau logique = ’, ltab
END SUBROUTINE sub
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux