ScalES-PPM
Loading...
Searching...
No Matches
Modules | Functions/Subroutines | Variables
ppm_f90_io_lun.f90 File Reference

query next free unit number More...

Modules

module  ppm_f90_io_lun
 module ppm_f90_io_lun provides an abstraction layer so that unique unit numbers can be retrieved without filling a global table cross-referenced by humans
 

Functions/Subroutines

subroutine, public ppm_f90_io_lun::setup_lun_table
 allocate array of reserved luns, reserves unit from 1 to 10 by default
 
subroutine, public ppm_f90_io_lun::take_down_lun_table
 
subroutine, public ppm_f90_io_lun::add_lun_reservation (lun)
 excludes lun from list of automatically probed luns
 
subroutine, public ppm_f90_io_lun::remove_lun_reservation (lun)
 includes lun in list of automatically probed luns (i.e. cancels previous reservation)
 
subroutine, public ppm_f90_io_lun::add_lun_reservations (luns, nluns)
 excludes luns from list of automatically probed luns
 
subroutine, public ppm_f90_io_lun::remove_lun_reservations (luns, nluns)
 includes luns in list of automatically probed luns
 
subroutine, public ppm_f90_io_lun::set_reserved_luns (luns, nluns)
 set list of luns excluded from automatically probed luns
 
subroutine, public ppm_f90_io_lun::next_free_unit_in_range (min_lun, max_lun, found, unit)
 returns next available unit in range [min_lun,max_lun] in param unit
 
integer function, public ppm_f90_io_lun::next_free_unit ()
 find currently available unit number, the range is determined by default_min_lun and default_max_lun
 
integer function ppm_f90_io_lun::reserve_and_get_next_free_unit ()
 find currently available unit number, the range is determined by default_min_lun and default_max_lun and the returned unit is also immediately reserved
 
subroutine ppm_f90_io_lun::adjust_reserved_map (lun)
 

Variables

integer, public ppm_f90_io_lun::default_min_lun =1
 
integer, public ppm_f90_io_lun::default_max_lun =100
 
integer, parameter ppm_f90_io_lun::default_min_reserved_lun =1
 
integer, parameter ppm_f90_io_lun::default_max_reserved_lun =10
 
integer ppm_f90_io_lun::min_reserved_lun =default_min_reserved_lun
 
integer ppm_f90_io_lun::max_reserved_lun =default_max_reserved_lun
 
logical, dimension(:), allocatable, private ppm_f90_io_lun::reserved_luns
 
character(len= *), parameter ppm_f90_io_lun::filename = 'ppm_f90_io_lun.f90'
 

Detailed Description

query next free unit number

Version
1.0
Author
Thomas Jahns jahns.nosp@m.@dkr.nosp@m.z.de

Das diesem Bericht zugrundeliegende Vorhaben wurde mit Mitteln des Bundesministeriums für Bildung, und Forschung unter dem Förderkennzeichen 01IH08004E gefördert. Die Verantwortung für den Inhalt dieser Veröffentlichung liegt beim Autor.