Patrick Corde & Anne Fouilloux

Common étiqueté 179
Exemple
PROGRAM common_save
call first
call second
END PROGRAM common_save
!*************************************
SUBROUTINE first
REAL, DIMENSION(6) :: rtab
LOGICAL
:: drapeau
COMMON/BLOC/ rtab,drapeau
SAVE /BLOC/
CALL random_number(rtab)
PRINT*,’Afficher le tableau (true/false)’
READ(*,*) drapeau
END SUBROUTINE first
!*************************************
SUBROUTINE second
REAL, DIMENSION(6) :: rtab
LOGICAL
:: drapeau
COMMON /BLOC/
rtab,drapeau
SAVE /BLOC/
IF (drapeau) PRINT*,’Tableau de réels
END SUBROUTINE second
= ’, rtab
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux