This source file includes following definitions.
- Java_mpi_Intercomm_getRemoteSize_1jni
- Java_mpi_Intercomm_getRemoteGroup_1jni
- Java_mpi_Intercomm_merge_1jni
- Java_mpi_Intercomm_getParent_1jni
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
42
43
44
45
46
47 #include "ompi_config.h"
48
49 #ifdef HAVE_TARGETCONDITIONALS_H
50 #include <TargetConditionals.h>
51 #endif
52
53 #include "mpi.h"
54 #include "mpi_Intercomm.h"
55 #include "mpiJava.h"
56
57
58
59
60
61
62
63 JNIEXPORT jint JNICALL Java_mpi_Intercomm_getRemoteSize_1jni(
64 JNIEnv *env, jobject jthis)
65 {
66 int size, rc;
67
68 rc = MPI_Comm_remote_size(
69 (MPI_Comm)((*env)->GetLongField(env,jthis,ompi_java.CommHandle)),
70 &size);
71
72 ompi_java_exceptionCheck(env, rc);
73 return size;
74 }
75
76
77
78
79
80
81 JNIEXPORT jlong JNICALL Java_mpi_Intercomm_getRemoteGroup_1jni(
82 JNIEnv *env, jobject jthis)
83 {
84 MPI_Group group;
85
86 int rc = MPI_Comm_remote_group(
87 (MPI_Comm)((*env)->GetLongField(env,jthis,ompi_java.CommHandle)),
88 &group);
89
90 ompi_java_exceptionCheck(env, rc);
91 return (jlong)group;
92 }
93
94
95
96
97
98
99 JNIEXPORT jlong JNICALL Java_mpi_Intercomm_merge_1jni(
100 JNIEnv *env, jobject jthis, jboolean high)
101 {
102 MPI_Comm newintracomm;
103
104 int rc = MPI_Intercomm_merge(
105 (MPI_Comm)((*env)->GetLongField(env,jthis,ompi_java.CommHandle)),
106 high, &newintracomm);
107
108 ompi_java_exceptionCheck(env, rc);
109 return (jlong)newintracomm;
110 }
111
112
113
114
115
116
117 JNIEXPORT jlong JNICALL Java_mpi_Intercomm_getParent_1jni(
118 JNIEnv *env, jclass clazz)
119 {
120 MPI_Comm parent;
121 int rc = MPI_Comm_get_parent(&parent);
122 ompi_java_exceptionCheck(env, rc);
123 return (jlong)parent;
124 }