libf/dyn3d/iniprint.f90

module iniprint

  ! gestion des impressions de sorties et de débogage

  implicit none

  INTEGER:: lunout = 6
  ! (unité du fichier dans lequel se font les sorties, par défaut la
  ! sortie standard)

  integer:: prt_level = 0 ! niveau d'impression souhaité (0 = minimum)

contains

  subroutine read_iniprint

    namelist /iniprint_nml/lunout, prt_level

    !-------------------------------------------------

    print *, "Call sequence information: read_iniprint"
    print *, "Enter namelist 'iniprint_nml'."
    read(unit=*, nml=iniprint_nml)
    write(unit=*, nml=iniprint_nml)

  end subroutine read_iniprint

end module iniprint
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