source: CIVL/examples/fortran/nek5000/core/mpi_dummy.h

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100755
File size: 1.7 KB
Line 
1c
2c Dummy parameters for MPI F77 stubs
3c
4 integer mpi_comm_world
5 parameter ( mpi_comm_world = 0 )
6c
7c Return values.
8c
9 integer mpi_failure
10 parameter ( mpi_failure = 1 )
11 integer mpi_success
12 parameter ( mpi_success = 0 )
13c
14c recv message status
15c
16 integer mpi_status_size
17 parameter ( mpi_status_size = 3 )
18 integer mpi_source
19 parameter ( mpi_source = 1 )
20 integer mpi_tag
21 parameter ( mpi_tag = 2 )
22 integer mpi_count
23 parameter ( mpi_count = 3 )
24 integer mpi_status_ignore(mpi_status_size)
25 integer mpi_info_null
26 parameter (mpi_info_null=0)
27c
28c recv flags
29c
30 integer mpi_any_source
31 parameter ( mpi_any_source = -1 )
32 integer mpi_any_tag
33 parameter ( mpi_any_tag = -1 )
34c
35c data types and sizes
36c
37 integer mpi_integer
38 parameter ( mpi_integer = 1 )
39 integer mpi_integer8
40 parameter ( mpi_integer8 = 6 )
41 integer mpi_real
42 parameter ( mpi_real = 2 )
43 integer mpi_double_precision
44 parameter ( mpi_double_precision = 3 )
45 integer mpi_logical
46 parameter ( mpi_logical = 4 )
47 integer mpi_character
48 parameter ( mpi_character = 5 )
49 integer mpi_byte
50 parameter (mpi_byte=1)
51c
52c allreduce operations
53c
54 integer mpi_sum
55 parameter ( mpi_sum = 1 )
56 integer mpi_max
57 parameter ( mpi_max = 2 )
58 integer mpi_min
59 parameter ( mpi_min = 3 )
60 integer mpi_product
61 parameter ( mpi_product = 4 )
62c
63c timer
64c
65 double precision mpi_wtime
66c
67c I/O
68c
69 integer mpi_mode_create
70 parameter (mpi_mode_create=1)
71 integer mpi_mode_rdonly
72 parameter (mpi_mode_rdonly=2)
73 integer mpi_mode_wronly
74 parameter (mpi_mode_wronly=4)
Note: See TracBrowser for help on using the repository browser.