5 ! gestion des impressions
de sorties et
de débogage
6 !
lunout: unité du fichier dans lequel se font les sorties
! (par defaut 6, la sortie standard)
! prt_level: niveau d'impression souhaité (0 = minimum)
!
INTEGER lunout, prt_level
COMMON /comprint/ lunout, prt_level
du fichier dans lequel se
font les sorties
7 ! (par defaut 6, la sortie standard)
8 !
prt_level: niveau
d'impression souhaité (0 = minimum)
10 INTEGER lunout, prt_level
11 COMMON /comprint/ lunout, prt_level
!$Header!integer nvarmx s s s fichier
!FH On elimine toutes les clefs physiques dans la dynamique prt_level
real, dimension(:,:), pointer, save du
real(kind=8), dimension(2, 3), parameter d
!$Header!gestion des impressions de sorties et de débogage la sortie standard prt_level COMMON comprint lunout