1 |
module iniprint |
2 |
|
3 |
! gestion des impressions de sorties et de débogage |
4 |
|
5 |
implicit none |
6 |
|
7 |
INTEGER:: lunout = 6 |
8 |
! (unité du fichier dans lequel se font les sorties, par défaut la |
9 |
! sortie standard) |
10 |
|
11 |
integer:: prt_level = 0 ! niveau d'impression souhaité (0 = minimum) |
12 |
|
13 |
contains |
14 |
|
15 |
subroutine read_iniprint |
16 |
|
17 |
namelist /iniprint_nml/lunout, prt_level |
18 |
|
19 |
!------------------------------------------------- |
20 |
|
21 |
print *, "Call sequence information: read_iniprint" |
22 |
print *, "Enter namelist 'iniprint_nml'." |
23 |
read(unit=*, nml=iniprint_nml) |
24 |
write(unit=*, nml=iniprint_nml) |
25 |
|
26 |
end subroutine read_iniprint |
27 |
|
28 |
end module iniprint |