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	guez	3	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