← Back to branch summary

~ubuntu-branches/ubuntu/saucy/nwchem/saucy

« back to all changes in this revision

Viewing changes to src/tools/ga-5-1/armci/f90/armci_mem_f90.f90

  • Committer: Package Import Robot
  • Author(s): Michael Banck, Michael Banck, Daniel Leidert
  • Date: 2012-02-09 20:02:41 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120209200241-jgk03qfsphal4ug2
Tags: 6.1-1
http://bugs.debian.org/632611
https://launchpad.net/bugs/791308
* New upstream release.

[ Michael Banck ]
* debian/patches/02_makefile_flags.patch: Updated.
* debian/patches/02_makefile_flags.patch: Use internal blas and lapack code.
* debian/patches/02_makefile_flags.patch: Define GCC4 for LINUX and LINUX64
  (Closes: #632611 and LP: #791308).
* debian/control (Build-Depends): Added openssh-client.
* debian/rules (USE_SCALAPACK, SCALAPACK): Removed variables (Closes:
  #654658).
* debian/rules (LIBDIR, USE_MPIF4, ARMCI_NETWORK): New variables.
* debian/TODO: New file.
* debian/control (Build-Depends): Removed libblas-dev, liblapack-dev and
  libscalapack-mpi-dev.
* debian/patches/04_show_testsuite_diff_output.patch: New patch, shows the
  diff output for failed tests.
* debian/patches/series: Adjusted.
* debian/testsuite: Optionally run all tests if "all" is passed as option.
* debian/rules: Run debian/testsuite with "all" if DEB_BUILD_OPTIONS
  contains "checkall".

[ Daniel Leidert ]
* debian/control: Used wrap-and-sort. Added Vcs-Svn and Vcs-Browser fields.
  (Priority): Moved to extra according to policy section 2.5.
  (Standards-Version): Bumped to 3.9.2.
  (Description): Fixed a typo.
* debian/watch: Added.
* debian/patches/03_hurd-i386_define_path_max.patch: Added.
  - Define MAX_PATH if not defines to fix FTBFS on hurd.
* debian/patches/series: Adjusted.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tools/ga-5-1/armci/f90/armci_mem_f90.f90
 
1
module armci_mem_f90
 
2
 
 
3
use armci_types
 
4
interface armci_malloc_fa
 
5
  module procedure armci_malloc_1di4
 
6
  module procedure armci_malloc_2di4
 
7
  module procedure armci_malloc_3di4
 
8
  module procedure armci_malloc_4di4
 
9
  module procedure armci_malloc_5di4
 
10
  module procedure armci_malloc_6di4
 
11
  module procedure armci_malloc_7di4
 
12
  module procedure armci_malloc_1di8
 
13
  module procedure armci_malloc_2di8
 
14
  module procedure armci_malloc_3di8
 
15
  module procedure armci_malloc_4di8
 
16
  module procedure armci_malloc_5di8
 
17
  module procedure armci_malloc_6di8
 
18
  module procedure armci_malloc_7di8
 
19
  module procedure armci_malloc_1dr4
 
20
  module procedure armci_malloc_2dr4
 
21
  module procedure armci_malloc_3dr4
 
22
  module procedure armci_malloc_4dr4
 
23
  module procedure armci_malloc_5dr4
 
24
  module procedure armci_malloc_6dr4
 
25
  module procedure armci_malloc_7dr4
 
26
  module procedure armci_malloc_1dr8
 
27
  module procedure armci_malloc_2dr8
 
28
  module procedure armci_malloc_3dr8
 
29
  module procedure armci_malloc_4dr8
 
30
  module procedure armci_malloc_5dr8
 
31
  module procedure armci_malloc_6dr8
 
32
  module procedure armci_malloc_7dr8
 
33
  module procedure armci_malloc_1dc4
 
34
  module procedure armci_malloc_2dc4
 
35
  module procedure armci_malloc_3dc4
 
36
  module procedure armci_malloc_4dc4
 
37
  module procedure armci_malloc_5dc4
 
38
  module procedure armci_malloc_6dc4
 
39
  module procedure armci_malloc_7dc4
 
40
  module procedure armci_malloc_1dc8
 
41
  module procedure armci_malloc_2dc8
 
42
  module procedure armci_malloc_3dc8
 
43
  module procedure armci_malloc_4dc8
 
44
  module procedure armci_malloc_5dc8
 
45
  module procedure armci_malloc_6dc8
 
46
  module procedure armci_malloc_7dc8
 
47
end interface
 
48
 
 
49
interface armci_free_fa
 
50
  module procedure armci_free_1di4
 
51
  module procedure armci_free_2di4
 
52
  module procedure armci_free_3di4
 
53
  module procedure armci_free_4di4
 
54
  module procedure armci_free_5di4
 
55
  module procedure armci_free_6di4
 
56
  module procedure armci_free_7di4
 
57
  module procedure armci_free_1di8
 
58
  module procedure armci_free_2di8
 
59
  module procedure armci_free_3di8
 
60
  module procedure armci_free_4di8
 
61
  module procedure armci_free_5di8
 
62
  module procedure armci_free_6di8
 
63
  module procedure armci_free_7di8
 
64
  module procedure armci_free_1dr4
 
65
  module procedure armci_free_2dr4
 
66
  module procedure armci_free_3dr4
 
67
  module procedure armci_free_4dr4
 
68
  module procedure armci_free_5dr4
 
69
  module procedure armci_free_6dr4
 
70
  module procedure armci_free_7dr4
 
71
  module procedure armci_free_1dr8
 
72
  module procedure armci_free_2dr8
 
73
  module procedure armci_free_3dr8
 
74
  module procedure armci_free_4dr8
 
75
  module procedure armci_free_5dr8
 
76
  module procedure armci_free_6dr8
 
77
  module procedure armci_free_7dr8
 
78
  module procedure armci_free_1dc4
 
79
  module procedure armci_free_2dc4
 
80
  module procedure armci_free_3dc4
 
81
  module procedure armci_free_4dc4
 
82
  module procedure armci_free_5dc4
 
83
  module procedure armci_free_6dc4
 
84
  module procedure armci_free_7dc4
 
85
  module procedure armci_free_1dc8
 
86
  module procedure armci_free_2dc8
 
87
  module procedure armci_free_3dc8
 
88
  module procedure armci_free_4dc8
 
89
  module procedure armci_free_5dc8
 
90
  module procedure armci_free_6dc8
 
91
  module procedure armci_free_7dc8
 
92
end interface
 
93
 
 
94
contains 
 
95
 
 
96
subroutine armci_malloc_1di4(a, lb, ub, rc)
 
97
  use definekind
 
98
  implicit none
 
99
  interface
 
100
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
101
      use definekind
 
102
      integer(kind=i4), dimension(:), pointer :: a
 
103
      integer, intent(in) :: rank, elemsize, lb(1), ub(1)
 
104
      integer, intent(out) :: rc
 
105
    end subroutine armci_malloc_farray
 
106
  end interface
 
107
  integer(kind=i4), dimension(:), pointer :: a
 
108
  integer, dimension(1) :: lb, ub
 
109
  integer, intent(out), optional :: rc
 
110
  integer :: elemsize = 4
 
111
  integer :: rank = 1
 
112
 
 
113
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
114
  if (rc .ne. 0) print *, "error armci_malloc_1di4: error = ", rc
 
115
 
 
116
end subroutine armci_malloc_1di4
 
117
 
 
118
subroutine armci_malloc_2di4(a, lb, ub, rc)
 
119
  use definekind
 
120
  implicit none
 
121
  interface
 
122
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
123
      use definekind
 
124
      integer(kind=i4), dimension(:,:), pointer :: a
 
125
      integer, intent(in) :: rank, elemsize, lb(2), ub(2)
 
126
      integer, intent(out) :: rc
 
127
    end subroutine armci_malloc_farray
 
128
  end interface
 
129
  integer(kind=i4), dimension(:,:), pointer :: a
 
130
  integer, dimension(2) :: lb, ub
 
131
  integer, intent(out), optional :: rc
 
132
  integer :: elemsize = 4
 
133
  integer :: rank = 2
 
134
 
 
135
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
136
  if (rc .ne. 0) print *, "error armci_malloc_2di4: error = ", rc
 
137
 
 
138
end subroutine armci_malloc_2di4
 
139
 
 
140
subroutine armci_malloc_3di4(a, lb, ub, rc)
 
141
  use definekind
 
142
  implicit none
 
143
  interface
 
144
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
145
      use definekind
 
146
      integer(kind=i4), dimension(:,:,:), pointer :: a
 
147
      integer, intent(in) :: rank, elemsize, lb(3), ub(3)
 
148
      integer, intent(out) :: rc
 
149
    end subroutine armci_malloc_farray
 
150
  end interface
 
151
  integer(kind=i4), dimension(:,:,:), pointer :: a
 
152
  integer, dimension(3) :: lb, ub
 
153
  integer, intent(out), optional :: rc
 
154
  integer :: elemsize = 4
 
155
  integer :: rank = 3
 
156
 
 
157
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
158
  if (rc .ne. 0) print *, "error armci_malloc_3di4: error = ", rc
 
159
 
 
160
end subroutine armci_malloc_3di4
 
161
 
 
162
subroutine armci_malloc_4di4(a, lb, ub, rc)
 
163
  use definekind
 
164
  implicit none
 
165
  interface
 
166
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
167
      use definekind
 
168
      integer(kind=i4), dimension(:,:,:,:), pointer :: a
 
169
      integer, intent(in) :: rank, elemsize, lb(4), ub(4)
 
170
      integer, intent(out) :: rc
 
171
    end subroutine armci_malloc_farray
 
172
  end interface
 
173
  integer(kind=i4), dimension(:,:,:,:), pointer :: a
 
174
  integer, dimension(4) :: lb, ub
 
175
  integer, intent(out), optional :: rc
 
176
  integer :: elemsize = 4
 
177
  integer :: rank = 4
 
178
 
 
179
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
180
  if (rc .ne. 0) print *, "error armci_malloc_4di4: error = ", rc
 
181
 
 
182
end subroutine armci_malloc_4di4
 
183
 
 
184
subroutine armci_malloc_5di4(a, lb, ub, rc)
 
185
  use definekind
 
186
  implicit none
 
187
  interface
 
188
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
189
      use definekind
 
190
      integer(kind=i4), dimension(:,:,:,:,:), pointer :: a
 
191
      integer, intent(in) :: rank, elemsize, lb(5), ub(5)
 
192
      integer, intent(out) :: rc
 
193
    end subroutine armci_malloc_farray
 
194
  end interface
 
195
  integer(kind=i4), dimension(:,:,:,:,:), pointer :: a
 
196
  integer, dimension(5) :: lb, ub
 
197
  integer, intent(out), optional :: rc
 
198
  integer :: elemsize = 4
 
199
  integer :: rank = 5
 
200
 
 
201
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
202
  if (rc .ne. 0) print *, "error armci_malloc_5di4: error = ", rc
 
203
 
 
204
end subroutine armci_malloc_5di4
 
205
 
 
206
subroutine armci_malloc_6di4(a, lb, ub, rc)
 
207
  use definekind
 
208
  implicit none
 
209
  interface
 
210
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
211
      use definekind
 
212
      integer(kind=i4), dimension(:,:,:,:,:,:), pointer :: a
 
213
      integer, intent(in) :: rank, elemsize, lb(6), ub(6)
 
214
      integer, intent(out) :: rc
 
215
    end subroutine armci_malloc_farray
 
216
  end interface
 
217
  integer(kind=i4), dimension(:,:,:,:,:,:), pointer :: a
 
218
  integer, dimension(6) :: lb, ub
 
219
  integer, intent(out), optional :: rc
 
220
  integer :: elemsize = 4
 
221
  integer :: rank = 6
 
222
 
 
223
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
224
  if (rc .ne. 0) print *, "error armci_malloc_6di4: error = ", rc
 
225
 
 
226
end subroutine armci_malloc_6di4
 
227
 
 
228
subroutine armci_malloc_7di4(a, lb, ub, rc)
 
229
  use definekind
 
230
  implicit none
 
231
  interface
 
232
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
233
      use definekind
 
234
      integer(kind=i4), dimension(:,:,:,:,:,:,:), pointer :: a
 
235
      integer, intent(in) :: rank, elemsize, lb(7), ub(7)
 
236
      integer, intent(out) :: rc
 
237
    end subroutine armci_malloc_farray
 
238
  end interface
 
239
  integer(kind=i4), dimension(:,:,:,:,:,:,:), pointer :: a
 
240
  integer, dimension(7) :: lb, ub
 
241
  integer, intent(out), optional :: rc
 
242
  integer :: elemsize = 4
 
243
  integer :: rank = 7
 
244
 
 
245
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
246
  if (rc .ne. 0) print *, "error armci_malloc_7di4: error = ", rc
 
247
 
 
248
end subroutine armci_malloc_7di4
 
249
 
 
250
subroutine armci_free_1di4(a, rc)
 
251
  use definekind
 
252
  implicit none
 
253
  interface
 
254
    subroutine armci_free_farray(a, rank, rc)
 
255
      use definekind
 
256
      integer(kind=i4), dimension(:), pointer :: a
 
257
      integer, intent(in)  :: rank
 
258
      integer, intent(out) :: rc
 
259
    end subroutine armci_free_farray
 
260
  end interface
 
261
  integer(kind=i4), dimension(:), pointer :: a
 
262
  integer, intent(out), optional :: rc
 
263
  integer :: rank = 1
 
264
 
 
265
  call armci_free_farray(a, rank, rc)
 
266
  if (rc .ne. 0) print *, "error armci_free_1di4: error = ", rc
 
267
 
 
268
end subroutine armci_free_1di4
 
269
 
 
270
subroutine armci_free_2di4(a, rc)
 
271
  use definekind
 
272
  implicit none
 
273
  interface
 
274
    subroutine armci_free_farray(a, rank, rc)
 
275
      use definekind
 
276
      integer(kind=i4), dimension(:,:), pointer :: a
 
277
      integer, intent(in)  :: rank
 
278
      integer, intent(out) :: rc
 
279
    end subroutine armci_free_farray
 
280
  end interface
 
281
  integer(kind=i4), dimension(:,:), pointer :: a
 
282
  integer, intent(out), optional :: rc
 
283
  integer :: rank = 2
 
284
  call armci_free_farray(a, rank, rc)
 
285
  if (rc .ne. 0) print *, "error armci_free_2di4: error = ", rc
 
286
 
 
287
end subroutine armci_free_2di4
 
288
 
 
289
subroutine armci_free_3di4(a, rc)
 
290
  use definekind
 
291
  implicit none
 
292
  interface
 
293
    subroutine armci_free_farray(a, rank, rc)
 
294
      use definekind
 
295
      integer(kind=i4), dimension(:,:,:), pointer :: a
 
296
      integer, intent(in)  :: rank
 
297
      integer, intent(out) :: rc
 
298
    end subroutine armci_free_farray
 
299
  end interface
 
300
  integer(kind=i4), dimension(:,:,:), pointer :: a
 
301
  integer, intent(out), optional :: rc
 
302
  integer :: rank = 3
 
303
  call armci_free_farray(a, rank, rc)
 
304
  if (rc .ne. 0) print *, "error armci_free_3di4: error = ", rc
 
305
 
 
306
end subroutine armci_free_3di4
 
307
 
 
308
subroutine armci_free_4di4(a, rc)
 
309
  use definekind
 
310
  implicit none
 
311
  interface
 
312
    subroutine armci_free_farray(a, rank, rc)
 
313
      use definekind
 
314
      integer(kind=i4), dimension(:,:,:,:), pointer :: a
 
315
      integer, intent(in)  :: rank
 
316
      integer, intent(out) :: rc
 
317
    end subroutine armci_free_farray
 
318
  end interface
 
319
  integer(kind=i4), dimension(:,:,:,:), pointer :: a
 
320
  integer, intent(out), optional :: rc
 
321
  integer :: rank = 4
 
322
  call armci_free_farray(a, rank, rc)
 
323
  if (rc .ne. 0) print *, "error armci_free_4di4: error = ", rc
 
324
 
 
325
end subroutine armci_free_4di4
 
326
 
 
327
subroutine armci_free_5di4(a, rc)
 
328
  use definekind
 
329
  implicit none
 
330
  interface
 
331
    subroutine armci_free_farray(a, rank, rc)
 
332
      use definekind
 
333
      integer(kind=i4), dimension(:,:,:,:,:), pointer :: a
 
334
      integer, intent(in)  :: rank
 
335
      integer, intent(out) :: rc
 
336
    end subroutine armci_free_farray
 
337
  end interface
 
338
  integer(kind=i4), dimension(:,:,:,:,:), pointer :: a
 
339
  integer, intent(out), optional :: rc
 
340
  integer :: rank = 5
 
341
  call armci_free_farray(a, rank, rc)
 
342
  if (rc .ne. 0) print *, "error armci_free_5di4: error = ", rc
 
343
 
 
344
end subroutine armci_free_5di4
 
345
 
 
346
subroutine armci_free_6di4(a, rc)
 
347
  use definekind
 
348
  implicit none
 
349
  interface
 
350
    subroutine armci_free_farray(a, rank, rc)
 
351
      use definekind
 
352
      integer(kind=i4), dimension(:,:,:,:,:,:), pointer :: a
 
353
      integer, intent(in)  :: rank
 
354
      integer, intent(out) :: rc
 
355
    end subroutine armci_free_farray
 
356
  end interface
 
357
  integer(kind=i4), dimension(:,:,:,:,:,:), pointer :: a
 
358
  integer, intent(out), optional :: rc
 
359
  integer :: rank = 6
 
360
  call armci_free_farray(a, rank, rc)
 
361
  if (rc .ne. 0) print *, "error armci_free_6di4: error = ", rc
 
362
 
 
363
end subroutine armci_free_6di4
 
364
 
 
365
subroutine armci_free_7di4(a, rc)
 
366
  use definekind
 
367
  implicit none
 
368
  interface
 
369
    subroutine armci_free_farray(a, rank, rc)
 
370
      use definekind
 
371
      integer(kind=i4), dimension(:,:,:,:,:,:,:), pointer :: a
 
372
      integer, intent(in)  :: rank
 
373
      integer, intent(out) :: rc
 
374
    end subroutine armci_free_farray
 
375
  end interface
 
376
  integer(kind=i4), dimension(:,:,:,:,:,:,:), pointer :: a
 
377
  integer, intent(out), optional :: rc
 
378
  integer :: rank = 7
 
379
  call armci_free_farray(a, rank, rc)
 
380
  if (rc .ne. 0) print *, "error armci_free_7di4: error = ", rc
 
381
 
 
382
end subroutine armci_free_7di4
 
383
 
 
384
subroutine armci_malloc_1di8(a, lb, ub, rc)
 
385
  use definekind
 
386
  implicit none
 
387
  interface
 
388
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
389
      use definekind
 
390
      integer(kind=i8), dimension(:), pointer :: a
 
391
      integer, intent(in) :: rank, elemsize, lb(1), ub(1)
 
392
      integer, intent(out) :: rc
 
393
    end subroutine armci_malloc_farray
 
394
  end interface
 
395
  integer(kind=i8), dimension(:), pointer :: a
 
396
  integer, dimension(1) :: lb, ub
 
397
  integer, intent(out), optional :: rc
 
398
  integer :: elemsize = 8
 
399
  integer :: rank = 1
 
400
 
 
401
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
402
  if (rc .ne. 0) print *, "error armci_malloc_1di8: error = ", rc
 
403
 
 
404
end subroutine armci_malloc_1di8
 
405
 
 
406
subroutine armci_malloc_2di8(a, lb, ub, rc)
 
407
  use definekind
 
408
  implicit none
 
409
  interface
 
410
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
411
      use definekind
 
412
      integer(kind=i8), dimension(:,:), pointer :: a
 
413
      integer, intent(in) :: rank, elemsize, lb(2), ub(2)
 
414
      integer, intent(out) :: rc
 
415
    end subroutine armci_malloc_farray
 
416
  end interface
 
417
  integer(kind=i8), dimension(:,:), pointer :: a
 
418
  integer, dimension(2) :: lb, ub
 
419
  integer, intent(out), optional :: rc
 
420
  integer :: elemsize = 8
 
421
  integer :: rank = 2
 
422
 
 
423
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
424
  if (rc .ne. 0) print *, "error armci_malloc_2di8: error = ", rc
 
425
 
 
426
end subroutine armci_malloc_2di8
 
427
 
 
428
subroutine armci_malloc_3di8(a, lb, ub, rc)
 
429
  use definekind
 
430
  implicit none
 
431
  interface
 
432
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
433
      use definekind
 
434
      integer(kind=i8), dimension(:,:,:), pointer :: a
 
435
      integer, intent(in) :: rank, elemsize, lb(3), ub(3)
 
436
      integer, intent(out) :: rc
 
437
    end subroutine armci_malloc_farray
 
438
  end interface
 
439
  integer(kind=i8), dimension(:,:,:), pointer :: a
 
440
  integer, dimension(3) :: lb, ub
 
441
  integer, intent(out), optional :: rc
 
442
  integer :: elemsize = 8
 
443
  integer :: rank = 3
 
444
 
 
445
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
446
  if (rc .ne. 0) print *, "error armci_malloc_3di8: error = ", rc
 
447
 
 
448
end subroutine armci_malloc_3di8
 
449
 
 
450
subroutine armci_malloc_4di8(a, lb, ub, rc)
 
451
  use definekind
 
452
  implicit none
 
453
  interface
 
454
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
455
      use definekind
 
456
      integer(kind=i8), dimension(:,:,:,:), pointer :: a
 
457
      integer, intent(in) :: rank, elemsize, lb(4), ub(4)
 
458
      integer, intent(out) :: rc
 
459
    end subroutine armci_malloc_farray
 
460
  end interface
 
461
  integer(kind=i8), dimension(:,:,:,:), pointer :: a
 
462
  integer, dimension(4) :: lb, ub
 
463
  integer, intent(out), optional :: rc
 
464
  integer :: elemsize = 8
 
465
  integer :: rank = 4
 
466
 
 
467
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
468
  if (rc .ne. 0) print *, "error armci_malloc_4di8: error = ", rc
 
469
 
 
470
end subroutine armci_malloc_4di8
 
471
 
 
472
subroutine armci_malloc_5di8(a, lb, ub, rc)
 
473
  use definekind
 
474
  implicit none
 
475
  interface
 
476
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
477
      use definekind
 
478
      integer(kind=i8), dimension(:,:,:,:,:), pointer :: a
 
479
      integer, intent(in) :: rank, elemsize, lb(5), ub(5)
 
480
      integer, intent(out) :: rc
 
481
    end subroutine armci_malloc_farray
 
482
  end interface
 
483
  integer(kind=i8), dimension(:,:,:,:,:), pointer :: a
 
484
  integer, dimension(5) :: lb, ub
 
485
  integer, intent(out), optional :: rc
 
486
  integer :: elemsize = 8
 
487
  integer :: rank = 5
 
488
 
 
489
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
490
  if (rc .ne. 0) print *, "error armci_malloc_5di8: error = ", rc
 
491
 
 
492
end subroutine armci_malloc_5di8
 
493
 
 
494
subroutine armci_malloc_6di8(a, lb, ub, rc)
 
495
  use definekind
 
496
  implicit none
 
497
  interface
 
498
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
499
      use definekind
 
500
      integer(kind=i8), dimension(:,:,:,:,:,:), pointer :: a
 
501
      integer, intent(in) :: rank, elemsize, lb(6), ub(6)
 
502
      integer, intent(out) :: rc
 
503
    end subroutine armci_malloc_farray
 
504
  end interface
 
505
  integer(kind=i8), dimension(:,:,:,:,:,:), pointer :: a
 
506
  integer, dimension(6) :: lb, ub
 
507
  integer, intent(out), optional :: rc
 
508
  integer :: elemsize = 8
 
509
  integer :: rank = 6
 
510
 
 
511
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
512
!  if (rc .ne. 0) print *, "error armci_malloc_6di8: error = ", rc
 
513
 
 
514
end subroutine armci_malloc_6di8
 
515
 
 
516
subroutine armci_malloc_7di8(a, lb, ub, rc)
 
517
  use definekind
 
518
  implicit none
 
519
  interface
 
520
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
521
      use definekind
 
522
      integer(kind=i8), dimension(:,:,:,:,:,:,:), pointer :: a
 
523
      integer, intent(in) :: rank, elemsize, lb(7), ub(7)
 
524
      integer, intent(out) :: rc
 
525
    end subroutine armci_malloc_farray
 
526
  end interface
 
527
  integer(kind=i8), dimension(:,:,:,:,:,:,:), pointer :: a
 
528
  integer, dimension(7) :: lb, ub
 
529
  integer, intent(out), optional :: rc
 
530
  integer :: elemsize = 8
 
531
  integer :: rank = 7
 
532
 
 
533
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
534
!  if (rc .ne. 0) print *, "error armci_malloc_7di8: error = ", rc
 
535
 
 
536
end subroutine armci_malloc_7di8
 
537
 
 
538
subroutine armci_free_1di8(a, rc)
 
539
  use definekind
 
540
  implicit none
 
541
  interface
 
542
    subroutine armci_free_farray(a, rank, rc)
 
543
      use definekind
 
544
      integer(kind=i8), dimension(:), pointer :: a
 
545
      integer, intent(in)  :: rank
 
546
      integer, intent(out) :: rc
 
547
    end subroutine armci_free_farray
 
548
  end interface
 
549
  integer(kind=i8), dimension(:), pointer :: a
 
550
  integer, intent(out), optional :: rc
 
551
  integer :: rank = 1
 
552
 
 
553
  call armci_free_farray(a, rank, rc)
 
554
!  if (rc .ne. 0) print *, "error armci_free_1di8: error = ", rc
 
555
 
 
556
end subroutine armci_free_1di8
 
557
 
 
558
subroutine armci_free_2di8(a, rc)
 
559
  use definekind
 
560
  implicit none
 
561
  interface
 
562
    subroutine armci_free_farray(a, rank, rc)
 
563
      use definekind
 
564
      integer(kind=i8), dimension(:,:), pointer :: a
 
565
      integer, intent(in)  :: rank
 
566
      integer, intent(out) :: rc
 
567
    end subroutine armci_free_farray
 
568
  end interface
 
569
  integer(kind=i8), dimension(:,:), pointer :: a
 
570
  integer, intent(out), optional :: rc
 
571
  integer :: rank = 2
 
572
  call armci_free_farray(a, rank, rc)
 
573
!  if (rc .ne. 0) print *, "error armci_free_2di8: error = ", rc
 
574
 
 
575
end subroutine armci_free_2di8
 
576
 
 
577
subroutine armci_free_3di8(a, rc)
 
578
  use definekind
 
579
  implicit none
 
580
  interface
 
581
    subroutine armci_free_farray(a, rank, rc)
 
582
      use definekind
 
583
      integer(kind=i8), dimension(:,:,:), pointer :: a
 
584
      integer, intent(in)  :: rank
 
585
      integer, intent(out) :: rc
 
586
    end subroutine armci_free_farray
 
587
  end interface
 
588
  integer(kind=i8), dimension(:,:,:), pointer :: a
 
589
  integer, intent(out), optional :: rc
 
590
  integer :: rank = 3
 
591
  call armci_free_farray(a, rank, rc)
 
592
!  if (rc .ne. 0) print *, "error armci_free_3di8: error = ", rc
 
593
 
 
594
end subroutine armci_free_3di8
 
595
 
 
596
subroutine armci_free_4di8(a, rc)
 
597
  use definekind
 
598
  implicit none
 
599
  interface
 
600
    subroutine armci_free_farray(a, rank, rc)
 
601
      use definekind
 
602
      integer(kind=i8), dimension(:,:,:,:), pointer :: a
 
603
      integer, intent(in)  :: rank
 
604
      integer, intent(out) :: rc
 
605
    end subroutine armci_free_farray
 
606
  end interface
 
607
  integer(kind=i8), dimension(:,:,:,:), pointer :: a
 
608
  integer, intent(out), optional :: rc
 
609
  integer :: rank = 4
 
610
  call armci_free_farray(a, rank, rc)
 
611
!  if (rc .ne. 0) print *, "error armci_free_4di8: error = ", rc
 
612
 
 
613
end subroutine armci_free_4di8
 
614
 
 
615
subroutine armci_free_5di8(a, rc)
 
616
  use definekind
 
617
  implicit none
 
618
  interface
 
619
    subroutine armci_free_farray(a, rank, rc)
 
620
      use definekind
 
621
      integer(kind=i8), dimension(:,:,:,:,:), pointer :: a
 
622
      integer, intent(in)  :: rank
 
623
      integer, intent(out) :: rc
 
624
    end subroutine armci_free_farray
 
625
  end interface
 
626
  integer(kind=i8), dimension(:,:,:,:,:), pointer :: a
 
627
  integer, intent(out), optional :: rc
 
628
  integer :: rank = 5
 
629
  call armci_free_farray(a, rank, rc)
 
630
!  if (rc .ne. 0) print *, "error armci_free_5di8: error = ", rc
 
631
 
 
632
end subroutine armci_free_5di8
 
633
 
 
634
subroutine armci_free_6di8(a, rc)
 
635
  use definekind
 
636
  implicit none
 
637
  interface
 
638
    subroutine armci_free_farray(a, rank, rc)
 
639
      use definekind
 
640
      integer(kind=i8), dimension(:,:,:,:,:,:), pointer :: a
 
641
      integer, intent(in)  :: rank
 
642
      integer, intent(out) :: rc
 
643
    end subroutine armci_free_farray
 
644
  end interface
 
645
  integer(kind=i8), dimension(:,:,:,:,:,:), pointer :: a
 
646
  integer, intent(out), optional :: rc
 
647
  integer :: rank = 6
 
648
  call armci_free_farray(a, rank, rc)
 
649
!  if (rc .ne. 0) print *, "error armci_free_6di8: error = ", rc
 
650
 
 
651
end subroutine armci_free_6di8
 
652
 
 
653
subroutine armci_free_7di8(a, rc)
 
654
  use definekind
 
655
  implicit none
 
656
  interface
 
657
    subroutine armci_free_farray(a, rank, rc)
 
658
      use definekind
 
659
      integer(kind=i8), dimension(:,:,:,:,:,:,:), pointer :: a
 
660
      integer, intent(in)  :: rank
 
661
      integer, intent(out) :: rc
 
662
    end subroutine armci_free_farray
 
663
  end interface
 
664
  integer(kind=i8), dimension(:,:,:,:,:,:,:), pointer :: a
 
665
  integer, intent(out), optional :: rc
 
666
  integer :: rank = 7
 
667
  call armci_free_farray(a, rank, rc)
 
668
!  if (rc .ne. 0) print *, "error armci_free_7di8: error = ", rc
 
669
 
 
670
end subroutine armci_free_7di8
 
671
 
 
672
subroutine armci_malloc_1dr4(a, lb, ub, rc)
 
673
  use definekind
 
674
  implicit none
 
675
  interface
 
676
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
677
      use definekind
 
678
      real(kind=r4), dimension(:), pointer :: a
 
679
      integer, intent(in) :: rank, elemsize, lb(1), ub(1)
 
680
      integer, intent(out) :: rc
 
681
    end subroutine armci_malloc_farray
 
682
  end interface
 
683
  real(kind=r4), dimension(:), pointer :: a
 
684
  integer, dimension(1) :: lb, ub
 
685
  integer, intent(out), optional :: rc
 
686
  integer :: elemsize = 4
 
687
  integer :: rank = 1
 
688
 
 
689
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
690
!  if (rc .ne. 0) print *, "error armci_malloc_1dr4: error = ", rc
 
691
 
 
692
end subroutine armci_malloc_1dr4
 
693
 
 
694
subroutine armci_malloc_2dr4(a, lb, ub, rc)
 
695
  use definekind
 
696
  implicit none
 
697
  interface
 
698
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
699
      use definekind
 
700
      real(kind=r4), dimension(:,:), pointer :: a
 
701
      integer, intent(in) :: rank, elemsize, lb(2), ub(2)
 
702
      integer, intent(out) :: rc
 
703
    end subroutine armci_malloc_farray
 
704
  end interface
 
705
  real(kind=r4), dimension(:,:), pointer :: a
 
706
  integer, dimension(2) :: lb, ub
 
707
  integer, intent(out), optional :: rc
 
708
  integer :: elemsize = 4
 
709
  integer :: rank = 2
 
710
 
 
711
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
712
!  if (rc .ne. 0) print *, "error armci_malloc_2dr4: error = ", rc
 
713
 
 
714
end subroutine armci_malloc_2dr4
 
715
 
 
716
subroutine armci_malloc_3dr4(a, lb, ub, rc)
 
717
  use definekind
 
718
  implicit none
 
719
  interface
 
720
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
721
      use definekind
 
722
      real(kind=r4), dimension(:,:,:), pointer :: a
 
723
      integer, intent(in) :: rank, elemsize, lb(3), ub(3)
 
724
      integer, intent(out) :: rc
 
725
    end subroutine armci_malloc_farray
 
726
  end interface
 
727
  real(kind=r4), dimension(:,:,:), pointer :: a
 
728
  integer, dimension(3) :: lb, ub
 
729
  integer, intent(out), optional :: rc
 
730
  integer :: elemsize = 4
 
731
  integer :: rank = 3
 
732
 
 
733
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
734
!  if (rc .ne. 0) print *, "error armci_malloc_3dr4: error = ", rc
 
735
 
 
736
end subroutine armci_malloc_3dr4
 
737
 
 
738
subroutine armci_malloc_4dr4(a, lb, ub, rc)
 
739
  use definekind
 
740
  implicit none
 
741
  interface
 
742
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
743
      use definekind
 
744
      real(kind=r4), dimension(:,:,:,:), pointer :: a
 
745
      integer, intent(in) :: rank, elemsize, lb(4), ub(4)
 
746
      integer, intent(out) :: rc
 
747
    end subroutine armci_malloc_farray
 
748
  end interface
 
749
  real(kind=r4), dimension(:,:,:,:), pointer :: a
 
750
  integer, dimension(4) :: lb, ub
 
751
  integer, intent(out), optional :: rc
 
752
  integer :: elemsize = 4
 
753
  integer :: rank = 4
 
754
 
 
755
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
756
!  if (rc .ne. 0) print *, "error armci_malloc_4dr4: error = ", rc
 
757
 
 
758
end subroutine armci_malloc_4dr4
 
759
 
 
760
subroutine armci_malloc_5dr4(a, lb, ub, rc)
 
761
  use definekind
 
762
  implicit none
 
763
  interface
 
764
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
765
      use definekind
 
766
      real(kind=r4), dimension(:,:,:,:,:), pointer :: a
 
767
      integer, intent(in) :: rank, elemsize, lb(5), ub(5)
 
768
      integer, intent(out) :: rc
 
769
    end subroutine armci_malloc_farray
 
770
  end interface
 
771
  real(kind=r4), dimension(:,:,:,:,:), pointer :: a
 
772
  integer, dimension(5) :: lb, ub
 
773
  integer, intent(out), optional :: rc
 
774
  integer :: elemsize = 4
 
775
  integer :: rank = 5
 
776
 
 
777
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
778
!  if (rc .ne. 0) print *, "error armci_malloc_5dr4: error = ", rc
 
779
 
 
780
end subroutine armci_malloc_5dr4
 
781
 
 
782
subroutine armci_malloc_6dr4(a, lb, ub, rc)
 
783
  use definekind
 
784
  implicit none
 
785
  interface
 
786
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
787
      use definekind
 
788
      real(kind=r4), dimension(:,:,:,:,:,:), pointer :: a
 
789
      integer, intent(in) :: rank, elemsize, lb(6), ub(6)
 
790
      integer, intent(out) :: rc
 
791
    end subroutine armci_malloc_farray
 
792
  end interface
 
793
  real(kind=r4), dimension(:,:,:,:,:,:), pointer :: a
 
794
  integer, dimension(6) :: lb, ub
 
795
  integer, intent(out), optional :: rc
 
796
  integer :: elemsize = 4
 
797
  integer :: rank = 6
 
798
 
 
799
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
800
!  if (rc .ne. 0) print *, "error armci_malloc_6dr4: error = ", rc
 
801
 
 
802
end subroutine armci_malloc_6dr4
 
803
 
 
804
subroutine armci_malloc_7dr4(a, lb, ub, rc)
 
805
  use definekind
 
806
  implicit none
 
807
  interface
 
808
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
809
      use definekind
 
810
      real(kind=r4), dimension(:,:,:,:,:,:,:), pointer :: a
 
811
      integer, intent(in) :: rank, elemsize, lb(7), ub(7)
 
812
      integer, intent(out) :: rc
 
813
    end subroutine armci_malloc_farray
 
814
  end interface
 
815
  real(kind=r4), dimension(:,:,:,:,:,:,:), pointer :: a
 
816
  integer, dimension(7) :: lb, ub
 
817
  integer, intent(out), optional :: rc
 
818
  integer :: elemsize = 4
 
819
  integer :: rank = 7
 
820
 
 
821
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
822
!  if (rc .ne. 0) print *, "error armci_malloc_7dr4: error = ", rc
 
823
 
 
824
end subroutine armci_malloc_7dr4
 
825
 
 
826
subroutine armci_free_1dr4(a, rc)
 
827
  use definekind
 
828
  implicit none
 
829
  interface
 
830
    subroutine armci_free_farray(a, rank, rc)
 
831
      use definekind
 
832
      real(kind=r4), dimension(:), pointer :: a
 
833
      integer, intent(in)  :: rank
 
834
      integer, intent(out) :: rc
 
835
    end subroutine armci_free_farray
 
836
  end interface
 
837
  real(kind=r4), dimension(:), pointer :: a
 
838
  integer, intent(out), optional :: rc
 
839
  integer :: rank = 1
 
840
 
 
841
  call armci_free_farray(a, rank, rc)
 
842
!  if (rc .ne. 0) print *, "error armci_free_1dr4: error = ", rc
 
843
 
 
844
end subroutine armci_free_1dr4
 
845
 
 
846
subroutine armci_free_2dr4(a, rc)
 
847
  use definekind
 
848
  implicit none
 
849
  interface
 
850
    subroutine armci_free_farray(a, rank, rc)
 
851
      use definekind
 
852
      real(kind=r4), dimension(:,:), pointer :: a
 
853
      integer, intent(in)  :: rank
 
854
      integer, intent(out) :: rc
 
855
    end subroutine armci_free_farray
 
856
  end interface
 
857
  real(kind=r4), dimension(:,:), pointer :: a
 
858
  integer, intent(out), optional :: rc
 
859
  integer :: rank = 2
 
860
  call armci_free_farray(a, rank, rc)
 
861
!  if (rc .ne. 0) print *, "error armci_free_2dr4: error = ", rc
 
862
 
 
863
end subroutine armci_free_2dr4
 
864
 
 
865
subroutine armci_free_3dr4(a, rc)
 
866
  use definekind
 
867
  implicit none
 
868
  interface
 
869
    subroutine armci_free_farray(a, rank, rc)
 
870
      use definekind
 
871
      real(kind=r4), dimension(:,:,:), pointer :: a
 
872
      integer, intent(in)  :: rank
 
873
      integer, intent(out) :: rc
 
874
    end subroutine armci_free_farray
 
875
  end interface
 
876
  real(kind=r4), dimension(:,:,:), pointer :: a
 
877
  integer, intent(out), optional :: rc
 
878
  integer :: rank = 3
 
879
  call armci_free_farray(a, rank, rc)
 
880
!  if (rc .ne. 0) print *, "error armci_free_3dr4: error = ", rc
 
881
 
 
882
end subroutine armci_free_3dr4
 
883
 
 
884
subroutine armci_free_4dr4(a, rc)
 
885
  use definekind
 
886
  implicit none
 
887
  interface
 
888
    subroutine armci_free_farray(a, rank, rc)
 
889
      use definekind
 
890
      real(kind=r4), dimension(:,:,:,:), pointer :: a
 
891
      integer, intent(in)  :: rank
 
892
      integer, intent(out) :: rc
 
893
    end subroutine armci_free_farray
 
894
  end interface
 
895
  real(kind=r4), dimension(:,:,:,:), pointer :: a
 
896
  integer, intent(out), optional :: rc
 
897
  integer :: rank = 4
 
898
  call armci_free_farray(a, rank, rc)
 
899
!  if (rc .ne. 0) print *, "error armci_free_4dr4: error = ", rc
 
900
 
 
901
end subroutine armci_free_4dr4
 
902
 
 
903
subroutine armci_free_5dr4(a, rc)
 
904
  use definekind
 
905
  implicit none
 
906
  interface
 
907
    subroutine armci_free_farray(a, rank, rc)
 
908
      use definekind
 
909
      real(kind=r4), dimension(:,:,:,:,:), pointer :: a
 
910
      integer, intent(in)  :: rank
 
911
      integer, intent(out) :: rc
 
912
    end subroutine armci_free_farray
 
913
  end interface
 
914
  real(kind=r4), dimension(:,:,:,:,:), pointer :: a
 
915
  integer, intent(out), optional :: rc
 
916
  integer :: rank = 5
 
917
  call armci_free_farray(a, rank, rc)
 
918
!  if (rc .ne. 0) print *, "error armci_free_5dr4: error = ", rc
 
919
 
 
920
end subroutine armci_free_5dr4
 
921
 
 
922
subroutine armci_free_6dr4(a, rc)
 
923
  use definekind
 
924
  implicit none
 
925
  interface
 
926
    subroutine armci_free_farray(a, rank, rc)
 
927
      use definekind
 
928
      real(kind=r4), dimension(:,:,:,:,:,:), pointer :: a
 
929
      integer, intent(in)  :: rank
 
930
      integer, intent(out) :: rc
 
931
    end subroutine armci_free_farray
 
932
  end interface
 
933
  real(kind=r4), dimension(:,:,:,:,:,:), pointer :: a
 
934
  integer, intent(out), optional :: rc
 
935
  integer :: rank = 6
 
936
  call armci_free_farray(a, rank, rc)
 
937
!  if (rc .ne. 0) print *, "error armci_free_6dr4: error = ", rc
 
938
 
 
939
end subroutine armci_free_6dr4
 
940
 
 
941
subroutine armci_free_7dr4(a, rc)
 
942
  use definekind
 
943
  implicit none
 
944
  interface
 
945
    subroutine armci_free_farray(a, rank, rc)
 
946
      use definekind
 
947
      real(kind=r4), dimension(:,:,:,:,:,:,:), pointer :: a
 
948
      integer, intent(in)  :: rank
 
949
      integer, intent(out) :: rc
 
950
    end subroutine armci_free_farray
 
951
  end interface
 
952
  real(kind=r4), dimension(:,:,:,:,:,:,:), pointer :: a
 
953
  integer, intent(out), optional :: rc
 
954
  integer :: rank = 7
 
955
  call armci_free_farray(a, rank, rc)
 
956
!  if (rc .ne. 0) print *, "error armci_free_7dr4: error = ", rc
 
957
 
 
958
end subroutine armci_free_7dr4
 
959
 
 
960
subroutine armci_malloc_1dr8(a, lb, ub, rc)
 
961
  use definekind
 
962
  implicit none
 
963
  interface
 
964
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
965
      use definekind
 
966
      real(kind=r8), dimension(:), pointer :: a
 
967
      integer, intent(in) :: rank, elemsize, lb(1), ub(1)
 
968
      integer, intent(out) :: rc
 
969
    end subroutine armci_malloc_farray
 
970
  end interface
 
971
  real(kind=r8), dimension(:), pointer :: a
 
972
  integer, dimension(1) :: lb, ub
 
973
  integer, intent(out), optional :: rc
 
974
  integer :: elemsize = 8
 
975
  integer :: rank = 1
 
976
 
 
977
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
978
!  if (rc .ne. 0) print *, "error armci_malloc_1dr8: error = ", rc
 
979
 
 
980
end subroutine armci_malloc_1dr8
 
981
 
 
982
subroutine armci_malloc_2dr8(a, lb, ub, rc)
 
983
  use definekind
 
984
  implicit none
 
985
  interface
 
986
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
987
      use definekind
 
988
      real(kind=r8), dimension(:,:), pointer :: a
 
989
      integer, intent(in) :: rank, elemsize, lb(2), ub(2)
 
990
      integer, intent(out) :: rc
 
991
    end subroutine armci_malloc_farray
 
992
  end interface
 
993
  real(kind=r8), dimension(:,:), pointer :: a
 
994
  integer, dimension(2) :: lb, ub
 
995
  integer, intent(out), optional :: rc
 
996
  integer :: elemsize = 8
 
997
  integer :: rank = 2
 
998
 
 
999
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1000
!  if (rc .ne. 0) print *, "error armci_malloc_2dr8: error = ", rc
 
1001
 
 
1002
end subroutine armci_malloc_2dr8
 
1003
 
 
1004
subroutine armci_malloc_3dr8(a, lb, ub, rc)
 
1005
  use definekind
 
1006
  implicit none
 
1007
  interface
 
1008
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1009
      use definekind
 
1010
      real(kind=r8), dimension(:,:,:), pointer :: a
 
1011
      integer, intent(in) :: rank, elemsize, lb(3), ub(3)
 
1012
      integer, intent(out) :: rc
 
1013
    end subroutine armci_malloc_farray
 
1014
  end interface
 
1015
  real(kind=r8), dimension(:,:,:), pointer :: a
 
1016
  integer, dimension(3) :: lb, ub
 
1017
  integer, intent(out), optional :: rc
 
1018
  integer :: elemsize = 8
 
1019
  integer :: rank = 3
 
1020
 
 
1021
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1022
!  if (rc .ne. 0) print *, "error armci_malloc_3dr8: error = ", rc
 
1023
 
 
1024
end subroutine armci_malloc_3dr8
 
1025
 
 
1026
subroutine armci_malloc_4dr8(a, lb, ub, rc)
 
1027
  use definekind
 
1028
  implicit none
 
1029
  interface
 
1030
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1031
      use definekind
 
1032
      real(kind=r8), dimension(:,:,:,:), pointer :: a
 
1033
      integer, intent(in) :: rank, elemsize, lb(4), ub(4)
 
1034
      integer, intent(out) :: rc
 
1035
    end subroutine armci_malloc_farray
 
1036
  end interface
 
1037
  real(kind=r8), dimension(:,:,:,:), pointer :: a
 
1038
  integer, dimension(4) :: lb, ub
 
1039
  integer, intent(out), optional :: rc
 
1040
  integer :: elemsize = 8
 
1041
  integer :: rank = 4
 
1042
 
 
1043
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1044
!  if (rc .ne. 0) print *, "error armci_malloc_4dr8: error = ", rc
 
1045
 
 
1046
end subroutine armci_malloc_4dr8
 
1047
 
 
1048
subroutine armci_malloc_5dr8(a, lb, ub, rc)
 
1049
  use definekind
 
1050
  implicit none
 
1051
  interface
 
1052
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1053
      use definekind
 
1054
      real(kind=r8), dimension(:,:,:,:,:), pointer :: a
 
1055
      integer, intent(in) :: rank, elemsize, lb(5), ub(5)
 
1056
      integer, intent(out) :: rc
 
1057
    end subroutine armci_malloc_farray
 
1058
  end interface
 
1059
  real(kind=r8), dimension(:,:,:,:,:), pointer :: a
 
1060
  integer, dimension(5) :: lb, ub
 
1061
  integer, intent(out), optional :: rc
 
1062
  integer :: elemsize = 8
 
1063
  integer :: rank = 5
 
1064
 
 
1065
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1066
!  if (rc .ne. 0) print *, "error armci_malloc_5dr8: error = ", rc
 
1067
 
 
1068
end subroutine armci_malloc_5dr8
 
1069
 
 
1070
subroutine armci_malloc_6dr8(a, lb, ub, rc)
 
1071
  use definekind
 
1072
  implicit none
 
1073
  interface
 
1074
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1075
      use definekind
 
1076
      real(kind=r8), dimension(:,:,:,:,:,:), pointer :: a
 
1077
      integer, intent(in) :: rank, elemsize, lb(6), ub(6)
 
1078
      integer, intent(out) :: rc
 
1079
    end subroutine armci_malloc_farray
 
1080
  end interface
 
1081
  real(kind=r8), dimension(:,:,:,:,:,:), pointer :: a
 
1082
  integer, dimension(6) :: lb, ub
 
1083
  integer, intent(out), optional :: rc
 
1084
  integer :: elemsize = 8
 
1085
  integer :: rank = 6
 
1086
 
 
1087
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1088
!  if (rc .ne. 0) print *, "error armci_malloc_6dr8: error = ", rc
 
1089
 
 
1090
end subroutine armci_malloc_6dr8
 
1091
 
 
1092
subroutine armci_malloc_7dr8(a, lb, ub, rc)
 
1093
  use definekind
 
1094
  implicit none
 
1095
  interface
 
1096
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1097
      use definekind
 
1098
      real(kind=r8), dimension(:,:,:,:,:,:,:), pointer :: a
 
1099
      integer, intent(in) :: rank, elemsize, lb(7), ub(7)
 
1100
      integer, intent(out) :: rc
 
1101
    end subroutine armci_malloc_farray
 
1102
  end interface
 
1103
  real(kind=r8), dimension(:,:,:,:,:,:,:), pointer :: a
 
1104
  integer, dimension(7) :: lb, ub
 
1105
  integer, intent(out), optional :: rc
 
1106
  integer :: elemsize = 8
 
1107
  integer :: rank = 7
 
1108
 
 
1109
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1110
!  if (rc .ne. 0) print *, "error armci_malloc_7dr8: error = ", rc
 
1111
 
 
1112
end subroutine armci_malloc_7dr8
 
1113
 
 
1114
subroutine armci_free_1dr8(a, rc)
 
1115
  use definekind
 
1116
  implicit none
 
1117
  interface
 
1118
    subroutine armci_free_farray(a, rank, rc)
 
1119
      use definekind
 
1120
      real(kind=r8), dimension(:), pointer :: a
 
1121
      integer, intent(in)  :: rank
 
1122
      integer, intent(out) :: rc
 
1123
    end subroutine armci_free_farray
 
1124
  end interface
 
1125
  real(kind=r8), dimension(:), pointer :: a
 
1126
  integer, intent(out), optional :: rc
 
1127
  integer :: rank = 1
 
1128
 
 
1129
  call armci_free_farray(a, rank, rc)
 
1130
!  if (rc .ne. 0) print *, "error armci_free_1dr8: error = ", rc
 
1131
 
 
1132
end subroutine armci_free_1dr8
 
1133
 
 
1134
subroutine armci_free_2dr8(a, rc)
 
1135
  use definekind
 
1136
  implicit none
 
1137
  interface
 
1138
    subroutine armci_free_farray(a, rank, rc)
 
1139
      use definekind
 
1140
      real(kind=r8), dimension(:,:), pointer :: a
 
1141
      integer, intent(in)  :: rank
 
1142
      integer, intent(out) :: rc
 
1143
    end subroutine armci_free_farray
 
1144
  end interface
 
1145
  real(kind=r8), dimension(:,:), pointer :: a
 
1146
  integer, intent(out), optional :: rc
 
1147
  integer :: rank = 2
 
1148
  call armci_free_farray(a, rank, rc)
 
1149
!  if (rc .ne. 0) print *, "error armci_free_2dr8: error = ", rc
 
1150
 
 
1151
end subroutine armci_free_2dr8
 
1152
 
 
1153
subroutine armci_free_3dr8(a, rc)
 
1154
  use definekind
 
1155
  implicit none
 
1156
  interface
 
1157
    subroutine armci_free_farray(a, rank, rc)
 
1158
      use definekind
 
1159
      real(kind=r8), dimension(:,:,:), pointer :: a
 
1160
      integer, intent(in)  :: rank
 
1161
      integer, intent(out) :: rc
 
1162
    end subroutine armci_free_farray
 
1163
  end interface
 
1164
  real(kind=r8), dimension(:,:,:), pointer :: a
 
1165
  integer, intent(out), optional :: rc
 
1166
  integer :: rank = 3
 
1167
  call armci_free_farray(a, rank, rc)
 
1168
!  if (rc .ne. 0) print *, "error armci_free_3dr8: error = ", rc
 
1169
 
 
1170
end subroutine armci_free_3dr8
 
1171
 
 
1172
subroutine armci_free_4dr8(a, rc)
 
1173
  use definekind
 
1174
  implicit none
 
1175
  interface
 
1176
    subroutine armci_free_farray(a, rank, rc)
 
1177
      use definekind
 
1178
      real(kind=r8), dimension(:,:,:,:), pointer :: a
 
1179
      integer, intent(in)  :: rank
 
1180
      integer, intent(out) :: rc
 
1181
    end subroutine armci_free_farray
 
1182
  end interface
 
1183
  real(kind=r8), dimension(:,:,:,:), pointer :: a
 
1184
  integer, intent(out), optional :: rc
 
1185
  integer :: rank = 4
 
1186
  call armci_free_farray(a, rank, rc)
 
1187
!  if (rc .ne. 0) print *, "error armci_free_4dr8: error = ", rc
 
1188
 
 
1189
end subroutine armci_free_4dr8
 
1190
 
 
1191
subroutine armci_free_5dr8(a, rc)
 
1192
  use definekind
 
1193
  implicit none
 
1194
  interface
 
1195
    subroutine armci_free_farray(a, rank, rc)
 
1196
      use definekind
 
1197
      real(kind=r8), dimension(:,:,:,:,:), pointer :: a
 
1198
      integer, intent(in)  :: rank
 
1199
      integer, intent(out) :: rc
 
1200
    end subroutine armci_free_farray
 
1201
  end interface
 
1202
  real(kind=r8), dimension(:,:,:,:,:), pointer :: a
 
1203
  integer, intent(out), optional :: rc
 
1204
  integer :: rank = 5
 
1205
  call armci_free_farray(a, rank, rc)
 
1206
!  if (rc .ne. 0) print *, "error armci_free_5dr8: error = ", rc
 
1207
 
 
1208
end subroutine armci_free_5dr8
 
1209
 
 
1210
subroutine armci_free_6dr8(a, rc)
 
1211
  use definekind
 
1212
  implicit none
 
1213
  interface
 
1214
    subroutine armci_free_farray(a, rank, rc)
 
1215
      use definekind
 
1216
      real(kind=r8), dimension(:,:,:,:,:,:), pointer :: a
 
1217
      integer, intent(in)  :: rank
 
1218
      integer, intent(out) :: rc
 
1219
    end subroutine armci_free_farray
 
1220
  end interface
 
1221
  real(kind=r8), dimension(:,:,:,:,:,:), pointer :: a
 
1222
  integer, intent(out), optional :: rc
 
1223
  integer :: rank = 6
 
1224
  call armci_free_farray(a, rank, rc)
 
1225
!  if (rc .ne. 0) print *, "error armci_free_6dr8: error = ", rc
 
1226
 
 
1227
end subroutine armci_free_6dr8
 
1228
 
 
1229
subroutine armci_free_7dr8(a, rc)
 
1230
  use definekind
 
1231
  implicit none
 
1232
  interface
 
1233
    subroutine armci_free_farray(a, rank, rc)
 
1234
      use definekind
 
1235
      real(kind=r8), dimension(:,:,:,:,:,:,:), pointer :: a
 
1236
      integer, intent(in)  :: rank
 
1237
      integer, intent(out) :: rc
 
1238
    end subroutine armci_free_farray
 
1239
  end interface
 
1240
  real(kind=r8), dimension(:,:,:,:,:,:,:), pointer :: a
 
1241
  integer, intent(out), optional :: rc
 
1242
  integer :: rank = 7
 
1243
  call armci_free_farray(a, rank, rc)
 
1244
!  if (rc .ne. 0) print *, "error armci_free_7dr8: error = ", rc
 
1245
 
 
1246
end subroutine armci_free_7dr8
 
1247
 
 
1248
subroutine armci_malloc_1dc4(a, lb, ub, rc)
 
1249
  use definekind
 
1250
  implicit none
 
1251
  interface
 
1252
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1253
      use definekind
 
1254
      complex(kind=c4), dimension(:), pointer :: a
 
1255
      integer, intent(in) :: rank, elemsize, lb(1), ub(1)
 
1256
      integer, intent(out) :: rc
 
1257
    end subroutine armci_malloc_farray
 
1258
  end interface
 
1259
  complex(kind=c4), dimension(:), pointer :: a
 
1260
  integer, dimension(1) :: lb, ub
 
1261
  integer, intent(out), optional :: rc
 
1262
  integer :: elemsize = 8
 
1263
  integer :: rank = 1
 
1264
 
 
1265
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1266
!  if (rc .ne. 0) print *, "error armci_malloc_1dc4: error = ", rc
 
1267
 
 
1268
end subroutine armci_malloc_1dc4
 
1269
 
 
1270
subroutine armci_malloc_2dc4(a, lb, ub, rc)
 
1271
  use definekind
 
1272
  implicit none
 
1273
  interface
 
1274
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1275
      use definekind
 
1276
      complex(kind=c4), dimension(:,:), pointer :: a
 
1277
      integer, intent(in) :: rank, elemsize, lb(2), ub(2)
 
1278
      integer, intent(out) :: rc
 
1279
    end subroutine armci_malloc_farray
 
1280
  end interface
 
1281
  complex(kind=c4), dimension(:,:), pointer :: a
 
1282
  integer, dimension(2) :: lb, ub
 
1283
  integer, intent(out), optional :: rc
 
1284
  integer :: elemsize = 8
 
1285
  integer :: rank = 2
 
1286
 
 
1287
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1288
!  if (rc .ne. 0) print *, "error armci_malloc_2dc4: error = ", rc
 
1289
 
 
1290
end subroutine armci_malloc_2dc4
 
1291
 
 
1292
subroutine armci_malloc_3dc4(a, lb, ub, rc)
 
1293
  use definekind
 
1294
  implicit none
 
1295
  interface
 
1296
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1297
      use definekind
 
1298
      complex(kind=c4), dimension(:,:,:), pointer :: a
 
1299
      integer, intent(in) :: rank, elemsize, lb(3), ub(3)
 
1300
      integer, intent(out) :: rc
 
1301
    end subroutine armci_malloc_farray
 
1302
  end interface
 
1303
  complex(kind=c4), dimension(:,:,:), pointer :: a
 
1304
  integer, dimension(3) :: lb, ub
 
1305
  integer, intent(out), optional :: rc
 
1306
  integer :: elemsize = 8
 
1307
  integer :: rank = 3
 
1308
 
 
1309
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1310
!  if (rc .ne. 0) print *, "error armci_malloc_3dc4: error = ", rc
 
1311
 
 
1312
end subroutine armci_malloc_3dc4
 
1313
 
 
1314
subroutine armci_malloc_4dc4(a, lb, ub, rc)
 
1315
  use definekind
 
1316
  implicit none
 
1317
  interface
 
1318
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1319
      use definekind
 
1320
      complex(kind=c4), dimension(:,:,:,:), pointer :: a
 
1321
      integer, intent(in) :: rank, elemsize, lb(4), ub(4)
 
1322
      integer, intent(out) :: rc
 
1323
    end subroutine armci_malloc_farray
 
1324
  end interface
 
1325
  complex(kind=c4), dimension(:,:,:,:), pointer :: a
 
1326
  integer, dimension(4) :: lb, ub
 
1327
  integer, intent(out), optional :: rc
 
1328
  integer :: elemsize = 8
 
1329
  integer :: rank = 4
 
1330
 
 
1331
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1332
!  if (rc .ne. 0) print *, "error armci_malloc_4dc4: error = ", rc
 
1333
 
 
1334
end subroutine armci_malloc_4dc4
 
1335
 
 
1336
subroutine armci_malloc_5dc4(a, lb, ub, rc)
 
1337
  use definekind
 
1338
  implicit none
 
1339
  interface
 
1340
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1341
      use definekind
 
1342
      complex(kind=c4), dimension(:,:,:,:,:), pointer :: a
 
1343
      integer, intent(in) :: rank, elemsize, lb(5), ub(5)
 
1344
      integer, intent(out) :: rc
 
1345
    end subroutine armci_malloc_farray
 
1346
  end interface
 
1347
  complex(kind=c4), dimension(:,:,:,:,:), pointer :: a
 
1348
  integer, dimension(5) :: lb, ub
 
1349
  integer, intent(out), optional :: rc
 
1350
  integer :: elemsize = 8
 
1351
  integer :: rank = 5
 
1352
 
 
1353
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1354
!  if (rc .ne. 0) print *, "error armci_malloc_5dc4: error = ", rc
 
1355
 
 
1356
end subroutine armci_malloc_5dc4
 
1357
 
 
1358
subroutine armci_malloc_6dc4(a, lb, ub, rc)
 
1359
  use definekind
 
1360
  implicit none
 
1361
  interface
 
1362
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1363
      use definekind
 
1364
      complex(kind=c4), dimension(:,:,:,:,:,:), pointer :: a
 
1365
      integer, intent(in) :: rank, elemsize, lb(6), ub(6)
 
1366
      integer, intent(out) :: rc
 
1367
    end subroutine armci_malloc_farray
 
1368
  end interface
 
1369
  complex(kind=c4), dimension(:,:,:,:,:,:), pointer :: a
 
1370
  integer, dimension(6) :: lb, ub
 
1371
  integer, intent(out), optional :: rc
 
1372
  integer :: elemsize = 8
 
1373
  integer :: rank = 6
 
1374
 
 
1375
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1376
!  if (rc .ne. 0) print *, "error armci_malloc_6dc4: error = ", rc
 
1377
 
 
1378
end subroutine armci_malloc_6dc4
 
1379
 
 
1380
subroutine armci_malloc_7dc4(a, lb, ub, rc)
 
1381
  use definekind
 
1382
  implicit none
 
1383
  interface
 
1384
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1385
      use definekind
 
1386
      complex(kind=c4), dimension(:,:,:,:,:,:,:), pointer :: a
 
1387
      integer, intent(in) :: rank, elemsize, lb(7), ub(7)
 
1388
      integer, intent(out) :: rc
 
1389
    end subroutine armci_malloc_farray
 
1390
  end interface
 
1391
  complex(kind=c4), dimension(:,:,:,:,:,:,:), pointer :: a
 
1392
  integer, dimension(7) :: lb, ub
 
1393
  integer, intent(out), optional :: rc
 
1394
  integer :: elemsize = 8
 
1395
  integer :: rank = 7
 
1396
 
 
1397
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1398
!  if (rc .ne. 0) print *, "error armci_malloc_7dc4: error = ", rc
 
1399
 
 
1400
end subroutine armci_malloc_7dc4
 
1401
 
 
1402
subroutine armci_free_1dc4(a, rc)
 
1403
  use definekind
 
1404
  implicit none
 
1405
  interface
 
1406
    subroutine armci_free_farray(a, rank, rc)
 
1407
      use definekind
 
1408
      complex(kind=c4), dimension(:), pointer :: a
 
1409
      integer, intent(in)  :: rank
 
1410
      integer, intent(out) :: rc
 
1411
    end subroutine armci_free_farray
 
1412
  end interface
 
1413
  complex(kind=c4), dimension(:), pointer :: a
 
1414
  integer, intent(out), optional :: rc
 
1415
  integer :: rank = 1
 
1416
 
 
1417
  call armci_free_farray(a, rank, rc)
 
1418
!  if (rc .ne. 0) print *, "error armci_free_1dc4: error = ", rc
 
1419
 
 
1420
end subroutine armci_free_1dc4
 
1421
 
 
1422
subroutine armci_free_2dc4(a, rc)
 
1423
  use definekind
 
1424
  implicit none
 
1425
  interface
 
1426
    subroutine armci_free_farray(a, rank, rc)
 
1427
      use definekind
 
1428
      complex(kind=c4), dimension(:,:), pointer :: a
 
1429
      integer, intent(in)  :: rank
 
1430
      integer, intent(out) :: rc
 
1431
    end subroutine armci_free_farray
 
1432
  end interface
 
1433
  complex(kind=c4), dimension(:,:), pointer :: a
 
1434
  integer, intent(out), optional :: rc
 
1435
  integer :: rank = 2
 
1436
  call armci_free_farray(a, rank, rc)
 
1437
!  if (rc .ne. 0) print *, "error armci_free_2dc4: error = ", rc
 
1438
 
 
1439
end subroutine armci_free_2dc4
 
1440
 
 
1441
subroutine armci_free_3dc4(a, rc)
 
1442
  use definekind
 
1443
  implicit none
 
1444
  interface
 
1445
    subroutine armci_free_farray(a, rank, rc)
 
1446
      use definekind
 
1447
      complex(kind=c4), dimension(:,:,:), pointer :: a
 
1448
      integer, intent(in)  :: rank
 
1449
      integer, intent(out) :: rc
 
1450
    end subroutine armci_free_farray
 
1451
  end interface
 
1452
  complex(kind=c4), dimension(:,:,:), pointer :: a
 
1453
  integer, intent(out), optional :: rc
 
1454
  integer :: rank = 3
 
1455
  call armci_free_farray(a, rank, rc)
 
1456
!  if (rc .ne. 0) print *, "error armci_free_3dc4: error = ", rc
 
1457
 
 
1458
end subroutine armci_free_3dc4
 
1459
 
 
1460
subroutine armci_free_4dc4(a, rc)
 
1461
  use definekind
 
1462
  implicit none
 
1463
  interface
 
1464
    subroutine armci_free_farray(a, rank, rc)
 
1465
      use definekind
 
1466
      complex(kind=c4), dimension(:,:,:,:), pointer :: a
 
1467
      integer, intent(in)  :: rank
 
1468
      integer, intent(out) :: rc
 
1469
    end subroutine armci_free_farray
 
1470
  end interface
 
1471
  complex(kind=c4), dimension(:,:,:,:), pointer :: a
 
1472
  integer, intent(out), optional :: rc
 
1473
  integer :: rank = 4
 
1474
  call armci_free_farray(a, rank, rc)
 
1475
!  if (rc .ne. 0) print *, "error armci_free_4dc4: error = ", rc
 
1476
 
 
1477
end subroutine armci_free_4dc4
 
1478
 
 
1479
subroutine armci_free_5dc4(a, rc)
 
1480
  use definekind
 
1481
  implicit none
 
1482
  interface
 
1483
    subroutine armci_free_farray(a, rank, rc)
 
1484
      use definekind
 
1485
      complex(kind=c4), dimension(:,:,:,:,:), pointer :: a
 
1486
      integer, intent(in)  :: rank
 
1487
      integer, intent(out) :: rc
 
1488
    end subroutine armci_free_farray
 
1489
  end interface
 
1490
  complex(kind=c4), dimension(:,:,:,:,:), pointer :: a
 
1491
  integer, intent(out), optional :: rc
 
1492
  integer :: rank = 5
 
1493
  call armci_free_farray(a, rank, rc)
 
1494
!  if (rc .ne. 0) print *, "error armci_free_5dc4: error = ", rc
 
1495
 
 
1496
end subroutine armci_free_5dc4
 
1497
 
 
1498
subroutine armci_free_6dc4(a, rc)
 
1499
  use definekind
 
1500
  implicit none
 
1501
  interface
 
1502
    subroutine armci_free_farray(a, rank, rc)
 
1503
      use definekind
 
1504
      complex(kind=c4), dimension(:,:,:,:,:,:), pointer :: a
 
1505
      integer, intent(in)  :: rank
 
1506
      integer, intent(out) :: rc
 
1507
    end subroutine armci_free_farray
 
1508
  end interface
 
1509
  complex(kind=c4), dimension(:,:,:,:,:,:), pointer :: a
 
1510
  integer, intent(out), optional :: rc
 
1511
  integer :: rank = 6
 
1512
  call armci_free_farray(a, rank, rc)
 
1513
!  if (rc .ne. 0) print *, "error armci_free_6dc4: error = ", rc
 
1514
 
 
1515
end subroutine armci_free_6dc4
 
1516
 
 
1517
subroutine armci_free_7dc4(a, rc)
 
1518
  use definekind
 
1519
  implicit none
 
1520
  interface
 
1521
    subroutine armci_free_farray(a, rank, rc)
 
1522
      use definekind
 
1523
      complex(kind=c4), dimension(:,:,:,:,:,:,:), pointer :: a
 
1524
      integer, intent(in)  :: rank
 
1525
      integer, intent(out) :: rc
 
1526
    end subroutine armci_free_farray
 
1527
  end interface
 
1528
  complex(kind=c4), dimension(:,:,:,:,:,:,:), pointer :: a
 
1529
  integer, intent(out), optional :: rc
 
1530
  integer :: rank = 7
 
1531
  call armci_free_farray(a, rank, rc)
 
1532
!  if (rc .ne. 0) print *, "error armci_free_7dc4: error = ", rc
 
1533
 
 
1534
end subroutine armci_free_7dc4
 
1535
 
 
1536
 
 
1537
subroutine armci_malloc_1dc8(a, lb, ub, rc)
 
1538
  use definekind
 
1539
  implicit none
 
1540
  interface
 
1541
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1542
      use definekind
 
1543
      complex(kind=c8), dimension(:), pointer :: a
 
1544
      integer, intent(in) :: rank, elemsize, lb(1), ub(1)
 
1545
      integer, intent(out) :: rc
 
1546
    end subroutine armci_malloc_farray
 
1547
  end interface
 
1548
  complex(kind=c8), dimension(:), pointer :: a
 
1549
  integer, dimension(1) :: lb, ub
 
1550
  integer, intent(out), optional :: rc
 
1551
  integer :: elemsize = 16
 
1552
  integer :: rank = 1
 
1553
 
 
1554
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1555
!  if (rc .ne. 0) print *, "error armci_malloc_1dc8: error = ", rc
 
1556
 
 
1557
end subroutine armci_malloc_1dc8
 
1558
 
 
1559
subroutine armci_malloc_2dc8(a, lb, ub, rc)
 
1560
  use definekind
 
1561
  implicit none
 
1562
  interface
 
1563
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1564
      use definekind
 
1565
      complex(kind=c8), dimension(:,:), pointer :: a
 
1566
      integer, intent(in) :: rank, elemsize, lb(2), ub(2)
 
1567
      integer, intent(out) :: rc
 
1568
    end subroutine armci_malloc_farray
 
1569
  end interface
 
1570
  complex(kind=c8), dimension(:,:), pointer :: a
 
1571
  integer, dimension(2) :: lb, ub
 
1572
  integer, intent(out), optional :: rc
 
1573
  integer :: elemsize = 16
 
1574
  integer :: rank = 2
 
1575
 
 
1576
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1577
!  if (rc .ne. 0) print *, "error armci_malloc_2dc8: error = ", rc
 
1578
 
 
1579
end subroutine armci_malloc_2dc8
 
1580
 
 
1581
subroutine armci_malloc_3dc8(a, lb, ub, rc)
 
1582
  use definekind
 
1583
  implicit none
 
1584
  interface
 
1585
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1586
      use definekind
 
1587
      complex(kind=c8), dimension(:,:,:), pointer :: a
 
1588
      integer, intent(in) :: rank, elemsize, lb(3), ub(3)
 
1589
      integer, intent(out) :: rc
 
1590
    end subroutine armci_malloc_farray
 
1591
  end interface
 
1592
  complex(kind=c8), dimension(:,:,:), pointer :: a
 
1593
  integer, dimension(3) :: lb, ub
 
1594
  integer, intent(out), optional :: rc
 
1595
  integer :: elemsize = 16
 
1596
  integer :: rank = 3
 
1597
 
 
1598
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1599
!  if (rc .ne. 0) print *, "error armci_malloc_3dc8: error = ", rc
 
1600
 
 
1601
end subroutine armci_malloc_3dc8
 
1602
 
 
1603
subroutine armci_malloc_4dc8(a, lb, ub, rc)
 
1604
  use definekind
 
1605
  implicit none
 
1606
  interface
 
1607
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1608
      use definekind
 
1609
      complex(kind=c8), dimension(:,:,:,:), pointer :: a
 
1610
      integer, intent(in) :: rank, elemsize, lb(4), ub(4)
 
1611
      integer, intent(out) :: rc
 
1612
    end subroutine armci_malloc_farray
 
1613
  end interface
 
1614
  complex(kind=c8), dimension(:,:,:,:), pointer :: a
 
1615
  integer, dimension(4) :: lb, ub
 
1616
  integer, intent(out), optional :: rc
 
1617
  integer :: elemsize = 16
 
1618
  integer :: rank = 4
 
1619
 
 
1620
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1621
!  if (rc .ne. 0) print *, "error armci_malloc_4dc8: error = ", rc
 
1622
 
 
1623
end subroutine armci_malloc_4dc8
 
1624
 
 
1625
subroutine armci_malloc_5dc8(a, lb, ub, rc)
 
1626
  use definekind
 
1627
  implicit none
 
1628
  interface
 
1629
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1630
      use definekind
 
1631
      complex(kind=c8), dimension(:,:,:,:,:), pointer :: a
 
1632
      integer, intent(in) :: rank, elemsize, lb(5), ub(5)
 
1633
      integer, intent(out) :: rc
 
1634
    end subroutine armci_malloc_farray
 
1635
  end interface
 
1636
  complex(kind=c8), dimension(:,:,:,:,:), pointer :: a
 
1637
  integer, dimension(5) :: lb, ub
 
1638
  integer, intent(out), optional :: rc
 
1639
  integer :: elemsize = 16
 
1640
  integer :: rank = 5
 
1641
 
 
1642
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1643
!  if (rc .ne. 0) print *, "error armci_malloc_5dc8: error = ", rc
 
1644
 
 
1645
end subroutine armci_malloc_5dc8
 
1646
 
 
1647
subroutine armci_malloc_6dc8(a, lb, ub, rc)
 
1648
  use definekind
 
1649
  implicit none
 
1650
  interface
 
1651
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1652
      use definekind
 
1653
      complex(kind=c8), dimension(:,:,:,:,:,:), pointer :: a
 
1654
      integer, intent(in) :: rank, elemsize, lb(6), ub(6)
 
1655
      integer, intent(out) :: rc
 
1656
    end subroutine armci_malloc_farray
 
1657
  end interface
 
1658
  complex(kind=c8), dimension(:,:,:,:,:,:), pointer :: a
 
1659
  integer, dimension(6) :: lb, ub
 
1660
  integer, intent(out), optional :: rc
 
1661
  integer :: elemsize = 16
 
1662
  integer :: rank = 6
 
1663
 
 
1664
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1665
!  if (rc .ne. 0) print *, "error armci_malloc_6dc8: error = ", rc
 
1666
 
 
1667
end subroutine armci_malloc_6dc8
 
1668
 
 
1669
subroutine armci_malloc_7dc8(a, lb, ub, rc)
 
1670
  use definekind
 
1671
  implicit none
 
1672
  interface
 
1673
    subroutine armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1674
      use definekind
 
1675
      complex(kind=c8), dimension(:,:,:,:,:,:,:), pointer :: a
 
1676
      integer, intent(in) :: rank, elemsize, lb(7), ub(7)
 
1677
      integer, intent(out) :: rc
 
1678
    end subroutine armci_malloc_farray
 
1679
  end interface
 
1680
  complex(kind=c8), dimension(:,:,:,:,:,:,:), pointer :: a
 
1681
  integer, dimension(7) :: lb, ub
 
1682
  integer, intent(out), optional :: rc
 
1683
  integer :: elemsize = 16
 
1684
  integer :: rank = 7
 
1685
 
 
1686
  call armci_malloc_farray(a, rank, elemsize, lb, ub, rc)
 
1687
!  if (rc .ne. 0) print *, "error armci_malloc_7dc8: error = ", rc
 
1688
 
 
1689
end subroutine armci_malloc_7dc8
 
1690
 
 
1691
subroutine armci_free_1dc8(a, rc)
 
1692
  use definekind
 
1693
  implicit none
 
1694
  interface
 
1695
    subroutine armci_free_farray(a, rank, rc)
 
1696
      use definekind
 
1697
      complex(kind=c8), dimension(:), pointer :: a
 
1698
      integer, intent(in)  :: rank
 
1699
      integer, intent(out) :: rc
 
1700
    end subroutine armci_free_farray
 
1701
  end interface
 
1702
  complex(kind=c8), dimension(:), pointer :: a
 
1703
  integer, intent(out), optional :: rc
 
1704
  integer :: rank = 1
 
1705
 
 
1706
  call armci_free_farray(a, rank, rc)
 
1707
!  if (rc .ne. 0) print *, "error armci_free_1dc8: error = ", rc
 
1708
 
 
1709
end subroutine armci_free_1dc8
 
1710
 
 
1711
subroutine armci_free_2dc8(a, rc)
 
1712
  use definekind
 
1713
  implicit none
 
1714
  interface
 
1715
    subroutine armci_free_farray(a, rank, rc)
 
1716
      use definekind
 
1717
      complex(kind=c8), dimension(:,:), pointer :: a
 
1718
      integer, intent(in)  :: rank
 
1719
      integer, intent(out) :: rc
 
1720
    end subroutine armci_free_farray
 
1721
  end interface
 
1722
  complex(kind=c8), dimension(:,:), pointer :: a
 
1723
  integer, intent(out), optional :: rc
 
1724
  integer :: rank = 2
 
1725
  call armci_free_farray(a, rank, rc)
 
1726
!  if (rc .ne. 0) print *, "error armci_free_2dc8: error = ", rc
 
1727
 
 
1728
end subroutine armci_free_2dc8
 
1729
 
 
1730
subroutine armci_free_3dc8(a, rc)
 
1731
  use definekind
 
1732
  implicit none
 
1733
  interface
 
1734
    subroutine armci_free_farray(a, rank, rc)
 
1735
      use definekind
 
1736
      complex(kind=c8), dimension(:,:,:), pointer :: a
 
1737
      integer, intent(in)  :: rank
 
1738
      integer, intent(out) :: rc
 
1739
    end subroutine armci_free_farray
 
1740
  end interface
 
1741
  complex(kind=c8), dimension(:,:,:), pointer :: a
 
1742
  integer, intent(out), optional :: rc
 
1743
  integer :: rank = 3
 
1744
  call armci_free_farray(a, rank, rc)
 
1745
!  if (rc .ne. 0) print *, "error armci_free_3dc8: error = ", rc
 
1746
 
 
1747
end subroutine armci_free_3dc8
 
1748
 
 
1749
subroutine armci_free_4dc8(a, rc)
 
1750
  use definekind
 
1751
  implicit none
 
1752
  interface
 
1753
    subroutine armci_free_farray(a, rank, rc)
 
1754
      use definekind
 
1755
      complex(kind=c8), dimension(:,:,:,:), pointer :: a
 
1756
      integer, intent(in)  :: rank
 
1757
      integer, intent(out) :: rc
 
1758
    end subroutine armci_free_farray
 
1759
  end interface
 
1760
  complex(kind=c8), dimension(:,:,:,:), pointer :: a
 
1761
  integer, intent(out), optional :: rc
 
1762
  integer :: rank = 4
 
1763
  call armci_free_farray(a, rank, rc)
 
1764
!  if (rc .ne. 0) print *, "error armci_free_4dc8: error = ", rc
 
1765
 
 
1766
end subroutine armci_free_4dc8
 
1767
 
 
1768
subroutine armci_free_5dc8(a, rc)
 
1769
  use definekind
 
1770
  implicit none
 
1771
  interface
 
1772
    subroutine armci_free_farray(a, rank, rc)
 
1773
      use definekind
 
1774
      complex(kind=c8), dimension(:,:,:,:,:), pointer :: a
 
1775
      integer, intent(in)  :: rank
 
1776
      integer, intent(out) :: rc
 
1777
    end subroutine armci_free_farray
 
1778
  end interface
 
1779
  complex(kind=c8), dimension(:,:,:,:,:), pointer :: a
 
1780
  integer, intent(out), optional :: rc
 
1781
  integer :: rank = 5
 
1782
  call armci_free_farray(a, rank, rc)
 
1783
!  if (rc .ne. 0) print *, "error armci_free_5dc8: error = ", rc
 
1784
 
 
1785
end subroutine armci_free_5dc8
 
1786
 
 
1787
subroutine armci_free_6dc8(a, rc)
 
1788
  use definekind
 
1789
  implicit none
 
1790
  interface
 
1791
    subroutine armci_free_farray(a, rank, rc)
 
1792
      use definekind
 
1793
      complex(kind=c8), dimension(:,:,:,:,:,:), pointer :: a
 
1794
      integer, intent(in)  :: rank
 
1795
      integer, intent(out) :: rc
 
1796
    end subroutine armci_free_farray
 
1797
  end interface
 
1798
  complex(kind=c8), dimension(:,:,:,:,:,:), pointer :: a
 
1799
  integer, intent(out), optional :: rc
 
1800
  integer :: rank = 6
 
1801
  call armci_free_farray(a, rank, rc)
 
1802
!  if (rc .ne. 0) print *, "error armci_free_6dc8: error = ", rc
 
1803
 
 
1804
end subroutine armci_free_6dc8
 
1805
 
 
1806
subroutine armci_free_7dc8(a, rc)
 
1807
  use definekind
 
1808
  implicit none
 
1809
  interface
 
1810
    subroutine armci_free_farray(a, rank, rc)
 
1811
      use definekind
 
1812
      complex(kind=c8), dimension(:,:,:,:,:,:,:), pointer :: a
 
1813
      integer, intent(in)  :: rank
 
1814
      integer, intent(out) :: rc
 
1815
    end subroutine armci_free_farray
 
1816
  end interface
 
1817
  complex(kind=c8), dimension(:,:,:,:,:,:,:), pointer :: a
 
1818
  integer, intent(out), optional :: rc
 
1819
  integer :: rank = 7
 
1820
  call armci_free_farray(a, rank, rc)
 
1821
!  if (rc .ne. 0) print *, "error armci_free_7dc8: error = ", rc
 
1822
 
 
1823
end subroutine armci_free_7dc8
 
1824
 
 
1825
end module armci_mem_f90