4 |
|
|
5 |
implicit none |
implicit none |
6 |
|
|
|
INTEGER:: lunout = 6 |
|
|
! (unité du fichier dans lequel se font les sorties, par défaut la |
|
|
! sortie standard) |
|
|
|
|
7 |
integer:: prt_level = 0 ! niveau d'impression souhaité (0 = minimum) |
integer:: prt_level = 0 ! niveau d'impression souhaité (0 = minimum) |
8 |
|
|
9 |
contains |
contains |
10 |
|
|
11 |
subroutine read_iniprint |
subroutine read_iniprint |
12 |
|
|
13 |
namelist /iniprint_nml/lunout, prt_level |
namelist /iniprint_nml/prt_level |
14 |
|
|
15 |
!------------------------------------------------- |
!------------------------------------------------- |
16 |
|
|
|
print *, "Call sequence information: read_iniprint" |
|
17 |
print *, "Enter namelist 'iniprint_nml'." |
print *, "Enter namelist 'iniprint_nml'." |
18 |
read(unit=*, nml=iniprint_nml) |
read(unit=*, nml=iniprint_nml) |
19 |
write(unit=*, nml=iniprint_nml) |
write(unit=*, nml=iniprint_nml) |