← 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-1/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-1/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