OpenAD/code_heat_transport_MPI/OADmpiStubs.F

#include "CPP_EEMACROS.h"

C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
C AWAITALL
C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      subroutine  ampi_awaitall (  
     +            count, 
     +            requests, 
     +            statuses, 
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_awaitall.f
        include 'mpif.h'
      
        integer count
        integer requests(*)
        integer statuses(MPI_STATUS_SIZE,*)
        integer ierror  
      
C do nothing
      
      end 
      
C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
C ISEND
C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      subroutine  ampi_isend_RL (  
     +            buf,  
     +            count, 
     +            datatype, 
     +            dest, 
     +            tag, 
     +            comm, 
     +            request, 
     +            requestCount, 
     +            status, 
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
        use oadMPIwrapper
        include 'mpif.h'
      
        _RL buf(*)
        integer count
        integer datatype
        integer dest
        integer tag
        integer comm
        integer request
        integer requestCount
        integer status(MPI_STATUS_SIZE)
        integer ierror  
      
        oadGBuf(1)=buf(1)
      
      end 

      subroutine  ampi_isend_RS (  
     +            buf,  
     +            count, 
     +            datatype, 
     +            dest, 
     +            tag, 
     +            comm, 
     +            request, 
     +            requestCount, 
     +            status, 
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
      
        use oadMPIwrapper
        include 'mpif.h'
      
        _RS buf(*)
        integer count
        integer datatype
        integer dest
        integer tag
        integer comm
        integer request
        integer requestCount
        integer status(MPI_STATUS_SIZE)
        integer ierror  
      
        oadGBuf(1)=buf(1)
      
      end 

      subroutine  ampi_isend_R4 (  
     +            buf,  
     +            count, 
     +            datatype, 
     +            dest, 
     +            tag, 
     +            comm, 
     +            request, 
     +            requestCount, 
     +            status, 
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
      
        use oadMPIwrapper
        include 'mpif.h'
      
        _R4 buf(*)
        integer count
        integer datatype
        integer dest
        integer tag
        integer comm
        integer request
        integer requestCount
        integer status(MPI_STATUS_SIZE)
        integer ierror  
      
        oadGBuf(1)=buf(1)
      
      end 

      subroutine  ampi_isend_R8 (  
     +            buf,  
     +            count, 
     +            datatype, 
     +            dest, 
     +            tag, 
     +            comm, 
     +            request, 
     +            requestCount, 
     +            status, 
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
      
        use oadMPIwrapper
        include 'mpif.h'
      
        _R8 buf(*)
        integer count
        integer datatype
        integer dest
        integer tag
        integer comm
        integer request
        integer requestCount
        integer status(MPI_STATUS_SIZE)
        integer ierror  
      
        oadGBuf(1)=buf(1)
      
      end 

C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
C RECV
C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      subroutine  ampi_recv_RL (  
     +            buf,  
     +            count, 
     +            datatype, 
     +            src, 
     +            tag, 
     +            comm, 
     +            request, 
     +            requestCount, 
     +            status,
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
      
        use oadMPIwrapper
        include 'mpif.h'
      
        _RL buf(*)
        integer count
        integer datatype
        integer src
        integer tag
        integer comm
        integer request
        integer requestCount
        integer status(MPI_STATUS_SIZE)
        integer ierror  
      
        buf(1)=oadGBuf(1)
      
      end 
      
      subroutine  ampi_recv_RS (  
     +            buf,  
     +            count, 
     +            datatype, 
     +            src, 
     +            tag, 
     +            comm, 
     +            request, 
     +            requestCount, 
     +            status,
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
      
        use oadMPIwrapper
        include 'mpif.h'
      
        _RS buf(*)
        integer count
        integer datatype
        integer src
        integer tag
        integer comm
        integer request
        integer requestCount
        integer status(MPI_STATUS_SIZE)
        integer ierror  
      
        buf(1)=oadGBuf(1)
      
      end 
      
      subroutine  ampi_recv_R4 (  
     +            buf,  
     +            count, 
     +            datatype, 
     +            src, 
     +            tag, 
     +            comm, 
     +            request, 
     +            requestCount, 
     +            status,
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
      
        use oadMPIwrapper
        include 'mpif.h'
      
        _R4 buf(*)
        integer count
        integer datatype
        integer src
        integer tag
        integer comm
        integer request
        integer requestCount
        integer status(MPI_STATUS_SIZE)
        integer ierror  
      
        buf(1)=oadGBuf(1)
      
      end 
      
      subroutine  ampi_recv_R8 (  
     +            buf,  
     +            count, 
     +            datatype, 
     +            src, 
     +            tag, 
     +            comm, 
     +            request, 
     +            requestCount, 
     +            status,
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
      
        use oadMPIwrapper
        include 'mpif.h'
      
        _R8 buf(*)
        integer count
        integer datatype
        integer src
        integer tag
        integer comm
        integer request
        integer requestCount
        integer status(MPI_STATUS_SIZE)
        integer ierror  
      
        buf(1)=oadGBuf(1)
      
      end 
      
C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
C WAITALL
C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      subroutine  ampi_waitall (  
     +            count, 
     +            requests, 
     +            statuses, 
     +            ierror)
C$openad xxx template ../code_heat_transport_MPI/oad_t_waitall.f
        include 'mpif.h'
      
        integer count
        integer requests(*)
        integer statuses(MPI_STATUS_SIZE,*)
        integer ierror  
      
       end 
      
1	utke	1.1	#include "CPP_EEMACROS.h"
2
3			C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
4			C AWAITALL
5			C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
6			subroutine ampi_awaitall (
7			+ count,
8			+ requests,
9			+ statuses,
10			+ ierror)
11			C$openad xxx template ../code_heat_transport_MPI/oad_t_awaitall.f
12			include 'mpif.h'
13
14			integer count
15			integer requests(*)
16			integer statuses(MPI_STATUS_SIZE,*)
17			integer ierror
18
19			C do nothing
20
21			end
22
23			C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
24			C ISEND
25			C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
26			subroutine ampi_isend_RL (
27			+ buf,
28			+ count,
29			+ datatype,
30			+ dest,
31			+ tag,
32			+ comm,
33			+ request,
34	utke	1.2	+ requestCount,
35			+ status,
36	utke	1.1	+ ierror)
37			C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
38			use oadMPIwrapper
39	utke	1.2	include 'mpif.h'
40	utke	1.1
41			_RL buf(*)
42			integer count
43			integer datatype
44			integer dest
45			integer tag
46			integer comm
47			integer request
48	utke	1.2	integer requestCount
49			integer status(MPI_STATUS_SIZE)
50	utke	1.1	integer ierror
51
52			oadGBuf(1)=buf(1)
53
54			end
55
56			subroutine ampi_isend_RS (
57			+ buf,
58			+ count,
59			+ datatype,
60			+ dest,
61			+ tag,
62			+ comm,
63			+ request,
64	utke	1.2	+ requestCount,
65			+ status,
66	utke	1.1	+ ierror)
67			C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
68
69			use oadMPIwrapper
70	utke	1.2	include 'mpif.h'
71	utke	1.1
72			_RS buf(*)
73			integer count
74			integer datatype
75			integer dest
76			integer tag
77			integer comm
78			integer request
79	utke	1.2	integer requestCount
80			integer status(MPI_STATUS_SIZE)
81	utke	1.1	integer ierror
82
83			oadGBuf(1)=buf(1)
84
85			end
86
87			subroutine ampi_isend_R4 (
88			+ buf,
89			+ count,
90			+ datatype,
91			+ dest,
92			+ tag,
93			+ comm,
94			+ request,
95	utke	1.2	+ requestCount,
96			+ status,
97	utke	1.1	+ ierror)
98			C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
99
100			use oadMPIwrapper
101	utke	1.2	include 'mpif.h'
102	utke	1.1
103			_R4 buf(*)
104			integer count
105			integer datatype
106			integer dest
107			integer tag
108			integer comm
109			integer request
110	utke	1.2	integer requestCount
111			integer status(MPI_STATUS_SIZE)
112	utke	1.1	integer ierror
113
114			oadGBuf(1)=buf(1)
115
116			end
117
118			subroutine ampi_isend_R8 (
119			+ buf,
120			+ count,
121			+ datatype,
122			+ dest,
123			+ tag,
124			+ comm,
125			+ request,
126	utke	1.2	+ requestCount,
127			+ status,
128	utke	1.1	+ ierror)
129			C$openad xxx template ../code_heat_transport_MPI/oad_t_isend.f
130
131			use oadMPIwrapper
132	utke	1.2	include 'mpif.h'
133	utke	1.1
134			_R8 buf(*)
135			integer count
136			integer datatype
137			integer dest
138			integer tag
139			integer comm
140			integer request
141	utke	1.2	integer requestCount
142			integer status(MPI_STATUS_SIZE)
143	utke	1.1	integer ierror
144
145			oadGBuf(1)=buf(1)
146
147			end
148
149			C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
150			C RECV
151			C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
152			subroutine ampi_recv_RL (
153			+ buf,
154			+ count,
155			+ datatype,
156			+ src,
157			+ tag,
158			+ comm,
159	utke	1.2	+ request,
160			+ requestCount,
161	utke	1.1	+ status,
162			+ ierror)
163			C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
164
165			use oadMPIwrapper
166			include 'mpif.h'
167
168			_RL buf(*)
169			integer count
170			integer datatype
171			integer src
172			integer tag
173			integer comm
174	utke	1.2	integer request
175			integer requestCount
176	utke	1.1	integer status(MPI_STATUS_SIZE)
177			integer ierror
178
179			buf(1)=oadGBuf(1)
180
181			end
182
183			subroutine ampi_recv_RS (
184			+ buf,
185			+ count,
186			+ datatype,
187			+ src,
188			+ tag,
189			+ comm,
190	utke	1.2	+ request,
191			+ requestCount,
192	utke	1.1	+ status,
193			+ ierror)
194			C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
195
196			use oadMPIwrapper
197			include 'mpif.h'
198
199			_RS buf(*)
200			integer count
201			integer datatype
202			integer src
203			integer tag
204			integer comm
205	utke	1.2	integer request
206			integer requestCount
207	utke	1.1	integer status(MPI_STATUS_SIZE)
208			integer ierror
209
210			buf(1)=oadGBuf(1)
211
212			end
213
214			subroutine ampi_recv_R4 (
215			+ buf,
216			+ count,
217			+ datatype,
218			+ src,
219			+ tag,
220			+ comm,
221	utke	1.2	+ request,
222			+ requestCount,
223	utke	1.1	+ status,
224			+ ierror)
225			C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
226
227			use oadMPIwrapper
228			include 'mpif.h'
229
230			_R4 buf(*)
231			integer count
232			integer datatype
233			integer src
234			integer tag
235			integer comm
236	utke	1.2	integer request
237			integer requestCount
238	utke	1.1	integer status(MPI_STATUS_SIZE)
239			integer ierror
240
241			buf(1)=oadGBuf(1)
242
243			end
244
245			subroutine ampi_recv_R8 (
246			+ buf,
247			+ count,
248			+ datatype,
249			+ src,
250			+ tag,
251			+ comm,
252	utke	1.2	+ request,
253			+ requestCount,
254	utke	1.1	+ status,
255			+ ierror)
256			C$openad xxx template ../code_heat_transport_MPI/oad_t_recv.f
257
258			use oadMPIwrapper
259			include 'mpif.h'
260
261			_R8 buf(*)
262			integer count
263			integer datatype
264			integer src
265			integer tag
266			integer comm
267	utke	1.2	integer request
268			integer requestCount
269	utke	1.1	integer status(MPI_STATUS_SIZE)
270			integer ierror
271
272			buf(1)=oadGBuf(1)
273
274			end
275
276			C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
277			C WAITALL
278			C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
279			subroutine ampi_waitall (
280			+ count,
281			+ requests,
282			+ statuses,
283			+ ierror)
284			C$openad xxx template ../code_heat_transport_MPI/oad_t_waitall.f
285			include 'mpif.h'
286
287			integer count
288			integer requests(*)
289			integer statuses(MPI_STATUS_SIZE,*)
290			integer ierror
291
292			end
293