← Back to branch summary

~ubuntu-branches/ubuntu/trusty/nwchem/trusty-proposed

« back to all changes in this revision

Viewing changes to src/tools/ga-5-2/armci/f90/armci_nbmov.f90

  • Committer: Package Import Robot
  • Author(s): Michael Banck, Daniel Leidert, Andreas Tille, Michael Banck
  • Date: 2013-07-04 12:14:55 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20130704121455-5tvsx2qabor3nrui
Tags: 6.3-1
http://bugs.debian.org/696361
* New upstream release.
* Fixes anisotropic properties (Closes: #696361).
* New features include:
  + Multi-reference coupled cluster (MRCC) approaches
  + Hybrid DFT calculations with short-range HF 
  + New density-functionals including Minnesota (M08, M11) and HSE hybrid
    functionals
  + X-ray absorption spectroscopy (XAS) with TDDFT
  + Analytical gradients for the COSMO solvation model
  + Transition densities from TDDFT 
  + DFT+U and Electron-Transfer (ET) methods for plane wave calculations
  + Exploitation of space group symmetry in plane wave geometry optimizations
  + Local density of states (LDOS) collective variable added to Metadynamics
  + Various new XC functionals added for plane wave calculations, including
    hybrid and range-corrected ones
  + Electric field gradients with relativistic corrections 
  + Nudged Elastic Band optimization method
  + Updated basis sets and ECPs 

[ Daniel Leidert ]
* debian/watch: Fixed.

[ Andreas Tille ]
* debian/upstream: References

[ Michael Banck ]
* debian/upstream (Name): New field.
* debian/patches/02_makefile_flags.patch: Refreshed.
* debian/patches/06_statfs_kfreebsd.patch: Likewise.
* debian/patches/07_ga_target_force_linux.patch: Likewise.
* debian/patches/05_avoid_inline_assembler.patch: Removed, no longer needed.
* debian/patches/09_backported_6.1.1_fixes.patch: Likewise.
* debian/control (Build-Depends): Added gfortran-4.7 and gcc-4.7.
* debian/patches/10_force_gcc-4.7.patch: New patch, explicitly sets
  gfortran-4.7 and gcc-4.7, fixes test suite hang with gcc-4.8 (Closes:
  #701328, #713262).
* debian/testsuite: Added tests for COSMO analytical gradients and MRCC.
* debian/rules (MRCC_METHODS): New variable, required to enable MRCC methods.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tools/ga-5-2/armci/f90/armci_nbmov.f90
 
1
module ARMCI_NbMov
 
2
 
 
3
use armci_types
 
4
interface ARMCI_NbPut_fa
 
5
  module procedure ARMCI_NbPut_1di4
 
6
  module procedure ARMCI_NbPut_2di4
 
7
  module procedure ARMCI_NbPut_3di4
 
8
  module procedure ARMCI_NbPut_4di4
 
9
  module procedure ARMCI_NbPut_5di4
 
10
  module procedure ARMCI_NbPut_6di4
 
11
  module procedure ARMCI_NbPut_7di4
 
12
  module procedure ARMCI_NbPut_1di8
 
13
  module procedure ARMCI_NbPut_2di8
 
14
  module procedure ARMCI_NbPut_3di8
 
15
  module procedure ARMCI_NbPut_4di8
 
16
  module procedure ARMCI_NbPut_5di8
 
17
  module procedure ARMCI_NbPut_6di8
 
18
  module procedure ARMCI_NbPut_7di8
 
19
  module procedure ARMCI_NbPut_1dr4
 
20
  module procedure ARMCI_NbPut_2dr4
 
21
  module procedure ARMCI_NbPut_3dr4
 
22
  module procedure ARMCI_NbPut_4dr4
 
23
  module procedure ARMCI_NbPut_5dr4
 
24
  module procedure ARMCI_NbPut_6dr4
 
25
  module procedure ARMCI_NbPut_7dr4
 
26
  module procedure ARMCI_NbPut_1dr8
 
27
  module procedure ARMCI_NbPut_2dr8
 
28
  module procedure ARMCI_NbPut_3dr8
 
29
  module procedure ARMCI_NbPut_4dr8
 
30
  module procedure ARMCI_NbPut_5dr8
 
31
  module procedure ARMCI_NbPut_6dr8
 
32
  module procedure ARMCI_NbPut_7dr8
 
33
  module procedure ARMCI_NbPut_1dc4
 
34
  module procedure ARMCI_NbPut_2dc4
 
35
  module procedure ARMCI_NbPut_3dc4
 
36
  module procedure ARMCI_NbPut_4dc4
 
37
  module procedure ARMCI_NbPut_5dc4
 
38
  module procedure ARMCI_NbPut_6dc4
 
39
  module procedure ARMCI_NbPut_7dc4
 
40
  module procedure ARMCI_NbPut_1dc8
 
41
  module procedure ARMCI_NbPut_2dc8
 
42
  module procedure ARMCI_NbPut_3dc8
 
43
  module procedure ARMCI_NbPut_4dc8
 
44
  module procedure ARMCI_NbPut_5dc8
 
45
  module procedure ARMCI_NbPut_6dc8
 
46
  module procedure ARMCI_NbPut_7dc8
 
47
end interface
 
48
 
 
49
interface ARMCI_NbGet_fa
 
50
  module procedure ARMCI_NbGet_1di4
 
51
  module procedure ARMCI_NbGet_2di4
 
52
  module procedure ARMCI_NbGet_3di4
 
53
  module procedure ARMCI_NbGet_4di4
 
54
  module procedure ARMCI_NbGet_5di4
 
55
  module procedure ARMCI_NbGet_6di4
 
56
  module procedure ARMCI_NbGet_7di4
 
57
  module procedure ARMCI_NbGet_1di8
 
58
  module procedure ARMCI_NbGet_2di8
 
59
  module procedure ARMCI_NbGet_3di8
 
60
  module procedure ARMCI_NbGet_4di8
 
61
  module procedure ARMCI_NbGet_5di8
 
62
  module procedure ARMCI_NbGet_6di8
 
63
  module procedure ARMCI_NbGet_7di8
 
64
  module procedure ARMCI_NbGet_1dr4
 
65
  module procedure ARMCI_NbGet_2dr4
 
66
  module procedure ARMCI_NbGet_3dr4
 
67
  module procedure ARMCI_NbGet_4dr4
 
68
  module procedure ARMCI_NbGet_5dr4
 
69
  module procedure ARMCI_NbGet_6dr4
 
70
  module procedure ARMCI_NbGet_7dr4
 
71
  module procedure ARMCI_NbGet_1dr8
 
72
  module procedure ARMCI_NbGet_2dr8
 
73
  module procedure ARMCI_NbGet_3dr8
 
74
  module procedure ARMCI_NbGet_4dr8
 
75
  module procedure ARMCI_NbGet_5dr8
 
76
  module procedure ARMCI_NbGet_6dr8
 
77
  module procedure ARMCI_NbGet_7dr8
 
78
  module procedure ARMCI_NbGet_1dc4
 
79
  module procedure ARMCI_NbGet_2dc4
 
80
  module procedure ARMCI_NbGet_3dc4
 
81
  module procedure ARMCI_NbGet_4dc4
 
82
  module procedure ARMCI_NbGet_5dc4
 
83
  module procedure ARMCI_NbGet_6dc4
 
84
  module procedure ARMCI_NbGet_7dc4
 
85
  module procedure ARMCI_NbGet_1dc8
 
86
  module procedure ARMCI_NbGet_2dc8
 
87
  module procedure ARMCI_NbGet_3dc8
 
88
  module procedure ARMCI_NbGet_4dc8
 
89
  module procedure ARMCI_NbGet_5dc8
 
90
  module procedure ARMCI_NbGet_6dc8
 
91
  module procedure ARMCI_NbGet_7dc8
 
92
end interface
 
93
 
 
94
contains 
 
95
 
 
96
subroutine ARMCI_NbPut_1di4(src, src_slc, dst, dst_slc, proc, rc)
 
97
  use definekind
 
98
!  implicit none
 
99
  interface
 
100
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
101
      use definekind
 
102
      use ARMCI_types
 
103
      integer(kind=I4), dimension(:), pointer :: src, dst
 
104
      type(ARMCI_slice), intent(in) :: src_slc, dst_slc
 
105
      integer, intent(in) :: proc, rank
 
106
      integer, intent(out) :: rc
 
107
    end subroutine ARMCI_NbPut_farrays
 
108
  end interface
 
109
  integer(kind=I4), dimension(:), pointer :: src, dst
 
110
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
111
  integer, intent(in)                     :: proc
 
112
  integer, intent(out)                    :: rc
 
113
  integer :: rank
 
114
 
 
115
  rank = 1
 
116
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
117
 
 
118
end subroutine ARMCI_NbPut_1di4
 
119
 
 
120
subroutine ARMCI_NbPut_2di4(src, src_slc, dst, dst_slc, proc, rc)
 
121
  use definekind
 
122
!  implicit none
 
123
  interface
 
124
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
125
      use definekind
 
126
      use armci_types
 
127
      integer(kind=I4), dimension(:,:), pointer :: src, dst
 
128
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
129
      integer, intent(in) :: proc, rank
 
130
      integer, intent(out) :: rc
 
131
    end subroutine ARMCI_NbPut_farrays
 
132
  end interface
 
133
  integer(kind=I4), dimension(:,:), pointer :: src, dst
 
134
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
135
  integer, intent(in)                       :: proc
 
136
  integer, intent(out)                      :: rc
 
137
  integer :: rank
 
138
 
 
139
  rank = 2
 
140
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
141
 
 
142
end subroutine ARMCI_NbPut_2di4
 
143
 
 
144
subroutine ARMCI_NbPut_3di4(src, src_slc, dst, dst_slc, proc, rc)
 
145
  use definekind
 
146
!  implicit none
 
147
  interface
 
148
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
149
      use definekind
 
150
      use armci_types
 
151
      integer(kind=I4), dimension(:,:,:), pointer :: src, dst
 
152
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
153
      integer, intent(in) :: proc, rank
 
154
      integer, intent(out) :: rc
 
155
    end subroutine ARMCI_NbPut_farrays
 
156
  end interface
 
157
  integer(kind=I4), dimension(:,:,:), pointer :: src, dst
 
158
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
159
  integer, intent(in)                       :: proc
 
160
  integer, intent(out)                      :: rc
 
161
  integer :: rank
 
162
 
 
163
  rank = 3
 
164
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
165
 
 
166
end subroutine ARMCI_NbPut_3di4
 
167
 
 
168
subroutine ARMCI_NbPut_4di4(src, src_slc, dst, dst_slc, proc, rc)
 
169
  use definekind
 
170
!  implicit none
 
171
  interface
 
172
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
173
      use definekind
 
174
      use armci_types
 
175
      integer(kind=I4), dimension(:,:,:,:), pointer :: src, dst
 
176
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
177
      integer, intent(in) :: proc, rank
 
178
      integer, intent(out) :: rc
 
179
    end subroutine ARMCI_NbPut_farrays
 
180
  end interface
 
181
  integer(kind=I4), dimension(:,:,:,:), pointer :: src, dst
 
182
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
183
  integer, intent(in)                       :: proc
 
184
  integer, intent(out)                      :: rc
 
185
  integer :: rank
 
186
 
 
187
  rank = 4
 
188
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
189
 
 
190
end subroutine ARMCI_NbPut_4di4
 
191
 
 
192
subroutine ARMCI_NbPut_5di4(src, src_slc, dst, dst_slc, proc, rc)
 
193
  use definekind
 
194
!  implicit none
 
195
  interface
 
196
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
197
      use definekind
 
198
      use armci_types
 
199
      integer(kind=I4), dimension(:,:,:,:,:), pointer :: src, dst
 
200
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
201
      integer, intent(in) :: proc, rank
 
202
      integer, intent(out) :: rc
 
203
    end subroutine ARMCI_NbPut_farrays
 
204
  end interface
 
205
  integer(kind=I4), dimension(:,:,:,:,:), pointer :: src, dst
 
206
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
207
  integer, intent(in)                       :: proc
 
208
  integer, intent(out)                      :: rc
 
209
  integer :: rank
 
210
 
 
211
  rank = 5
 
212
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
213
 
 
214
end subroutine ARMCI_NbPut_5di4
 
215
 
 
216
subroutine ARMCI_NbPut_6di4(src, src_slc, dst, dst_slc, proc, rc)
 
217
  use definekind
 
218
!  implicit none
 
219
  interface
 
220
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
221
      use definekind
 
222
      use armci_types
 
223
      integer(kind=I4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
224
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
225
      integer, intent(in) :: proc, rank
 
226
      integer, intent(out) :: rc
 
227
    end subroutine ARMCI_NbPut_farrays
 
228
  end interface
 
229
  integer(kind=I4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
230
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
231
  integer, intent(in)                       :: proc
 
232
  integer, intent(out)                      :: rc
 
233
  integer :: rank
 
234
 
 
235
  rank = 6
 
236
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
237
 
 
238
end subroutine ARMCI_NbPut_6di4
 
239
 
 
240
subroutine ARMCI_NbPut_7di4(src, src_slc, dst, dst_slc, proc, rc)
 
241
  use definekind
 
242
!  implicit none
 
243
  interface
 
244
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
245
      use definekind
 
246
      use armci_types
 
247
      integer(kind=I4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
248
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
249
      integer, intent(in) :: proc, rank
 
250
      integer, intent(out) :: rc
 
251
    end subroutine ARMCI_NbPut_farrays
 
252
  end interface
 
253
  integer(kind=I4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
254
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
255
  integer, intent(in)                       :: proc
 
256
  integer, intent(out)                      :: rc
 
257
  integer :: rank
 
258
 
 
259
  rank = 7
 
260
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
261
 
 
262
end subroutine ARMCI_NbPut_7di4
 
263
 
 
264
subroutine ARMCI_NbPut_1di8(src, src_slc, dst, dst_slc, proc, rc)
 
265
  use definekind
 
266
!  implicit none
 
267
  interface
 
268
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
269
      use definekind
 
270
      use armci_types
 
271
      integer(kind=I8), dimension(:), pointer :: src, dst
 
272
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
273
      integer, intent(in) :: proc, rank
 
274
      integer, intent(out) :: rc
 
275
    end subroutine ARMCI_NbPut_farrays
 
276
  end interface
 
277
  integer(kind=I8), dimension(:), pointer :: src, dst
 
278
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
279
  integer, intent(in)                     :: proc
 
280
  integer, intent(out)                    :: rc
 
281
  integer :: rank
 
282
 
 
283
  rank = 1
 
284
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
285
 
 
286
end subroutine ARMCI_NbPut_1di8
 
287
 
 
288
subroutine ARMCI_NbPut_2di8(src, src_slc, dst, dst_slc, proc, rc)
 
289
  use definekind
 
290
!  implicit none
 
291
  interface
 
292
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
293
      use definekind
 
294
      use armci_types
 
295
      integer(kind=I8), dimension(:,:), pointer :: src, dst
 
296
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
297
      integer, intent(in) :: proc, rank
 
298
      integer, intent(out) :: rc
 
299
    end subroutine ARMCI_NbPut_farrays
 
300
  end interface
 
301
  integer(kind=I8), dimension(:,:), pointer :: src, dst
 
302
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
303
  integer, intent(in)                       :: proc
 
304
  integer, intent(out)                      :: rc
 
305
  integer :: rank
 
306
 
 
307
  rank = 2
 
308
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
309
 
 
310
end subroutine ARMCI_NbPut_2di8
 
311
 
 
312
subroutine ARMCI_NbPut_3di8(src, src_slc, dst, dst_slc, proc, rc)
 
313
  use definekind
 
314
!  implicit none
 
315
  interface
 
316
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
317
      use definekind
 
318
      use armci_types
 
319
      integer(kind=I8), dimension(:,:,:), pointer :: src, dst
 
320
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
321
      integer, intent(in) :: proc, rank
 
322
      integer, intent(out) :: rc
 
323
    end subroutine ARMCI_NbPut_farrays
 
324
  end interface
 
325
  integer(kind=I8), dimension(:,:,:), pointer :: src, dst
 
326
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
327
  integer, intent(in)                       :: proc
 
328
  integer, intent(out)                      :: rc
 
329
  integer :: rank
 
330
 
 
331
  rank = 3
 
332
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
333
 
 
334
end subroutine ARMCI_NbPut_3di8
 
335
 
 
336
subroutine ARMCI_NbPut_4di8(src, src_slc, dst, dst_slc, proc, rc)
 
337
  use definekind
 
338
!  implicit none
 
339
  interface
 
340
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
341
      use definekind
 
342
      use armci_types
 
343
      integer(kind=I8), dimension(:,:,:,:), pointer :: src, dst
 
344
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
345
      integer, intent(in) :: proc, rank
 
346
      integer, intent(out) :: rc
 
347
    end subroutine ARMCI_NbPut_farrays
 
348
  end interface
 
349
  integer(kind=I8), dimension(:,:,:,:), pointer :: src, dst
 
350
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
351
  integer, intent(in)                       :: proc
 
352
  integer, intent(out)                      :: rc
 
353
  integer :: rank
 
354
 
 
355
  rank = 4
 
356
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
357
 
 
358
end subroutine ARMCI_NbPut_4di8
 
359
 
 
360
subroutine ARMCI_NbPut_5di8(src, src_slc, dst, dst_slc, proc, rc)
 
361
  use definekind
 
362
!  implicit none
 
363
  interface
 
364
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
365
      use definekind
 
366
      use armci_types
 
367
      integer(kind=I8), dimension(:,:,:,:,:), pointer :: src, dst
 
368
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
369
      integer, intent(in) :: proc, rank
 
370
      integer, intent(out) :: rc
 
371
    end subroutine ARMCI_NbPut_farrays
 
372
  end interface
 
373
  integer(kind=I8), dimension(:,:,:,:,:), pointer :: src, dst
 
374
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
375
  integer, intent(in)                       :: proc
 
376
  integer, intent(out)                      :: rc
 
377
  integer :: rank
 
378
 
 
379
  rank = 5
 
380
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
381
 
 
382
end subroutine ARMCI_NbPut_5di8
 
383
 
 
384
subroutine ARMCI_NbPut_6di8(src, src_slc, dst, dst_slc, proc, rc)
 
385
  use definekind
 
386
!  implicit none
 
387
  interface
 
388
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
389
      use definekind
 
390
      use armci_types
 
391
      integer(kind=I8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
392
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
393
      integer, intent(in) :: proc, rank
 
394
      integer, intent(out) :: rc
 
395
    end subroutine ARMCI_NbPut_farrays
 
396
  end interface
 
397
  integer(kind=I8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
398
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
399
  integer, intent(in)                       :: proc
 
400
  integer, intent(out)                      :: rc
 
401
  integer :: rank
 
402
 
 
403
  rank = 6
 
404
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
405
 
 
406
end subroutine ARMCI_NbPut_6di8
 
407
 
 
408
subroutine ARMCI_NbPut_7di8(src, src_slc, dst, dst_slc, proc, rc)
 
409
  use definekind
 
410
!  implicit none
 
411
  interface
 
412
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
413
      use definekind
 
414
      use armci_types
 
415
      integer(kind=I8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
416
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
417
      integer, intent(in) :: proc, rank
 
418
      integer, intent(out) :: rc
 
419
    end subroutine ARMCI_NbPut_farrays
 
420
  end interface
 
421
  integer(kind=I8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
422
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
423
  integer, intent(in)                       :: proc
 
424
  integer, intent(out)                      :: rc
 
425
  integer :: rank
 
426
 
 
427
  rank = 7
 
428
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
429
 
 
430
end subroutine ARMCI_NbPut_7di8
 
431
 
 
432
subroutine ARMCI_NbPut_1dr4(src, src_slc, dst, dst_slc, proc, rc)
 
433
  use definekind
 
434
!  implicit none
 
435
  interface
 
436
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
437
      use definekind
 
438
      use armci_types
 
439
      real(kind=R4), dimension(:), pointer :: src, dst
 
440
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
441
      integer, intent(in) :: proc, rank
 
442
      integer, intent(out) :: rc
 
443
    end subroutine ARMCI_NbPut_farrays
 
444
  end interface
 
445
  real(kind=R4), dimension(:), pointer :: src, dst
 
446
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
447
  integer, intent(in)                     :: proc
 
448
  integer, intent(out)                    :: rc
 
449
  integer :: rank
 
450
 
 
451
  rank = 1
 
452
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
453
 
 
454
end subroutine ARMCI_NbPut_1dr4
 
455
 
 
456
subroutine ARMCI_NbPut_2dr4(src, src_slc, dst, dst_slc, proc, rc)
 
457
  use definekind
 
458
!  implicit none
 
459
  interface
 
460
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
461
      use definekind
 
462
      use armci_types
 
463
      real(kind=R4), dimension(:,:), pointer :: src, dst
 
464
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
465
      integer, intent(in) :: proc, rank
 
466
      integer, intent(out) :: rc
 
467
    end subroutine ARMCI_NbPut_farrays
 
468
  end interface
 
469
  real(kind=R4), dimension(:,:), pointer :: src, dst
 
470
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
471
  integer, intent(in)                       :: proc
 
472
  integer, intent(out)                      :: rc
 
473
  integer :: rank
 
474
 
 
475
  rank = 2
 
476
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
477
 
 
478
end subroutine ARMCI_NbPut_2dr4
 
479
 
 
480
subroutine ARMCI_NbPut_3dr4(src, src_slc, dst, dst_slc, proc, rc)
 
481
  use definekind
 
482
!  implicit none
 
483
  interface
 
484
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
485
      use definekind
 
486
      use armci_types
 
487
      real(kind=R4), dimension(:,:,:), pointer :: src, dst
 
488
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
489
      integer, intent(in) :: proc, rank
 
490
      integer, intent(out) :: rc
 
491
    end subroutine ARMCI_NbPut_farrays
 
492
  end interface
 
493
  real(kind=R4), dimension(:,:,:), pointer :: src, dst
 
494
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
495
  integer, intent(in)                       :: proc
 
496
  integer, intent(out)                      :: rc
 
497
  integer :: rank
 
498
 
 
499
  rank = 3
 
500
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
501
 
 
502
end subroutine ARMCI_NbPut_3dr4
 
503
 
 
504
subroutine ARMCI_NbPut_4dr4(src, src_slc, dst, dst_slc, proc, rc)
 
505
  use definekind
 
506
!  implicit none
 
507
  interface
 
508
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
509
      use definekind
 
510
      use armci_types
 
511
      real(kind=R4), dimension(:,:,:,:), pointer :: src, dst
 
512
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
513
      integer, intent(in) :: proc, rank
 
514
      integer, intent(out) :: rc
 
515
    end subroutine ARMCI_NbPut_farrays
 
516
  end interface
 
517
  real(kind=R4), dimension(:,:,:,:), pointer :: src, dst
 
518
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
519
  integer, intent(in)                       :: proc
 
520
  integer, intent(out)                      :: rc
 
521
  integer :: rank
 
522
 
 
523
  rank = 4
 
524
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
525
 
 
526
end subroutine ARMCI_NbPut_4dr4
 
527
 
 
528
subroutine ARMCI_NbPut_5dr4(src, src_slc, dst, dst_slc, proc, rc)
 
529
  use definekind
 
530
!  implicit none
 
531
  interface
 
532
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
533
      use definekind
 
534
      use armci_types
 
535
      real(kind=R4), dimension(:,:,:,:,:), pointer :: src, dst
 
536
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
537
      integer, intent(in) :: proc, rank
 
538
      integer, intent(out) :: rc
 
539
    end subroutine ARMCI_NbPut_farrays
 
540
  end interface
 
541
  real(kind=R4), dimension(:,:,:,:,:), pointer :: src, dst
 
542
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
543
  integer, intent(in)                       :: proc
 
544
  integer, intent(out)                      :: rc
 
545
  integer :: rank
 
546
 
 
547
  rank = 5
 
548
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
549
 
 
550
end subroutine ARMCI_NbPut_5dr4
 
551
 
 
552
subroutine ARMCI_NbPut_6dr4(src, src_slc, dst, dst_slc, proc, rc)
 
553
  use definekind
 
554
!  implicit none
 
555
  interface
 
556
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
557
      use definekind
 
558
      use armci_types
 
559
      real(kind=R4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
560
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
561
      integer, intent(in) :: proc, rank
 
562
      integer, intent(out) :: rc
 
563
    end subroutine ARMCI_NbPut_farrays
 
564
  end interface
 
565
  real(kind=R4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
566
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
567
  integer, intent(in)                       :: proc
 
568
  integer, intent(out)                      :: rc
 
569
  integer :: rank
 
570
 
 
571
  rank = 6
 
572
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
573
 
 
574
end subroutine ARMCI_NbPut_6dr4
 
575
 
 
576
subroutine ARMCI_NbPut_7dr4(src, src_slc, dst, dst_slc, proc, rc)
 
577
  use definekind
 
578
!  implicit none
 
579
  interface
 
580
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
581
      use definekind
 
582
      use armci_types
 
583
      real(kind=R4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
584
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
585
      integer, intent(in) :: proc, rank
 
586
      integer, intent(out) :: rc
 
587
    end subroutine ARMCI_NbPut_farrays
 
588
  end interface
 
589
  real(kind=R4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
590
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
591
  integer, intent(in)                       :: proc
 
592
  integer, intent(out)                      :: rc
 
593
  integer :: rank
 
594
 
 
595
  rank = 7
 
596
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
597
 
 
598
end subroutine ARMCI_NbPut_7dr4
 
599
 
 
600
subroutine ARMCI_NbPut_1dr8(src, src_slc, dst, dst_slc, proc, rc)
 
601
  use definekind
 
602
!  implicit none
 
603
  interface
 
604
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
605
      use definekind
 
606
      use armci_types
 
607
      real(kind=R8), dimension(:), pointer :: src, dst
 
608
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
609
      integer, intent(in) :: proc, rank
 
610
      integer, intent(out) :: rc
 
611
    end subroutine ARMCI_NbPut_farrays
 
612
  end interface
 
613
  real(kind=R8), dimension(:), pointer :: src, dst
 
614
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
615
  integer, intent(in)                     :: proc
 
616
  integer, intent(out)                    :: rc
 
617
  integer :: rank
 
618
 
 
619
  rank = 1
 
620
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
621
 
 
622
end subroutine ARMCI_NbPut_1dr8
 
623
 
 
624
subroutine ARMCI_NbPut_2dr8(src, src_slc, dst, dst_slc, proc, rc)
 
625
  use definekind
 
626
!  implicit none
 
627
  interface
 
628
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
629
      use definekind
 
630
      use armci_types
 
631
      real(kind=R8), dimension(:,:), pointer :: src, dst
 
632
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
633
      integer, intent(in) :: proc, rank
 
634
      integer, intent(out) :: rc
 
635
    end subroutine ARMCI_NbPut_farrays
 
636
  end interface
 
637
  real(kind=R8), dimension(:,:), pointer :: src, dst
 
638
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
639
  integer, intent(in)                       :: proc
 
640
  integer, intent(out)                      :: rc
 
641
  integer :: rank
 
642
 
 
643
  rank = 2
 
644
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
645
 
 
646
end subroutine ARMCI_NbPut_2dr8
 
647
 
 
648
subroutine ARMCI_NbPut_3dr8(src, src_slc, dst, dst_slc, proc, rc)
 
649
  use definekind
 
650
!  implicit none
 
651
  interface
 
652
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
653
      use definekind
 
654
      use armci_types
 
655
      real(kind=R8), dimension(:,:,:), pointer :: src, dst
 
656
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
657
      integer, intent(in) :: proc, rank
 
658
      integer, intent(out) :: rc
 
659
    end subroutine ARMCI_NbPut_farrays
 
660
  end interface
 
661
  real(kind=R8), dimension(:,:,:), pointer :: src, dst
 
662
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
663
  integer, intent(in)                       :: proc
 
664
  integer, intent(out)                      :: rc
 
665
  integer :: rank
 
666
 
 
667
  rank = 3
 
668
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
669
 
 
670
end subroutine ARMCI_NbPut_3dr8
 
671
 
 
672
subroutine ARMCI_NbPut_4dr8(src, src_slc, dst, dst_slc, proc, rc)
 
673
  use definekind
 
674
!  implicit none
 
675
  interface
 
676
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
677
      use definekind
 
678
      use armci_types
 
679
      real(kind=R8), dimension(:,:,:,:), pointer :: src, dst
 
680
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
681
      integer, intent(in) :: proc, rank
 
682
      integer, intent(out) :: rc
 
683
    end subroutine ARMCI_NbPut_farrays
 
684
  end interface
 
685
  real(kind=R8), dimension(:,:,:,:), pointer :: src, dst
 
686
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
687
  integer, intent(in)                       :: proc
 
688
  integer, intent(out)                      :: rc
 
689
  integer :: rank
 
690
 
 
691
  rank = 4
 
692
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
693
 
 
694
end subroutine ARMCI_NbPut_4dr8
 
695
 
 
696
subroutine ARMCI_NbPut_5dr8(src, src_slc, dst, dst_slc, proc, rc)
 
697
  use definekind
 
698
!  implicit none
 
699
  interface
 
700
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
701
      use definekind
 
702
      use armci_types
 
703
      real(kind=R8), dimension(:,:,:,:,:), pointer :: src, dst
 
704
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
705
      integer, intent(in) :: proc, rank
 
706
      integer, intent(out) :: rc
 
707
    end subroutine ARMCI_NbPut_farrays
 
708
  end interface
 
709
  real(kind=R8), dimension(:,:,:,:,:), pointer :: src, dst
 
710
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
711
  integer, intent(in)                       :: proc
 
712
  integer, intent(out)                      :: rc
 
713
  integer :: rank
 
714
 
 
715
  rank = 5
 
716
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
717
 
 
718
end subroutine ARMCI_NbPut_5dr8
 
719
 
 
720
subroutine ARMCI_NbPut_6dr8(src, src_slc, dst, dst_slc, proc, rc)
 
721
  use definekind
 
722
!  implicit none
 
723
  interface
 
724
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
725
      use definekind
 
726
      use armci_types
 
727
      real(kind=R8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
728
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
729
      integer, intent(in) :: proc, rank
 
730
      integer, intent(out) :: rc
 
731
    end subroutine ARMCI_NbPut_farrays
 
732
  end interface
 
733
  real(kind=R8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
734
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
735
  integer, intent(in)                       :: proc
 
736
  integer, intent(out)                      :: rc
 
737
  integer :: rank
 
738
 
 
739
  rank = 6
 
740
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
741
 
 
742
end subroutine ARMCI_NbPut_6dr8
 
743
 
 
744
subroutine ARMCI_NbPut_7dr8(src, src_slc, dst, dst_slc, proc, rc)
 
745
  use definekind
 
746
!  implicit none
 
747
  interface
 
748
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
749
      use definekind
 
750
      use armci_types
 
751
      real(kind=R8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
752
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
753
      integer, intent(in) :: proc, rank
 
754
      integer, intent(out) :: rc
 
755
    end subroutine ARMCI_NbPut_farrays
 
756
  end interface
 
757
  real(kind=R8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
758
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
759
  integer, intent(in)                       :: proc
 
760
  integer, intent(out)                      :: rc
 
761
  integer :: rank
 
762
 
 
763
  rank = 7
 
764
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
765
 
 
766
end subroutine ARMCI_NbPut_7dr8
 
767
 
 
768
subroutine ARMCI_NbPut_1dc4(src, src_slc, dst, dst_slc, proc, rc)
 
769
  use definekind
 
770
!  implicit none
 
771
  interface
 
772
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
773
      use definekind
 
774
      use armci_types
 
775
      complex(kind=C4), dimension(:), pointer :: src, dst
 
776
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
777
      integer, intent(in) :: proc, rank
 
778
      integer, intent(out) :: rc
 
779
    end subroutine ARMCI_NbPut_farrays
 
780
  end interface
 
781
  complex(kind=C4), dimension(:), pointer :: src, dst
 
782
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
783
  integer, intent(in)                     :: proc
 
784
  integer, intent(out)                    :: rc
 
785
  integer :: rank
 
786
 
 
787
  rank = 1
 
788
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
789
 
 
790
end subroutine ARMCI_NbPut_1dc4
 
791
 
 
792
subroutine ARMCI_NbPut_2dc4(src, src_slc, dst, dst_slc, proc, rc)
 
793
  use definekind
 
794
!  implicit none
 
795
  interface
 
796
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
797
      use definekind
 
798
      use armci_types
 
799
      complex(kind=C4), dimension(:,:), pointer :: src, dst
 
800
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
801
      integer, intent(in) :: proc, rank
 
802
      integer, intent(out) :: rc
 
803
    end subroutine ARMCI_NbPut_farrays
 
804
  end interface
 
805
  complex(kind=C4), dimension(:,:), pointer :: src, dst
 
806
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
807
  integer, intent(in)                       :: proc
 
808
  integer, intent(out)                      :: rc
 
809
  integer :: rank
 
810
 
 
811
  rank = 2
 
812
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
813
 
 
814
end subroutine ARMCI_NbPut_2dc4
 
815
 
 
816
subroutine ARMCI_NbPut_3dc4(src, src_slc, dst, dst_slc, proc, rc)
 
817
  use definekind
 
818
!  implicit none
 
819
  interface
 
820
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
821
      use definekind
 
822
      use armci_types
 
823
      complex(kind=C4), dimension(:,:,:), pointer :: src, dst
 
824
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
825
      integer, intent(in) :: proc, rank
 
826
      integer, intent(out) :: rc
 
827
    end subroutine ARMCI_NbPut_farrays
 
828
  end interface
 
829
  complex(kind=C4), dimension(:,:,:), pointer :: src, dst
 
830
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
831
  integer, intent(in)                       :: proc
 
832
  integer, intent(out)                      :: rc
 
833
  integer :: rank
 
834
 
 
835
  rank = 3
 
836
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
837
 
 
838
end subroutine ARMCI_NbPut_3dc4
 
839
 
 
840
subroutine ARMCI_NbPut_4dc4(src, src_slc, dst, dst_slc, proc, rc)
 
841
  use definekind
 
842
!  implicit none
 
843
  interface
 
844
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
845
      use definekind
 
846
      use armci_types
 
847
      complex(kind=C4), dimension(:,:,:,:), pointer :: src, dst
 
848
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
849
      integer, intent(in) :: proc, rank
 
850
      integer, intent(out) :: rc
 
851
    end subroutine ARMCI_NbPut_farrays
 
852
  end interface
 
853
  complex(kind=C4), dimension(:,:,:,:), pointer :: src, dst
 
854
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
855
  integer, intent(in)                       :: proc
 
856
  integer, intent(out)                      :: rc
 
857
  integer :: rank
 
858
 
 
859
  rank = 4
 
860
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
861
 
 
862
end subroutine ARMCI_NbPut_4dc4
 
863
 
 
864
subroutine ARMCI_NbPut_5dc4(src, src_slc, dst, dst_slc, proc, rc)
 
865
  use definekind
 
866
!  implicit none
 
867
  interface
 
868
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
869
      use definekind
 
870
      use armci_types
 
871
      complex(kind=C4), dimension(:,:,:,:,:), pointer :: src, dst
 
872
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
873
      integer, intent(in) :: proc, rank
 
874
      integer, intent(out) :: rc
 
875
    end subroutine ARMCI_NbPut_farrays
 
876
  end interface
 
877
  complex(kind=C4), dimension(:,:,:,:,:), pointer :: src, dst
 
878
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
879
  integer, intent(in)                       :: proc
 
880
  integer, intent(out)                      :: rc
 
881
  integer :: rank
 
882
 
 
883
  rank = 5
 
884
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
885
 
 
886
end subroutine ARMCI_NbPut_5dc4
 
887
 
 
888
subroutine ARMCI_NbPut_6dc4(src, src_slc, dst, dst_slc, proc, rc)
 
889
  use definekind
 
890
!  implicit none
 
891
  interface
 
892
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
893
      use definekind
 
894
      use armci_types
 
895
      complex(kind=C4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
896
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
897
      integer, intent(in) :: proc, rank
 
898
      integer, intent(out) :: rc
 
899
    end subroutine ARMCI_NbPut_farrays
 
900
  end interface
 
901
  complex(kind=C4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
902
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
903
  integer, intent(in)                       :: proc
 
904
  integer, intent(out)                      :: rc
 
905
  integer :: rank
 
906
 
 
907
  rank = 6
 
908
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
909
 
 
910
end subroutine ARMCI_NbPut_6dc4
 
911
 
 
912
subroutine ARMCI_NbPut_7dc4(src, src_slc, dst, dst_slc, proc, rc)
 
913
  use definekind
 
914
!  implicit none
 
915
  interface
 
916
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
917
      use definekind
 
918
      use armci_types
 
919
      complex(kind=C4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
920
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
921
      integer, intent(in) :: proc, rank
 
922
      integer, intent(out) :: rc
 
923
    end subroutine ARMCI_NbPut_farrays
 
924
  end interface
 
925
  complex(kind=C4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
926
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
927
  integer, intent(in)                       :: proc
 
928
  integer, intent(out)                      :: rc
 
929
  integer :: rank
 
930
 
 
931
  rank = 7
 
932
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
933
 
 
934
end subroutine ARMCI_NbPut_7dc4
 
935
 
 
936
subroutine ARMCI_NbPut_1dc8(src, src_slc, dst, dst_slc, proc, rc)
 
937
  use definekind
 
938
!  implicit none
 
939
  interface
 
940
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
941
      use definekind
 
942
      use armci_types
 
943
      complex(kind=C8), dimension(:), pointer :: src, dst
 
944
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
945
      integer, intent(in) :: proc, rank
 
946
      integer, intent(out) :: rc
 
947
    end subroutine ARMCI_NbPut_farrays
 
948
  end interface
 
949
  complex(kind=C8), dimension(:), pointer :: src, dst
 
950
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
951
  integer, intent(in)                     :: proc
 
952
  integer, intent(out)                    :: rc
 
953
  integer :: rank
 
954
 
 
955
  rank = 1
 
956
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
957
 
 
958
end subroutine ARMCI_NbPut_1dc8
 
959
 
 
960
subroutine ARMCI_NbPut_2dc8(src, src_slc, dst, dst_slc, proc, rc)
 
961
  use definekind
 
962
!  implicit none
 
963
  interface
 
964
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
965
      use definekind
 
966
      use armci_types
 
967
      complex(kind=C8), dimension(:,:), pointer :: src, dst
 
968
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
969
      integer, intent(in) :: proc, rank
 
970
      integer, intent(out) :: rc
 
971
    end subroutine ARMCI_NbPut_farrays
 
972
  end interface
 
973
  complex(kind=C8), dimension(:,:), pointer :: src, dst
 
974
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
975
  integer, intent(in)                       :: proc
 
976
  integer, intent(out)                      :: rc
 
977
  integer :: rank
 
978
 
 
979
  rank = 2
 
980
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
981
 
 
982
end subroutine ARMCI_NbPut_2dc8
 
983
 
 
984
subroutine ARMCI_NbPut_3dc8(src, src_slc, dst, dst_slc, proc, rc)
 
985
  use definekind
 
986
!  implicit none
 
987
  interface
 
988
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
989
      use definekind
 
990
      use armci_types
 
991
      complex(kind=C8), dimension(:,:,:), pointer :: src, dst
 
992
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
993
      integer, intent(in) :: proc, rank
 
994
      integer, intent(out) :: rc
 
995
    end subroutine ARMCI_NbPut_farrays
 
996
  end interface
 
997
  complex(kind=C8), dimension(:,:,:), pointer :: src, dst
 
998
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
999
  integer, intent(in)                       :: proc
 
1000
  integer, intent(out)                      :: rc
 
1001
  integer :: rank
 
1002
 
 
1003
  rank = 3
 
1004
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1005
 
 
1006
end subroutine ARMCI_NbPut_3dc8
 
1007
 
 
1008
subroutine ARMCI_NbPut_4dc8(src, src_slc, dst, dst_slc, proc, rc)
 
1009
  use definekind
 
1010
!  implicit none
 
1011
  interface
 
1012
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1013
      use definekind
 
1014
      use armci_types
 
1015
      complex(kind=C8), dimension(:,:,:,:), pointer :: src, dst
 
1016
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1017
      integer, intent(in) :: proc, rank
 
1018
      integer, intent(out) :: rc
 
1019
    end subroutine ARMCI_NbPut_farrays
 
1020
  end interface
 
1021
  complex(kind=C8), dimension(:,:,:,:), pointer :: src, dst
 
1022
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1023
  integer, intent(in)                       :: proc
 
1024
  integer, intent(out)                      :: rc
 
1025
  integer :: rank
 
1026
 
 
1027
  rank = 4
 
1028
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1029
 
 
1030
end subroutine ARMCI_NbPut_4dc8
 
1031
 
 
1032
subroutine ARMCI_NbPut_5dc8(src, src_slc, dst, dst_slc, proc, rc)
 
1033
  use definekind
 
1034
!  implicit none
 
1035
  interface
 
1036
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1037
      use definekind
 
1038
      use armci_types
 
1039
      complex(kind=C8), dimension(:,:,:,:,:), pointer :: src, dst
 
1040
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1041
      integer, intent(in) :: proc, rank
 
1042
      integer, intent(out) :: rc
 
1043
    end subroutine ARMCI_NbPut_farrays
 
1044
  end interface
 
1045
  complex(kind=C8), dimension(:,:,:,:,:), pointer :: src, dst
 
1046
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1047
  integer, intent(in)                       :: proc
 
1048
  integer, intent(out)                      :: rc
 
1049
  integer :: rank
 
1050
 
 
1051
  rank = 5
 
1052
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1053
 
 
1054
end subroutine ARMCI_NbPut_5dc8
 
1055
 
 
1056
subroutine ARMCI_NbPut_6dc8(src, src_slc, dst, dst_slc, proc, rc)
 
1057
  use definekind
 
1058
!  implicit none
 
1059
  interface
 
1060
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1061
      use definekind
 
1062
      use armci_types
 
1063
      complex(kind=C8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1064
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1065
      integer, intent(in) :: proc, rank
 
1066
      integer, intent(out) :: rc
 
1067
    end subroutine ARMCI_NbPut_farrays
 
1068
  end interface
 
1069
  complex(kind=C8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1070
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1071
  integer, intent(in)                       :: proc
 
1072
  integer, intent(out)                      :: rc
 
1073
  integer :: rank
 
1074
 
 
1075
  rank = 6
 
1076
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1077
 
 
1078
end subroutine ARMCI_NbPut_6dc8
 
1079
 
 
1080
subroutine ARMCI_NbPut_7dc8(src, src_slc, dst, dst_slc, proc, rc)
 
1081
  use definekind
 
1082
!  implicit none
 
1083
  interface
 
1084
    subroutine ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1085
      use definekind
 
1086
      use armci_types
 
1087
      complex(kind=C8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1088
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1089
      integer, intent(in) :: proc, rank
 
1090
      integer, intent(out) :: rc
 
1091
    end subroutine ARMCI_NbPut_farrays
 
1092
  end interface
 
1093
  complex(kind=C8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1094
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1095
  integer, intent(in)                       :: proc
 
1096
  integer, intent(out)                      :: rc
 
1097
  integer :: rank
 
1098
 
 
1099
  rank = 7
 
1100
  call ARMCI_NbPut_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1101
 
 
1102
end subroutine ARMCI_NbPut_7dc8
 
1103
 
 
1104
!Get
 
1105
 
 
1106
subroutine ARMCI_NbGet_1di4(src, src_slc, dst, dst_slc, proc, rc)
 
1107
  use definekind
 
1108
!  implicit none
 
1109
  interface
 
1110
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1111
      use definekind
 
1112
      use armci_types
 
1113
      integer(kind=I4), dimension(:), pointer :: src, dst
 
1114
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1115
      integer, intent(in) :: proc, rank
 
1116
      integer, intent(out) :: rc
 
1117
    end subroutine ARMCI_NbGet_farrays
 
1118
  end interface
 
1119
  integer(kind=I4), dimension(:), pointer :: src, dst
 
1120
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
1121
  integer, intent(in)                     :: proc
 
1122
  integer, intent(out)                    :: rc
 
1123
  integer :: rank
 
1124
 
 
1125
  rank = 1
 
1126
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1127
 
 
1128
end subroutine ARMCI_NbGet_1di4
 
1129
 
 
1130
subroutine ARMCI_NbGet_2di4(src, src_slc, dst, dst_slc, proc, rc)
 
1131
  use definekind
 
1132
!  implicit none
 
1133
  interface
 
1134
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1135
      use definekind
 
1136
      use armci_types
 
1137
      integer(kind=I4), dimension(:,:), pointer :: src, dst
 
1138
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1139
      integer, intent(in) :: proc, rank
 
1140
      integer, intent(out) :: rc
 
1141
    end subroutine ARMCI_NbGet_farrays
 
1142
  end interface
 
1143
  integer(kind=I4), dimension(:,:), pointer :: src, dst
 
1144
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1145
  integer, intent(in)                       :: proc
 
1146
  integer, intent(out)                    :: rc
 
1147
  integer :: rank
 
1148
 
 
1149
  rank = 2
 
1150
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1151
 
 
1152
end subroutine ARMCI_NbGet_2di4
 
1153
 
 
1154
subroutine ARMCI_NbGet_3di4(src, src_slc, dst, dst_slc, proc, rc)
 
1155
  use definekind
 
1156
!  implicit none
 
1157
  interface
 
1158
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1159
      use definekind
 
1160
      use armci_types
 
1161
      integer(kind=I4), dimension(:,:,:), pointer :: src, dst
 
1162
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1163
      integer, intent(in) :: proc, rank
 
1164
      integer, intent(out) :: rc
 
1165
    end subroutine ARMCI_NbGet_farrays
 
1166
  end interface
 
1167
  integer(kind=I4), dimension(:,:,:), pointer :: src, dst
 
1168
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1169
  integer, intent(in)                       :: proc
 
1170
  integer, intent(out)                    :: rc
 
1171
  integer :: rank
 
1172
 
 
1173
  rank = 3
 
1174
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1175
 
 
1176
end subroutine ARMCI_NbGet_3di4
 
1177
 
 
1178
subroutine ARMCI_NbGet_4di4(src, src_slc, dst, dst_slc, proc, rc)
 
1179
  use definekind
 
1180
!  implicit none
 
1181
  interface
 
1182
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1183
      use definekind
 
1184
      use armci_types
 
1185
      integer(kind=I4), dimension(:,:,:,:), pointer :: src, dst
 
1186
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1187
      integer, intent(in) :: proc, rank
 
1188
      integer, intent(out) :: rc
 
1189
    end subroutine ARMCI_NbGet_farrays
 
1190
  end interface
 
1191
  integer(kind=I4), dimension(:,:,:,:), pointer :: src, dst
 
1192
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1193
  integer, intent(in)                       :: proc
 
1194
  integer, intent(out)                    :: rc
 
1195
  integer :: rank
 
1196
 
 
1197
  rank = 4
 
1198
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1199
 
 
1200
end subroutine ARMCI_NbGet_4di4
 
1201
 
 
1202
subroutine ARMCI_NbGet_5di4(src, src_slc, dst, dst_slc, proc, rc)
 
1203
  use definekind
 
1204
!  implicit none
 
1205
  interface
 
1206
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1207
      use definekind
 
1208
      use armci_types
 
1209
      integer(kind=I4), dimension(:,:,:,:,:), pointer :: src, dst
 
1210
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1211
      integer, intent(in) :: proc, rank
 
1212
      integer, intent(out) :: rc
 
1213
    end subroutine ARMCI_NbGet_farrays
 
1214
  end interface
 
1215
  integer(kind=I4), dimension(:,:,:,:,:), pointer :: src, dst
 
1216
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1217
  integer, intent(in)                       :: proc
 
1218
  integer, intent(out)                    :: rc
 
1219
  integer  :: rank
 
1220
 
 
1221
  rank = 5
 
1222
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1223
 
 
1224
end subroutine ARMCI_NbGet_5di4
 
1225
 
 
1226
subroutine ARMCI_NbGet_6di4(src, src_slc, dst, dst_slc, proc, rc)
 
1227
  use definekind
 
1228
!  implicit none
 
1229
  interface
 
1230
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1231
      use definekind
 
1232
      use armci_types
 
1233
      integer(kind=I4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1234
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1235
      integer, intent(in) :: proc, rank
 
1236
      integer, intent(out) :: rc
 
1237
    end subroutine ARMCI_NbGet_farrays
 
1238
  end interface
 
1239
  integer(kind=I4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1240
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1241
  integer, intent(in)                       :: proc
 
1242
  integer, intent(out)                      :: rc
 
1243
  integer  :: rank
 
1244
 
 
1245
  rank = 6
 
1246
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1247
 
 
1248
end subroutine ARMCI_NbGet_6di4
 
1249
 
 
1250
subroutine ARMCI_NbGet_7di4(src, src_slc, dst, dst_slc, proc, rc)
 
1251
  use definekind
 
1252
!  implicit none
 
1253
  interface
 
1254
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1255
      use definekind
 
1256
      use armci_types
 
1257
      integer(kind=I4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1258
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1259
      integer, intent(in) :: proc, rank
 
1260
      integer, intent(out) :: rc
 
1261
    end subroutine ARMCI_NbGet_farrays
 
1262
  end interface
 
1263
  integer(kind=I4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1264
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1265
  integer, intent(in)                       :: proc
 
1266
  integer, intent(out)                      :: rc
 
1267
  integer :: rank
 
1268
 
 
1269
  rank = 7
 
1270
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1271
 
 
1272
end subroutine ARMCI_NbGet_7di4
 
1273
 
 
1274
subroutine ARMCI_NbGet_1di8(src, src_slc, dst, dst_slc, proc, rc)
 
1275
  use definekind
 
1276
!  implicit none
 
1277
  interface
 
1278
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1279
      use definekind
 
1280
      use armci_types
 
1281
      integer(kind=I8), dimension(:), pointer :: src, dst
 
1282
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1283
      integer, intent(in) :: proc, rank
 
1284
      integer, intent(out) :: rc
 
1285
    end subroutine ARMCI_NbGet_farrays
 
1286
  end interface
 
1287
  integer(kind=I8), dimension(:), pointer :: src, dst
 
1288
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
1289
  integer, intent(in)                     :: proc
 
1290
  integer, intent(out)                    :: rc
 
1291
  integer :: rank
 
1292
 
 
1293
  rank = 1
 
1294
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1295
 
 
1296
end subroutine ARMCI_NbGet_1di8
 
1297
 
 
1298
subroutine ARMCI_NbGet_2di8(src, src_slc, dst, dst_slc, proc, rc)
 
1299
  use definekind
 
1300
!  implicit none
 
1301
  interface
 
1302
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1303
      use definekind
 
1304
      use armci_types
 
1305
      integer(kind=I8), dimension(:,:), pointer :: src, dst
 
1306
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1307
      integer, intent(in) :: proc, rank
 
1308
      integer, intent(out) :: rc
 
1309
    end subroutine ARMCI_NbGet_farrays
 
1310
  end interface
 
1311
  integer(kind=I8), dimension(:,:), pointer :: src, dst
 
1312
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1313
  integer, intent(in)                       :: proc
 
1314
  integer, intent(out)                    :: rc
 
1315
  integer :: rank
 
1316
 
 
1317
  rank = 2
 
1318
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1319
 
 
1320
end subroutine ARMCI_NbGet_2di8
 
1321
 
 
1322
subroutine ARMCI_NbGet_3di8(src, src_slc, dst, dst_slc, proc, rc)
 
1323
  use definekind
 
1324
!  implicit none
 
1325
  interface
 
1326
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1327
      use definekind
 
1328
      use armci_types
 
1329
      integer(kind=I8), dimension(:,:,:), pointer :: src, dst
 
1330
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1331
      integer, intent(in) :: proc, rank
 
1332
      integer, intent(out) :: rc
 
1333
    end subroutine ARMCI_NbGet_farrays
 
1334
  end interface
 
1335
  integer(kind=I8), dimension(:,:,:), pointer :: src, dst
 
1336
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1337
  integer, intent(in)                       :: proc
 
1338
  integer, intent(out)                    :: rc
 
1339
  integer :: rank
 
1340
 
 
1341
  rank = 3
 
1342
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1343
 
 
1344
end subroutine ARMCI_NbGet_3di8
 
1345
 
 
1346
subroutine ARMCI_NbGet_4di8(src, src_slc, dst, dst_slc, proc, rc)
 
1347
  use definekind
 
1348
!  implicit none
 
1349
  interface
 
1350
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1351
      use definekind
 
1352
      use armci_types
 
1353
      integer(kind=I8), dimension(:,:,:,:), pointer :: src, dst
 
1354
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1355
      integer, intent(in) :: proc, rank
 
1356
      integer, intent(out) :: rc
 
1357
    end subroutine ARMCI_NbGet_farrays
 
1358
  end interface
 
1359
  integer(kind=I8), dimension(:,:,:,:), pointer :: src, dst
 
1360
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1361
  integer, intent(in)                       :: proc
 
1362
  integer, intent(out)                    :: rc
 
1363
  integer :: rank
 
1364
 
 
1365
  rank = 4
 
1366
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1367
 
 
1368
end subroutine ARMCI_NbGet_4di8
 
1369
 
 
1370
subroutine ARMCI_NbGet_5di8(src, src_slc, dst, dst_slc, proc, rc)
 
1371
  use definekind
 
1372
!  implicit none
 
1373
  interface
 
1374
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1375
      use definekind
 
1376
      use armci_types
 
1377
      integer(kind=I8), dimension(:,:,:,:,:), pointer :: src, dst
 
1378
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1379
      integer, intent(in) :: proc, rank
 
1380
      integer, intent(out) :: rc
 
1381
    end subroutine ARMCI_NbGet_farrays
 
1382
  end interface
 
1383
  integer(kind=I8), dimension(:,:,:,:,:), pointer :: src, dst
 
1384
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1385
  integer, intent(in)                       :: proc
 
1386
  integer, intent(out)                    :: rc
 
1387
  integer  :: rank
 
1388
 
 
1389
  rank = 5
 
1390
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1391
 
 
1392
end subroutine ARMCI_NbGet_5di8
 
1393
 
 
1394
subroutine ARMCI_NbGet_6di8(src, src_slc, dst, dst_slc, proc, rc)
 
1395
  use definekind
 
1396
!  implicit none
 
1397
  interface
 
1398
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1399
      use definekind
 
1400
      use armci_types
 
1401
      integer(kind=I8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1402
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1403
      integer, intent(in) :: proc, rank
 
1404
      integer, intent(out) :: rc
 
1405
    end subroutine ARMCI_NbGet_farrays
 
1406
  end interface
 
1407
  integer(kind=I8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1408
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1409
  integer, intent(in)                       :: proc
 
1410
  integer, intent(out)                      :: rc
 
1411
  integer  :: rank
 
1412
 
 
1413
  rank = 6
 
1414
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1415
 
 
1416
end subroutine ARMCI_NbGet_6di8
 
1417
 
 
1418
subroutine ARMCI_NbGet_7di8(src, src_slc, dst, dst_slc, proc, rc)
 
1419
  use definekind
 
1420
!  implicit none
 
1421
  interface
 
1422
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1423
      use definekind
 
1424
      use armci_types
 
1425
      integer(kind=I8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1426
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1427
      integer, intent(in) :: proc, rank
 
1428
      integer, intent(out) :: rc
 
1429
    end subroutine ARMCI_NbGet_farrays
 
1430
  end interface
 
1431
  integer(kind=I8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1432
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1433
  integer, intent(in)                       :: proc
 
1434
  integer, intent(out)                      :: rc
 
1435
  integer :: rank
 
1436
 
 
1437
  rank = 7
 
1438
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1439
 
 
1440
end subroutine ARMCI_NbGet_7di8
 
1441
 
 
1442
subroutine ARMCI_NbGet_1dr4(src, src_slc, dst, dst_slc, proc, rc)
 
1443
  use definekind
 
1444
!  implicit none
 
1445
  interface
 
1446
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1447
      use definekind
 
1448
      use armci_types
 
1449
      real(kind=R4), dimension(:), pointer :: src, dst
 
1450
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1451
      integer, intent(in) :: proc, rank
 
1452
      integer, intent(out) :: rc
 
1453
    end subroutine ARMCI_NbGet_farrays
 
1454
  end interface
 
1455
  real(kind=R4), dimension(:), pointer :: src, dst
 
1456
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
1457
  integer, intent(in)                     :: proc
 
1458
  integer, intent(out)                    :: rc
 
1459
  integer :: rank
 
1460
 
 
1461
  rank = 1
 
1462
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1463
 
 
1464
end subroutine ARMCI_NbGet_1dr4
 
1465
 
 
1466
subroutine ARMCI_NbGet_2dr4(src, src_slc, dst, dst_slc, proc, rc)
 
1467
  use definekind
 
1468
!  implicit none
 
1469
  interface
 
1470
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1471
      use definekind
 
1472
      use armci_types
 
1473
      real(kind=R4), dimension(:,:), pointer :: src, dst
 
1474
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1475
      integer, intent(in) :: proc, rank
 
1476
      integer, intent(out) :: rc
 
1477
    end subroutine ARMCI_NbGet_farrays
 
1478
  end interface
 
1479
  real(kind=R4), dimension(:,:), pointer :: src, dst
 
1480
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1481
  integer, intent(in)                       :: proc
 
1482
  integer, intent(out)                    :: rc
 
1483
  integer :: rank
 
1484
 
 
1485
  rank = 2
 
1486
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1487
 
 
1488
end subroutine ARMCI_NbGet_2dr4
 
1489
 
 
1490
subroutine ARMCI_NbGet_3dr4(src, src_slc, dst, dst_slc, proc, rc)
 
1491
  use definekind
 
1492
!  implicit none
 
1493
  interface
 
1494
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1495
      use definekind
 
1496
      use armci_types
 
1497
      real(kind=R4), dimension(:,:,:), pointer :: src, dst
 
1498
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1499
      integer, intent(in) :: proc, rank
 
1500
      integer, intent(out) :: rc
 
1501
    end subroutine ARMCI_NbGet_farrays
 
1502
  end interface
 
1503
  real(kind=R4), dimension(:,:,:), pointer :: src, dst
 
1504
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1505
  integer, intent(in)                       :: proc
 
1506
  integer, intent(out)                    :: rc
 
1507
  integer :: rank
 
1508
 
 
1509
  rank = 3
 
1510
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1511
 
 
1512
end subroutine ARMCI_NbGet_3dr4
 
1513
 
 
1514
subroutine ARMCI_NbGet_4dr4(src, src_slc, dst, dst_slc, proc, rc)
 
1515
  use definekind
 
1516
!  implicit none
 
1517
  interface
 
1518
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1519
      use definekind
 
1520
      use armci_types
 
1521
      real(kind=R4), dimension(:,:,:,:), pointer :: src, dst
 
1522
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1523
      integer, intent(in) :: proc, rank
 
1524
      integer, intent(out) :: rc
 
1525
    end subroutine ARMCI_NbGet_farrays
 
1526
  end interface
 
1527
  real(kind=R4), dimension(:,:,:,:), pointer :: src, dst
 
1528
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1529
  integer, intent(in)                       :: proc
 
1530
  integer, intent(out)                    :: rc
 
1531
  integer :: rank
 
1532
 
 
1533
  rank = 4
 
1534
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1535
 
 
1536
end subroutine ARMCI_NbGet_4dr4
 
1537
 
 
1538
subroutine ARMCI_NbGet_5dr4(src, src_slc, dst, dst_slc, proc, rc)
 
1539
  use definekind
 
1540
!  implicit none
 
1541
  interface
 
1542
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1543
      use definekind
 
1544
      use armci_types
 
1545
      real(kind=R4), dimension(:,:,:,:,:), pointer :: src, dst
 
1546
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1547
      integer, intent(in) :: proc, rank
 
1548
      integer, intent(out) :: rc
 
1549
    end subroutine ARMCI_NbGet_farrays
 
1550
  end interface
 
1551
  real(kind=R4), dimension(:,:,:,:,:), pointer :: src, dst
 
1552
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1553
  integer, intent(in)                       :: proc
 
1554
  integer, intent(out)                    :: rc
 
1555
  integer  :: rank
 
1556
 
 
1557
  rank = 5
 
1558
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1559
 
 
1560
end subroutine ARMCI_NbGet_5dr4
 
1561
 
 
1562
subroutine ARMCI_NbGet_6dr4(src, src_slc, dst, dst_slc, proc, rc)
 
1563
  use definekind
 
1564
!  implicit none
 
1565
  interface
 
1566
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1567
      use definekind
 
1568
      use armci_types
 
1569
      real(kind=R4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1570
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1571
      integer, intent(in) :: proc, rank
 
1572
      integer, intent(out) :: rc
 
1573
    end subroutine ARMCI_NbGet_farrays
 
1574
  end interface
 
1575
  real(kind=R4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1576
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1577
  integer, intent(in)                       :: proc
 
1578
  integer, intent(out)                      :: rc
 
1579
  integer  :: rank
 
1580
 
 
1581
  rank = 6
 
1582
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1583
 
 
1584
end subroutine ARMCI_NbGet_6dr4
 
1585
 
 
1586
subroutine ARMCI_NbGet_7dr4(src, src_slc, dst, dst_slc, proc, rc)
 
1587
  use definekind
 
1588
!  implicit none
 
1589
  interface
 
1590
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1591
      use definekind
 
1592
      use armci_types
 
1593
      real(kind=R4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1594
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1595
      integer, intent(in) :: proc, rank
 
1596
      integer, intent(out) :: rc
 
1597
    end subroutine ARMCI_NbGet_farrays
 
1598
  end interface
 
1599
  real(kind=R4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1600
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1601
  integer, intent(in)                       :: proc
 
1602
  integer, intent(out)                      :: rc
 
1603
  integer :: rank
 
1604
 
 
1605
  rank = 7
 
1606
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1607
 
 
1608
end subroutine ARMCI_NbGet_7dr4
 
1609
 
 
1610
subroutine ARMCI_NbGet_1dr8(src, src_slc, dst, dst_slc, proc, rc)
 
1611
  use definekind
 
1612
!  implicit none
 
1613
  interface
 
1614
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1615
      use definekind
 
1616
      use armci_types
 
1617
      real(kind=R8), dimension(:), pointer :: src, dst
 
1618
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1619
      integer, intent(in) :: proc, rank
 
1620
      integer, intent(out) :: rc
 
1621
    end subroutine ARMCI_NbGet_farrays
 
1622
  end interface
 
1623
  real(kind=R8), dimension(:), pointer :: src, dst
 
1624
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
1625
  integer, intent(in)                     :: proc
 
1626
  integer, intent(out)                    :: rc
 
1627
  integer :: rank
 
1628
 
 
1629
  rank = 1
 
1630
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1631
 
 
1632
end subroutine ARMCI_NbGet_1dr8
 
1633
 
 
1634
subroutine ARMCI_NbGet_2dr8(src, src_slc, dst, dst_slc, proc, rc)
 
1635
  use definekind
 
1636
!  implicit none
 
1637
  interface
 
1638
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1639
      use definekind
 
1640
      use armci_types
 
1641
      real(kind=R8), dimension(:,:), pointer :: src, dst
 
1642
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1643
      integer, intent(in) :: proc, rank
 
1644
      integer, intent(out) :: rc
 
1645
    end subroutine ARMCI_NbGet_farrays
 
1646
  end interface
 
1647
  real(kind=R8), dimension(:,:), pointer :: src, dst
 
1648
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1649
  integer, intent(in)                       :: proc
 
1650
  integer, intent(out)                    :: rc
 
1651
  integer :: rank
 
1652
 
 
1653
  rank = 2
 
1654
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1655
 
 
1656
end subroutine ARMCI_NbGet_2dr8
 
1657
 
 
1658
subroutine ARMCI_NbGet_3dr8(src, src_slc, dst, dst_slc, proc, rc)
 
1659
  use definekind
 
1660
!  implicit none
 
1661
  interface
 
1662
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1663
      use definekind
 
1664
      use armci_types
 
1665
      real(kind=R8), dimension(:,:,:), pointer :: src, dst
 
1666
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1667
      integer, intent(in) :: proc, rank
 
1668
      integer, intent(out) :: rc
 
1669
    end subroutine ARMCI_NbGet_farrays
 
1670
  end interface
 
1671
  real(kind=R8), dimension(:,:,:), pointer :: src, dst
 
1672
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1673
  integer, intent(in)                       :: proc
 
1674
  integer, intent(out)                    :: rc
 
1675
  integer :: rank
 
1676
 
 
1677
  rank = 3
 
1678
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1679
 
 
1680
end subroutine ARMCI_NbGet_3dr8
 
1681
 
 
1682
subroutine ARMCI_NbGet_4dr8(src, src_slc, dst, dst_slc, proc, rc)
 
1683
  use definekind
 
1684
!  implicit none
 
1685
  interface
 
1686
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1687
      use definekind
 
1688
      use armci_types
 
1689
      real(kind=R8), dimension(:,:,:,:), pointer :: src, dst
 
1690
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1691
      integer, intent(in) :: proc, rank
 
1692
      integer, intent(out) :: rc
 
1693
    end subroutine ARMCI_NbGet_farrays
 
1694
  end interface
 
1695
  real(kind=R8), dimension(:,:,:,:), pointer :: src, dst
 
1696
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1697
  integer, intent(in)                       :: proc
 
1698
  integer, intent(out)                    :: rc
 
1699
  integer :: rank
 
1700
 
 
1701
  rank = 4
 
1702
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1703
 
 
1704
end subroutine ARMCI_NbGet_4dr8
 
1705
 
 
1706
subroutine ARMCI_NbGet_5dr8(src, src_slc, dst, dst_slc, proc, rc)
 
1707
  use definekind
 
1708
!  implicit none
 
1709
  interface
 
1710
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1711
      use definekind
 
1712
      use armci_types
 
1713
      real(kind=R8), dimension(:,:,:,:,:), pointer :: src, dst
 
1714
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1715
      integer, intent(in) :: proc, rank
 
1716
      integer, intent(out) :: rc
 
1717
    end subroutine ARMCI_NbGet_farrays
 
1718
  end interface
 
1719
  real(kind=R8), dimension(:,:,:,:,:), pointer :: src, dst
 
1720
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1721
  integer, intent(in)                       :: proc
 
1722
  integer, intent(out)                    :: rc
 
1723
  integer  :: rank
 
1724
 
 
1725
  rank = 5
 
1726
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1727
 
 
1728
end subroutine ARMCI_NbGet_5dr8
 
1729
 
 
1730
subroutine ARMCI_NbGet_6dr8(src, src_slc, dst, dst_slc, proc, rc)
 
1731
  use definekind
 
1732
!  implicit none
 
1733
  interface
 
1734
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1735
      use definekind
 
1736
      use armci_types
 
1737
      real(kind=R8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1738
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1739
      integer, intent(in) :: proc, rank
 
1740
      integer, intent(out) :: rc
 
1741
    end subroutine ARMCI_NbGet_farrays
 
1742
  end interface
 
1743
  real(kind=R8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1744
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1745
  integer, intent(in)                       :: proc
 
1746
  integer, intent(out)                      :: rc
 
1747
  integer  :: rank
 
1748
 
 
1749
  rank = 6
 
1750
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1751
 
 
1752
end subroutine ARMCI_NbGet_6dr8
 
1753
 
 
1754
subroutine ARMCI_NbGet_7dr8(src, src_slc, dst, dst_slc, proc, rc)
 
1755
  use definekind
 
1756
!  implicit none
 
1757
  interface
 
1758
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1759
      use definekind
 
1760
      use armci_types
 
1761
      real(kind=R8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1762
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1763
      integer, intent(in) :: proc, rank
 
1764
      integer, intent(out) :: rc
 
1765
    end subroutine ARMCI_NbGet_farrays
 
1766
  end interface
 
1767
  real(kind=R8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1768
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1769
  integer, intent(in)                       :: proc
 
1770
  integer, intent(out)                      :: rc
 
1771
  integer :: rank
 
1772
 
 
1773
  rank = 7
 
1774
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1775
 
 
1776
end subroutine ARMCI_NbGet_7dr8
 
1777
 
 
1778
subroutine ARMCI_NbGet_1dc4(src, src_slc, dst, dst_slc, proc, rc)
 
1779
  use definekind
 
1780
!  implicit none
 
1781
  interface
 
1782
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1783
      use definekind
 
1784
      use armci_types
 
1785
      complex(kind=C4), dimension(:), pointer :: src, dst
 
1786
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1787
      integer, intent(in) :: proc, rank
 
1788
      integer, intent(out) :: rc
 
1789
    end subroutine ARMCI_NbGet_farrays
 
1790
  end interface
 
1791
  complex(kind=C4), dimension(:), pointer :: src, dst
 
1792
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
1793
  integer, intent(in)                     :: proc
 
1794
  integer, intent(out)                    :: rc
 
1795
  integer :: rank
 
1796
 
 
1797
  rank = 1
 
1798
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1799
 
 
1800
end subroutine ARMCI_NbGet_1dc4
 
1801
 
 
1802
subroutine ARMCI_NbGet_2dc4(src, src_slc, dst, dst_slc, proc, rc)
 
1803
  use definekind
 
1804
!  implicit none
 
1805
  interface
 
1806
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1807
      use definekind
 
1808
      use armci_types
 
1809
      complex(kind=C4), dimension(:,:), pointer :: src, dst
 
1810
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1811
      integer, intent(in) :: proc, rank
 
1812
      integer, intent(out) :: rc
 
1813
    end subroutine ARMCI_NbGet_farrays
 
1814
  end interface
 
1815
  complex(kind=C4), dimension(:,:), pointer :: src, dst
 
1816
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1817
  integer, intent(in)                       :: proc
 
1818
  integer, intent(out)                    :: rc
 
1819
  integer :: rank
 
1820
 
 
1821
  rank = 2
 
1822
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1823
 
 
1824
end subroutine ARMCI_NbGet_2dc4
 
1825
 
 
1826
subroutine ARMCI_NbGet_3dc4(src, src_slc, dst, dst_slc, proc, rc)
 
1827
  use definekind
 
1828
!  implicit none
 
1829
  interface
 
1830
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1831
      use definekind
 
1832
      use armci_types
 
1833
      complex(kind=C4), dimension(:,:,:), pointer :: src, dst
 
1834
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1835
      integer, intent(in) :: proc, rank
 
1836
      integer, intent(out) :: rc
 
1837
    end subroutine ARMCI_NbGet_farrays
 
1838
  end interface
 
1839
  complex(kind=C4), dimension(:,:,:), pointer :: src, dst
 
1840
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1841
  integer, intent(in)                       :: proc
 
1842
  integer, intent(out)                    :: rc
 
1843
  integer :: rank
 
1844
 
 
1845
  rank = 3
 
1846
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1847
 
 
1848
end subroutine ARMCI_NbGet_3dc4
 
1849
 
 
1850
subroutine ARMCI_NbGet_4dc4(src, src_slc, dst, dst_slc, proc, rc)
 
1851
  use definekind
 
1852
!  implicit none
 
1853
  interface
 
1854
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1855
      use definekind
 
1856
      use armci_types
 
1857
      complex(kind=C4), dimension(:,:,:,:), pointer :: src, dst
 
1858
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1859
      integer, intent(in) :: proc, rank
 
1860
      integer, intent(out) :: rc
 
1861
    end subroutine ARMCI_NbGet_farrays
 
1862
  end interface
 
1863
  complex(kind=C4), dimension(:,:,:,:), pointer :: src, dst
 
1864
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1865
  integer, intent(in)                       :: proc
 
1866
  integer, intent(out)                    :: rc
 
1867
  integer :: rank
 
1868
 
 
1869
  rank = 4
 
1870
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1871
 
 
1872
end subroutine ARMCI_NbGet_4dc4
 
1873
 
 
1874
subroutine ARMCI_NbGet_5dc4(src, src_slc, dst, dst_slc, proc, rc)
 
1875
  use definekind
 
1876
!  implicit none
 
1877
  interface
 
1878
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1879
      use definekind
 
1880
      use armci_types
 
1881
      complex(kind=C4), dimension(:,:,:,:,:), pointer :: src, dst
 
1882
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1883
      integer, intent(in) :: proc, rank
 
1884
      integer, intent(out) :: rc
 
1885
    end subroutine ARMCI_NbGet_farrays
 
1886
  end interface
 
1887
  complex(kind=C4), dimension(:,:,:,:,:), pointer :: src, dst
 
1888
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1889
  integer, intent(in)                       :: proc
 
1890
  integer, intent(out)                    :: rc
 
1891
  integer  :: rank
 
1892
 
 
1893
  rank = 5
 
1894
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1895
 
 
1896
end subroutine ARMCI_NbGet_5dc4
 
1897
 
 
1898
subroutine ARMCI_NbGet_6dc4(src, src_slc, dst, dst_slc, proc, rc)
 
1899
  use definekind
 
1900
!  implicit none
 
1901
  interface
 
1902
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1903
      use definekind
 
1904
      use armci_types
 
1905
      complex(kind=C4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1906
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1907
      integer, intent(in) :: proc, rank
 
1908
      integer, intent(out) :: rc
 
1909
    end subroutine ARMCI_NbGet_farrays
 
1910
  end interface
 
1911
  complex(kind=C4), dimension(:,:,:,:,:,:), pointer :: src, dst
 
1912
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1913
  integer, intent(in)                       :: proc
 
1914
  integer, intent(out)                      :: rc
 
1915
  integer  :: rank
 
1916
 
 
1917
  rank = 6
 
1918
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1919
 
 
1920
end subroutine ARMCI_NbGet_6dc4
 
1921
 
 
1922
subroutine ARMCI_NbGet_7dc4(src, src_slc, dst, dst_slc, proc, rc)
 
1923
  use definekind
 
1924
!  implicit none
 
1925
  interface
 
1926
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1927
      use definekind
 
1928
      use armci_types
 
1929
      complex(kind=C4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1930
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1931
      integer, intent(in) :: proc, rank
 
1932
      integer, intent(out) :: rc
 
1933
    end subroutine ARMCI_NbGet_farrays
 
1934
  end interface
 
1935
  complex(kind=C4), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
1936
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1937
  integer, intent(in)                       :: proc
 
1938
  integer, intent(out)                      :: rc
 
1939
  integer :: rank
 
1940
 
 
1941
  rank = 7
 
1942
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1943
 
 
1944
end subroutine ARMCI_NbGet_7dc4
 
1945
 
 
1946
subroutine ARMCI_NbGet_1dc8(src, src_slc, dst, dst_slc, proc, rc)
 
1947
  use definekind
 
1948
!  implicit none
 
1949
  interface
 
1950
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1951
      use definekind
 
1952
      use armci_types
 
1953
      complex(kind=C8), dimension(:), pointer :: src, dst
 
1954
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1955
      integer, intent(in) :: proc, rank
 
1956
      integer, intent(out) :: rc
 
1957
    end subroutine ARMCI_NbGet_farrays
 
1958
  end interface
 
1959
  complex(kind=C8), dimension(:), pointer :: src, dst
 
1960
  type(armci_slice), intent(in)           :: src_slc, dst_slc
 
1961
  integer, intent(in)                     :: proc
 
1962
  integer, intent(out)                    :: rc
 
1963
  integer :: rank
 
1964
 
 
1965
  rank = 1
 
1966
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1967
 
 
1968
end subroutine ARMCI_NbGet_1dc8
 
1969
 
 
1970
subroutine ARMCI_NbGet_2dc8(src, src_slc, dst, dst_slc, proc, rc)
 
1971
  use definekind
 
1972
!  implicit none
 
1973
  interface
 
1974
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1975
      use definekind
 
1976
      use armci_types
 
1977
      complex(kind=C8), dimension(:,:), pointer :: src, dst
 
1978
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
1979
      integer, intent(in) :: proc, rank
 
1980
      integer, intent(out) :: rc
 
1981
    end subroutine ARMCI_NbGet_farrays
 
1982
  end interface
 
1983
  complex(kind=C8), dimension(:,:), pointer :: src, dst
 
1984
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
1985
  integer, intent(in)                       :: proc
 
1986
  integer, intent(out)                    :: rc
 
1987
  integer :: rank
 
1988
 
 
1989
  rank = 2
 
1990
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1991
 
 
1992
end subroutine ARMCI_NbGet_2dc8
 
1993
 
 
1994
subroutine ARMCI_NbGet_3dc8(src, src_slc, dst, dst_slc, proc, rc)
 
1995
  use definekind
 
1996
!  implicit none
 
1997
  interface
 
1998
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
1999
      use definekind
 
2000
      use armci_types
 
2001
      complex(kind=C8), dimension(:,:,:), pointer :: src, dst
 
2002
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
2003
      integer, intent(in) :: proc, rank
 
2004
      integer, intent(out) :: rc
 
2005
    end subroutine ARMCI_NbGet_farrays
 
2006
  end interface
 
2007
  complex(kind=C8), dimension(:,:,:), pointer :: src, dst
 
2008
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
2009
  integer, intent(in)                       :: proc
 
2010
  integer, intent(out)                    :: rc
 
2011
  integer :: rank
 
2012
 
 
2013
  rank = 3
 
2014
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2015
 
 
2016
end subroutine ARMCI_NbGet_3dc8
 
2017
 
 
2018
subroutine ARMCI_NbGet_4dc8(src, src_slc, dst, dst_slc, proc, rc)
 
2019
  use definekind
 
2020
!  implicit none
 
2021
  interface
 
2022
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2023
      use definekind
 
2024
      use armci_types
 
2025
      complex(kind=C8), dimension(:,:,:,:), pointer :: src, dst
 
2026
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
2027
      integer, intent(in) :: proc, rank
 
2028
      integer, intent(out) :: rc
 
2029
    end subroutine ARMCI_NbGet_farrays
 
2030
  end interface
 
2031
  complex(kind=C8), dimension(:,:,:,:), pointer :: src, dst
 
2032
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
2033
  integer, intent(in)                       :: proc
 
2034
  integer, intent(out)                    :: rc
 
2035
  integer :: rank
 
2036
 
 
2037
  rank = 4
 
2038
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2039
 
 
2040
end subroutine ARMCI_NbGet_4dc8
 
2041
 
 
2042
subroutine ARMCI_NbGet_5dc8(src, src_slc, dst, dst_slc, proc, rc)
 
2043
  use definekind
 
2044
!  implicit none
 
2045
  interface
 
2046
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2047
      use definekind
 
2048
      use armci_types
 
2049
      complex(kind=C8), dimension(:,:,:,:,:), pointer :: src, dst
 
2050
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
2051
      integer, intent(in) :: proc, rank
 
2052
      integer, intent(out) :: rc
 
2053
    end subroutine ARMCI_NbGet_farrays
 
2054
  end interface
 
2055
  complex(kind=C8), dimension(:,:,:,:,:), pointer :: src, dst
 
2056
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
2057
  integer, intent(in)                       :: proc
 
2058
  integer, intent(out)                    :: rc
 
2059
  integer  :: rank
 
2060
 
 
2061
  rank = 5
 
2062
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2063
 
 
2064
end subroutine ARMCI_NbGet_5dc8
 
2065
 
 
2066
subroutine ARMCI_NbGet_6dc8(src, src_slc, dst, dst_slc, proc, rc)
 
2067
  use definekind
 
2068
!  implicit none
 
2069
  interface
 
2070
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2071
      use definekind
 
2072
      use armci_types
 
2073
      complex(kind=C8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
2074
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
2075
      integer, intent(in) :: proc, rank
 
2076
      integer, intent(out) :: rc
 
2077
    end subroutine ARMCI_NbGet_farrays
 
2078
  end interface
 
2079
  complex(kind=C8), dimension(:,:,:,:,:,:), pointer :: src, dst
 
2080
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
2081
  integer, intent(in)                       :: proc
 
2082
  integer, intent(out)                      :: rc
 
2083
  integer  :: rank
 
2084
 
 
2085
  rank = 6
 
2086
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2087
 
 
2088
end subroutine ARMCI_NbGet_6dc8
 
2089
 
 
2090
subroutine ARMCI_NbGet_7dc8(src, src_slc, dst, dst_slc, proc, rc)
 
2091
  use definekind
 
2092
!  implicit none
 
2093
  interface
 
2094
    subroutine ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2095
      use definekind
 
2096
      use armci_types
 
2097
      complex(kind=C8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
2098
      type(armci_slice), intent(in) :: src_slc, dst_slc
 
2099
      integer, intent(in) :: proc, rank
 
2100
      integer, intent(out) :: rc
 
2101
    end subroutine ARMCI_NbGet_farrays
 
2102
  end interface
 
2103
  complex(kind=C8), dimension(:,:,:,:,:,:,:), pointer :: src, dst
 
2104
  type(armci_slice), intent(in)             :: src_slc, dst_slc
 
2105
  integer, intent(in)                       :: proc
 
2106
  integer, intent(out)                      :: rc
 
2107
  integer :: rank
 
2108
 
 
2109
  rank = 7
 
2110
  call ARMCI_NbGet_farrays(src, src_slc, dst, dst_slc, proc, rank, rc)
 
2111
 
 
2112
end subroutine ARMCI_NbGet_7dc8
 
2113
 
 
2114
end module ARMCI_NbMov