1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
subroutine bi_f77_init()
integer ierr
call mpi_init(ierr)
return
end
*
SUBROUTINE BI_F77_GET_CONSTANTS(F77COMMWORLD, SETUP, CONST)
INCLUDE 'mpif.h'
INTEGER F77COMMWORLD, SETUP
INTEGER CONST(*)
*
F77COMMWORLD = MPI_COMM_WORLD
IF (SETUP .NE. 0) THEN
CONST( 1) = MPI_SUCCESS
CONST( 2) = MPI_ERR_UNKNOWN
CONST( 3) = MPI_ERR_OTHER
CONST( 4) = MPI_ERR_INTERN
CONST( 5) = MPI_ANY_SOURCE
CONST( 6) = MPI_UNDEFINED
CONST( 7) = MPI_STATUS_SIZE
CONST( 8) = MPI_SOURCE
CONST( 9) = MPI_TAG
CONST(10) = MPI_INTEGER
CONST(11) = MPI_REAL
CONST(12) = MPI_DOUBLE_PRECISION
CONST(13) = MPI_COMPLEX
CONST(14) = MPI_DOUBLE_COMPLEX
CONST(15) = MPI_PACKED
CONST(16) = MPI_BYTE
CONST(17) = MPI_COMM_WORLD
CONST(18) = MPI_COMM_NULL
CONST(19) = MPI_TAG_UB
CONST(20) = MPI_MAX
CONST(21) = MPI_MIN
CONST(22) = MPI_SUM
CONST(23) = MPI_REQUEST_NULL
END IF
*
RETURN
END
|
