libsim
Versione 7.2.6
base
io_units.F90
1
! Copyright (C) 2010 ARPA-SIM <urpsim@smr.arpa.emr.it>
2
! authors:
3
! Davide Cesari <dcesari@arpa.emr.it>
4
! Paolo Patruno <ppatruno@arpa.emr.it>
5
6
! This program is free software; you can redistribute it and/or
7
! modify it under the terms of the GNU General Public License as
8
! published by the Free Software Foundation; either version 2 of
9
! the License, or (at your option) any later version.
10
11
! This program is distributed in the hope that it will be useful,
12
! but WITHOUT ANY WARRANTY; without even the implied warranty of
13
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14
! GNU General Public License for more details.
15
16
! You should have received a copy of the GNU General Public License
17
! along with this program. If not, see <http://www.gnu.org/licenses/>.
18
#include "config.h"
19
!> Definition of constants related to I/O units.
20
!! This modules defines some integer constants associating the UNIX
21
!! Input/Output units to Fortran units, which can then used in
22
!! commands such as \c READ, \c WRITE and \c INQUIRE.
23
!!
24
!! Example of typical use:
25
!! \code
26
!! USE io_units
27
!! ...
28
!! WRITE(stout_unit,*)'Dimmi qualcosa di carino'
29
!! READ(stdin_unit,*)mesg
30
!! IF (mesg == 'oca') THEN
31
!! WRITE(stderr_unit,*)'Mascalzone!'
32
!! STOP
33
!! ENDIF
34
!! ...
35
!! \endcode
36
!! \ingroup base
37
MODULE
io_units
38
IMPLICIT NONE
39
40
! These should be set by autoconf and included
41
INTEGER
,
PARAMETER
:: stdin_unit = 5
!< standard input
42
INTEGER
,
PARAMETER
:: stdout_unit = 6
!< standard output
43
INTEGER
,
PARAMETER
:: stderr_unit = 0
!< standard error
44
45
END MODULE
io_units
Generated with
Doxygen
.