OpenMPI  0.1.1
mpif-mpi-io.h
1 ! -*- fortran -*-
2 !
3 ! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
4 ! University Research and Technology
5 ! Corporation. All rights reserved.
6 ! Copyright (c) 2004-2005 The University of Tennessee and The University
7 ! of Tennessee Research Foundation. All rights
8 ! reserved.
9 ! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
10 ! University of Stuttgart. All rights reserved.
11 ! Copyright (c) 2004-2005 The Regents of the University of California.
12 ! All rights reserved.
13 ! Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
14 ! $COPYRIGHT$
15 !
16 ! Additional copyrights may follow
17 !
18 ! $HEADER$
19 !
20 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
21 ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
22 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
23 !
24 ! Do ***not*** copy this file to the directory where your Fortran
25 ! fortran application is compiled unless it is absolutely necessary! Most
26 ! modern Fortran compilers now support the -I command line flag, which
27 ! tells the compiler where to find .h files (specifically, this one). For
28 ! example:
29 !
30 ! shell$ mpif77 foo.f -o foo -I$OMPI_HOME/include
31 !
32 ! will probably do the trick (assuming that you have set OMPI_HOME
33 ! properly).
34 !
35 ! That being said, OMPI's "mpif77" wrapper compiler should
36 ! automatically include the -I option for you. The following command
37 ! should be equivalent to the command listed above:
38 !
39 ! shell$ mpif77 foo.f -o foo
40 !
41 ! You should not copy this file to your local directory because it is
42 ! possible that this file will be changed between versions of Open MPI.
43 ! Indeed, this mpif.h is incompatible with the mpif.f of other
44 ! implementations of MPI. Using this mpif.h with other implementations
45 ! of MPI, or with other versions of Open MPI will result in undefined
46 ! behavior (to include incorrect results, segmentation faults,
47 ! unexplainable "hanging" in your application, etc.). Always use the
48 ! -I command line option instead (or let mpif77 do it for you).
49 !
50 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
51 ! WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING
52 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
53 
54 !
55 ! This file is included as a back-end file to both mpif.h (i.e., the
56 ! standardized MPI Fortran header file) and a bunch of the MPI
57 ! Fortran 90 subroutine implementations found in ompi/mpi/f90.
58 !
59 ! This file contains the output from configure that is relevant for
60 ! Fortran applications (both 77 and 90) and a few values that are
61 ! necessary to compile the F90 module (e.g., MPI_STATUS_SIZE).
62 !
63 
64  integer MPI_FILE_NULL
65  integer MPI_SEEK_SET, MPI_SEEK_CUR, MPI_SEEK_END
66  integer MPI_MODE_CREATE
67  integer MPI_MODE_RDONLY, MPI_MODE_WRONLY, MPI_MODE_RDWR
68  integer MPI_MODE_DELETE_ON_CLOSE, MPI_MODE_UNIQUE_OPEN
69  integer MPI_MODE_EXCL, MPI_MODE_APPEND, MPI_MODE_SEQUENTIAL
70  integer MPI_DISPLACEMENT_CURRENT
71 
72  parameter (MPI_FILE_NULL=0)
73  parameter (MPI_SEEK_SET=600)
74  parameter (MPI_SEEK_CUR=602)
75  parameter (MPI_SEEK_END=604)
76  parameter (MPI_MODE_CREATE=1)
77  parameter (MPI_MODE_RDONLY=2)
78  parameter (MPI_MODE_WRONLY=4)
79  parameter (MPI_MODE_RDWR=8)
80  parameter (MPI_MODE_DELETE_ON_CLOSE=16)
81  parameter (MPI_MODE_UNIQUE_OPEN=32)
82  parameter (MPI_MODE_EXCL=64)
83  parameter (MPI_MODE_APPEND=128)
84  parameter (MPI_MODE_SEQUENTIAL=256)
85  parameter (MPI_DISPLACEMENT_CURRENT=-54278278)