2 ! Copyright (c) 2007, 2008, 2009, 2010. The SimGrid Team.
5 ! This program is free software; you can redistribute it and/or modify it
6 ! under the terms of the license (GNU LGPL) which comes with this package.
8 ! SMPI's Fortran 77 include file
10 integer MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED, MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE
11 parameter(MPI_THREAD_SINGLE=0)
12 parameter(MPI_THREAD_FUNNELED=1)
13 parameter(MPI_THREAD_SERIALIZED=2)
14 parameter(MPI_THREAD_MULTIPLE=3)
16 integer MPI_MAX_PROCESSOR_NAME, MPI_MAX_ERROR_STRING,
17 > MPI_MAX_DATAREP_STRIN, MPI_MAX_INFO_KEY,
18 > MPI_MAX_INFO_VAL, MPI_MAX_OBJECT_NAME, MPI_MAX_PORT_NAME,
19 > MPI_ANY_SOURCE, MPI_PROC_NULL, MPI_ANY_TAG, MPI_UNDEFINED
20 parameter(MPI_MAX_PROCESSOR_NAME=100)
21 parameter(MPI_MAX_ERROR_STRING=100)
22 parameter(MPI_MAX_DATAREP_STRIN =100)
23 parameter(MPI_MAX_INFO_KEY=100)
24 parameter(MPI_MAX_INFO_VAL=100)
25 parameter(MPI_MAX_OBJECT_NAME=100)
26 parameter(MPI_MAX_PORT_NAME=100)
27 parameter(MPI_ANY_SOURCE=-1)
28 parameter(MPI_PROC_NULL=-2)
29 parameter(MPI_ANY_TAG=-1)
30 parameter(MPI_UNDEFINED=-1)
32 integer MPI_SUCCESS, MPI_ERR_COMM, MPI_ERR_ARG, MPI_ERR_TYPE,
33 > MPI_ERR_REQUEST, MPI_ERR_INTERN, MPI_ERR_COUNT, MPI_ERR_RANK,
34 > MPI_ERR_TAG, MPI_ERR_TRUNCATE, MPI_ERR_GROUP, MPI_ERR_OP,
35 > MPI_IDENT, MPI_SIMILAR, MPI_UNEQUAL, MPI_CONGRUENT,
37 parameter(MPI_SUCCESS=0)
38 parameter(MPI_ERR_COMM=1)
39 parameter(MPI_ERR_ARG=2)
40 parameter(MPI_ERR_TYPE=3)
41 parameter(MPI_ERR_REQUEST=4)
42 parameter(MPI_ERR_INTERN=5)
43 parameter(MPI_ERR_COUNT=6)
44 parameter(MPI_ERR_RANK=7)
45 parameter(MPI_ERR_TAG=8)
46 parameter(MPI_ERR_TRUNCATE=9)
47 parameter(MPI_ERR_GROUP=10)
48 parameter(MPI_ERR_OP=11)
49 parameter(MPI_IDENT=0)
50 parameter(MPI_SIMILAR=1)
51 parameter(MPI_UNEQUAL=2)
52 parameter(MPI_CONGRUENT=3)
53 parameter(MPI_WTIME_IS_GLOBAL=1)
55 ! This should be equal to the number of int fields in MPI_Status
56 integer MPI_STATUS_SIZE
57 parameter(MPI_STATUS_SIZE=4)
59 integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE)
60 common/smpi/ MPI_STATUS_IGNORE
62 parameter(MPI_DATATYPE_NULL=0)
63 external MPI_BYTE, MPI_CHARACTER, MPI_LOGICAL, MPI_INTEGER, MPI_INTEGER1,
64 > MPI_INTEGER2, MPI_INTEGER4, MPI_INTEGER8, MPI_REAL, MPI_REAL4,
65 > MPI_REAL8, MPI_DOUBLE_PRECISION, MPI_COMPLEX,
66 > MPI_DOUBLE_COMPLEX, MPI_2INTEGER, MPI_LOGICAL1, MPI_LOGICAL2,
67 > MPI_LOGICAL4, MPI_LOGICAL8
69 external MPI_COMM_WORLD, MPI_COMM_SELF
71 external MPI_INIT, MPI_FINALIZE, MPI_COMM_RANK, MPI_COMM_SIZE
74 double precision MPI_WTIME