ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/nano_mpi/src/io_units.F90
Revision: 4
Committed: Mon Jun 10 17:18:36 2002 UTC (22 years, 1 month ago) by chuckv
File size: 764 byte(s)
Log Message:
Import Root

File Contents

# User Rev Content
1 chuckv 4 !! This module defines standard units according to
2     !! the fortran 2000 draft standard and is to be
3     !! part of ISO_FORTRAN_ENV module
4     !! The unit numbers are machine dependent and are defined
5     !! in the definitions module
6     !! PUBLIC:
7     !! INPUT_UNIT preconnected sequential input stream
8     !! OUTPUT_UNIT preconnected sequential output stream
9     !! ERROR_UNIT preconnected unit for error reporting
10     !! may be same as OUTPUT unit depending on
11     !! machine
12    
13    
14     module io_units
15     use definitions, ONLY : DEFAULT_INPUT,DEFAULT_OUTPUT,DEFAULT_ERROR
16     implicit none
17     public
18    
19    
20     integer, parameter :: INPUT_UNIT = DEFAULT_INPUT
21     integer, parameter :: OUTPUT_UNIT = DEFAULT_OUTPUT
22     integer, parameter :: ERROR_UNIT = DEFAULT_ERROR
23    
24    
25     end module io_units