← Back to branch summary

~ubuntu-branches/ubuntu/karmic/hypre/karmic

« back to all changes in this revision

Viewing changes to src/babel/bHYPREClient-F90/sidl_rmi_Return.F90

  • Committer: Bazaar Package Importer
  • Author(s): Adam C. Powell, IV
  • Date: 2009-03-20 11:40:12 UTC
  • mfrom: (4.1.2 sid)
  • Revision ID: james.westby@ubuntu.com-20090320114012-132h6ok9w2r6o609
Tags: 2.4.0b-2
Rebuild against new openmpi.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/babel/bHYPREClient-F90/sidl_rmi_Return.F90
 
1
! 
 
2
! File:          sidl_rmi_Return.F90
 
3
! Symbol:        sidl.rmi.Return-v0.9.15
 
4
! Symbol Type:   interface
 
5
! Babel Version: 1.0.0
 
6
! Release:       $Name: V2-4-0b $
 
7
! Revision:      @(#) $Id: sidl_rmi_Return.F90,v 1.1 2007/02/06 01:23:13 painter Exp $
 
8
! Description:   Client-side module for sidl.rmi.Return
 
9
! 
 
10
! Copyright (c) 2000-2002, The Regents of the University of California.
 
11
! Produced at the Lawrence Livermore National Laboratory.
 
12
! Written by the Components Team <components@llnl.gov>
 
13
! All rights reserved.
 
14
! 
 
15
! This file is part of Babel. For more information, see
 
16
! http://www.llnl.gov/CASC/components/. Please read the COPYRIGHT file
 
17
! for Our Notice and the LICENSE file for the GNU Lesser General Public
 
18
! License.
 
19
! 
 
20
! This program is free software; you can redistribute it and/or modify it
 
21
! under the terms of the GNU Lesser General Public License (as published by
 
22
! the Free Software Foundation) version 2.1 dated February 1999.
 
23
! 
 
24
! This program is distributed in the hope that it will be useful, but
 
25
! WITHOUT ANY WARRANTY; without even the IMPLIED WARRANTY OF
 
26
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the terms and
 
27
! conditions of the GNU Lesser General Public License for more details.
 
28
! 
 
29
! You should have recieved a copy of the GNU Lesser General Public License
 
30
! along with this program; if not, write to the Free Software Foundation,
 
31
! Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
32
! 
 
33
! WARNING: Automatically generated; changes will be lost
 
34
! 
 
35
! 
 
36
 
 
37
 
 
38
! 
 
39
! Symbol "sidl.rmi.Return" (version 0.9.15)
 
40
! 
 
41
!  
 
42
! This interface is implemented by the Server side serializer.
 
43
! Serializes method arguments after the return from the method
 
44
! call.
 
45
! 
 
46
 
 
47
 
 
48
#include "sidl_ClassInfo_fAbbrev.h"
 
49
#include "sidl_rmi_Return_fAbbrev.h"
 
50
#include "sidl_io_Serializable_fAbbrev.h"
 
51
#include "sidl_BaseInterface_fAbbrev.h"
 
52
#include "sidl_RuntimeException_fAbbrev.h"
 
53
#include "sidl_io_Serializer_fAbbrev.h"
 
54
#include "sidl_BaseException_fAbbrev.h"
 
55
 
 
56
module sidl_rmi_Return
 
57
 
 
58
  use sidl
 
59
  use sidl_ClassInfo_type
 
60
  use sidl_rmi_Return_type
 
61
  use sidl_io_Serializable_type
 
62
  use sidl_BaseInterface_type
 
63
  use sidl_RuntimeException_type
 
64
  use sidl_io_Serializer_type
 
65
  use sidl_BaseException_type
 
66
  use sidl_rmi_Call_type
 
67
  use sidl_rmi_Return_type
 
68
  use sidl_rmi_Ticket_type
 
69
  use sidl_char_array
 
70
  use sidl_string_array
 
71
  use sidl_double_array
 
72
  use sidl_opaque_array
 
73
  use sidl_long_array
 
74
  use sidl_int_array
 
75
  use sidl_bool_array
 
76
  use sidl_float_array
 
77
  use sidl_fcomplex_array
 
78
  use sidl_array_array
 
79
  use sidl_dcomplex_array
 
80
 
 
81
  private :: cast_0, cast_1, cast_2, cast_3
 
82
  interface cast
 
83
    module procedure cast_0, cast_1, cast_2, cast_3
 
84
  end interface
 
85
 
 
86
    private :: throwException_s
 
87
 
 
88
 
 
89
  interface throwException
 
90
    module procedure throwException_s
 
91
  end interface
 
92
  private :: rConnect_s
 
93
  interface rConnect
 
94
    module procedure rConnect_s
 
95
  end interface
 
96
 
 
97
    private :: addRef_s
 
98
 
 
99
 
 
100
  interface addRef
 
101
    module procedure addRef_s
 
102
  end interface
 
103
    private :: deleteRef_s
 
104
 
 
105
 
 
106
  interface deleteRef
 
107
    module procedure deleteRef_s
 
108
  end interface
 
109
    private :: isSame_s
 
110
 
 
111
 
 
112
  interface isSame
 
113
    module procedure isSame_s
 
114
  end interface
 
115
    private :: isType_s
 
116
 
 
117
 
 
118
  interface isType
 
119
    module procedure isType_s
 
120
  end interface
 
121
    private :: getClassInfo_s
 
122
 
 
123
 
 
124
  interface getClassInfo
 
125
    module procedure getClassInfo_s
 
126
  end interface
 
127
    private :: packBool_s
 
128
 
 
129
 
 
130
  interface packBool
 
131
    module procedure packBool_s
 
132
  end interface
 
133
    private :: packChar_s
 
134
 
 
135
 
 
136
  interface packChar
 
137
    module procedure packChar_s
 
138
  end interface
 
139
    private :: packInt_s
 
140
 
 
141
 
 
142
  interface packInt
 
143
    module procedure packInt_s
 
144
  end interface
 
145
    private :: packLong_s
 
146
 
 
147
 
 
148
  interface packLong
 
149
    module procedure packLong_s
 
150
  end interface
 
151
    private :: packOpaque_s
 
152
 
 
153
 
 
154
  interface packOpaque
 
155
    module procedure packOpaque_s
 
156
  end interface
 
157
    private :: packFloat_s
 
158
 
 
159
 
 
160
  interface packFloat
 
161
    module procedure packFloat_s
 
162
  end interface
 
163
    private :: packDouble_s
 
164
 
 
165
 
 
166
  interface packDouble
 
167
    module procedure packDouble_s
 
168
  end interface
 
169
    private :: packFcomplex_s
 
170
 
 
171
 
 
172
  interface packFcomplex
 
173
    module procedure packFcomplex_s
 
174
  end interface
 
175
    private :: packDcomplex_s
 
176
 
 
177
 
 
178
  interface packDcomplex
 
179
    module procedure packDcomplex_s
 
180
  end interface
 
181
    private :: packString_s
 
182
 
 
183
 
 
184
  interface packString
 
185
    module procedure packString_s
 
186
  end interface
 
187
    private :: packSerializable_s
 
188
 
 
189
 
 
190
  interface packSerializable
 
191
    module procedure packSerializable_s
 
192
  end interface
 
193
    private :: packBoolArray_s
 
194
 
 
195
 
 
196
  interface packBoolArray
 
197
    module procedure packBoolArray_s
 
198
  end interface
 
199
    private :: packCharArray_s
 
200
 
 
201
 
 
202
  interface packCharArray
 
203
    module procedure packCharArray_s
 
204
  end interface
 
205
    private :: packIntArray_s
 
206
 
 
207
 
 
208
  interface packIntArray
 
209
    module procedure packIntArray_s
 
210
  end interface
 
211
    private :: packLongArray_s
 
212
 
 
213
 
 
214
  interface packLongArray
 
215
    module procedure packLongArray_s
 
216
  end interface
 
217
    private :: packOpaqueArray_s
 
218
 
 
219
 
 
220
  interface packOpaqueArray
 
221
    module procedure packOpaqueArray_s
 
222
  end interface
 
223
    private :: packFloatArray_s
 
224
 
 
225
 
 
226
  interface packFloatArray
 
227
    module procedure packFloatArray_s
 
228
  end interface
 
229
    private :: packDoubleArray_s
 
230
 
 
231
 
 
232
  interface packDoubleArray
 
233
    module procedure packDoubleArray_s
 
234
  end interface
 
235
    private :: packFcomplexArray_s
 
236
 
 
237
 
 
238
  interface packFcomplexArray
 
239
    module procedure packFcomplexArray_s
 
240
  end interface
 
241
    private :: packDcomplexArray_s
 
242
 
 
243
 
 
244
  interface packDcomplexArray
 
245
    module procedure packDcomplexArray_s
 
246
  end interface
 
247
    private :: packStringArray_s
 
248
 
 
249
 
 
250
  interface packStringArray
 
251
    module procedure packStringArray_s
 
252
  end interface
 
253
    private :: packGenericArray_s
 
254
 
 
255
 
 
256
  interface packGenericArray
 
257
    module procedure packGenericArray_s
 
258
  end interface
 
259
    private :: packSerializableArray_s
 
260
 
 
261
 
 
262
  interface packSerializableArray
 
263
    module procedure packSerializableArray_s
 
264
  end interface
 
265
 
 
266
  private :: exec_s
 
267
  interface exec
 
268
    module procedure exec_s
 
269
  end interface
 
270
 
 
271
 
 
272
  private :: getURL_s
 
273
  interface getURL
 
274
    module procedure getURL_s
 
275
  end interface
 
276
 
 
277
 
 
278
  private :: isRemote_s
 
279
  interface isRemote
 
280
    module procedure isRemote_s
 
281
  end interface
 
282
 
 
283
 
 
284
  private :: isLocal_s
 
285
  interface isLocal
 
286
    module procedure isLocal_s
 
287
  end interface
 
288
 
 
289
 
 
290
  private :: set_hooks_s
 
291
  interface set_hooks
 
292
    module procedure set_hooks_s
 
293
  end interface
 
294
 
 
295
  private :: not_null_s
 
296
  interface not_null
 
297
    module procedure not_null_s
 
298
  end interface
 
299
 
 
300
  private :: is_null_s
 
301
  interface is_null
 
302
    module procedure is_null_s
 
303
  end interface
 
304
 
 
305
  private :: set_null_s
 
306
  interface set_null
 
307
    module procedure set_null_s
 
308
  end interface
 
309
 
 
310
 
 
311
contains
 
312
 
 
313
 
 
314
 
 
315
  recursive subroutine throwException_s(self, ex_to_throw, exception)
 
316
    implicit none
 
317
    !  in sidl.rmi.Return self
 
318
    type(sidl_rmi_Return_t) , intent(in) :: self
 
319
    !  in sidl.BaseException ex_to_throw
 
320
    type(sidl_BaseException_t) , intent(in) :: ex_to_throw
 
321
    !  out sidl.BaseInterface exception
 
322
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
323
 
 
324
    external sidl_rmi_Return_throwException_m
 
325
    call sidl_rmi_Return_throwException_m(self, ex_to_throw, exception)
 
326
 
 
327
  end subroutine throwException_s
 
328
 
 
329
 
 
330
  recursive subroutine rConnect_s(self, url, exception)
 
331
    implicit none
 
332
    !  out sidl.rmi.Return self
 
333
    type(sidl_rmi_Return_t) , intent(out) :: self
 
334
    !  in string url
 
335
    character (len=*) , intent(in) :: url
 
336
    !  out sidl.BaseInterface exception
 
337
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
338
 
 
339
    external sidl_rmi_Return_rConnect_m
 
340
    call sidl_rmi_Return_rConnect_m(self, url, exception)
 
341
 
 
342
  end subroutine rConnect_s
 
343
 
 
344
 
 
345
  recursive subroutine addRef_s(self, exception)
 
346
    implicit none
 
347
    !  in sidl.rmi.Return self
 
348
    type(sidl_rmi_Return_t) , intent(in) :: self
 
349
    !  out sidl.BaseInterface exception
 
350
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
351
 
 
352
    external sidl_rmi_Return_addRef_m
 
353
    call sidl_rmi_Return_addRef_m(self, exception)
 
354
 
 
355
  end subroutine addRef_s
 
356
 
 
357
 
 
358
  recursive subroutine deleteRef_s(self, exception)
 
359
    implicit none
 
360
    !  in sidl.rmi.Return self
 
361
    type(sidl_rmi_Return_t) , intent(in) :: self
 
362
    !  out sidl.BaseInterface exception
 
363
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
364
 
 
365
    external sidl_rmi_Return_deleteRef_m
 
366
    call sidl_rmi_Return_deleteRef_m(self, exception)
 
367
 
 
368
  end subroutine deleteRef_s
 
369
 
 
370
 
 
371
  recursive subroutine isSame_s(self, iobj, retval, exception)
 
372
    implicit none
 
373
    !  in sidl.rmi.Return self
 
374
    type(sidl_rmi_Return_t) , intent(in) :: self
 
375
    !  in sidl.BaseInterface iobj
 
376
    type(sidl_BaseInterface_t) , intent(in) :: iobj
 
377
    !  out bool retval
 
378
    logical , intent(out) :: retval
 
379
    !  out sidl.BaseInterface exception
 
380
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
381
 
 
382
    external sidl_rmi_Return_isSame_m
 
383
    call sidl_rmi_Return_isSame_m(self, iobj, retval, exception)
 
384
 
 
385
  end subroutine isSame_s
 
386
 
 
387
 
 
388
  recursive subroutine isType_s(self, name, retval, exception)
 
389
    implicit none
 
390
    !  in sidl.rmi.Return self
 
391
    type(sidl_rmi_Return_t) , intent(in) :: self
 
392
    !  in string name
 
393
    character (len=*) , intent(in) :: name
 
394
    !  out bool retval
 
395
    logical , intent(out) :: retval
 
396
    !  out sidl.BaseInterface exception
 
397
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
398
 
 
399
    external sidl_rmi_Return_isType_m
 
400
    call sidl_rmi_Return_isType_m(self, name, retval, exception)
 
401
 
 
402
  end subroutine isType_s
 
403
 
 
404
 
 
405
  recursive subroutine getClassInfo_s(self, retval, exception)
 
406
    implicit none
 
407
    !  in sidl.rmi.Return self
 
408
    type(sidl_rmi_Return_t) , intent(in) :: self
 
409
    !  out sidl.ClassInfo retval
 
410
    type(sidl_ClassInfo_t) , intent(out) :: retval
 
411
    !  out sidl.BaseInterface exception
 
412
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
413
 
 
414
    external sidl_rmi_Return_getClassInfo_m
 
415
    call sidl_rmi_Return_getClassInfo_m(self, retval, exception)
 
416
 
 
417
  end subroutine getClassInfo_s
 
418
 
 
419
 
 
420
  recursive subroutine packBool_s(self, key, value, exception)
 
421
    implicit none
 
422
    !  in sidl.rmi.Return self
 
423
    type(sidl_rmi_Return_t) , intent(in) :: self
 
424
    !  in string key
 
425
    character (len=*) , intent(in) :: key
 
426
    !  in bool value
 
427
    logical , intent(in) :: value
 
428
    !  out sidl.BaseInterface exception
 
429
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
430
 
 
431
    external sidl_rmi_Return_packBool_m
 
432
    call sidl_rmi_Return_packBool_m(self, key, value, exception)
 
433
 
 
434
  end subroutine packBool_s
 
435
 
 
436
 
 
437
  recursive subroutine packChar_s(self, key, value, exception)
 
438
    implicit none
 
439
    !  in sidl.rmi.Return self
 
440
    type(sidl_rmi_Return_t) , intent(in) :: self
 
441
    !  in string key
 
442
    character (len=*) , intent(in) :: key
 
443
    !  in char value
 
444
    character (len=1) , intent(in) :: value
 
445
    !  out sidl.BaseInterface exception
 
446
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
447
 
 
448
    external sidl_rmi_Return_packChar_m
 
449
    call sidl_rmi_Return_packChar_m(self, key, value, exception)
 
450
 
 
451
  end subroutine packChar_s
 
452
 
 
453
 
 
454
  recursive subroutine packInt_s(self, key, value, exception)
 
455
    implicit none
 
456
    !  in sidl.rmi.Return self
 
457
    type(sidl_rmi_Return_t) , intent(in) :: self
 
458
    !  in string key
 
459
    character (len=*) , intent(in) :: key
 
460
    !  in int value
 
461
    integer (kind=sidl_int) , intent(in) :: value
 
462
    !  out sidl.BaseInterface exception
 
463
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
464
 
 
465
    external sidl_rmi_Return_packInt_m
 
466
    call sidl_rmi_Return_packInt_m(self, key, value, exception)
 
467
 
 
468
  end subroutine packInt_s
 
469
 
 
470
 
 
471
  recursive subroutine packLong_s(self, key, value, exception)
 
472
    implicit none
 
473
    !  in sidl.rmi.Return self
 
474
    type(sidl_rmi_Return_t) , intent(in) :: self
 
475
    !  in string key
 
476
    character (len=*) , intent(in) :: key
 
477
    !  in long value
 
478
    integer (kind=sidl_long) , intent(in) :: value
 
479
    !  out sidl.BaseInterface exception
 
480
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
481
 
 
482
    external sidl_rmi_Return_packLong_m
 
483
    call sidl_rmi_Return_packLong_m(self, key, value, exception)
 
484
 
 
485
  end subroutine packLong_s
 
486
 
 
487
 
 
488
  recursive subroutine packOpaque_s(self, key, value, exception)
 
489
    implicit none
 
490
    !  in sidl.rmi.Return self
 
491
    type(sidl_rmi_Return_t) , intent(in) :: self
 
492
    !  in string key
 
493
    character (len=*) , intent(in) :: key
 
494
    !  in opaque value
 
495
    integer (kind=sidl_opaque) , intent(in) :: value
 
496
    !  out sidl.BaseInterface exception
 
497
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
498
 
 
499
    external sidl_rmi_Return_packOpaque_m
 
500
    call sidl_rmi_Return_packOpaque_m(self, key, value, exception)
 
501
 
 
502
  end subroutine packOpaque_s
 
503
 
 
504
 
 
505
  recursive subroutine packFloat_s(self, key, value, exception)
 
506
    implicit none
 
507
    !  in sidl.rmi.Return self
 
508
    type(sidl_rmi_Return_t) , intent(in) :: self
 
509
    !  in string key
 
510
    character (len=*) , intent(in) :: key
 
511
    !  in float value
 
512
    real (kind=sidl_float) , intent(in) :: value
 
513
    !  out sidl.BaseInterface exception
 
514
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
515
 
 
516
    external sidl_rmi_Return_packFloat_m
 
517
    call sidl_rmi_Return_packFloat_m(self, key, value, exception)
 
518
 
 
519
  end subroutine packFloat_s
 
520
 
 
521
 
 
522
  recursive subroutine packDouble_s(self, key, value, exception)
 
523
    implicit none
 
524
    !  in sidl.rmi.Return self
 
525
    type(sidl_rmi_Return_t) , intent(in) :: self
 
526
    !  in string key
 
527
    character (len=*) , intent(in) :: key
 
528
    !  in double value
 
529
    real (kind=sidl_double) , intent(in) :: value
 
530
    !  out sidl.BaseInterface exception
 
531
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
532
 
 
533
    external sidl_rmi_Return_packDouble_m
 
534
    call sidl_rmi_Return_packDouble_m(self, key, value, exception)
 
535
 
 
536
  end subroutine packDouble_s
 
537
 
 
538
 
 
539
  recursive subroutine packFcomplex_s(self, key, value, exception)
 
540
    implicit none
 
541
    !  in sidl.rmi.Return self
 
542
    type(sidl_rmi_Return_t) , intent(in) :: self
 
543
    !  in string key
 
544
    character (len=*) , intent(in) :: key
 
545
    !  in fcomplex value
 
546
    complex (kind=sidl_fcomplex) , intent(in) :: value
 
547
    !  out sidl.BaseInterface exception
 
548
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
549
 
 
550
    external sidl_rmi_Return_packFcomplex_m
 
551
    call sidl_rmi_Return_packFcomplex_m(self, key, value, exception)
 
552
 
 
553
  end subroutine packFcomplex_s
 
554
 
 
555
 
 
556
  recursive subroutine packDcomplex_s(self, key, value, exception)
 
557
    implicit none
 
558
    !  in sidl.rmi.Return self
 
559
    type(sidl_rmi_Return_t) , intent(in) :: self
 
560
    !  in string key
 
561
    character (len=*) , intent(in) :: key
 
562
    !  in dcomplex value
 
563
    complex (kind=sidl_dcomplex) , intent(in) :: value
 
564
    !  out sidl.BaseInterface exception
 
565
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
566
 
 
567
    external sidl_rmi_Return_packDcomplex_m
 
568
    call sidl_rmi_Return_packDcomplex_m(self, key, value, exception)
 
569
 
 
570
  end subroutine packDcomplex_s
 
571
 
 
572
 
 
573
  recursive subroutine packString_s(self, key, value, exception)
 
574
    implicit none
 
575
    !  in sidl.rmi.Return self
 
576
    type(sidl_rmi_Return_t) , intent(in) :: self
 
577
    !  in string key
 
578
    character (len=*) , intent(in) :: key
 
579
    !  in string value
 
580
    character (len=*) , intent(in) :: value
 
581
    !  out sidl.BaseInterface exception
 
582
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
583
 
 
584
    external sidl_rmi_Return_packString_m
 
585
    call sidl_rmi_Return_packString_m(self, key, value, exception)
 
586
 
 
587
  end subroutine packString_s
 
588
 
 
589
 
 
590
  recursive subroutine packSerializable_s(self, key, value, exception)
 
591
    implicit none
 
592
    !  in sidl.rmi.Return self
 
593
    type(sidl_rmi_Return_t) , intent(in) :: self
 
594
    !  in string key
 
595
    character (len=*) , intent(in) :: key
 
596
    !  in sidl.io.Serializable value
 
597
    type(sidl_io_Serializable_t) , intent(in) :: value
 
598
    !  out sidl.BaseInterface exception
 
599
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
600
 
 
601
    external sidl_rmi_Return_packSerializable_m
 
602
    call sidl_rmi_Return_packSerializable_m(self, key, value, exception)
 
603
 
 
604
  end subroutine packSerializable_s
 
605
 
 
606
 
 
607
  recursive subroutine packBoolArray_s(self, key, value, ordering, dimen,      &
 
608
    reuse_array, exception)
 
609
    implicit none
 
610
    !  in sidl.rmi.Return self
 
611
    type(sidl_rmi_Return_t) , intent(in) :: self
 
612
    !  in string key
 
613
    character (len=*) , intent(in) :: key
 
614
    !  in array<bool> value
 
615
    type(sidl_bool_1d) , intent(in) :: value
 
616
    !  in int ordering
 
617
    integer (kind=sidl_int) , intent(in) :: ordering
 
618
    !  in int dimen
 
619
    integer (kind=sidl_int) , intent(in) :: dimen
 
620
    !  in bool reuse_array
 
621
    logical , intent(in) :: reuse_array
 
622
    !  out sidl.BaseInterface exception
 
623
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
624
 
 
625
    external sidl_rmi_Return_packBoolArray_m
 
626
    call sidl_rmi_Return_packBoolArray_m(self, key, value, ordering, dimen,    &
 
627
      reuse_array, exception)
 
628
 
 
629
  end subroutine packBoolArray_s
 
630
 
 
631
 
 
632
  recursive subroutine packCharArray_s(self, key, value, ordering, dimen,      &
 
633
    reuse_array, exception)
 
634
    implicit none
 
635
    !  in sidl.rmi.Return self
 
636
    type(sidl_rmi_Return_t) , intent(in) :: self
 
637
    !  in string key
 
638
    character (len=*) , intent(in) :: key
 
639
    !  in array<char> value
 
640
    type(sidl_char_1d) , intent(in) :: value
 
641
    !  in int ordering
 
642
    integer (kind=sidl_int) , intent(in) :: ordering
 
643
    !  in int dimen
 
644
    integer (kind=sidl_int) , intent(in) :: dimen
 
645
    !  in bool reuse_array
 
646
    logical , intent(in) :: reuse_array
 
647
    !  out sidl.BaseInterface exception
 
648
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
649
 
 
650
    external sidl_rmi_Return_packCharArray_m
 
651
    call sidl_rmi_Return_packCharArray_m(self, key, value, ordering, dimen,    &
 
652
      reuse_array, exception)
 
653
 
 
654
  end subroutine packCharArray_s
 
655
 
 
656
 
 
657
  recursive subroutine packIntArray_s(self, key, value, ordering, dimen,       &
 
658
    reuse_array, exception)
 
659
    implicit none
 
660
    !  in sidl.rmi.Return self
 
661
    type(sidl_rmi_Return_t) , intent(in) :: self
 
662
    !  in string key
 
663
    character (len=*) , intent(in) :: key
 
664
    !  in array<int> value
 
665
    type(sidl_int_1d) , intent(in) :: value
 
666
    !  in int ordering
 
667
    integer (kind=sidl_int) , intent(in) :: ordering
 
668
    !  in int dimen
 
669
    integer (kind=sidl_int) , intent(in) :: dimen
 
670
    !  in bool reuse_array
 
671
    logical , intent(in) :: reuse_array
 
672
    !  out sidl.BaseInterface exception
 
673
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
674
 
 
675
    external sidl_rmi_Return_packIntArray_m
 
676
    call sidl_rmi_Return_packIntArray_m(self, key, value, ordering, dimen,     &
 
677
      reuse_array, exception)
 
678
 
 
679
  end subroutine packIntArray_s
 
680
 
 
681
 
 
682
  recursive subroutine packLongArray_s(self, key, value, ordering, dimen,      &
 
683
    reuse_array, exception)
 
684
    implicit none
 
685
    !  in sidl.rmi.Return self
 
686
    type(sidl_rmi_Return_t) , intent(in) :: self
 
687
    !  in string key
 
688
    character (len=*) , intent(in) :: key
 
689
    !  in array<long> value
 
690
    type(sidl_long_1d) , intent(in) :: value
 
691
    !  in int ordering
 
692
    integer (kind=sidl_int) , intent(in) :: ordering
 
693
    !  in int dimen
 
694
    integer (kind=sidl_int) , intent(in) :: dimen
 
695
    !  in bool reuse_array
 
696
    logical , intent(in) :: reuse_array
 
697
    !  out sidl.BaseInterface exception
 
698
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
699
 
 
700
    external sidl_rmi_Return_packLongArray_m
 
701
    call sidl_rmi_Return_packLongArray_m(self, key, value, ordering, dimen,    &
 
702
      reuse_array, exception)
 
703
 
 
704
  end subroutine packLongArray_s
 
705
 
 
706
 
 
707
  recursive subroutine packOpaqueArray_s(self, key, value, ordering, dimen,    &
 
708
    reuse_array, exception)
 
709
    implicit none
 
710
    !  in sidl.rmi.Return self
 
711
    type(sidl_rmi_Return_t) , intent(in) :: self
 
712
    !  in string key
 
713
    character (len=*) , intent(in) :: key
 
714
    !  in array<opaque> value
 
715
    type(sidl_opaque_1d) , intent(in) :: value
 
716
    !  in int ordering
 
717
    integer (kind=sidl_int) , intent(in) :: ordering
 
718
    !  in int dimen
 
719
    integer (kind=sidl_int) , intent(in) :: dimen
 
720
    !  in bool reuse_array
 
721
    logical , intent(in) :: reuse_array
 
722
    !  out sidl.BaseInterface exception
 
723
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
724
 
 
725
    external sidl_rmi_Return_packOpaqueArray_m
 
726
    call sidl_rmi_Return_packOpaqueArray_m(self, key, value, ordering, dimen,  &
 
727
      reuse_array, exception)
 
728
 
 
729
  end subroutine packOpaqueArray_s
 
730
 
 
731
 
 
732
  recursive subroutine packFloatArray_s(self, key, value, ordering, dimen,     &
 
733
    reuse_array, exception)
 
734
    implicit none
 
735
    !  in sidl.rmi.Return self
 
736
    type(sidl_rmi_Return_t) , intent(in) :: self
 
737
    !  in string key
 
738
    character (len=*) , intent(in) :: key
 
739
    !  in array<float> value
 
740
    type(sidl_float_1d) , intent(in) :: value
 
741
    !  in int ordering
 
742
    integer (kind=sidl_int) , intent(in) :: ordering
 
743
    !  in int dimen
 
744
    integer (kind=sidl_int) , intent(in) :: dimen
 
745
    !  in bool reuse_array
 
746
    logical , intent(in) :: reuse_array
 
747
    !  out sidl.BaseInterface exception
 
748
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
749
 
 
750
    external sidl_rmi_Return_packFloatArray_m
 
751
    call sidl_rmi_Return_packFloatArray_m(self, key, value, ordering, dimen,   &
 
752
      reuse_array, exception)
 
753
 
 
754
  end subroutine packFloatArray_s
 
755
 
 
756
 
 
757
  recursive subroutine packDoubleArray_s(self, key, value, ordering, dimen,    &
 
758
    reuse_array, exception)
 
759
    implicit none
 
760
    !  in sidl.rmi.Return self
 
761
    type(sidl_rmi_Return_t) , intent(in) :: self
 
762
    !  in string key
 
763
    character (len=*) , intent(in) :: key
 
764
    !  in array<double> value
 
765
    type(sidl_double_1d) , intent(in) :: value
 
766
    !  in int ordering
 
767
    integer (kind=sidl_int) , intent(in) :: ordering
 
768
    !  in int dimen
 
769
    integer (kind=sidl_int) , intent(in) :: dimen
 
770
    !  in bool reuse_array
 
771
    logical , intent(in) :: reuse_array
 
772
    !  out sidl.BaseInterface exception
 
773
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
774
 
 
775
    external sidl_rmi_Return_packDoubleArray_m
 
776
    call sidl_rmi_Return_packDoubleArray_m(self, key, value, ordering, dimen,  &
 
777
      reuse_array, exception)
 
778
 
 
779
  end subroutine packDoubleArray_s
 
780
 
 
781
 
 
782
  recursive subroutine packFcomplexArray_s(self, key, value, ordering, dimen,  &
 
783
    reuse_array, exception)
 
784
    implicit none
 
785
    !  in sidl.rmi.Return self
 
786
    type(sidl_rmi_Return_t) , intent(in) :: self
 
787
    !  in string key
 
788
    character (len=*) , intent(in) :: key
 
789
    !  in array<fcomplex> value
 
790
    type(sidl_fcomplex_1d) , intent(in) :: value
 
791
    !  in int ordering
 
792
    integer (kind=sidl_int) , intent(in) :: ordering
 
793
    !  in int dimen
 
794
    integer (kind=sidl_int) , intent(in) :: dimen
 
795
    !  in bool reuse_array
 
796
    logical , intent(in) :: reuse_array
 
797
    !  out sidl.BaseInterface exception
 
798
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
799
 
 
800
    external sidl_rmi_Return_packFcomplexArray_m
 
801
    call sidl_rmi_Return_packFcomplexArray_m(self, key, value, ordering,       &
 
802
      dimen, reuse_array, exception)
 
803
 
 
804
  end subroutine packFcomplexArray_s
 
805
 
 
806
 
 
807
  recursive subroutine packDcomplexArray_s(self, key, value, ordering, dimen,  &
 
808
    reuse_array, exception)
 
809
    implicit none
 
810
    !  in sidl.rmi.Return self
 
811
    type(sidl_rmi_Return_t) , intent(in) :: self
 
812
    !  in string key
 
813
    character (len=*) , intent(in) :: key
 
814
    !  in array<dcomplex> value
 
815
    type(sidl_dcomplex_1d) , intent(in) :: value
 
816
    !  in int ordering
 
817
    integer (kind=sidl_int) , intent(in) :: ordering
 
818
    !  in int dimen
 
819
    integer (kind=sidl_int) , intent(in) :: dimen
 
820
    !  in bool reuse_array
 
821
    logical , intent(in) :: reuse_array
 
822
    !  out sidl.BaseInterface exception
 
823
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
824
 
 
825
    external sidl_rmi_Return_packDcomplexArray_m
 
826
    call sidl_rmi_Return_packDcomplexArray_m(self, key, value, ordering,       &
 
827
      dimen, reuse_array, exception)
 
828
 
 
829
  end subroutine packDcomplexArray_s
 
830
 
 
831
 
 
832
  recursive subroutine packStringArray_s(self, key, value, ordering, dimen,    &
 
833
    reuse_array, exception)
 
834
    implicit none
 
835
    !  in sidl.rmi.Return self
 
836
    type(sidl_rmi_Return_t) , intent(in) :: self
 
837
    !  in string key
 
838
    character (len=*) , intent(in) :: key
 
839
    !  in array<string> value
 
840
    type(sidl_string_1d) , intent(in) :: value
 
841
    !  in int ordering
 
842
    integer (kind=sidl_int) , intent(in) :: ordering
 
843
    !  in int dimen
 
844
    integer (kind=sidl_int) , intent(in) :: dimen
 
845
    !  in bool reuse_array
 
846
    logical , intent(in) :: reuse_array
 
847
    !  out sidl.BaseInterface exception
 
848
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
849
 
 
850
    external sidl_rmi_Return_packStringArray_m
 
851
    call sidl_rmi_Return_packStringArray_m(self, key, value, ordering, dimen,  &
 
852
      reuse_array, exception)
 
853
 
 
854
  end subroutine packStringArray_s
 
855
 
 
856
 
 
857
  recursive subroutine packGenericArray_s(self, key, value, reuse_array,       &
 
858
    exception)
 
859
    implicit none
 
860
    !  in sidl.rmi.Return self
 
861
    type(sidl_rmi_Return_t) , intent(in) :: self
 
862
    !  in string key
 
863
    character (len=*) , intent(in) :: key
 
864
    !  in array<> value
 
865
    type(sidl__array) , intent(in) :: value
 
866
    !  in bool reuse_array
 
867
    logical , intent(in) :: reuse_array
 
868
    !  out sidl.BaseInterface exception
 
869
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
870
 
 
871
    external sidl_rmi_Return_packGenericArray_m
 
872
    call sidl_rmi_Return_packGenericArray_m(self, key, value, reuse_array,     &
 
873
      exception)
 
874
 
 
875
  end subroutine packGenericArray_s
 
876
 
 
877
 
 
878
  recursive subroutine packSerializableArray_s(self, key, value, ordering,     &
 
879
    dimen, reuse_array, exception)
 
880
    implicit none
 
881
    !  in sidl.rmi.Return self
 
882
    type(sidl_rmi_Return_t) , intent(in) :: self
 
883
    !  in string key
 
884
    character (len=*) , intent(in) :: key
 
885
    !  in array<sidl.io.Serializable> value
 
886
    type(sidl_io_Serializable_1d) , intent(in) :: value
 
887
    !  in int ordering
 
888
    integer (kind=sidl_int) , intent(in) :: ordering
 
889
    !  in int dimen
 
890
    integer (kind=sidl_int) , intent(in) :: dimen
 
891
    !  in bool reuse_array
 
892
    logical , intent(in) :: reuse_array
 
893
    !  out sidl.BaseInterface exception
 
894
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
895
 
 
896
    external sidl_rmi_Return_packSerializableArray_m
 
897
    call sidl_rmi_Return_packSerializableArray_m(self, key, value, ordering,   &
 
898
      dimen, reuse_array, exception)
 
899
 
 
900
  end subroutine packSerializableArray_s
 
901
 
 
902
  ! 
 
903
  ! Static function to cast from sidl.rmi.Return
 
904
  ! to sidl.BaseInterface.
 
905
  ! 
 
906
 
 
907
  subroutine cast_0(oldType, newType, exception)
 
908
    implicit none
 
909
    type(sidl_rmi_Return_t), intent(in) :: oldType
 
910
    type(sidl_BaseInterface_t), intent(out) :: newType
 
911
    type(sidl_BaseInterface_t), intent(out) :: exception
 
912
    external sidl_BaseInterface__cast_m
 
913
 
 
914
    call sidl_BaseInterface__cast_m(oldType, newType, exception)
 
915
  end subroutine cast_0
 
916
 
 
917
  ! 
 
918
  ! Static function to cast from sidl.BaseInterface
 
919
  ! to sidl.rmi.Return.
 
920
  ! 
 
921
 
 
922
  subroutine cast_1(oldType, newType, exception)
 
923
    implicit none
 
924
    type(sidl_BaseInterface_t), intent(in) :: oldType
 
925
    type(sidl_rmi_Return_t), intent(out) :: newType
 
926
    type(sidl_BaseInterface_t), intent(out) :: exception
 
927
    external sidl_rmi_Return__cast_m
 
928
 
 
929
    call sidl_rmi_Return__cast_m(oldType, newType, exception)
 
930
  end subroutine cast_1
 
931
 
 
932
  ! 
 
933
  ! Static function to cast from sidl.rmi.Return
 
934
  ! to sidl.io.Serializer.
 
935
  ! 
 
936
 
 
937
  subroutine cast_2(oldType, newType, exception)
 
938
    implicit none
 
939
    type(sidl_rmi_Return_t), intent(in) :: oldType
 
940
    type(sidl_io_Serializer_t), intent(out) :: newType
 
941
    type(sidl_BaseInterface_t), intent(out) :: exception
 
942
    external sidl_io_Serializer__cast_m
 
943
 
 
944
    call sidl_io_Serializer__cast_m(oldType, newType, exception)
 
945
  end subroutine cast_2
 
946
 
 
947
  ! 
 
948
  ! Static function to cast from sidl.io.Serializer
 
949
  ! to sidl.rmi.Return.
 
950
  ! 
 
951
 
 
952
  subroutine cast_3(oldType, newType, exception)
 
953
    implicit none
 
954
    type(sidl_io_Serializer_t), intent(in) :: oldType
 
955
    type(sidl_rmi_Return_t), intent(out) :: newType
 
956
    type(sidl_BaseInterface_t), intent(out) :: exception
 
957
    external sidl_rmi_Return__cast_m
 
958
 
 
959
    call sidl_rmi_Return__cast_m(oldType, newType, exception)
 
960
  end subroutine cast_3
 
961
 
 
962
 
 
963
  recursive subroutine exec_s(self, methodName, inArgs, outArgs, exception)
 
964
    implicit none
 
965
    !  in sidl.rmi.Return self
 
966
    type(sidl_rmi_Return_t) , intent(in) :: self
 
967
    !  in string methodName
 
968
    character (len=*) , intent(in) :: methodName
 
969
    !  in sidl.rmi.Call inArgs
 
970
    type(sidl_rmi_Call_t) , intent(in) :: inArgs
 
971
    !  in sidl.rmi.Return outArgs
 
972
    type(sidl_rmi_Return_t) , intent(in) :: outArgs
 
973
    !  out sidl.BaseInterface exception
 
974
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
975
 
 
976
    external sidl_rmi_Return__exec_m
 
977
    call sidl_rmi_Return__exec_m(self, methodName, inArgs, outArgs, exception)
 
978
 
 
979
  end subroutine exec_s
 
980
 
 
981
  recursive subroutine getURL_s(self, retval, exception)
 
982
    implicit none
 
983
    !  in sidl.rmi.Return self
 
984
    type(sidl_rmi_Return_t) , intent(in) :: self
 
985
    !  out string retval
 
986
    character (len=*) , intent(out) :: retval
 
987
    !  out sidl.BaseInterface exception
 
988
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
989
 
 
990
    external sidl_rmi_Return__getURL_m
 
991
    call sidl_rmi_Return__getURL_m(self, retval, exception)
 
992
 
 
993
  end subroutine getURL_s
 
994
 
 
995
  recursive subroutine isRemote_s(self, retval, exception)
 
996
    implicit none
 
997
    !  in sidl.rmi.Return self
 
998
    type(sidl_rmi_Return_t) , intent(in) :: self
 
999
    !  out bool retval
 
1000
    logical , intent(out) :: retval
 
1001
    !  out sidl.BaseInterface exception
 
1002
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
1003
 
 
1004
    external sidl_rmi_Return__isRemote_m
 
1005
    call sidl_rmi_Return__isRemote_m(self, retval, exception)
 
1006
 
 
1007
  end subroutine isRemote_s
 
1008
 
 
1009
  recursive subroutine isLocal_s(self, retval, exception)
 
1010
    implicit none
 
1011
    !  in sidl.rmi.Return self
 
1012
    type(sidl_rmi_Return_t) , intent(in) :: self
 
1013
    !  out bool retval
 
1014
    logical , intent(out) :: retval
 
1015
    !  out sidl.BaseInterface exception
 
1016
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
1017
 
 
1018
    external sidl_rmi_Return__isLocal_m
 
1019
    call sidl_rmi_Return__isLocal_m(self, retval, exception)
 
1020
 
 
1021
  end subroutine isLocal_s
 
1022
 
 
1023
  recursive subroutine set_hooks_s(self, on, exception)
 
1024
    implicit none
 
1025
    !  in sidl.rmi.Return self
 
1026
    type(sidl_rmi_Return_t) , intent(in) :: self
 
1027
    !  in bool on
 
1028
    logical , intent(in) :: on
 
1029
    !  out sidl.BaseInterface exception
 
1030
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
1031
 
 
1032
    external sidl_rmi_Return__set_hooks_m
 
1033
    call sidl_rmi_Return__set_hooks_m(self, on, exception)
 
1034
 
 
1035
  end subroutine set_hooks_s
 
1036
  logical function is_null_s(ext)
 
1037
    type(sidl_rmi_Return_t), intent(in) :: ext
 
1038
    is_null_s = (ext%d_ior .eq. 0)
 
1039
  end function is_null_s
 
1040
 
 
1041
  logical function not_null_s(ext)
 
1042
    type(sidl_rmi_Return_t), intent(in) :: ext
 
1043
    not_null_s = (ext%d_ior .ne. 0)
 
1044
  end function not_null_s
 
1045
 
 
1046
  subroutine set_null_s(ext)
 
1047
    type(sidl_rmi_Return_t), intent(out) :: ext
 
1048
    ext%d_ior = 0
 
1049
  end subroutine set_null_s
 
1050
 
 
1051
 
 
1052
end module sidl_rmi_Return
 
1053
 
 
1054
module sidl_rmi_Return_array
 
1055
  use sidl
 
1056
  use sidl_rmi_Return_type
 
1057
  use sidl_array_type
 
1058
 
 
1059
  private :: &
 
1060
    copy1_p, &
 
1061
    copy2_p, &
 
1062
    copy3_p, &
 
1063
    copy4_p, &
 
1064
    copy5_p, &
 
1065
    copy6_p, &
 
1066
    copy7_p
 
1067
 
 
1068
  interface copy
 
1069
    module procedure &
 
1070
      copy1_p, &
 
1071
      copy2_p, &
 
1072
      copy3_p, &
 
1073
      copy4_p, &
 
1074
      copy5_p, &
 
1075
      copy6_p, &
 
1076
      copy7_p
 
1077
  end interface
 
1078
 
 
1079
  private :: &
 
1080
    createCol1_p, &
 
1081
    createCol2_p, &
 
1082
    createCol3_p, &
 
1083
    createCol4_p, &
 
1084
    createCol5_p, &
 
1085
    createCol6_p, &
 
1086
    createCol7_p
 
1087
 
 
1088
  interface createCol
 
1089
    module procedure &
 
1090
      createCol1_p, &
 
1091
      createCol2_p, &
 
1092
      createCol3_p, &
 
1093
      createCol4_p, &
 
1094
      createCol5_p, &
 
1095
      createCol6_p, &
 
1096
      createCol7_p
 
1097
  end interface
 
1098
 
 
1099
  private :: &
 
1100
    createRow1_p, &
 
1101
    createRow2_p, &
 
1102
    createRow3_p, &
 
1103
    createRow4_p, &
 
1104
    createRow5_p, &
 
1105
    createRow6_p, &
 
1106
    createRow7_p
 
1107
 
 
1108
  interface createRow
 
1109
    module procedure &
 
1110
      createRow1_p, &
 
1111
      createRow2_p, &
 
1112
      createRow3_p, &
 
1113
      createRow4_p, &
 
1114
      createRow5_p, &
 
1115
      createRow6_p, &
 
1116
      createRow7_p
 
1117
  end interface
 
1118
 
 
1119
  private :: &
 
1120
    ensure1_p, &
 
1121
    ensure2_p, &
 
1122
    ensure3_p, &
 
1123
    ensure4_p, &
 
1124
    ensure5_p, &
 
1125
    ensure6_p, &
 
1126
    ensure7_p
 
1127
 
 
1128
  interface ensure
 
1129
    module procedure &
 
1130
      ensure1_p, &
 
1131
      ensure2_p, &
 
1132
      ensure3_p, &
 
1133
      ensure4_p, &
 
1134
      ensure5_p, &
 
1135
      ensure6_p, &
 
1136
      ensure7_p
 
1137
  end interface
 
1138
 
 
1139
  private :: &
 
1140
    addRef1_p, &
 
1141
    addRef2_p, &
 
1142
    addRef3_p, &
 
1143
    addRef4_p, &
 
1144
    addRef5_p, &
 
1145
    addRef6_p, &
 
1146
    addRef7_p
 
1147
 
 
1148
  interface addRef
 
1149
    module procedure &
 
1150
      addRef1_p, &
 
1151
      addRef2_p, &
 
1152
      addRef3_p, &
 
1153
      addRef4_p, &
 
1154
      addRef5_p, &
 
1155
      addRef6_p, &
 
1156
      addRef7_p
 
1157
  end interface
 
1158
 
 
1159
  private :: &
 
1160
    deleteRef1_p, &
 
1161
    deleteRef2_p, &
 
1162
    deleteRef3_p, &
 
1163
    deleteRef4_p, &
 
1164
    deleteRef5_p, &
 
1165
    deleteRef6_p, &
 
1166
    deleteRef7_p
 
1167
 
 
1168
  interface deleteRef
 
1169
    module procedure &
 
1170
      deleteRef1_p, &
 
1171
      deleteRef2_p, &
 
1172
      deleteRef3_p, &
 
1173
      deleteRef4_p, &
 
1174
      deleteRef5_p, &
 
1175
      deleteRef6_p, &
 
1176
      deleteRef7_p
 
1177
  end interface
 
1178
 
 
1179
  private :: &
 
1180
    dimen1_p, &
 
1181
    dimen2_p, &
 
1182
    dimen3_p, &
 
1183
    dimen4_p, &
 
1184
    dimen5_p, &
 
1185
    dimen6_p, &
 
1186
    dimen7_p
 
1187
 
 
1188
  interface dimen
 
1189
    module procedure &
 
1190
      dimen1_p, &
 
1191
      dimen2_p, &
 
1192
      dimen3_p, &
 
1193
      dimen4_p, &
 
1194
      dimen5_p, &
 
1195
      dimen6_p, &
 
1196
      dimen7_p
 
1197
  end interface
 
1198
 
 
1199
  private :: &
 
1200
    isColumnOrder1_p, &
 
1201
    isColumnOrder2_p, &
 
1202
    isColumnOrder3_p, &
 
1203
    isColumnOrder4_p, &
 
1204
    isColumnOrder5_p, &
 
1205
    isColumnOrder6_p, &
 
1206
    isColumnOrder7_p
 
1207
 
 
1208
  interface isColumnOrder
 
1209
    module procedure &
 
1210
      isColumnOrder1_p, &
 
1211
      isColumnOrder2_p, &
 
1212
      isColumnOrder3_p, &
 
1213
      isColumnOrder4_p, &
 
1214
      isColumnOrder5_p, &
 
1215
      isColumnOrder6_p, &
 
1216
      isColumnOrder7_p
 
1217
  end interface
 
1218
 
 
1219
  private :: &
 
1220
    isRowOrder1_p, &
 
1221
    isRowOrder2_p, &
 
1222
    isRowOrder3_p, &
 
1223
    isRowOrder4_p, &
 
1224
    isRowOrder5_p, &
 
1225
    isRowOrder6_p, &
 
1226
    isRowOrder7_p
 
1227
 
 
1228
  interface isRowOrder
 
1229
    module procedure &
 
1230
      isRowOrder1_p, &
 
1231
      isRowOrder2_p, &
 
1232
      isRowOrder3_p, &
 
1233
      isRowOrder4_p, &
 
1234
      isRowOrder5_p, &
 
1235
      isRowOrder6_p, &
 
1236
      isRowOrder7_p
 
1237
  end interface
 
1238
 
 
1239
  private :: &
 
1240
    is_null1_p, &
 
1241
    is_null2_p, &
 
1242
    is_null3_p, &
 
1243
    is_null4_p, &
 
1244
    is_null5_p, &
 
1245
    is_null6_p, &
 
1246
    is_null7_p
 
1247
 
 
1248
  interface is_null
 
1249
    module procedure &
 
1250
      is_null1_p, &
 
1251
      is_null2_p, &
 
1252
      is_null3_p, &
 
1253
      is_null4_p, &
 
1254
      is_null5_p, &
 
1255
      is_null6_p, &
 
1256
      is_null7_p
 
1257
  end interface
 
1258
 
 
1259
  private :: &
 
1260
    lower1_p, &
 
1261
    lower2_p, &
 
1262
    lower3_p, &
 
1263
    lower4_p, &
 
1264
    lower5_p, &
 
1265
    lower6_p, &
 
1266
    lower7_p
 
1267
 
 
1268
  interface lower
 
1269
    module procedure &
 
1270
      lower1_p, &
 
1271
      lower2_p, &
 
1272
      lower3_p, &
 
1273
      lower4_p, &
 
1274
      lower5_p, &
 
1275
      lower6_p, &
 
1276
      lower7_p
 
1277
  end interface
 
1278
 
 
1279
  private :: &
 
1280
    not_null1_p, &
 
1281
    not_null2_p, &
 
1282
    not_null3_p, &
 
1283
    not_null4_p, &
 
1284
    not_null5_p, &
 
1285
    not_null6_p, &
 
1286
    not_null7_p
 
1287
 
 
1288
  interface not_null
 
1289
    module procedure &
 
1290
      not_null1_p, &
 
1291
      not_null2_p, &
 
1292
      not_null3_p, &
 
1293
      not_null4_p, &
 
1294
      not_null5_p, &
 
1295
      not_null6_p, &
 
1296
      not_null7_p
 
1297
  end interface
 
1298
 
 
1299
  private :: &
 
1300
    set_null1_p, &
 
1301
    set_null2_p, &
 
1302
    set_null3_p, &
 
1303
    set_null4_p, &
 
1304
    set_null5_p, &
 
1305
    set_null6_p, &
 
1306
    set_null7_p
 
1307
 
 
1308
  interface set_null
 
1309
    module procedure &
 
1310
      set_null1_p, &
 
1311
      set_null2_p, &
 
1312
      set_null3_p, &
 
1313
      set_null4_p, &
 
1314
      set_null5_p, &
 
1315
      set_null6_p, &
 
1316
      set_null7_p
 
1317
  end interface
 
1318
 
 
1319
  private :: &
 
1320
    smartCopy1_p, &
 
1321
    smartCopy2_p, &
 
1322
    smartCopy3_p, &
 
1323
    smartCopy4_p, &
 
1324
    smartCopy5_p, &
 
1325
    smartCopy6_p, &
 
1326
    smartCopy7_p
 
1327
 
 
1328
  interface smartCopy
 
1329
    module procedure &
 
1330
      smartCopy1_p, &
 
1331
      smartCopy2_p, &
 
1332
      smartCopy3_p, &
 
1333
      smartCopy4_p, &
 
1334
      smartCopy5_p, &
 
1335
      smartCopy6_p, &
 
1336
      smartCopy7_p
 
1337
  end interface
 
1338
 
 
1339
  private :: &
 
1340
    stride1_p, &
 
1341
    stride2_p, &
 
1342
    stride3_p, &
 
1343
    stride4_p, &
 
1344
    stride5_p, &
 
1345
    stride6_p, &
 
1346
    stride7_p
 
1347
 
 
1348
  interface stride
 
1349
    module procedure &
 
1350
      stride1_p, &
 
1351
      stride2_p, &
 
1352
      stride3_p, &
 
1353
      stride4_p, &
 
1354
      stride5_p, &
 
1355
      stride6_p, &
 
1356
      stride7_p
 
1357
  end interface
 
1358
 
 
1359
  private :: &
 
1360
    upper1_p, &
 
1361
    upper2_p, &
 
1362
    upper3_p, &
 
1363
    upper4_p, &
 
1364
    upper5_p, &
 
1365
    upper6_p, &
 
1366
    upper7_p
 
1367
 
 
1368
  interface upper
 
1369
    module procedure &
 
1370
      upper1_p, &
 
1371
      upper2_p, &
 
1372
      upper3_p, &
 
1373
      upper4_p, &
 
1374
      upper5_p, &
 
1375
      upper6_p, &
 
1376
      upper7_p
 
1377
  end interface
 
1378
 
 
1379
  private :: &
 
1380
    length1_p, &
 
1381
    length2_p, &
 
1382
    length3_p, &
 
1383
    length4_p, &
 
1384
    length5_p, &
 
1385
    length6_p, &
 
1386
    length7_p
 
1387
 
 
1388
  interface length
 
1389
    module procedure &
 
1390
      length1_p, &
 
1391
      length2_p, &
 
1392
      length3_p, &
 
1393
      length4_p, &
 
1394
      length5_p, &
 
1395
      length6_p, &
 
1396
      length7_p
 
1397
  end interface
 
1398
 
 
1399
  private :: create1d1_p
 
1400
 
 
1401
  interface create1d
 
1402
    module procedure create1d1_p
 
1403
  end interface
 
1404
 
 
1405
  private :: create2dRow2_p
 
1406
 
 
1407
  interface create2dRow
 
1408
    module procedure create2dRow2_p
 
1409
  end interface
 
1410
 
 
1411
  private :: create2dCol2_p
 
1412
 
 
1413
  interface create2dCol
 
1414
    module procedure create2dCol2_p
 
1415
  end interface
 
1416
 
 
1417
  private :: &
 
1418
    slice11_p, &
 
1419
    slice12_p, &
 
1420
    slice22_p, &
 
1421
    slice13_p, &
 
1422
    slice23_p, &
 
1423
    slice33_p, &
 
1424
    slice14_p, &
 
1425
    slice24_p, &
 
1426
    slice34_p, &
 
1427
    slice44_p, &
 
1428
    slice15_p, &
 
1429
    slice25_p, &
 
1430
    slice35_p, &
 
1431
    slice45_p, &
 
1432
    slice55_p, &
 
1433
    slice16_p, &
 
1434
    slice26_p, &
 
1435
    slice36_p, &
 
1436
    slice46_p, &
 
1437
    slice56_p, &
 
1438
    slice66_p, &
 
1439
    slice17_p, &
 
1440
    slice27_p, &
 
1441
    slice37_p, &
 
1442
    slice47_p, &
 
1443
    slice57_p, &
 
1444
    slice67_p, &
 
1445
    slice77_p
 
1446
 
 
1447
  interface slice
 
1448
    module procedure &
 
1449
      slice11_p, &
 
1450
      slice12_p, &
 
1451
      slice22_p, &
 
1452
      slice13_p, &
 
1453
      slice23_p, &
 
1454
      slice33_p, &
 
1455
      slice14_p, &
 
1456
      slice24_p, &
 
1457
      slice34_p, &
 
1458
      slice44_p, &
 
1459
      slice15_p, &
 
1460
      slice25_p, &
 
1461
      slice35_p, &
 
1462
      slice45_p, &
 
1463
      slice55_p, &
 
1464
      slice16_p, &
 
1465
      slice26_p, &
 
1466
      slice36_p, &
 
1467
      slice46_p, &
 
1468
      slice56_p, &
 
1469
      slice66_p, &
 
1470
      slice17_p, &
 
1471
      slice27_p, &
 
1472
      slice37_p, &
 
1473
      slice47_p, &
 
1474
      slice57_p, &
 
1475
      slice67_p, &
 
1476
      slice77_p
 
1477
  end interface
 
1478
 
 
1479
  private :: &
 
1480
    getg1_p, &
 
1481
    getg2_p, &
 
1482
    getg3_p, &
 
1483
    getg4_p, &
 
1484
    getg5_p, &
 
1485
    getg6_p, &
 
1486
    getg7_p
 
1487
 
 
1488
  private :: &
 
1489
    get1_p, &
 
1490
    get2_p, &
 
1491
    get3_p, &
 
1492
    get4_p, &
 
1493
    get5_p, &
 
1494
    get6_p, &
 
1495
    get7_p
 
1496
 
 
1497
  interface get
 
1498
    module procedure &
 
1499
      getg1_p, &
 
1500
      get1_p, &
 
1501
      getg2_p, &
 
1502
      get2_p, &
 
1503
      getg3_p, &
 
1504
      get3_p, &
 
1505
      getg4_p, &
 
1506
      get4_p, &
 
1507
      getg5_p, &
 
1508
      get5_p, &
 
1509
      getg6_p, &
 
1510
      get6_p, &
 
1511
      getg7_p, &
 
1512
    get7_p
 
1513
  end interface
 
1514
 
 
1515
  private :: &
 
1516
    setg1_p, &
 
1517
    setg2_p, &
 
1518
    setg3_p, &
 
1519
    setg4_p, &
 
1520
    setg5_p, &
 
1521
    setg6_p, &
 
1522
    setg7_p
 
1523
 
 
1524
  private :: &
 
1525
    set1_p, &
 
1526
    set2_p, &
 
1527
    set3_p, &
 
1528
    set4_p, &
 
1529
    set5_p, &
 
1530
    set6_p, &
 
1531
    set7_p
 
1532
 
 
1533
  interface set
 
1534
    module procedure &
 
1535
      setg1_p, &
 
1536
      set1_p, &
 
1537
      setg2_p, &
 
1538
      set2_p, &
 
1539
      setg3_p, &
 
1540
      set3_p, &
 
1541
      setg4_p, &
 
1542
      set4_p, &
 
1543
      setg5_p, &
 
1544
      set5_p, &
 
1545
      setg6_p, &
 
1546
      set6_p, &
 
1547
      setg7_p, &
 
1548
    set7_p
 
1549
  end interface
 
1550
 
 
1551
 
 
1552
  private :: &
 
1553
    castsidl_rmi_Returnhfwzqaiipq_p, &
 
1554
    castsidl_rmi_Returnf2f9efg94g_p, &
 
1555
    castsidl_rmi_Returncgx4xxcw6a_p, &
 
1556
    castsidl_rmi_Returnhvew1so5mp_p, &
 
1557
    castsidl_rmi_Returnnn6k5uq6sb_p, &
 
1558
    castsidl_rmi_Returnmbuaje827t_p, &
 
1559
    castsidl_rmi_Returnzili5m6qrx_p
 
1560
interface cast
 
1561
  module procedure &
 
1562
    castsidl_rmi_Returnhfwzqaiipq_p, &
 
1563
    castsidl_rmi_Returnf2f9efg94g_p, &
 
1564
    castsidl_rmi_Returncgx4xxcw6a_p, &
 
1565
    castsidl_rmi_Returnhvew1so5mp_p, &
 
1566
    castsidl_rmi_Returnnn6k5uq6sb_p, &
 
1567
    castsidl_rmi_Returnmbuaje827t_p, &
 
1568
    castsidl_rmi_Returnzili5m6qrx_p
 
1569
end interface
 
1570
 
 
1571
 
 
1572
contains
 
1573
 
 
1574
 
 
1575
  ! 
 
1576
  ! The size of lower determines the dimension of the
 
1577
  ! array.
 
1578
  ! 
 
1579
 
 
1580
  subroutine createCol1_p(lower, upper, array)
 
1581
    integer (kind=sidl_int), dimension(1), intent(in) :: lower
 
1582
    integer (kind=sidl_int), dimension(1), intent(in) :: upper
 
1583
    type(sidl_rmi_Return_1d), intent(out) :: array
 
1584
    external Re_ary_createColubgy17r_ufy_l_m
 
1585
    call Re_ary_createColubgy17r_ufy_l_m(1, lower, upper, array)
 
1586
  end subroutine createCol1_p
 
1587
 
 
1588
  ! 
 
1589
  ! The size of lower determines the dimension of the
 
1590
  ! array.
 
1591
  ! 
 
1592
 
 
1593
  subroutine createRow1_p(lower, upper, array)
 
1594
    integer (kind=sidl_int), dimension(1), intent(in) :: lower
 
1595
    integer (kind=sidl_int), dimension(1), intent(in) :: upper
 
1596
    type(sidl_rmi_Return_1d), intent(out) :: array
 
1597
    external Re_ary_createRowmrxb2hk18z_em_m
 
1598
    call Re_ary_createRowmrxb2hk18z_em_m(1, lower, upper, array)
 
1599
  end subroutine createRow1_p
 
1600
 
 
1601
  subroutine create1d1_p(len, array)
 
1602
    integer (kind=sidl_int), intent(in) :: len
 
1603
    type(sidl_rmi_Return_1d), intent(out) :: array
 
1604
    external Ret_ary_create1dytdoqzqcy5i63_m
 
1605
    call Ret_ary_create1dytdoqzqcy5i63_m(len, array)
 
1606
  end subroutine create1d1_p
 
1607
 
 
1608
  subroutine copy1_p(src, dest)
 
1609
    type(sidl_rmi_Return_1d), intent(in) :: src
 
1610
    type(sidl_rmi_Return_1d), intent(in) :: dest
 
1611
    external sidl_rmi_Return__array_copy_m
 
1612
    call sidl_rmi_Return__array_copy_m(src, dest)
 
1613
  end subroutine copy1_p
 
1614
 
 
1615
  subroutine ensure1_p(src, dim, ordering, result)
 
1616
    type(sidl_rmi_Return_1d), intent(in)  :: src
 
1617
    type(sidl_rmi_Return_1d), intent(out) :: result
 
1618
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
1619
    external sidl_rmi_Return__array_ensure_m
 
1620
    call sidl_rmi_Return__array_ensure_m(src, 1, ordering, result)
 
1621
  end subroutine ensure1_p
 
1622
 
 
1623
  subroutine slice11_p(src, numElem, srcStart, srcStride, newLower, result)
 
1624
    type(sidl_rmi_Return_1d), intent(in)  :: src
 
1625
    integer (kind=sidl_int), dimension(1), intent(in) :: numElem
 
1626
    integer (kind=sidl_int), dimension(1), intent(in) :: srcStart, srcStride
 
1627
    type(sidl_rmi_Return_1d), intent(out) :: result
 
1628
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1629
    external sidl_rmi_Return__array_slice_m
 
1630
    call sidl_rmi_Return__array_slice_m(src, 1, numElem, srcStart, srcStride,  &
 
1631
      newLower, result)
 
1632
  end subroutine slice11_p
 
1633
 
 
1634
  subroutine getg1_p(array, index, value)
 
1635
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1636
    integer (kind=sidl_int), intent(in), dimension(1) :: index
 
1637
    type(sidl_rmi_Return_t), intent(out) :: value
 
1638
    external sidl_rmi_Return__array_get_m
 
1639
    call sidl_rmi_Return__array_get_m(array, index, value)
 
1640
  end subroutine getg1_p
 
1641
 
 
1642
  subroutine setg1_p(array, index, value)
 
1643
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1644
    integer (kind=sidl_int), intent(in), dimension(1) :: index
 
1645
    type(sidl_rmi_Return_t), intent(in) :: value
 
1646
    external sidl_rmi_Return__array_set_m
 
1647
    call sidl_rmi_Return__array_set_m(array, index, value)
 
1648
  end subroutine setg1_p
 
1649
 
 
1650
  subroutine get1_p(array, &
 
1651
      i1, &
 
1652
      value)
 
1653
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1654
    integer (kind=sidl_int), intent(in) :: i1
 
1655
    type(sidl_rmi_Return_t), intent(out) :: value
 
1656
    external sidl_rmi_Return__array_get1_m
 
1657
    call sidl_rmi_Return__array_get1_m(array, &
 
1658
      i1, &
 
1659
      value)
 
1660
  end subroutine get1_p
 
1661
 
 
1662
  subroutine set1_p(array, &
 
1663
      i1, &
 
1664
      value)
 
1665
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1666
    integer (kind=sidl_int), intent(in) :: i1
 
1667
    type(sidl_rmi_Return_t), intent(in) :: value
 
1668
    external sidl_rmi_Return__array_set1_m
 
1669
    call sidl_rmi_Return__array_set1_m(array, &
 
1670
      i1, &
 
1671
      value)
 
1672
  end subroutine set1_p
 
1673
 
 
1674
  subroutine smartCopy1_p(src, dest)
 
1675
    type(sidl_rmi_Return_1d), intent(in) :: src
 
1676
    type(sidl_rmi_Return_1d), intent(out) :: dest
 
1677
    integer(sidl_int) :: dim
 
1678
    external Re_ary_smartCopy746yw9y9ot8zu_m
 
1679
    dim = 1
 
1680
    call Re_ary_smartCopy746yw9y9ot8zu_m(src, 1, dest)
 
1681
  end subroutine smartCopy1_p
 
1682
 
 
1683
  logical function  isColumnOrder1_p(array)
 
1684
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1685
    external ary_isColumnOrdernhz3q830a_b6_m
 
1686
    call ary_isColumnOrdernhz3q830a_b6_m(array, isColumnOrder1_p)
 
1687
  end function isColumnOrder1_p
 
1688
 
 
1689
  logical function  isRowOrder1_p(array)
 
1690
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1691
    external R_ary_isRowOrder96n5q48q75e36_m
 
1692
    call R_ary_isRowOrder96n5q48q75e36_m(array, isRowOrder1_p)
 
1693
  end function isRowOrder1_p
 
1694
 
 
1695
  integer (kind=sidl_int) function  dimen1_p(array)
 
1696
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1697
    external sidl_rmi_Return__array_dimen_m
 
1698
    call sidl_rmi_Return__array_dimen_m(array, dimen1_p)
 
1699
  end function dimen1_p
 
1700
 
 
1701
  integer (kind=sidl_int) function  stride1_p(array, index)
 
1702
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1703
    integer (kind=sidl_int), intent(in) :: index
 
1704
    external sidl_rmi_Return__array_stride_m
 
1705
    call sidl_rmi_Return__array_stride_m(array, index, stride1_p)
 
1706
  end function stride1_p
 
1707
 
 
1708
  integer (kind=sidl_int) function  lower1_p(array, index)
 
1709
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1710
    integer (kind=sidl_int), intent(in) :: index
 
1711
    external sidl_rmi_Return__array_lower_m
 
1712
    call sidl_rmi_Return__array_lower_m(array, index, lower1_p)
 
1713
  end function lower1_p
 
1714
 
 
1715
  integer (kind=sidl_int) function  upper1_p(array, index)
 
1716
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1717
    integer (kind=sidl_int), intent(in) :: index
 
1718
    external sidl_rmi_Return__array_upper_m
 
1719
    call sidl_rmi_Return__array_upper_m(array, index, upper1_p)
 
1720
  end function upper1_p
 
1721
 
 
1722
  integer (kind=sidl_int) function  length1_p(array, index)
 
1723
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1724
    integer (kind=sidl_int), intent(in) :: index
 
1725
    external sidl_rmi_Return__array_length_m
 
1726
    call sidl_rmi_Return__array_length_m(array, index, length1_p)
 
1727
  end function length1_p
 
1728
 
 
1729
  subroutine  addRef1_p(array)
 
1730
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1731
    external sidl_rmi_Return__array_addRef_m
 
1732
    call sidl_rmi_Return__array_addRef_m(array)
 
1733
  end subroutine addRef1_p
 
1734
 
 
1735
  subroutine  deleteRef1_p(array)
 
1736
    type(sidl_rmi_Return_1d), intent(in)  :: array
 
1737
    external Re_ary_deleteRefu6hk2epxnx8gk_m
 
1738
    call Re_ary_deleteRefu6hk2epxnx8gk_m(array)
 
1739
  end subroutine deleteRef1_p
 
1740
 
 
1741
  logical function is_null1_p(array)
 
1742
    type(sidl_rmi_Return_1d), intent(in) :: array
 
1743
    is_null1_p = (array%d_array .eq. 0)
 
1744
  end function is_null1_p
 
1745
 
 
1746
  logical function not_null1_p(array)
 
1747
    type(sidl_rmi_Return_1d), intent(in) :: array
 
1748
    not_null1_p = (array%d_array .ne. 0)
 
1749
  end function not_null1_p
 
1750
 
 
1751
  subroutine set_null1_p(array)
 
1752
    type(sidl_rmi_Return_1d), intent(out) :: array
 
1753
    array%d_array = 0
 
1754
  end subroutine set_null1_p
 
1755
 
 
1756
  ! 
 
1757
  ! The size of lower determines the dimension of the
 
1758
  ! array.
 
1759
  ! 
 
1760
 
 
1761
  subroutine createCol2_p(lower, upper, array)
 
1762
    integer (kind=sidl_int), dimension(2), intent(in) :: lower
 
1763
    integer (kind=sidl_int), dimension(2), intent(in) :: upper
 
1764
    type(sidl_rmi_Return_2d), intent(out) :: array
 
1765
    external Re_ary_createColubgy17r_ufy_l_m
 
1766
    call Re_ary_createColubgy17r_ufy_l_m(2, lower, upper, array)
 
1767
  end subroutine createCol2_p
 
1768
 
 
1769
  ! 
 
1770
  ! The size of lower determines the dimension of the
 
1771
  ! array.
 
1772
  ! 
 
1773
 
 
1774
  subroutine createRow2_p(lower, upper, array)
 
1775
    integer (kind=sidl_int), dimension(2), intent(in) :: lower
 
1776
    integer (kind=sidl_int), dimension(2), intent(in) :: upper
 
1777
    type(sidl_rmi_Return_2d), intent(out) :: array
 
1778
    external Re_ary_createRowmrxb2hk18z_em_m
 
1779
    call Re_ary_createRowmrxb2hk18z_em_m(2, lower, upper, array)
 
1780
  end subroutine createRow2_p
 
1781
 
 
1782
  subroutine create2dCol2_p(m, n, array)
 
1783
    integer (kind=sidl_int), intent(in) :: m, n
 
1784
    type(sidl_rmi_Return_2d), intent(out) :: array
 
1785
    external ary_create2dColg7c_b361yd2rr5_m
 
1786
    call ary_create2dColg7c_b361yd2rr5_m(m, n, array)
 
1787
  end subroutine create2dCol2_p
 
1788
 
 
1789
  subroutine create2dRow2_p(m, n, array)
 
1790
    integer (kind=sidl_int), intent(in) :: m, n
 
1791
    type(sidl_rmi_Return_2d), intent(out) :: array
 
1792
    external ary_create2dRowvpn66duvmcevoi_m
 
1793
    call ary_create2dRowvpn66duvmcevoi_m(m, n, array)
 
1794
  end subroutine create2dRow2_p
 
1795
 
 
1796
  subroutine copy2_p(src, dest)
 
1797
    type(sidl_rmi_Return_2d), intent(in) :: src
 
1798
    type(sidl_rmi_Return_2d), intent(in) :: dest
 
1799
    external sidl_rmi_Return__array_copy_m
 
1800
    call sidl_rmi_Return__array_copy_m(src, dest)
 
1801
  end subroutine copy2_p
 
1802
 
 
1803
  subroutine ensure2_p(src, dim, ordering, result)
 
1804
    type(sidl_rmi_Return_2d), intent(in)  :: src
 
1805
    type(sidl_rmi_Return_2d), intent(out) :: result
 
1806
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
1807
    external sidl_rmi_Return__array_ensure_m
 
1808
    call sidl_rmi_Return__array_ensure_m(src, 2, ordering, result)
 
1809
  end subroutine ensure2_p
 
1810
 
 
1811
  subroutine slice12_p(src, numElem, srcStart, srcStride, newLower, result)
 
1812
    type(sidl_rmi_Return_2d), intent(in)  :: src
 
1813
    integer (kind=sidl_int), dimension(2), intent(in) :: numElem
 
1814
    integer (kind=sidl_int), dimension(2), intent(in) :: srcStart, srcStride
 
1815
    type(sidl_rmi_Return_1d), intent(out) :: result
 
1816
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1817
    external sidl_rmi_Return__array_slice_m
 
1818
    call sidl_rmi_Return__array_slice_m(src, 1, numElem, srcStart, srcStride,  &
 
1819
      newLower, result)
 
1820
  end subroutine slice12_p
 
1821
 
 
1822
  subroutine slice22_p(src, numElem, srcStart, srcStride, newLower, result)
 
1823
    type(sidl_rmi_Return_2d), intent(in)  :: src
 
1824
    integer (kind=sidl_int), dimension(2), intent(in) :: numElem
 
1825
    integer (kind=sidl_int), dimension(2), intent(in) :: srcStart, srcStride
 
1826
    type(sidl_rmi_Return_2d), intent(out) :: result
 
1827
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1828
    external sidl_rmi_Return__array_slice_m
 
1829
    call sidl_rmi_Return__array_slice_m(src, 2, numElem, srcStart, srcStride,  &
 
1830
      newLower, result)
 
1831
  end subroutine slice22_p
 
1832
 
 
1833
  subroutine getg2_p(array, index, value)
 
1834
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1835
    integer (kind=sidl_int), intent(in), dimension(2) :: index
 
1836
    type(sidl_rmi_Return_t), intent(out) :: value
 
1837
    external sidl_rmi_Return__array_get_m
 
1838
    call sidl_rmi_Return__array_get_m(array, index, value)
 
1839
  end subroutine getg2_p
 
1840
 
 
1841
  subroutine setg2_p(array, index, value)
 
1842
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1843
    integer (kind=sidl_int), intent(in), dimension(2) :: index
 
1844
    type(sidl_rmi_Return_t), intent(in) :: value
 
1845
    external sidl_rmi_Return__array_set_m
 
1846
    call sidl_rmi_Return__array_set_m(array, index, value)
 
1847
  end subroutine setg2_p
 
1848
 
 
1849
  subroutine get2_p(array, &
 
1850
      i1, &
 
1851
      i2, &
 
1852
      value)
 
1853
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1854
    integer (kind=sidl_int), intent(in) :: i1
 
1855
    integer (kind=sidl_int), intent(in) :: i2
 
1856
    type(sidl_rmi_Return_t), intent(out) :: value
 
1857
    external sidl_rmi_Return__array_get2_m
 
1858
    call sidl_rmi_Return__array_get2_m(array, &
 
1859
      i1, &
 
1860
      i2, &
 
1861
      value)
 
1862
  end subroutine get2_p
 
1863
 
 
1864
  subroutine set2_p(array, &
 
1865
      i1, &
 
1866
      i2, &
 
1867
      value)
 
1868
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1869
    integer (kind=sidl_int), intent(in) :: i1
 
1870
    integer (kind=sidl_int), intent(in) :: i2
 
1871
    type(sidl_rmi_Return_t), intent(in) :: value
 
1872
    external sidl_rmi_Return__array_set2_m
 
1873
    call sidl_rmi_Return__array_set2_m(array, &
 
1874
      i1, &
 
1875
      i2, &
 
1876
      value)
 
1877
  end subroutine set2_p
 
1878
 
 
1879
  subroutine smartCopy2_p(src, dest)
 
1880
    type(sidl_rmi_Return_2d), intent(in) :: src
 
1881
    type(sidl_rmi_Return_2d), intent(out) :: dest
 
1882
    integer(sidl_int) :: dim
 
1883
    external Re_ary_smartCopy746yw9y9ot8zu_m
 
1884
    dim = 2
 
1885
    call Re_ary_smartCopy746yw9y9ot8zu_m(src, 2, dest)
 
1886
  end subroutine smartCopy2_p
 
1887
 
 
1888
  logical function  isColumnOrder2_p(array)
 
1889
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1890
    external ary_isColumnOrdernhz3q830a_b6_m
 
1891
    call ary_isColumnOrdernhz3q830a_b6_m(array, isColumnOrder2_p)
 
1892
  end function isColumnOrder2_p
 
1893
 
 
1894
  logical function  isRowOrder2_p(array)
 
1895
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1896
    external R_ary_isRowOrder96n5q48q75e36_m
 
1897
    call R_ary_isRowOrder96n5q48q75e36_m(array, isRowOrder2_p)
 
1898
  end function isRowOrder2_p
 
1899
 
 
1900
  integer (kind=sidl_int) function  dimen2_p(array)
 
1901
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1902
    external sidl_rmi_Return__array_dimen_m
 
1903
    call sidl_rmi_Return__array_dimen_m(array, dimen2_p)
 
1904
  end function dimen2_p
 
1905
 
 
1906
  integer (kind=sidl_int) function  stride2_p(array, index)
 
1907
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1908
    integer (kind=sidl_int), intent(in) :: index
 
1909
    external sidl_rmi_Return__array_stride_m
 
1910
    call sidl_rmi_Return__array_stride_m(array, index, stride2_p)
 
1911
  end function stride2_p
 
1912
 
 
1913
  integer (kind=sidl_int) function  lower2_p(array, index)
 
1914
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1915
    integer (kind=sidl_int), intent(in) :: index
 
1916
    external sidl_rmi_Return__array_lower_m
 
1917
    call sidl_rmi_Return__array_lower_m(array, index, lower2_p)
 
1918
  end function lower2_p
 
1919
 
 
1920
  integer (kind=sidl_int) function  upper2_p(array, index)
 
1921
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1922
    integer (kind=sidl_int), intent(in) :: index
 
1923
    external sidl_rmi_Return__array_upper_m
 
1924
    call sidl_rmi_Return__array_upper_m(array, index, upper2_p)
 
1925
  end function upper2_p
 
1926
 
 
1927
  integer (kind=sidl_int) function  length2_p(array, index)
 
1928
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1929
    integer (kind=sidl_int), intent(in) :: index
 
1930
    external sidl_rmi_Return__array_length_m
 
1931
    call sidl_rmi_Return__array_length_m(array, index, length2_p)
 
1932
  end function length2_p
 
1933
 
 
1934
  subroutine  addRef2_p(array)
 
1935
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1936
    external sidl_rmi_Return__array_addRef_m
 
1937
    call sidl_rmi_Return__array_addRef_m(array)
 
1938
  end subroutine addRef2_p
 
1939
 
 
1940
  subroutine  deleteRef2_p(array)
 
1941
    type(sidl_rmi_Return_2d), intent(in)  :: array
 
1942
    external Re_ary_deleteRefu6hk2epxnx8gk_m
 
1943
    call Re_ary_deleteRefu6hk2epxnx8gk_m(array)
 
1944
  end subroutine deleteRef2_p
 
1945
 
 
1946
  logical function is_null2_p(array)
 
1947
    type(sidl_rmi_Return_2d), intent(in) :: array
 
1948
    is_null2_p = (array%d_array .eq. 0)
 
1949
  end function is_null2_p
 
1950
 
 
1951
  logical function not_null2_p(array)
 
1952
    type(sidl_rmi_Return_2d), intent(in) :: array
 
1953
    not_null2_p = (array%d_array .ne. 0)
 
1954
  end function not_null2_p
 
1955
 
 
1956
  subroutine set_null2_p(array)
 
1957
    type(sidl_rmi_Return_2d), intent(out) :: array
 
1958
    array%d_array = 0
 
1959
  end subroutine set_null2_p
 
1960
 
 
1961
  ! 
 
1962
  ! The size of lower determines the dimension of the
 
1963
  ! array.
 
1964
  ! 
 
1965
 
 
1966
  subroutine createCol3_p(lower, upper, array)
 
1967
    integer (kind=sidl_int), dimension(3), intent(in) :: lower
 
1968
    integer (kind=sidl_int), dimension(3), intent(in) :: upper
 
1969
    type(sidl_rmi_Return_3d), intent(out) :: array
 
1970
    external Re_ary_createColubgy17r_ufy_l_m
 
1971
    call Re_ary_createColubgy17r_ufy_l_m(3, lower, upper, array)
 
1972
  end subroutine createCol3_p
 
1973
 
 
1974
  ! 
 
1975
  ! The size of lower determines the dimension of the
 
1976
  ! array.
 
1977
  ! 
 
1978
 
 
1979
  subroutine createRow3_p(lower, upper, array)
 
1980
    integer (kind=sidl_int), dimension(3), intent(in) :: lower
 
1981
    integer (kind=sidl_int), dimension(3), intent(in) :: upper
 
1982
    type(sidl_rmi_Return_3d), intent(out) :: array
 
1983
    external Re_ary_createRowmrxb2hk18z_em_m
 
1984
    call Re_ary_createRowmrxb2hk18z_em_m(3, lower, upper, array)
 
1985
  end subroutine createRow3_p
 
1986
 
 
1987
  subroutine copy3_p(src, dest)
 
1988
    type(sidl_rmi_Return_3d), intent(in) :: src
 
1989
    type(sidl_rmi_Return_3d), intent(in) :: dest
 
1990
    external sidl_rmi_Return__array_copy_m
 
1991
    call sidl_rmi_Return__array_copy_m(src, dest)
 
1992
  end subroutine copy3_p
 
1993
 
 
1994
  subroutine ensure3_p(src, dim, ordering, result)
 
1995
    type(sidl_rmi_Return_3d), intent(in)  :: src
 
1996
    type(sidl_rmi_Return_3d), intent(out) :: result
 
1997
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
1998
    external sidl_rmi_Return__array_ensure_m
 
1999
    call sidl_rmi_Return__array_ensure_m(src, 3, ordering, result)
 
2000
  end subroutine ensure3_p
 
2001
 
 
2002
  subroutine slice13_p(src, numElem, srcStart, srcStride, newLower, result)
 
2003
    type(sidl_rmi_Return_3d), intent(in)  :: src
 
2004
    integer (kind=sidl_int), dimension(3), intent(in) :: numElem
 
2005
    integer (kind=sidl_int), dimension(3), intent(in) :: srcStart, srcStride
 
2006
    type(sidl_rmi_Return_1d), intent(out) :: result
 
2007
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2008
    external sidl_rmi_Return__array_slice_m
 
2009
    call sidl_rmi_Return__array_slice_m(src, 1, numElem, srcStart, srcStride,  &
 
2010
      newLower, result)
 
2011
  end subroutine slice13_p
 
2012
 
 
2013
  subroutine slice23_p(src, numElem, srcStart, srcStride, newLower, result)
 
2014
    type(sidl_rmi_Return_3d), intent(in)  :: src
 
2015
    integer (kind=sidl_int), dimension(3), intent(in) :: numElem
 
2016
    integer (kind=sidl_int), dimension(3), intent(in) :: srcStart, srcStride
 
2017
    type(sidl_rmi_Return_2d), intent(out) :: result
 
2018
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2019
    external sidl_rmi_Return__array_slice_m
 
2020
    call sidl_rmi_Return__array_slice_m(src, 2, numElem, srcStart, srcStride,  &
 
2021
      newLower, result)
 
2022
  end subroutine slice23_p
 
2023
 
 
2024
  subroutine slice33_p(src, numElem, srcStart, srcStride, newLower, result)
 
2025
    type(sidl_rmi_Return_3d), intent(in)  :: src
 
2026
    integer (kind=sidl_int), dimension(3), intent(in) :: numElem
 
2027
    integer (kind=sidl_int), dimension(3), intent(in) :: srcStart, srcStride
 
2028
    type(sidl_rmi_Return_3d), intent(out) :: result
 
2029
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2030
    external sidl_rmi_Return__array_slice_m
 
2031
    call sidl_rmi_Return__array_slice_m(src, 3, numElem, srcStart, srcStride,  &
 
2032
      newLower, result)
 
2033
  end subroutine slice33_p
 
2034
 
 
2035
  subroutine getg3_p(array, index, value)
 
2036
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2037
    integer (kind=sidl_int), intent(in), dimension(3) :: index
 
2038
    type(sidl_rmi_Return_t), intent(out) :: value
 
2039
    external sidl_rmi_Return__array_get_m
 
2040
    call sidl_rmi_Return__array_get_m(array, index, value)
 
2041
  end subroutine getg3_p
 
2042
 
 
2043
  subroutine setg3_p(array, index, value)
 
2044
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2045
    integer (kind=sidl_int), intent(in), dimension(3) :: index
 
2046
    type(sidl_rmi_Return_t), intent(in) :: value
 
2047
    external sidl_rmi_Return__array_set_m
 
2048
    call sidl_rmi_Return__array_set_m(array, index, value)
 
2049
  end subroutine setg3_p
 
2050
 
 
2051
  subroutine get3_p(array, &
 
2052
      i1, &
 
2053
      i2, &
 
2054
      i3, &
 
2055
      value)
 
2056
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2057
    integer (kind=sidl_int), intent(in) :: i1
 
2058
    integer (kind=sidl_int), intent(in) :: i2
 
2059
    integer (kind=sidl_int), intent(in) :: i3
 
2060
    type(sidl_rmi_Return_t), intent(out) :: value
 
2061
    external sidl_rmi_Return__array_get3_m
 
2062
    call sidl_rmi_Return__array_get3_m(array, &
 
2063
      i1, &
 
2064
      i2, &
 
2065
      i3, &
 
2066
      value)
 
2067
  end subroutine get3_p
 
2068
 
 
2069
  subroutine set3_p(array, &
 
2070
      i1, &
 
2071
      i2, &
 
2072
      i3, &
 
2073
      value)
 
2074
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2075
    integer (kind=sidl_int), intent(in) :: i1
 
2076
    integer (kind=sidl_int), intent(in) :: i2
 
2077
    integer (kind=sidl_int), intent(in) :: i3
 
2078
    type(sidl_rmi_Return_t), intent(in) :: value
 
2079
    external sidl_rmi_Return__array_set3_m
 
2080
    call sidl_rmi_Return__array_set3_m(array, &
 
2081
      i1, &
 
2082
      i2, &
 
2083
      i3, &
 
2084
      value)
 
2085
  end subroutine set3_p
 
2086
 
 
2087
  subroutine smartCopy3_p(src, dest)
 
2088
    type(sidl_rmi_Return_3d), intent(in) :: src
 
2089
    type(sidl_rmi_Return_3d), intent(out) :: dest
 
2090
    integer(sidl_int) :: dim
 
2091
    external Re_ary_smartCopy746yw9y9ot8zu_m
 
2092
    dim = 3
 
2093
    call Re_ary_smartCopy746yw9y9ot8zu_m(src, 3, dest)
 
2094
  end subroutine smartCopy3_p
 
2095
 
 
2096
  logical function  isColumnOrder3_p(array)
 
2097
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2098
    external ary_isColumnOrdernhz3q830a_b6_m
 
2099
    call ary_isColumnOrdernhz3q830a_b6_m(array, isColumnOrder3_p)
 
2100
  end function isColumnOrder3_p
 
2101
 
 
2102
  logical function  isRowOrder3_p(array)
 
2103
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2104
    external R_ary_isRowOrder96n5q48q75e36_m
 
2105
    call R_ary_isRowOrder96n5q48q75e36_m(array, isRowOrder3_p)
 
2106
  end function isRowOrder3_p
 
2107
 
 
2108
  integer (kind=sidl_int) function  dimen3_p(array)
 
2109
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2110
    external sidl_rmi_Return__array_dimen_m
 
2111
    call sidl_rmi_Return__array_dimen_m(array, dimen3_p)
 
2112
  end function dimen3_p
 
2113
 
 
2114
  integer (kind=sidl_int) function  stride3_p(array, index)
 
2115
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2116
    integer (kind=sidl_int), intent(in) :: index
 
2117
    external sidl_rmi_Return__array_stride_m
 
2118
    call sidl_rmi_Return__array_stride_m(array, index, stride3_p)
 
2119
  end function stride3_p
 
2120
 
 
2121
  integer (kind=sidl_int) function  lower3_p(array, index)
 
2122
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2123
    integer (kind=sidl_int), intent(in) :: index
 
2124
    external sidl_rmi_Return__array_lower_m
 
2125
    call sidl_rmi_Return__array_lower_m(array, index, lower3_p)
 
2126
  end function lower3_p
 
2127
 
 
2128
  integer (kind=sidl_int) function  upper3_p(array, index)
 
2129
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2130
    integer (kind=sidl_int), intent(in) :: index
 
2131
    external sidl_rmi_Return__array_upper_m
 
2132
    call sidl_rmi_Return__array_upper_m(array, index, upper3_p)
 
2133
  end function upper3_p
 
2134
 
 
2135
  integer (kind=sidl_int) function  length3_p(array, index)
 
2136
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2137
    integer (kind=sidl_int), intent(in) :: index
 
2138
    external sidl_rmi_Return__array_length_m
 
2139
    call sidl_rmi_Return__array_length_m(array, index, length3_p)
 
2140
  end function length3_p
 
2141
 
 
2142
  subroutine  addRef3_p(array)
 
2143
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2144
    external sidl_rmi_Return__array_addRef_m
 
2145
    call sidl_rmi_Return__array_addRef_m(array)
 
2146
  end subroutine addRef3_p
 
2147
 
 
2148
  subroutine  deleteRef3_p(array)
 
2149
    type(sidl_rmi_Return_3d), intent(in)  :: array
 
2150
    external Re_ary_deleteRefu6hk2epxnx8gk_m
 
2151
    call Re_ary_deleteRefu6hk2epxnx8gk_m(array)
 
2152
  end subroutine deleteRef3_p
 
2153
 
 
2154
  logical function is_null3_p(array)
 
2155
    type(sidl_rmi_Return_3d), intent(in) :: array
 
2156
    is_null3_p = (array%d_array .eq. 0)
 
2157
  end function is_null3_p
 
2158
 
 
2159
  logical function not_null3_p(array)
 
2160
    type(sidl_rmi_Return_3d), intent(in) :: array
 
2161
    not_null3_p = (array%d_array .ne. 0)
 
2162
  end function not_null3_p
 
2163
 
 
2164
  subroutine set_null3_p(array)
 
2165
    type(sidl_rmi_Return_3d), intent(out) :: array
 
2166
    array%d_array = 0
 
2167
  end subroutine set_null3_p
 
2168
 
 
2169
  ! 
 
2170
  ! The size of lower determines the dimension of the
 
2171
  ! array.
 
2172
  ! 
 
2173
 
 
2174
  subroutine createCol4_p(lower, upper, array)
 
2175
    integer (kind=sidl_int), dimension(4), intent(in) :: lower
 
2176
    integer (kind=sidl_int), dimension(4), intent(in) :: upper
 
2177
    type(sidl_rmi_Return_4d), intent(out) :: array
 
2178
    external Re_ary_createColubgy17r_ufy_l_m
 
2179
    call Re_ary_createColubgy17r_ufy_l_m(4, lower, upper, array)
 
2180
  end subroutine createCol4_p
 
2181
 
 
2182
  ! 
 
2183
  ! The size of lower determines the dimension of the
 
2184
  ! array.
 
2185
  ! 
 
2186
 
 
2187
  subroutine createRow4_p(lower, upper, array)
 
2188
    integer (kind=sidl_int), dimension(4), intent(in) :: lower
 
2189
    integer (kind=sidl_int), dimension(4), intent(in) :: upper
 
2190
    type(sidl_rmi_Return_4d), intent(out) :: array
 
2191
    external Re_ary_createRowmrxb2hk18z_em_m
 
2192
    call Re_ary_createRowmrxb2hk18z_em_m(4, lower, upper, array)
 
2193
  end subroutine createRow4_p
 
2194
 
 
2195
  subroutine copy4_p(src, dest)
 
2196
    type(sidl_rmi_Return_4d), intent(in) :: src
 
2197
    type(sidl_rmi_Return_4d), intent(in) :: dest
 
2198
    external sidl_rmi_Return__array_copy_m
 
2199
    call sidl_rmi_Return__array_copy_m(src, dest)
 
2200
  end subroutine copy4_p
 
2201
 
 
2202
  subroutine ensure4_p(src, dim, ordering, result)
 
2203
    type(sidl_rmi_Return_4d), intent(in)  :: src
 
2204
    type(sidl_rmi_Return_4d), intent(out) :: result
 
2205
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
2206
    external sidl_rmi_Return__array_ensure_m
 
2207
    call sidl_rmi_Return__array_ensure_m(src, 4, ordering, result)
 
2208
  end subroutine ensure4_p
 
2209
 
 
2210
  subroutine slice14_p(src, numElem, srcStart, srcStride, newLower, result)
 
2211
    type(sidl_rmi_Return_4d), intent(in)  :: src
 
2212
    integer (kind=sidl_int), dimension(4), intent(in) :: numElem
 
2213
    integer (kind=sidl_int), dimension(4), intent(in) :: srcStart, srcStride
 
2214
    type(sidl_rmi_Return_1d), intent(out) :: result
 
2215
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2216
    external sidl_rmi_Return__array_slice_m
 
2217
    call sidl_rmi_Return__array_slice_m(src, 1, numElem, srcStart, srcStride,  &
 
2218
      newLower, result)
 
2219
  end subroutine slice14_p
 
2220
 
 
2221
  subroutine slice24_p(src, numElem, srcStart, srcStride, newLower, result)
 
2222
    type(sidl_rmi_Return_4d), intent(in)  :: src
 
2223
    integer (kind=sidl_int), dimension(4), intent(in) :: numElem
 
2224
    integer (kind=sidl_int), dimension(4), intent(in) :: srcStart, srcStride
 
2225
    type(sidl_rmi_Return_2d), intent(out) :: result
 
2226
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2227
    external sidl_rmi_Return__array_slice_m
 
2228
    call sidl_rmi_Return__array_slice_m(src, 2, numElem, srcStart, srcStride,  &
 
2229
      newLower, result)
 
2230
  end subroutine slice24_p
 
2231
 
 
2232
  subroutine slice34_p(src, numElem, srcStart, srcStride, newLower, result)
 
2233
    type(sidl_rmi_Return_4d), intent(in)  :: src
 
2234
    integer (kind=sidl_int), dimension(4), intent(in) :: numElem
 
2235
    integer (kind=sidl_int), dimension(4), intent(in) :: srcStart, srcStride
 
2236
    type(sidl_rmi_Return_3d), intent(out) :: result
 
2237
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2238
    external sidl_rmi_Return__array_slice_m
 
2239
    call sidl_rmi_Return__array_slice_m(src, 3, numElem, srcStart, srcStride,  &
 
2240
      newLower, result)
 
2241
  end subroutine slice34_p
 
2242
 
 
2243
  subroutine slice44_p(src, numElem, srcStart, srcStride, newLower, result)
 
2244
    type(sidl_rmi_Return_4d), intent(in)  :: src
 
2245
    integer (kind=sidl_int), dimension(4), intent(in) :: numElem
 
2246
    integer (kind=sidl_int), dimension(4), intent(in) :: srcStart, srcStride
 
2247
    type(sidl_rmi_Return_4d), intent(out) :: result
 
2248
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2249
    external sidl_rmi_Return__array_slice_m
 
2250
    call sidl_rmi_Return__array_slice_m(src, 4, numElem, srcStart, srcStride,  &
 
2251
      newLower, result)
 
2252
  end subroutine slice44_p
 
2253
 
 
2254
  subroutine getg4_p(array, index, value)
 
2255
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2256
    integer (kind=sidl_int), intent(in), dimension(4) :: index
 
2257
    type(sidl_rmi_Return_t), intent(out) :: value
 
2258
    external sidl_rmi_Return__array_get_m
 
2259
    call sidl_rmi_Return__array_get_m(array, index, value)
 
2260
  end subroutine getg4_p
 
2261
 
 
2262
  subroutine setg4_p(array, index, value)
 
2263
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2264
    integer (kind=sidl_int), intent(in), dimension(4) :: index
 
2265
    type(sidl_rmi_Return_t), intent(in) :: value
 
2266
    external sidl_rmi_Return__array_set_m
 
2267
    call sidl_rmi_Return__array_set_m(array, index, value)
 
2268
  end subroutine setg4_p
 
2269
 
 
2270
  subroutine get4_p(array, &
 
2271
      i1, &
 
2272
      i2, &
 
2273
      i3, &
 
2274
      i4, &
 
2275
      value)
 
2276
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2277
    integer (kind=sidl_int), intent(in) :: i1
 
2278
    integer (kind=sidl_int), intent(in) :: i2
 
2279
    integer (kind=sidl_int), intent(in) :: i3
 
2280
    integer (kind=sidl_int), intent(in) :: i4
 
2281
    type(sidl_rmi_Return_t), intent(out) :: value
 
2282
    external sidl_rmi_Return__array_get4_m
 
2283
    call sidl_rmi_Return__array_get4_m(array, &
 
2284
      i1, &
 
2285
      i2, &
 
2286
      i3, &
 
2287
      i4, &
 
2288
      value)
 
2289
  end subroutine get4_p
 
2290
 
 
2291
  subroutine set4_p(array, &
 
2292
      i1, &
 
2293
      i2, &
 
2294
      i3, &
 
2295
      i4, &
 
2296
      value)
 
2297
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2298
    integer (kind=sidl_int), intent(in) :: i1
 
2299
    integer (kind=sidl_int), intent(in) :: i2
 
2300
    integer (kind=sidl_int), intent(in) :: i3
 
2301
    integer (kind=sidl_int), intent(in) :: i4
 
2302
    type(sidl_rmi_Return_t), intent(in) :: value
 
2303
    external sidl_rmi_Return__array_set4_m
 
2304
    call sidl_rmi_Return__array_set4_m(array, &
 
2305
      i1, &
 
2306
      i2, &
 
2307
      i3, &
 
2308
      i4, &
 
2309
      value)
 
2310
  end subroutine set4_p
 
2311
 
 
2312
  subroutine smartCopy4_p(src, dest)
 
2313
    type(sidl_rmi_Return_4d), intent(in) :: src
 
2314
    type(sidl_rmi_Return_4d), intent(out) :: dest
 
2315
    integer(sidl_int) :: dim
 
2316
    external Re_ary_smartCopy746yw9y9ot8zu_m
 
2317
    dim = 4
 
2318
    call Re_ary_smartCopy746yw9y9ot8zu_m(src, 4, dest)
 
2319
  end subroutine smartCopy4_p
 
2320
 
 
2321
  logical function  isColumnOrder4_p(array)
 
2322
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2323
    external ary_isColumnOrdernhz3q830a_b6_m
 
2324
    call ary_isColumnOrdernhz3q830a_b6_m(array, isColumnOrder4_p)
 
2325
  end function isColumnOrder4_p
 
2326
 
 
2327
  logical function  isRowOrder4_p(array)
 
2328
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2329
    external R_ary_isRowOrder96n5q48q75e36_m
 
2330
    call R_ary_isRowOrder96n5q48q75e36_m(array, isRowOrder4_p)
 
2331
  end function isRowOrder4_p
 
2332
 
 
2333
  integer (kind=sidl_int) function  dimen4_p(array)
 
2334
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2335
    external sidl_rmi_Return__array_dimen_m
 
2336
    call sidl_rmi_Return__array_dimen_m(array, dimen4_p)
 
2337
  end function dimen4_p
 
2338
 
 
2339
  integer (kind=sidl_int) function  stride4_p(array, index)
 
2340
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2341
    integer (kind=sidl_int), intent(in) :: index
 
2342
    external sidl_rmi_Return__array_stride_m
 
2343
    call sidl_rmi_Return__array_stride_m(array, index, stride4_p)
 
2344
  end function stride4_p
 
2345
 
 
2346
  integer (kind=sidl_int) function  lower4_p(array, index)
 
2347
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2348
    integer (kind=sidl_int), intent(in) :: index
 
2349
    external sidl_rmi_Return__array_lower_m
 
2350
    call sidl_rmi_Return__array_lower_m(array, index, lower4_p)
 
2351
  end function lower4_p
 
2352
 
 
2353
  integer (kind=sidl_int) function  upper4_p(array, index)
 
2354
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2355
    integer (kind=sidl_int), intent(in) :: index
 
2356
    external sidl_rmi_Return__array_upper_m
 
2357
    call sidl_rmi_Return__array_upper_m(array, index, upper4_p)
 
2358
  end function upper4_p
 
2359
 
 
2360
  integer (kind=sidl_int) function  length4_p(array, index)
 
2361
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2362
    integer (kind=sidl_int), intent(in) :: index
 
2363
    external sidl_rmi_Return__array_length_m
 
2364
    call sidl_rmi_Return__array_length_m(array, index, length4_p)
 
2365
  end function length4_p
 
2366
 
 
2367
  subroutine  addRef4_p(array)
 
2368
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2369
    external sidl_rmi_Return__array_addRef_m
 
2370
    call sidl_rmi_Return__array_addRef_m(array)
 
2371
  end subroutine addRef4_p
 
2372
 
 
2373
  subroutine  deleteRef4_p(array)
 
2374
    type(sidl_rmi_Return_4d), intent(in)  :: array
 
2375
    external Re_ary_deleteRefu6hk2epxnx8gk_m
 
2376
    call Re_ary_deleteRefu6hk2epxnx8gk_m(array)
 
2377
  end subroutine deleteRef4_p
 
2378
 
 
2379
  logical function is_null4_p(array)
 
2380
    type(sidl_rmi_Return_4d), intent(in) :: array
 
2381
    is_null4_p = (array%d_array .eq. 0)
 
2382
  end function is_null4_p
 
2383
 
 
2384
  logical function not_null4_p(array)
 
2385
    type(sidl_rmi_Return_4d), intent(in) :: array
 
2386
    not_null4_p = (array%d_array .ne. 0)
 
2387
  end function not_null4_p
 
2388
 
 
2389
  subroutine set_null4_p(array)
 
2390
    type(sidl_rmi_Return_4d), intent(out) :: array
 
2391
    array%d_array = 0
 
2392
  end subroutine set_null4_p
 
2393
 
 
2394
  ! 
 
2395
  ! The size of lower determines the dimension of the
 
2396
  ! array.
 
2397
  ! 
 
2398
 
 
2399
  subroutine createCol5_p(lower, upper, array)
 
2400
    integer (kind=sidl_int), dimension(5), intent(in) :: lower
 
2401
    integer (kind=sidl_int), dimension(5), intent(in) :: upper
 
2402
    type(sidl_rmi_Return_5d), intent(out) :: array
 
2403
    external Re_ary_createColubgy17r_ufy_l_m
 
2404
    call Re_ary_createColubgy17r_ufy_l_m(5, lower, upper, array)
 
2405
  end subroutine createCol5_p
 
2406
 
 
2407
  ! 
 
2408
  ! The size of lower determines the dimension of the
 
2409
  ! array.
 
2410
  ! 
 
2411
 
 
2412
  subroutine createRow5_p(lower, upper, array)
 
2413
    integer (kind=sidl_int), dimension(5), intent(in) :: lower
 
2414
    integer (kind=sidl_int), dimension(5), intent(in) :: upper
 
2415
    type(sidl_rmi_Return_5d), intent(out) :: array
 
2416
    external Re_ary_createRowmrxb2hk18z_em_m
 
2417
    call Re_ary_createRowmrxb2hk18z_em_m(5, lower, upper, array)
 
2418
  end subroutine createRow5_p
 
2419
 
 
2420
  subroutine copy5_p(src, dest)
 
2421
    type(sidl_rmi_Return_5d), intent(in) :: src
 
2422
    type(sidl_rmi_Return_5d), intent(in) :: dest
 
2423
    external sidl_rmi_Return__array_copy_m
 
2424
    call sidl_rmi_Return__array_copy_m(src, dest)
 
2425
  end subroutine copy5_p
 
2426
 
 
2427
  subroutine ensure5_p(src, dim, ordering, result)
 
2428
    type(sidl_rmi_Return_5d), intent(in)  :: src
 
2429
    type(sidl_rmi_Return_5d), intent(out) :: result
 
2430
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
2431
    external sidl_rmi_Return__array_ensure_m
 
2432
    call sidl_rmi_Return__array_ensure_m(src, 5, ordering, result)
 
2433
  end subroutine ensure5_p
 
2434
 
 
2435
  subroutine slice15_p(src, numElem, srcStart, srcStride, newLower, result)
 
2436
    type(sidl_rmi_Return_5d), intent(in)  :: src
 
2437
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
2438
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
2439
    type(sidl_rmi_Return_1d), intent(out) :: result
 
2440
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2441
    external sidl_rmi_Return__array_slice_m
 
2442
    call sidl_rmi_Return__array_slice_m(src, 1, numElem, srcStart, srcStride,  &
 
2443
      newLower, result)
 
2444
  end subroutine slice15_p
 
2445
 
 
2446
  subroutine slice25_p(src, numElem, srcStart, srcStride, newLower, result)
 
2447
    type(sidl_rmi_Return_5d), intent(in)  :: src
 
2448
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
2449
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
2450
    type(sidl_rmi_Return_2d), intent(out) :: result
 
2451
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2452
    external sidl_rmi_Return__array_slice_m
 
2453
    call sidl_rmi_Return__array_slice_m(src, 2, numElem, srcStart, srcStride,  &
 
2454
      newLower, result)
 
2455
  end subroutine slice25_p
 
2456
 
 
2457
  subroutine slice35_p(src, numElem, srcStart, srcStride, newLower, result)
 
2458
    type(sidl_rmi_Return_5d), intent(in)  :: src
 
2459
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
2460
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
2461
    type(sidl_rmi_Return_3d), intent(out) :: result
 
2462
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2463
    external sidl_rmi_Return__array_slice_m
 
2464
    call sidl_rmi_Return__array_slice_m(src, 3, numElem, srcStart, srcStride,  &
 
2465
      newLower, result)
 
2466
  end subroutine slice35_p
 
2467
 
 
2468
  subroutine slice45_p(src, numElem, srcStart, srcStride, newLower, result)
 
2469
    type(sidl_rmi_Return_5d), intent(in)  :: src
 
2470
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
2471
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
2472
    type(sidl_rmi_Return_4d), intent(out) :: result
 
2473
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2474
    external sidl_rmi_Return__array_slice_m
 
2475
    call sidl_rmi_Return__array_slice_m(src, 4, numElem, srcStart, srcStride,  &
 
2476
      newLower, result)
 
2477
  end subroutine slice45_p
 
2478
 
 
2479
  subroutine slice55_p(src, numElem, srcStart, srcStride, newLower, result)
 
2480
    type(sidl_rmi_Return_5d), intent(in)  :: src
 
2481
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
2482
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
2483
    type(sidl_rmi_Return_5d), intent(out) :: result
 
2484
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2485
    external sidl_rmi_Return__array_slice_m
 
2486
    call sidl_rmi_Return__array_slice_m(src, 5, numElem, srcStart, srcStride,  &
 
2487
      newLower, result)
 
2488
  end subroutine slice55_p
 
2489
 
 
2490
  subroutine getg5_p(array, index, value)
 
2491
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2492
    integer (kind=sidl_int), intent(in), dimension(5) :: index
 
2493
    type(sidl_rmi_Return_t), intent(out) :: value
 
2494
    external sidl_rmi_Return__array_get_m
 
2495
    call sidl_rmi_Return__array_get_m(array, index, value)
 
2496
  end subroutine getg5_p
 
2497
 
 
2498
  subroutine setg5_p(array, index, value)
 
2499
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2500
    integer (kind=sidl_int), intent(in), dimension(5) :: index
 
2501
    type(sidl_rmi_Return_t), intent(in) :: value
 
2502
    external sidl_rmi_Return__array_set_m
 
2503
    call sidl_rmi_Return__array_set_m(array, index, value)
 
2504
  end subroutine setg5_p
 
2505
 
 
2506
  subroutine get5_p(array, &
 
2507
      i1, &
 
2508
      i2, &
 
2509
      i3, &
 
2510
      i4, &
 
2511
      i5, &
 
2512
      value)
 
2513
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2514
    integer (kind=sidl_int), intent(in) :: i1
 
2515
    integer (kind=sidl_int), intent(in) :: i2
 
2516
    integer (kind=sidl_int), intent(in) :: i3
 
2517
    integer (kind=sidl_int), intent(in) :: i4
 
2518
    integer (kind=sidl_int), intent(in) :: i5
 
2519
    type(sidl_rmi_Return_t), intent(out) :: value
 
2520
    external sidl_rmi_Return__array_get5_m
 
2521
    call sidl_rmi_Return__array_get5_m(array, &
 
2522
      i1, &
 
2523
      i2, &
 
2524
      i3, &
 
2525
      i4, &
 
2526
      i5, &
 
2527
      value)
 
2528
  end subroutine get5_p
 
2529
 
 
2530
  subroutine set5_p(array, &
 
2531
      i1, &
 
2532
      i2, &
 
2533
      i3, &
 
2534
      i4, &
 
2535
      i5, &
 
2536
      value)
 
2537
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2538
    integer (kind=sidl_int), intent(in) :: i1
 
2539
    integer (kind=sidl_int), intent(in) :: i2
 
2540
    integer (kind=sidl_int), intent(in) :: i3
 
2541
    integer (kind=sidl_int), intent(in) :: i4
 
2542
    integer (kind=sidl_int), intent(in) :: i5
 
2543
    type(sidl_rmi_Return_t), intent(in) :: value
 
2544
    external sidl_rmi_Return__array_set5_m
 
2545
    call sidl_rmi_Return__array_set5_m(array, &
 
2546
      i1, &
 
2547
      i2, &
 
2548
      i3, &
 
2549
      i4, &
 
2550
      i5, &
 
2551
      value)
 
2552
  end subroutine set5_p
 
2553
 
 
2554
  subroutine smartCopy5_p(src, dest)
 
2555
    type(sidl_rmi_Return_5d), intent(in) :: src
 
2556
    type(sidl_rmi_Return_5d), intent(out) :: dest
 
2557
    integer(sidl_int) :: dim
 
2558
    external Re_ary_smartCopy746yw9y9ot8zu_m
 
2559
    dim = 5
 
2560
    call Re_ary_smartCopy746yw9y9ot8zu_m(src, 5, dest)
 
2561
  end subroutine smartCopy5_p
 
2562
 
 
2563
  logical function  isColumnOrder5_p(array)
 
2564
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2565
    external ary_isColumnOrdernhz3q830a_b6_m
 
2566
    call ary_isColumnOrdernhz3q830a_b6_m(array, isColumnOrder5_p)
 
2567
  end function isColumnOrder5_p
 
2568
 
 
2569
  logical function  isRowOrder5_p(array)
 
2570
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2571
    external R_ary_isRowOrder96n5q48q75e36_m
 
2572
    call R_ary_isRowOrder96n5q48q75e36_m(array, isRowOrder5_p)
 
2573
  end function isRowOrder5_p
 
2574
 
 
2575
  integer (kind=sidl_int) function  dimen5_p(array)
 
2576
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2577
    external sidl_rmi_Return__array_dimen_m
 
2578
    call sidl_rmi_Return__array_dimen_m(array, dimen5_p)
 
2579
  end function dimen5_p
 
2580
 
 
2581
  integer (kind=sidl_int) function  stride5_p(array, index)
 
2582
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2583
    integer (kind=sidl_int), intent(in) :: index
 
2584
    external sidl_rmi_Return__array_stride_m
 
2585
    call sidl_rmi_Return__array_stride_m(array, index, stride5_p)
 
2586
  end function stride5_p
 
2587
 
 
2588
  integer (kind=sidl_int) function  lower5_p(array, index)
 
2589
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2590
    integer (kind=sidl_int), intent(in) :: index
 
2591
    external sidl_rmi_Return__array_lower_m
 
2592
    call sidl_rmi_Return__array_lower_m(array, index, lower5_p)
 
2593
  end function lower5_p
 
2594
 
 
2595
  integer (kind=sidl_int) function  upper5_p(array, index)
 
2596
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2597
    integer (kind=sidl_int), intent(in) :: index
 
2598
    external sidl_rmi_Return__array_upper_m
 
2599
    call sidl_rmi_Return__array_upper_m(array, index, upper5_p)
 
2600
  end function upper5_p
 
2601
 
 
2602
  integer (kind=sidl_int) function  length5_p(array, index)
 
2603
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2604
    integer (kind=sidl_int), intent(in) :: index
 
2605
    external sidl_rmi_Return__array_length_m
 
2606
    call sidl_rmi_Return__array_length_m(array, index, length5_p)
 
2607
  end function length5_p
 
2608
 
 
2609
  subroutine  addRef5_p(array)
 
2610
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2611
    external sidl_rmi_Return__array_addRef_m
 
2612
    call sidl_rmi_Return__array_addRef_m(array)
 
2613
  end subroutine addRef5_p
 
2614
 
 
2615
  subroutine  deleteRef5_p(array)
 
2616
    type(sidl_rmi_Return_5d), intent(in)  :: array
 
2617
    external Re_ary_deleteRefu6hk2epxnx8gk_m
 
2618
    call Re_ary_deleteRefu6hk2epxnx8gk_m(array)
 
2619
  end subroutine deleteRef5_p
 
2620
 
 
2621
  logical function is_null5_p(array)
 
2622
    type(sidl_rmi_Return_5d), intent(in) :: array
 
2623
    is_null5_p = (array%d_array .eq. 0)
 
2624
  end function is_null5_p
 
2625
 
 
2626
  logical function not_null5_p(array)
 
2627
    type(sidl_rmi_Return_5d), intent(in) :: array
 
2628
    not_null5_p = (array%d_array .ne. 0)
 
2629
  end function not_null5_p
 
2630
 
 
2631
  subroutine set_null5_p(array)
 
2632
    type(sidl_rmi_Return_5d), intent(out) :: array
 
2633
    array%d_array = 0
 
2634
  end subroutine set_null5_p
 
2635
 
 
2636
  ! 
 
2637
  ! The size of lower determines the dimension of the
 
2638
  ! array.
 
2639
  ! 
 
2640
 
 
2641
  subroutine createCol6_p(lower, upper, array)
 
2642
    integer (kind=sidl_int), dimension(6), intent(in) :: lower
 
2643
    integer (kind=sidl_int), dimension(6), intent(in) :: upper
 
2644
    type(sidl_rmi_Return_6d), intent(out) :: array
 
2645
    external Re_ary_createColubgy17r_ufy_l_m
 
2646
    call Re_ary_createColubgy17r_ufy_l_m(6, lower, upper, array)
 
2647
  end subroutine createCol6_p
 
2648
 
 
2649
  ! 
 
2650
  ! The size of lower determines the dimension of the
 
2651
  ! array.
 
2652
  ! 
 
2653
 
 
2654
  subroutine createRow6_p(lower, upper, array)
 
2655
    integer (kind=sidl_int), dimension(6), intent(in) :: lower
 
2656
    integer (kind=sidl_int), dimension(6), intent(in) :: upper
 
2657
    type(sidl_rmi_Return_6d), intent(out) :: array
 
2658
    external Re_ary_createRowmrxb2hk18z_em_m
 
2659
    call Re_ary_createRowmrxb2hk18z_em_m(6, lower, upper, array)
 
2660
  end subroutine createRow6_p
 
2661
 
 
2662
  subroutine copy6_p(src, dest)
 
2663
    type(sidl_rmi_Return_6d), intent(in) :: src
 
2664
    type(sidl_rmi_Return_6d), intent(in) :: dest
 
2665
    external sidl_rmi_Return__array_copy_m
 
2666
    call sidl_rmi_Return__array_copy_m(src, dest)
 
2667
  end subroutine copy6_p
 
2668
 
 
2669
  subroutine ensure6_p(src, dim, ordering, result)
 
2670
    type(sidl_rmi_Return_6d), intent(in)  :: src
 
2671
    type(sidl_rmi_Return_6d), intent(out) :: result
 
2672
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
2673
    external sidl_rmi_Return__array_ensure_m
 
2674
    call sidl_rmi_Return__array_ensure_m(src, 6, ordering, result)
 
2675
  end subroutine ensure6_p
 
2676
 
 
2677
  subroutine slice16_p(src, numElem, srcStart, srcStride, newLower, result)
 
2678
    type(sidl_rmi_Return_6d), intent(in)  :: src
 
2679
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2680
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2681
    type(sidl_rmi_Return_1d), intent(out) :: result
 
2682
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2683
    external sidl_rmi_Return__array_slice_m
 
2684
    call sidl_rmi_Return__array_slice_m(src, 1, numElem, srcStart, srcStride,  &
 
2685
      newLower, result)
 
2686
  end subroutine slice16_p
 
2687
 
 
2688
  subroutine slice26_p(src, numElem, srcStart, srcStride, newLower, result)
 
2689
    type(sidl_rmi_Return_6d), intent(in)  :: src
 
2690
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2691
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2692
    type(sidl_rmi_Return_2d), intent(out) :: result
 
2693
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2694
    external sidl_rmi_Return__array_slice_m
 
2695
    call sidl_rmi_Return__array_slice_m(src, 2, numElem, srcStart, srcStride,  &
 
2696
      newLower, result)
 
2697
  end subroutine slice26_p
 
2698
 
 
2699
  subroutine slice36_p(src, numElem, srcStart, srcStride, newLower, result)
 
2700
    type(sidl_rmi_Return_6d), intent(in)  :: src
 
2701
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2702
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2703
    type(sidl_rmi_Return_3d), intent(out) :: result
 
2704
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2705
    external sidl_rmi_Return__array_slice_m
 
2706
    call sidl_rmi_Return__array_slice_m(src, 3, numElem, srcStart, srcStride,  &
 
2707
      newLower, result)
 
2708
  end subroutine slice36_p
 
2709
 
 
2710
  subroutine slice46_p(src, numElem, srcStart, srcStride, newLower, result)
 
2711
    type(sidl_rmi_Return_6d), intent(in)  :: src
 
2712
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2713
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2714
    type(sidl_rmi_Return_4d), intent(out) :: result
 
2715
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2716
    external sidl_rmi_Return__array_slice_m
 
2717
    call sidl_rmi_Return__array_slice_m(src, 4, numElem, srcStart, srcStride,  &
 
2718
      newLower, result)
 
2719
  end subroutine slice46_p
 
2720
 
 
2721
  subroutine slice56_p(src, numElem, srcStart, srcStride, newLower, result)
 
2722
    type(sidl_rmi_Return_6d), intent(in)  :: src
 
2723
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2724
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2725
    type(sidl_rmi_Return_5d), intent(out) :: result
 
2726
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2727
    external sidl_rmi_Return__array_slice_m
 
2728
    call sidl_rmi_Return__array_slice_m(src, 5, numElem, srcStart, srcStride,  &
 
2729
      newLower, result)
 
2730
  end subroutine slice56_p
 
2731
 
 
2732
  subroutine slice66_p(src, numElem, srcStart, srcStride, newLower, result)
 
2733
    type(sidl_rmi_Return_6d), intent(in)  :: src
 
2734
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2735
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2736
    type(sidl_rmi_Return_6d), intent(out) :: result
 
2737
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2738
    external sidl_rmi_Return__array_slice_m
 
2739
    call sidl_rmi_Return__array_slice_m(src, 6, numElem, srcStart, srcStride,  &
 
2740
      newLower, result)
 
2741
  end subroutine slice66_p
 
2742
 
 
2743
  subroutine getg6_p(array, index, value)
 
2744
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2745
    integer (kind=sidl_int), intent(in), dimension(6) :: index
 
2746
    type(sidl_rmi_Return_t), intent(out) :: value
 
2747
    external sidl_rmi_Return__array_get_m
 
2748
    call sidl_rmi_Return__array_get_m(array, index, value)
 
2749
  end subroutine getg6_p
 
2750
 
 
2751
  subroutine setg6_p(array, index, value)
 
2752
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2753
    integer (kind=sidl_int), intent(in), dimension(6) :: index
 
2754
    type(sidl_rmi_Return_t), intent(in) :: value
 
2755
    external sidl_rmi_Return__array_set_m
 
2756
    call sidl_rmi_Return__array_set_m(array, index, value)
 
2757
  end subroutine setg6_p
 
2758
 
 
2759
  subroutine get6_p(array, &
 
2760
      i1, &
 
2761
      i2, &
 
2762
      i3, &
 
2763
      i4, &
 
2764
      i5, &
 
2765
      i6, &
 
2766
      value)
 
2767
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2768
    integer (kind=sidl_int), intent(in) :: i1
 
2769
    integer (kind=sidl_int), intent(in) :: i2
 
2770
    integer (kind=sidl_int), intent(in) :: i3
 
2771
    integer (kind=sidl_int), intent(in) :: i4
 
2772
    integer (kind=sidl_int), intent(in) :: i5
 
2773
    integer (kind=sidl_int), intent(in) :: i6
 
2774
    type(sidl_rmi_Return_t), intent(out) :: value
 
2775
    external sidl_rmi_Return__array_get6_m
 
2776
    call sidl_rmi_Return__array_get6_m(array, &
 
2777
      i1, &
 
2778
      i2, &
 
2779
      i3, &
 
2780
      i4, &
 
2781
      i5, &
 
2782
      i6, &
 
2783
      value)
 
2784
  end subroutine get6_p
 
2785
 
 
2786
  subroutine set6_p(array, &
 
2787
      i1, &
 
2788
      i2, &
 
2789
      i3, &
 
2790
      i4, &
 
2791
      i5, &
 
2792
      i6, &
 
2793
      value)
 
2794
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2795
    integer (kind=sidl_int), intent(in) :: i1
 
2796
    integer (kind=sidl_int), intent(in) :: i2
 
2797
    integer (kind=sidl_int), intent(in) :: i3
 
2798
    integer (kind=sidl_int), intent(in) :: i4
 
2799
    integer (kind=sidl_int), intent(in) :: i5
 
2800
    integer (kind=sidl_int), intent(in) :: i6
 
2801
    type(sidl_rmi_Return_t), intent(in) :: value
 
2802
    external sidl_rmi_Return__array_set6_m
 
2803
    call sidl_rmi_Return__array_set6_m(array, &
 
2804
      i1, &
 
2805
      i2, &
 
2806
      i3, &
 
2807
      i4, &
 
2808
      i5, &
 
2809
      i6, &
 
2810
      value)
 
2811
  end subroutine set6_p
 
2812
 
 
2813
  subroutine smartCopy6_p(src, dest)
 
2814
    type(sidl_rmi_Return_6d), intent(in) :: src
 
2815
    type(sidl_rmi_Return_6d), intent(out) :: dest
 
2816
    integer(sidl_int) :: dim
 
2817
    external Re_ary_smartCopy746yw9y9ot8zu_m
 
2818
    dim = 6
 
2819
    call Re_ary_smartCopy746yw9y9ot8zu_m(src, 6, dest)
 
2820
  end subroutine smartCopy6_p
 
2821
 
 
2822
  logical function  isColumnOrder6_p(array)
 
2823
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2824
    external ary_isColumnOrdernhz3q830a_b6_m
 
2825
    call ary_isColumnOrdernhz3q830a_b6_m(array, isColumnOrder6_p)
 
2826
  end function isColumnOrder6_p
 
2827
 
 
2828
  logical function  isRowOrder6_p(array)
 
2829
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2830
    external R_ary_isRowOrder96n5q48q75e36_m
 
2831
    call R_ary_isRowOrder96n5q48q75e36_m(array, isRowOrder6_p)
 
2832
  end function isRowOrder6_p
 
2833
 
 
2834
  integer (kind=sidl_int) function  dimen6_p(array)
 
2835
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2836
    external sidl_rmi_Return__array_dimen_m
 
2837
    call sidl_rmi_Return__array_dimen_m(array, dimen6_p)
 
2838
  end function dimen6_p
 
2839
 
 
2840
  integer (kind=sidl_int) function  stride6_p(array, index)
 
2841
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2842
    integer (kind=sidl_int), intent(in) :: index
 
2843
    external sidl_rmi_Return__array_stride_m
 
2844
    call sidl_rmi_Return__array_stride_m(array, index, stride6_p)
 
2845
  end function stride6_p
 
2846
 
 
2847
  integer (kind=sidl_int) function  lower6_p(array, index)
 
2848
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2849
    integer (kind=sidl_int), intent(in) :: index
 
2850
    external sidl_rmi_Return__array_lower_m
 
2851
    call sidl_rmi_Return__array_lower_m(array, index, lower6_p)
 
2852
  end function lower6_p
 
2853
 
 
2854
  integer (kind=sidl_int) function  upper6_p(array, index)
 
2855
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2856
    integer (kind=sidl_int), intent(in) :: index
 
2857
    external sidl_rmi_Return__array_upper_m
 
2858
    call sidl_rmi_Return__array_upper_m(array, index, upper6_p)
 
2859
  end function upper6_p
 
2860
 
 
2861
  integer (kind=sidl_int) function  length6_p(array, index)
 
2862
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2863
    integer (kind=sidl_int), intent(in) :: index
 
2864
    external sidl_rmi_Return__array_length_m
 
2865
    call sidl_rmi_Return__array_length_m(array, index, length6_p)
 
2866
  end function length6_p
 
2867
 
 
2868
  subroutine  addRef6_p(array)
 
2869
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2870
    external sidl_rmi_Return__array_addRef_m
 
2871
    call sidl_rmi_Return__array_addRef_m(array)
 
2872
  end subroutine addRef6_p
 
2873
 
 
2874
  subroutine  deleteRef6_p(array)
 
2875
    type(sidl_rmi_Return_6d), intent(in)  :: array
 
2876
    external Re_ary_deleteRefu6hk2epxnx8gk_m
 
2877
    call Re_ary_deleteRefu6hk2epxnx8gk_m(array)
 
2878
  end subroutine deleteRef6_p
 
2879
 
 
2880
  logical function is_null6_p(array)
 
2881
    type(sidl_rmi_Return_6d), intent(in) :: array
 
2882
    is_null6_p = (array%d_array .eq. 0)
 
2883
  end function is_null6_p
 
2884
 
 
2885
  logical function not_null6_p(array)
 
2886
    type(sidl_rmi_Return_6d), intent(in) :: array
 
2887
    not_null6_p = (array%d_array .ne. 0)
 
2888
  end function not_null6_p
 
2889
 
 
2890
  subroutine set_null6_p(array)
 
2891
    type(sidl_rmi_Return_6d), intent(out) :: array
 
2892
    array%d_array = 0
 
2893
  end subroutine set_null6_p
 
2894
 
 
2895
  ! 
 
2896
  ! The size of lower determines the dimension of the
 
2897
  ! array.
 
2898
  ! 
 
2899
 
 
2900
  subroutine createCol7_p(lower, upper, array)
 
2901
    integer (kind=sidl_int), dimension(7), intent(in) :: lower
 
2902
    integer (kind=sidl_int), dimension(7), intent(in) :: upper
 
2903
    type(sidl_rmi_Return_7d), intent(out) :: array
 
2904
    external Re_ary_createColubgy17r_ufy_l_m
 
2905
    call Re_ary_createColubgy17r_ufy_l_m(7, lower, upper, array)
 
2906
  end subroutine createCol7_p
 
2907
 
 
2908
  ! 
 
2909
  ! The size of lower determines the dimension of the
 
2910
  ! array.
 
2911
  ! 
 
2912
 
 
2913
  subroutine createRow7_p(lower, upper, array)
 
2914
    integer (kind=sidl_int), dimension(7), intent(in) :: lower
 
2915
    integer (kind=sidl_int), dimension(7), intent(in) :: upper
 
2916
    type(sidl_rmi_Return_7d), intent(out) :: array
 
2917
    external Re_ary_createRowmrxb2hk18z_em_m
 
2918
    call Re_ary_createRowmrxb2hk18z_em_m(7, lower, upper, array)
 
2919
  end subroutine createRow7_p
 
2920
 
 
2921
  subroutine copy7_p(src, dest)
 
2922
    type(sidl_rmi_Return_7d), intent(in) :: src
 
2923
    type(sidl_rmi_Return_7d), intent(in) :: dest
 
2924
    external sidl_rmi_Return__array_copy_m
 
2925
    call sidl_rmi_Return__array_copy_m(src, dest)
 
2926
  end subroutine copy7_p
 
2927
 
 
2928
  subroutine ensure7_p(src, dim, ordering, result)
 
2929
    type(sidl_rmi_Return_7d), intent(in)  :: src
 
2930
    type(sidl_rmi_Return_7d), intent(out) :: result
 
2931
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
2932
    external sidl_rmi_Return__array_ensure_m
 
2933
    call sidl_rmi_Return__array_ensure_m(src, 7, ordering, result)
 
2934
  end subroutine ensure7_p
 
2935
 
 
2936
  subroutine slice17_p(src, numElem, srcStart, srcStride, newLower, result)
 
2937
    type(sidl_rmi_Return_7d), intent(in)  :: src
 
2938
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2939
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2940
    type(sidl_rmi_Return_1d), intent(out) :: result
 
2941
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2942
    external sidl_rmi_Return__array_slice_m
 
2943
    call sidl_rmi_Return__array_slice_m(src, 1, numElem, srcStart, srcStride,  &
 
2944
      newLower, result)
 
2945
  end subroutine slice17_p
 
2946
 
 
2947
  subroutine slice27_p(src, numElem, srcStart, srcStride, newLower, result)
 
2948
    type(sidl_rmi_Return_7d), intent(in)  :: src
 
2949
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2950
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2951
    type(sidl_rmi_Return_2d), intent(out) :: result
 
2952
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2953
    external sidl_rmi_Return__array_slice_m
 
2954
    call sidl_rmi_Return__array_slice_m(src, 2, numElem, srcStart, srcStride,  &
 
2955
      newLower, result)
 
2956
  end subroutine slice27_p
 
2957
 
 
2958
  subroutine slice37_p(src, numElem, srcStart, srcStride, newLower, result)
 
2959
    type(sidl_rmi_Return_7d), intent(in)  :: src
 
2960
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2961
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2962
    type(sidl_rmi_Return_3d), intent(out) :: result
 
2963
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2964
    external sidl_rmi_Return__array_slice_m
 
2965
    call sidl_rmi_Return__array_slice_m(src, 3, numElem, srcStart, srcStride,  &
 
2966
      newLower, result)
 
2967
  end subroutine slice37_p
 
2968
 
 
2969
  subroutine slice47_p(src, numElem, srcStart, srcStride, newLower, result)
 
2970
    type(sidl_rmi_Return_7d), intent(in)  :: src
 
2971
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2972
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2973
    type(sidl_rmi_Return_4d), intent(out) :: result
 
2974
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2975
    external sidl_rmi_Return__array_slice_m
 
2976
    call sidl_rmi_Return__array_slice_m(src, 4, numElem, srcStart, srcStride,  &
 
2977
      newLower, result)
 
2978
  end subroutine slice47_p
 
2979
 
 
2980
  subroutine slice57_p(src, numElem, srcStart, srcStride, newLower, result)
 
2981
    type(sidl_rmi_Return_7d), intent(in)  :: src
 
2982
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2983
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2984
    type(sidl_rmi_Return_5d), intent(out) :: result
 
2985
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2986
    external sidl_rmi_Return__array_slice_m
 
2987
    call sidl_rmi_Return__array_slice_m(src, 5, numElem, srcStart, srcStride,  &
 
2988
      newLower, result)
 
2989
  end subroutine slice57_p
 
2990
 
 
2991
  subroutine slice67_p(src, numElem, srcStart, srcStride, newLower, result)
 
2992
    type(sidl_rmi_Return_7d), intent(in)  :: src
 
2993
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2994
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2995
    type(sidl_rmi_Return_6d), intent(out) :: result
 
2996
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2997
    external sidl_rmi_Return__array_slice_m
 
2998
    call sidl_rmi_Return__array_slice_m(src, 6, numElem, srcStart, srcStride,  &
 
2999
      newLower, result)
 
3000
  end subroutine slice67_p
 
3001
 
 
3002
  subroutine slice77_p(src, numElem, srcStart, srcStride, newLower, result)
 
3003
    type(sidl_rmi_Return_7d), intent(in)  :: src
 
3004
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
3005
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
3006
    type(sidl_rmi_Return_7d), intent(out) :: result
 
3007
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
3008
    external sidl_rmi_Return__array_slice_m
 
3009
    call sidl_rmi_Return__array_slice_m(src, 7, numElem, srcStart, srcStride,  &
 
3010
      newLower, result)
 
3011
  end subroutine slice77_p
 
3012
 
 
3013
  subroutine getg7_p(array, index, value)
 
3014
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3015
    integer (kind=sidl_int), intent(in), dimension(7) :: index
 
3016
    type(sidl_rmi_Return_t), intent(out) :: value
 
3017
    external sidl_rmi_Return__array_get_m
 
3018
    call sidl_rmi_Return__array_get_m(array, index, value)
 
3019
  end subroutine getg7_p
 
3020
 
 
3021
  subroutine setg7_p(array, index, value)
 
3022
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3023
    integer (kind=sidl_int), intent(in), dimension(7) :: index
 
3024
    type(sidl_rmi_Return_t), intent(in) :: value
 
3025
    external sidl_rmi_Return__array_set_m
 
3026
    call sidl_rmi_Return__array_set_m(array, index, value)
 
3027
  end subroutine setg7_p
 
3028
 
 
3029
  subroutine get7_p(array, &
 
3030
      i1, &
 
3031
      i2, &
 
3032
      i3, &
 
3033
      i4, &
 
3034
      i5, &
 
3035
      i6, &
 
3036
      i7, &
 
3037
      value)
 
3038
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3039
    integer (kind=sidl_int), intent(in) :: i1
 
3040
    integer (kind=sidl_int), intent(in) :: i2
 
3041
    integer (kind=sidl_int), intent(in) :: i3
 
3042
    integer (kind=sidl_int), intent(in) :: i4
 
3043
    integer (kind=sidl_int), intent(in) :: i5
 
3044
    integer (kind=sidl_int), intent(in) :: i6
 
3045
    integer (kind=sidl_int), intent(in) :: i7
 
3046
    type(sidl_rmi_Return_t), intent(out) :: value
 
3047
    external sidl_rmi_Return__array_get7_m
 
3048
    call sidl_rmi_Return__array_get7_m(array, &
 
3049
      i1, &
 
3050
      i2, &
 
3051
      i3, &
 
3052
      i4, &
 
3053
      i5, &
 
3054
      i6, &
 
3055
      i7, &
 
3056
      value)
 
3057
  end subroutine get7_p
 
3058
 
 
3059
  subroutine set7_p(array, &
 
3060
      i1, &
 
3061
      i2, &
 
3062
      i3, &
 
3063
      i4, &
 
3064
      i5, &
 
3065
      i6, &
 
3066
      i7, &
 
3067
      value)
 
3068
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3069
    integer (kind=sidl_int), intent(in) :: i1
 
3070
    integer (kind=sidl_int), intent(in) :: i2
 
3071
    integer (kind=sidl_int), intent(in) :: i3
 
3072
    integer (kind=sidl_int), intent(in) :: i4
 
3073
    integer (kind=sidl_int), intent(in) :: i5
 
3074
    integer (kind=sidl_int), intent(in) :: i6
 
3075
    integer (kind=sidl_int), intent(in) :: i7
 
3076
    type(sidl_rmi_Return_t), intent(in) :: value
 
3077
    external sidl_rmi_Return__array_set7_m
 
3078
    call sidl_rmi_Return__array_set7_m(array, &
 
3079
      i1, &
 
3080
      i2, &
 
3081
      i3, &
 
3082
      i4, &
 
3083
      i5, &
 
3084
      i6, &
 
3085
      i7, &
 
3086
      value)
 
3087
  end subroutine set7_p
 
3088
 
 
3089
  subroutine smartCopy7_p(src, dest)
 
3090
    type(sidl_rmi_Return_7d), intent(in) :: src
 
3091
    type(sidl_rmi_Return_7d), intent(out) :: dest
 
3092
    integer(sidl_int) :: dim
 
3093
    external Re_ary_smartCopy746yw9y9ot8zu_m
 
3094
    dim = 7
 
3095
    call Re_ary_smartCopy746yw9y9ot8zu_m(src, 7, dest)
 
3096
  end subroutine smartCopy7_p
 
3097
 
 
3098
  logical function  isColumnOrder7_p(array)
 
3099
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3100
    external ary_isColumnOrdernhz3q830a_b6_m
 
3101
    call ary_isColumnOrdernhz3q830a_b6_m(array, isColumnOrder7_p)
 
3102
  end function isColumnOrder7_p
 
3103
 
 
3104
  logical function  isRowOrder7_p(array)
 
3105
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3106
    external R_ary_isRowOrder96n5q48q75e36_m
 
3107
    call R_ary_isRowOrder96n5q48q75e36_m(array, isRowOrder7_p)
 
3108
  end function isRowOrder7_p
 
3109
 
 
3110
  integer (kind=sidl_int) function  dimen7_p(array)
 
3111
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3112
    external sidl_rmi_Return__array_dimen_m
 
3113
    call sidl_rmi_Return__array_dimen_m(array, dimen7_p)
 
3114
  end function dimen7_p
 
3115
 
 
3116
  integer (kind=sidl_int) function  stride7_p(array, index)
 
3117
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3118
    integer (kind=sidl_int), intent(in) :: index
 
3119
    external sidl_rmi_Return__array_stride_m
 
3120
    call sidl_rmi_Return__array_stride_m(array, index, stride7_p)
 
3121
  end function stride7_p
 
3122
 
 
3123
  integer (kind=sidl_int) function  lower7_p(array, index)
 
3124
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3125
    integer (kind=sidl_int), intent(in) :: index
 
3126
    external sidl_rmi_Return__array_lower_m
 
3127
    call sidl_rmi_Return__array_lower_m(array, index, lower7_p)
 
3128
  end function lower7_p
 
3129
 
 
3130
  integer (kind=sidl_int) function  upper7_p(array, index)
 
3131
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3132
    integer (kind=sidl_int), intent(in) :: index
 
3133
    external sidl_rmi_Return__array_upper_m
 
3134
    call sidl_rmi_Return__array_upper_m(array, index, upper7_p)
 
3135
  end function upper7_p
 
3136
 
 
3137
  integer (kind=sidl_int) function  length7_p(array, index)
 
3138
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3139
    integer (kind=sidl_int), intent(in) :: index
 
3140
    external sidl_rmi_Return__array_length_m
 
3141
    call sidl_rmi_Return__array_length_m(array, index, length7_p)
 
3142
  end function length7_p
 
3143
 
 
3144
  subroutine  addRef7_p(array)
 
3145
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3146
    external sidl_rmi_Return__array_addRef_m
 
3147
    call sidl_rmi_Return__array_addRef_m(array)
 
3148
  end subroutine addRef7_p
 
3149
 
 
3150
  subroutine  deleteRef7_p(array)
 
3151
    type(sidl_rmi_Return_7d), intent(in)  :: array
 
3152
    external Re_ary_deleteRefu6hk2epxnx8gk_m
 
3153
    call Re_ary_deleteRefu6hk2epxnx8gk_m(array)
 
3154
  end subroutine deleteRef7_p
 
3155
 
 
3156
  logical function is_null7_p(array)
 
3157
    type(sidl_rmi_Return_7d), intent(in) :: array
 
3158
    is_null7_p = (array%d_array .eq. 0)
 
3159
  end function is_null7_p
 
3160
 
 
3161
  logical function not_null7_p(array)
 
3162
    type(sidl_rmi_Return_7d), intent(in) :: array
 
3163
    not_null7_p = (array%d_array .ne. 0)
 
3164
  end function not_null7_p
 
3165
 
 
3166
  subroutine set_null7_p(array)
 
3167
    type(sidl_rmi_Return_7d), intent(out) :: array
 
3168
    array%d_array = 0
 
3169
  end subroutine set_null7_p
 
3170
 
 
3171
  subroutine castsidl_rmi_Returnhfwzqaiipq_p(oldType, newType)
 
3172
    type(sidl__array), intent(out) :: newType
 
3173
    type(sidl_rmi_Return_1d), intent(in) :: oldType
 
3174
    newType%d_array = oldType%d_array
 
3175
  end subroutine castsidl_rmi_Returnhfwzqaiipq_p
 
3176
 
 
3177
  subroutine castsidl_rmi_Returnf2f9efg94g_p(oldType, newType)
 
3178
    type(sidl__array), intent(out) :: newType
 
3179
    type(sidl_rmi_Return_2d), intent(in) :: oldType
 
3180
    newType%d_array = oldType%d_array
 
3181
  end subroutine castsidl_rmi_Returnf2f9efg94g_p
 
3182
 
 
3183
  subroutine castsidl_rmi_Returncgx4xxcw6a_p(oldType, newType)
 
3184
    type(sidl__array), intent(out) :: newType
 
3185
    type(sidl_rmi_Return_3d), intent(in) :: oldType
 
3186
    newType%d_array = oldType%d_array
 
3187
  end subroutine castsidl_rmi_Returncgx4xxcw6a_p
 
3188
 
 
3189
  subroutine castsidl_rmi_Returnhvew1so5mp_p(oldType, newType)
 
3190
    type(sidl__array), intent(out) :: newType
 
3191
    type(sidl_rmi_Return_4d), intent(in) :: oldType
 
3192
    newType%d_array = oldType%d_array
 
3193
  end subroutine castsidl_rmi_Returnhvew1so5mp_p
 
3194
 
 
3195
  subroutine castsidl_rmi_Returnnn6k5uq6sb_p(oldType, newType)
 
3196
    type(sidl__array), intent(out) :: newType
 
3197
    type(sidl_rmi_Return_5d), intent(in) :: oldType
 
3198
    newType%d_array = oldType%d_array
 
3199
  end subroutine castsidl_rmi_Returnnn6k5uq6sb_p
 
3200
 
 
3201
  subroutine castsidl_rmi_Returnmbuaje827t_p(oldType, newType)
 
3202
    type(sidl__array), intent(out) :: newType
 
3203
    type(sidl_rmi_Return_6d), intent(in) :: oldType
 
3204
    newType%d_array = oldType%d_array
 
3205
  end subroutine castsidl_rmi_Returnmbuaje827t_p
 
3206
 
 
3207
  subroutine castsidl_rmi_Returnzili5m6qrx_p(oldType, newType)
 
3208
    type(sidl__array), intent(out) :: newType
 
3209
    type(sidl_rmi_Return_7d), intent(in) :: oldType
 
3210
    newType%d_array = oldType%d_array
 
3211
  end subroutine castsidl_rmi_Returnzili5m6qrx_p
 
3212
 
 
3213
 
 
3214
end module sidl_rmi_Return_array