libsim Versione 7.2.6
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
37MODULE io_units
38IMPLICIT NONE
39
40! These should be set by autoconf and included
41INTEGER, PARAMETER :: stdin_unit = 5 !< standard input
42INTEGER, PARAMETER :: stdout_unit = 6 !< standard output
43INTEGER, PARAMETER :: stderr_unit = 0 !< standard error
44
45END MODULE io_units

Generated with Doxygen.