← 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_InstanceHandle.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_InstanceHandle.F90
 
1
! 
 
2
! File:          sidl_rmi_InstanceHandle.F90
 
3
! Symbol:        sidl.rmi.InstanceHandle-v0.9.15
 
4
! Symbol Type:   interface
 
5
! Babel Version: 1.0.0
 
6
! Release:       $Name: V2-4-0b $
 
7
! Revision:      @(#) $Id: sidl_rmi_InstanceHandle.F90,v 1.1 2007/02/06 01:23:11 painter Exp $
 
8
! Description:   Client-side module for sidl.rmi.InstanceHandle
 
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.InstanceHandle" (version 0.9.15)
 
40
! 
 
41
!  
 
42
! This interface holds the state information for handles to
 
43
! remote objects.  Client-side messaging libraries are expected
 
44
! to implement <code>sidl.rmi.InstanceHandle</code>,
 
45
! <code>sidl.rmi.Invocation</code> and
 
46
! <code>sidl.rmi.Response</code>.
 
47
! 
 
48
! Every stub with a connection to a remote object holds a pointer
 
49
! to an InstanceHandle that manages the connection. Multiple
 
50
! stubs may point to the same InstanceHandle, however.  Babel
 
51
! takes care of the reference counting, but the developer should
 
52
! keep concurrency issues in mind.
 
53
! 
 
54
! When a new remote object is created:
 
55
! sidl_rmi_InstanceHandle c = 
 
56
! sidl_rmi_ProtocolFactory_createInstance( url, typeName,
 
57
! _ex );
 
58
! 
 
59
! When a new stub is created to connect to an existing remote
 
60
! instance:
 
61
! sidl_rmi_InstanceHandle c = 
 
62
! sidl_rmi_ProtocolFactory_connectInstance( url, _ex );
 
63
! 
 
64
! When a method is invoked:
 
65
! sidl_rmi_Invocation i = 
 
66
! sidl_rmi_InstanceHandle_createInvocation( methodname );
 
67
! sidl_rmi_Invocation_packDouble( i, "input_val" , 2.0 );
 
68
! sidl_rmi_Invocation_packString( i, "input_str", "Hello" );
 
69
! ...
 
70
! sidl_rmi_Response r = sidl_rmi_Invocation_invokeMethod( i );
 
71
! sidl_rmi_Response_unpackBool( i, "_retval", &succeeded );
 
72
! sidl_rmi_Response_unpackFloat( i, "output_val", &f );
 
73
! 
 
74
 
 
75
 
 
76
#include "sidl_rmi_InstanceHandle_fAbbrev.h"
 
77
#include "sidl_ClassInfo_fAbbrev.h"
 
78
#include "sidl_rmi_Invocation_fAbbrev.h"
 
79
#include "sidl_io_Serializable_fAbbrev.h"
 
80
#include "sidl_BaseInterface_fAbbrev.h"
 
81
#include "sidl_RuntimeException_fAbbrev.h"
 
82
#include "sidl_BaseException_fAbbrev.h"
 
83
 
 
84
module sidl_rmi_InstanceHandle
 
85
 
 
86
  use sidl
 
87
  use sidl_rmi_InstanceHandle_type
 
88
  use sidl_ClassInfo_type
 
89
  use sidl_rmi_Invocation_type
 
90
  use sidl_io_Serializable_type
 
91
  use sidl_BaseInterface_type
 
92
  use sidl_RuntimeException_type
 
93
  use sidl_BaseException_type
 
94
  use sidl_rmi_Call_type
 
95
  use sidl_rmi_Return_type
 
96
  use sidl_rmi_Ticket_type
 
97
 
 
98
  private :: cast_0, cast_1
 
99
  interface cast
 
100
    module procedure cast_0, cast_1
 
101
  end interface
 
102
 
 
103
    private :: initCreate_s
 
104
 
 
105
 
 
106
  interface initCreate
 
107
    module procedure initCreate_s
 
108
  end interface
 
109
    private :: initConnect_s
 
110
 
 
111
 
 
112
  interface initConnect
 
113
    module procedure initConnect_s
 
114
  end interface
 
115
    private :: initUnserialize_s
 
116
 
 
117
 
 
118
  interface initUnserialize
 
119
    module procedure initUnserialize_s
 
120
  end interface
 
121
    private :: getProtocol_s
 
122
 
 
123
 
 
124
  interface getProtocol
 
125
    module procedure getProtocol_s
 
126
  end interface
 
127
    private :: getObjectID_s
 
128
 
 
129
 
 
130
  interface getObjectID
 
131
    module procedure getObjectID_s
 
132
  end interface
 
133
    private :: getObjectURL_s
 
134
 
 
135
 
 
136
  interface getObjectURL
 
137
    module procedure getObjectURL_s
 
138
  end interface
 
139
    private :: createInvocation_s
 
140
 
 
141
 
 
142
  interface createInvocation
 
143
    module procedure createInvocation_s
 
144
  end interface
 
145
    private :: close_s
 
146
 
 
147
 
 
148
  interface close
 
149
    module procedure close_s
 
150
  end interface
 
151
  private :: rConnect_s
 
152
  interface rConnect
 
153
    module procedure rConnect_s
 
154
  end interface
 
155
 
 
156
    private :: addRef_s
 
157
 
 
158
 
 
159
  interface addRef
 
160
    module procedure addRef_s
 
161
  end interface
 
162
    private :: deleteRef_s
 
163
 
 
164
 
 
165
  interface deleteRef
 
166
    module procedure deleteRef_s
 
167
  end interface
 
168
    private :: isSame_s
 
169
 
 
170
 
 
171
  interface isSame
 
172
    module procedure isSame_s
 
173
  end interface
 
174
    private :: isType_s
 
175
 
 
176
 
 
177
  interface isType
 
178
    module procedure isType_s
 
179
  end interface
 
180
    private :: getClassInfo_s
 
181
 
 
182
 
 
183
  interface getClassInfo
 
184
    module procedure getClassInfo_s
 
185
  end interface
 
186
 
 
187
  private :: exec_s
 
188
  interface exec
 
189
    module procedure exec_s
 
190
  end interface
 
191
 
 
192
 
 
193
  private :: getURL_s
 
194
  interface getURL
 
195
    module procedure getURL_s
 
196
  end interface
 
197
 
 
198
 
 
199
  private :: isRemote_s
 
200
  interface isRemote
 
201
    module procedure isRemote_s
 
202
  end interface
 
203
 
 
204
 
 
205
  private :: isLocal_s
 
206
  interface isLocal
 
207
    module procedure isLocal_s
 
208
  end interface
 
209
 
 
210
 
 
211
  private :: set_hooks_s
 
212
  interface set_hooks
 
213
    module procedure set_hooks_s
 
214
  end interface
 
215
 
 
216
  private :: not_null_s
 
217
  interface not_null
 
218
    module procedure not_null_s
 
219
  end interface
 
220
 
 
221
  private :: is_null_s
 
222
  interface is_null
 
223
    module procedure is_null_s
 
224
  end interface
 
225
 
 
226
  private :: set_null_s
 
227
  interface set_null
 
228
    module procedure set_null_s
 
229
  end interface
 
230
 
 
231
 
 
232
contains
 
233
 
 
234
 
 
235
 
 
236
  recursive subroutine initCreate_s(self, url, typeName, retval, exception)
 
237
    implicit none
 
238
    !  in sidl.rmi.InstanceHandle self
 
239
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
240
    !  in string url
 
241
    character (len=*) , intent(in) :: url
 
242
    !  in string typeName
 
243
    character (len=*) , intent(in) :: typeName
 
244
    !  out bool retval
 
245
    logical , intent(out) :: retval
 
246
    !  out sidl.BaseInterface exception
 
247
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
248
 
 
249
    external sidl_rmi_InstanceHandle_initCreate_m
 
250
    call sidl_rmi_InstanceHandle_initCreate_m(self, url, typeName, retval,     &
 
251
      exception)
 
252
 
 
253
  end subroutine initCreate_s
 
254
 
 
255
 
 
256
  recursive subroutine initConnect_s(self, url, ar, retval, exception)
 
257
    implicit none
 
258
    !  in sidl.rmi.InstanceHandle self
 
259
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
260
    !  in string url
 
261
    character (len=*) , intent(in) :: url
 
262
    !  in bool ar
 
263
    logical , intent(in) :: ar
 
264
    !  out bool retval
 
265
    logical , intent(out) :: retval
 
266
    !  out sidl.BaseInterface exception
 
267
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
268
 
 
269
    external sidl_rmi_InstanceHandle_initConnect_m
 
270
    call sidl_rmi_InstanceHandle_initConnect_m(self, url, ar, retval,          &
 
271
      exception)
 
272
 
 
273
  end subroutine initConnect_s
 
274
 
 
275
 
 
276
  recursive subroutine initUnserialize_s(self, url, retval, exception)
 
277
    implicit none
 
278
    !  in sidl.rmi.InstanceHandle self
 
279
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
280
    !  in string url
 
281
    character (len=*) , intent(in) :: url
 
282
    !  out sidl.io.Serializable retval
 
283
    type(sidl_io_Serializable_t) , intent(out) :: retval
 
284
    !  out sidl.BaseInterface exception
 
285
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
286
 
 
287
    external sidl_rmi_InstanceHandle_initUnserialize_m
 
288
    call sidl_rmi_InstanceHandle_initUnserialize_m(self, url, retval,          &
 
289
      exception)
 
290
 
 
291
  end subroutine initUnserialize_s
 
292
 
 
293
 
 
294
  recursive subroutine getProtocol_s(self, retval, exception)
 
295
    implicit none
 
296
    !  in sidl.rmi.InstanceHandle self
 
297
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
298
    !  out string retval
 
299
    character (len=*) , intent(out) :: retval
 
300
    !  out sidl.BaseInterface exception
 
301
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
302
 
 
303
    external sidl_rmi_InstanceHandle_getProtocol_m
 
304
    call sidl_rmi_InstanceHandle_getProtocol_m(self, retval, exception)
 
305
 
 
306
  end subroutine getProtocol_s
 
307
 
 
308
 
 
309
  recursive subroutine getObjectID_s(self, retval, exception)
 
310
    implicit none
 
311
    !  in sidl.rmi.InstanceHandle self
 
312
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
313
    !  out string retval
 
314
    character (len=*) , intent(out) :: retval
 
315
    !  out sidl.BaseInterface exception
 
316
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
317
 
 
318
    external sidl_rmi_InstanceHandle_getObjectID_m
 
319
    call sidl_rmi_InstanceHandle_getObjectID_m(self, retval, exception)
 
320
 
 
321
  end subroutine getObjectID_s
 
322
 
 
323
 
 
324
  recursive subroutine getObjectURL_s(self, retval, exception)
 
325
    implicit none
 
326
    !  in sidl.rmi.InstanceHandle self
 
327
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
328
    !  out string retval
 
329
    character (len=*) , intent(out) :: retval
 
330
    !  out sidl.BaseInterface exception
 
331
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
332
 
 
333
    external sidl_rmi_InstanceHandle_getObjectURL_m
 
334
    call sidl_rmi_InstanceHandle_getObjectURL_m(self, retval, exception)
 
335
 
 
336
  end subroutine getObjectURL_s
 
337
 
 
338
 
 
339
  recursive subroutine createInvocation_s(self, methodName, retval, exception)
 
340
    implicit none
 
341
    !  in sidl.rmi.InstanceHandle self
 
342
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
343
    !  in string methodName
 
344
    character (len=*) , intent(in) :: methodName
 
345
    !  out sidl.rmi.Invocation retval
 
346
    type(sidl_rmi_Invocation_t) , intent(out) :: retval
 
347
    !  out sidl.BaseInterface exception
 
348
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
349
 
 
350
    external sidl_rmi_InstanceHandle_createInvocation_m
 
351
    call sidl_rmi_InstanceHandle_createInvocation_m(self, methodName, retval,  &
 
352
      exception)
 
353
 
 
354
  end subroutine createInvocation_s
 
355
 
 
356
 
 
357
  recursive subroutine close_s(self, retval, exception)
 
358
    implicit none
 
359
    !  in sidl.rmi.InstanceHandle self
 
360
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
361
    !  out bool retval
 
362
    logical , intent(out) :: retval
 
363
    !  out sidl.BaseInterface exception
 
364
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
365
 
 
366
    external sidl_rmi_InstanceHandle_close_m
 
367
    call sidl_rmi_InstanceHandle_close_m(self, retval, exception)
 
368
 
 
369
  end subroutine close_s
 
370
 
 
371
 
 
372
  recursive subroutine rConnect_s(self, url, exception)
 
373
    implicit none
 
374
    !  out sidl.rmi.InstanceHandle self
 
375
    type(sidl_rmi_InstanceHandle_t) , intent(out) :: self
 
376
    !  in string url
 
377
    character (len=*) , intent(in) :: url
 
378
    !  out sidl.BaseInterface exception
 
379
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
380
 
 
381
    external sidl_rmi_InstanceHandle_rConnect_m
 
382
    call sidl_rmi_InstanceHandle_rConnect_m(self, url, exception)
 
383
 
 
384
  end subroutine rConnect_s
 
385
 
 
386
 
 
387
  recursive subroutine addRef_s(self, exception)
 
388
    implicit none
 
389
    !  in sidl.rmi.InstanceHandle self
 
390
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
391
    !  out sidl.BaseInterface exception
 
392
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
393
 
 
394
    external sidl_rmi_InstanceHandle_addRef_m
 
395
    call sidl_rmi_InstanceHandle_addRef_m(self, exception)
 
396
 
 
397
  end subroutine addRef_s
 
398
 
 
399
 
 
400
  recursive subroutine deleteRef_s(self, exception)
 
401
    implicit none
 
402
    !  in sidl.rmi.InstanceHandle self
 
403
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
404
    !  out sidl.BaseInterface exception
 
405
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
406
 
 
407
    external sidl_rmi_InstanceHandle_deleteRef_m
 
408
    call sidl_rmi_InstanceHandle_deleteRef_m(self, exception)
 
409
 
 
410
  end subroutine deleteRef_s
 
411
 
 
412
 
 
413
  recursive subroutine isSame_s(self, iobj, retval, exception)
 
414
    implicit none
 
415
    !  in sidl.rmi.InstanceHandle self
 
416
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
417
    !  in sidl.BaseInterface iobj
 
418
    type(sidl_BaseInterface_t) , intent(in) :: iobj
 
419
    !  out bool retval
 
420
    logical , intent(out) :: retval
 
421
    !  out sidl.BaseInterface exception
 
422
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
423
 
 
424
    external sidl_rmi_InstanceHandle_isSame_m
 
425
    call sidl_rmi_InstanceHandle_isSame_m(self, iobj, retval, exception)
 
426
 
 
427
  end subroutine isSame_s
 
428
 
 
429
 
 
430
  recursive subroutine isType_s(self, name, retval, exception)
 
431
    implicit none
 
432
    !  in sidl.rmi.InstanceHandle self
 
433
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
434
    !  in string name
 
435
    character (len=*) , intent(in) :: name
 
436
    !  out bool retval
 
437
    logical , intent(out) :: retval
 
438
    !  out sidl.BaseInterface exception
 
439
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
440
 
 
441
    external sidl_rmi_InstanceHandle_isType_m
 
442
    call sidl_rmi_InstanceHandle_isType_m(self, name, retval, exception)
 
443
 
 
444
  end subroutine isType_s
 
445
 
 
446
 
 
447
  recursive subroutine getClassInfo_s(self, retval, exception)
 
448
    implicit none
 
449
    !  in sidl.rmi.InstanceHandle self
 
450
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
451
    !  out sidl.ClassInfo retval
 
452
    type(sidl_ClassInfo_t) , intent(out) :: retval
 
453
    !  out sidl.BaseInterface exception
 
454
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
455
 
 
456
    external sidl_rmi_InstanceHandle_getClassInfo_m
 
457
    call sidl_rmi_InstanceHandle_getClassInfo_m(self, retval, exception)
 
458
 
 
459
  end subroutine getClassInfo_s
 
460
 
 
461
  ! 
 
462
  ! Static function to cast from sidl.rmi.InstanceHandle
 
463
  ! to sidl.BaseInterface.
 
464
  ! 
 
465
 
 
466
  subroutine cast_0(oldType, newType, exception)
 
467
    implicit none
 
468
    type(sidl_rmi_InstanceHandle_t), intent(in) :: oldType
 
469
    type(sidl_BaseInterface_t), intent(out) :: newType
 
470
    type(sidl_BaseInterface_t), intent(out) :: exception
 
471
    external sidl_BaseInterface__cast_m
 
472
 
 
473
    call sidl_BaseInterface__cast_m(oldType, newType, exception)
 
474
  end subroutine cast_0
 
475
 
 
476
  ! 
 
477
  ! Static function to cast from sidl.BaseInterface
 
478
  ! to sidl.rmi.InstanceHandle.
 
479
  ! 
 
480
 
 
481
  subroutine cast_1(oldType, newType, exception)
 
482
    implicit none
 
483
    type(sidl_BaseInterface_t), intent(in) :: oldType
 
484
    type(sidl_rmi_InstanceHandle_t), intent(out) :: newType
 
485
    type(sidl_BaseInterface_t), intent(out) :: exception
 
486
    external sidl_rmi_InstanceHandle__cast_m
 
487
 
 
488
    call sidl_rmi_InstanceHandle__cast_m(oldType, newType, exception)
 
489
  end subroutine cast_1
 
490
 
 
491
 
 
492
  recursive subroutine exec_s(self, methodName, inArgs, outArgs, exception)
 
493
    implicit none
 
494
    !  in sidl.rmi.InstanceHandle self
 
495
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
496
    !  in string methodName
 
497
    character (len=*) , intent(in) :: methodName
 
498
    !  in sidl.rmi.Call inArgs
 
499
    type(sidl_rmi_Call_t) , intent(in) :: inArgs
 
500
    !  in sidl.rmi.Return outArgs
 
501
    type(sidl_rmi_Return_t) , intent(in) :: outArgs
 
502
    !  out sidl.BaseInterface exception
 
503
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
504
 
 
505
    external sidl_rmi_InstanceHandle__exec_m
 
506
    call sidl_rmi_InstanceHandle__exec_m(self, methodName, inArgs, outArgs,    &
 
507
      exception)
 
508
 
 
509
  end subroutine exec_s
 
510
 
 
511
  recursive subroutine getURL_s(self, retval, exception)
 
512
    implicit none
 
513
    !  in sidl.rmi.InstanceHandle self
 
514
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
515
    !  out string retval
 
516
    character (len=*) , intent(out) :: retval
 
517
    !  out sidl.BaseInterface exception
 
518
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
519
 
 
520
    external sidl_rmi_InstanceHandle__getURL_m
 
521
    call sidl_rmi_InstanceHandle__getURL_m(self, retval, exception)
 
522
 
 
523
  end subroutine getURL_s
 
524
 
 
525
  recursive subroutine isRemote_s(self, retval, exception)
 
526
    implicit none
 
527
    !  in sidl.rmi.InstanceHandle self
 
528
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
529
    !  out bool retval
 
530
    logical , intent(out) :: retval
 
531
    !  out sidl.BaseInterface exception
 
532
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
533
 
 
534
    external sidl_rmi_InstanceHandle__isRemote_m
 
535
    call sidl_rmi_InstanceHandle__isRemote_m(self, retval, exception)
 
536
 
 
537
  end subroutine isRemote_s
 
538
 
 
539
  recursive subroutine isLocal_s(self, retval, exception)
 
540
    implicit none
 
541
    !  in sidl.rmi.InstanceHandle self
 
542
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
543
    !  out bool retval
 
544
    logical , intent(out) :: retval
 
545
    !  out sidl.BaseInterface exception
 
546
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
547
 
 
548
    external sidl_rmi_InstanceHandle__isLocal_m
 
549
    call sidl_rmi_InstanceHandle__isLocal_m(self, retval, exception)
 
550
 
 
551
  end subroutine isLocal_s
 
552
 
 
553
  recursive subroutine set_hooks_s(self, on, exception)
 
554
    implicit none
 
555
    !  in sidl.rmi.InstanceHandle self
 
556
    type(sidl_rmi_InstanceHandle_t) , intent(in) :: self
 
557
    !  in bool on
 
558
    logical , intent(in) :: on
 
559
    !  out sidl.BaseInterface exception
 
560
    type(sidl_BaseInterface_t) , intent(out) :: exception
 
561
 
 
562
    external sidl_rmi_InstanceHandle__set_hooks_m
 
563
    call sidl_rmi_InstanceHandle__set_hooks_m(self, on, exception)
 
564
 
 
565
  end subroutine set_hooks_s
 
566
  logical function is_null_s(ext)
 
567
    type(sidl_rmi_InstanceHandle_t), intent(in) :: ext
 
568
    is_null_s = (ext%d_ior .eq. 0)
 
569
  end function is_null_s
 
570
 
 
571
  logical function not_null_s(ext)
 
572
    type(sidl_rmi_InstanceHandle_t), intent(in) :: ext
 
573
    not_null_s = (ext%d_ior .ne. 0)
 
574
  end function not_null_s
 
575
 
 
576
  subroutine set_null_s(ext)
 
577
    type(sidl_rmi_InstanceHandle_t), intent(out) :: ext
 
578
    ext%d_ior = 0
 
579
  end subroutine set_null_s
 
580
 
 
581
 
 
582
end module sidl_rmi_InstanceHandle
 
583
 
 
584
module sidl_rmi_InstanceHandle_array
 
585
  use sidl
 
586
  use sidl_rmi_InstanceHandle_type
 
587
  use sidl_array_type
 
588
 
 
589
  private :: &
 
590
    copy1_p, &
 
591
    copy2_p, &
 
592
    copy3_p, &
 
593
    copy4_p, &
 
594
    copy5_p, &
 
595
    copy6_p, &
 
596
    copy7_p
 
597
 
 
598
  interface copy
 
599
    module procedure &
 
600
      copy1_p, &
 
601
      copy2_p, &
 
602
      copy3_p, &
 
603
      copy4_p, &
 
604
      copy5_p, &
 
605
      copy6_p, &
 
606
      copy7_p
 
607
  end interface
 
608
 
 
609
  private :: &
 
610
    createCol1_p, &
 
611
    createCol2_p, &
 
612
    createCol3_p, &
 
613
    createCol4_p, &
 
614
    createCol5_p, &
 
615
    createCol6_p, &
 
616
    createCol7_p
 
617
 
 
618
  interface createCol
 
619
    module procedure &
 
620
      createCol1_p, &
 
621
      createCol2_p, &
 
622
      createCol3_p, &
 
623
      createCol4_p, &
 
624
      createCol5_p, &
 
625
      createCol6_p, &
 
626
      createCol7_p
 
627
  end interface
 
628
 
 
629
  private :: &
 
630
    createRow1_p, &
 
631
    createRow2_p, &
 
632
    createRow3_p, &
 
633
    createRow4_p, &
 
634
    createRow5_p, &
 
635
    createRow6_p, &
 
636
    createRow7_p
 
637
 
 
638
  interface createRow
 
639
    module procedure &
 
640
      createRow1_p, &
 
641
      createRow2_p, &
 
642
      createRow3_p, &
 
643
      createRow4_p, &
 
644
      createRow5_p, &
 
645
      createRow6_p, &
 
646
      createRow7_p
 
647
  end interface
 
648
 
 
649
  private :: &
 
650
    ensure1_p, &
 
651
    ensure2_p, &
 
652
    ensure3_p, &
 
653
    ensure4_p, &
 
654
    ensure5_p, &
 
655
    ensure6_p, &
 
656
    ensure7_p
 
657
 
 
658
  interface ensure
 
659
    module procedure &
 
660
      ensure1_p, &
 
661
      ensure2_p, &
 
662
      ensure3_p, &
 
663
      ensure4_p, &
 
664
      ensure5_p, &
 
665
      ensure6_p, &
 
666
      ensure7_p
 
667
  end interface
 
668
 
 
669
  private :: &
 
670
    addRef1_p, &
 
671
    addRef2_p, &
 
672
    addRef3_p, &
 
673
    addRef4_p, &
 
674
    addRef5_p, &
 
675
    addRef6_p, &
 
676
    addRef7_p
 
677
 
 
678
  interface addRef
 
679
    module procedure &
 
680
      addRef1_p, &
 
681
      addRef2_p, &
 
682
      addRef3_p, &
 
683
      addRef4_p, &
 
684
      addRef5_p, &
 
685
      addRef6_p, &
 
686
      addRef7_p
 
687
  end interface
 
688
 
 
689
  private :: &
 
690
    deleteRef1_p, &
 
691
    deleteRef2_p, &
 
692
    deleteRef3_p, &
 
693
    deleteRef4_p, &
 
694
    deleteRef5_p, &
 
695
    deleteRef6_p, &
 
696
    deleteRef7_p
 
697
 
 
698
  interface deleteRef
 
699
    module procedure &
 
700
      deleteRef1_p, &
 
701
      deleteRef2_p, &
 
702
      deleteRef3_p, &
 
703
      deleteRef4_p, &
 
704
      deleteRef5_p, &
 
705
      deleteRef6_p, &
 
706
      deleteRef7_p
 
707
  end interface
 
708
 
 
709
  private :: &
 
710
    dimen1_p, &
 
711
    dimen2_p, &
 
712
    dimen3_p, &
 
713
    dimen4_p, &
 
714
    dimen5_p, &
 
715
    dimen6_p, &
 
716
    dimen7_p
 
717
 
 
718
  interface dimen
 
719
    module procedure &
 
720
      dimen1_p, &
 
721
      dimen2_p, &
 
722
      dimen3_p, &
 
723
      dimen4_p, &
 
724
      dimen5_p, &
 
725
      dimen6_p, &
 
726
      dimen7_p
 
727
  end interface
 
728
 
 
729
  private :: &
 
730
    isColumnOrder1_p, &
 
731
    isColumnOrder2_p, &
 
732
    isColumnOrder3_p, &
 
733
    isColumnOrder4_p, &
 
734
    isColumnOrder5_p, &
 
735
    isColumnOrder6_p, &
 
736
    isColumnOrder7_p
 
737
 
 
738
  interface isColumnOrder
 
739
    module procedure &
 
740
      isColumnOrder1_p, &
 
741
      isColumnOrder2_p, &
 
742
      isColumnOrder3_p, &
 
743
      isColumnOrder4_p, &
 
744
      isColumnOrder5_p, &
 
745
      isColumnOrder6_p, &
 
746
      isColumnOrder7_p
 
747
  end interface
 
748
 
 
749
  private :: &
 
750
    isRowOrder1_p, &
 
751
    isRowOrder2_p, &
 
752
    isRowOrder3_p, &
 
753
    isRowOrder4_p, &
 
754
    isRowOrder5_p, &
 
755
    isRowOrder6_p, &
 
756
    isRowOrder7_p
 
757
 
 
758
  interface isRowOrder
 
759
    module procedure &
 
760
      isRowOrder1_p, &
 
761
      isRowOrder2_p, &
 
762
      isRowOrder3_p, &
 
763
      isRowOrder4_p, &
 
764
      isRowOrder5_p, &
 
765
      isRowOrder6_p, &
 
766
      isRowOrder7_p
 
767
  end interface
 
768
 
 
769
  private :: &
 
770
    is_null1_p, &
 
771
    is_null2_p, &
 
772
    is_null3_p, &
 
773
    is_null4_p, &
 
774
    is_null5_p, &
 
775
    is_null6_p, &
 
776
    is_null7_p
 
777
 
 
778
  interface is_null
 
779
    module procedure &
 
780
      is_null1_p, &
 
781
      is_null2_p, &
 
782
      is_null3_p, &
 
783
      is_null4_p, &
 
784
      is_null5_p, &
 
785
      is_null6_p, &
 
786
      is_null7_p
 
787
  end interface
 
788
 
 
789
  private :: &
 
790
    lower1_p, &
 
791
    lower2_p, &
 
792
    lower3_p, &
 
793
    lower4_p, &
 
794
    lower5_p, &
 
795
    lower6_p, &
 
796
    lower7_p
 
797
 
 
798
  interface lower
 
799
    module procedure &
 
800
      lower1_p, &
 
801
      lower2_p, &
 
802
      lower3_p, &
 
803
      lower4_p, &
 
804
      lower5_p, &
 
805
      lower6_p, &
 
806
      lower7_p
 
807
  end interface
 
808
 
 
809
  private :: &
 
810
    not_null1_p, &
 
811
    not_null2_p, &
 
812
    not_null3_p, &
 
813
    not_null4_p, &
 
814
    not_null5_p, &
 
815
    not_null6_p, &
 
816
    not_null7_p
 
817
 
 
818
  interface not_null
 
819
    module procedure &
 
820
      not_null1_p, &
 
821
      not_null2_p, &
 
822
      not_null3_p, &
 
823
      not_null4_p, &
 
824
      not_null5_p, &
 
825
      not_null6_p, &
 
826
      not_null7_p
 
827
  end interface
 
828
 
 
829
  private :: &
 
830
    set_null1_p, &
 
831
    set_null2_p, &
 
832
    set_null3_p, &
 
833
    set_null4_p, &
 
834
    set_null5_p, &
 
835
    set_null6_p, &
 
836
    set_null7_p
 
837
 
 
838
  interface set_null
 
839
    module procedure &
 
840
      set_null1_p, &
 
841
      set_null2_p, &
 
842
      set_null3_p, &
 
843
      set_null4_p, &
 
844
      set_null5_p, &
 
845
      set_null6_p, &
 
846
      set_null7_p
 
847
  end interface
 
848
 
 
849
  private :: &
 
850
    smartCopy1_p, &
 
851
    smartCopy2_p, &
 
852
    smartCopy3_p, &
 
853
    smartCopy4_p, &
 
854
    smartCopy5_p, &
 
855
    smartCopy6_p, &
 
856
    smartCopy7_p
 
857
 
 
858
  interface smartCopy
 
859
    module procedure &
 
860
      smartCopy1_p, &
 
861
      smartCopy2_p, &
 
862
      smartCopy3_p, &
 
863
      smartCopy4_p, &
 
864
      smartCopy5_p, &
 
865
      smartCopy6_p, &
 
866
      smartCopy7_p
 
867
  end interface
 
868
 
 
869
  private :: &
 
870
    stride1_p, &
 
871
    stride2_p, &
 
872
    stride3_p, &
 
873
    stride4_p, &
 
874
    stride5_p, &
 
875
    stride6_p, &
 
876
    stride7_p
 
877
 
 
878
  interface stride
 
879
    module procedure &
 
880
      stride1_p, &
 
881
      stride2_p, &
 
882
      stride3_p, &
 
883
      stride4_p, &
 
884
      stride5_p, &
 
885
      stride6_p, &
 
886
      stride7_p
 
887
  end interface
 
888
 
 
889
  private :: &
 
890
    upper1_p, &
 
891
    upper2_p, &
 
892
    upper3_p, &
 
893
    upper4_p, &
 
894
    upper5_p, &
 
895
    upper6_p, &
 
896
    upper7_p
 
897
 
 
898
  interface upper
 
899
    module procedure &
 
900
      upper1_p, &
 
901
      upper2_p, &
 
902
      upper3_p, &
 
903
      upper4_p, &
 
904
      upper5_p, &
 
905
      upper6_p, &
 
906
      upper7_p
 
907
  end interface
 
908
 
 
909
  private :: &
 
910
    length1_p, &
 
911
    length2_p, &
 
912
    length3_p, &
 
913
    length4_p, &
 
914
    length5_p, &
 
915
    length6_p, &
 
916
    length7_p
 
917
 
 
918
  interface length
 
919
    module procedure &
 
920
      length1_p, &
 
921
      length2_p, &
 
922
      length3_p, &
 
923
      length4_p, &
 
924
      length5_p, &
 
925
      length6_p, &
 
926
      length7_p
 
927
  end interface
 
928
 
 
929
  private :: create1d1_p
 
930
 
 
931
  interface create1d
 
932
    module procedure create1d1_p
 
933
  end interface
 
934
 
 
935
  private :: create2dRow2_p
 
936
 
 
937
  interface create2dRow
 
938
    module procedure create2dRow2_p
 
939
  end interface
 
940
 
 
941
  private :: create2dCol2_p
 
942
 
 
943
  interface create2dCol
 
944
    module procedure create2dCol2_p
 
945
  end interface
 
946
 
 
947
  private :: &
 
948
    slice11_p, &
 
949
    slice12_p, &
 
950
    slice22_p, &
 
951
    slice13_p, &
 
952
    slice23_p, &
 
953
    slice33_p, &
 
954
    slice14_p, &
 
955
    slice24_p, &
 
956
    slice34_p, &
 
957
    slice44_p, &
 
958
    slice15_p, &
 
959
    slice25_p, &
 
960
    slice35_p, &
 
961
    slice45_p, &
 
962
    slice55_p, &
 
963
    slice16_p, &
 
964
    slice26_p, &
 
965
    slice36_p, &
 
966
    slice46_p, &
 
967
    slice56_p, &
 
968
    slice66_p, &
 
969
    slice17_p, &
 
970
    slice27_p, &
 
971
    slice37_p, &
 
972
    slice47_p, &
 
973
    slice57_p, &
 
974
    slice67_p, &
 
975
    slice77_p
 
976
 
 
977
  interface slice
 
978
    module procedure &
 
979
      slice11_p, &
 
980
      slice12_p, &
 
981
      slice22_p, &
 
982
      slice13_p, &
 
983
      slice23_p, &
 
984
      slice33_p, &
 
985
      slice14_p, &
 
986
      slice24_p, &
 
987
      slice34_p, &
 
988
      slice44_p, &
 
989
      slice15_p, &
 
990
      slice25_p, &
 
991
      slice35_p, &
 
992
      slice45_p, &
 
993
      slice55_p, &
 
994
      slice16_p, &
 
995
      slice26_p, &
 
996
      slice36_p, &
 
997
      slice46_p, &
 
998
      slice56_p, &
 
999
      slice66_p, &
 
1000
      slice17_p, &
 
1001
      slice27_p, &
 
1002
      slice37_p, &
 
1003
      slice47_p, &
 
1004
      slice57_p, &
 
1005
      slice67_p, &
 
1006
      slice77_p
 
1007
  end interface
 
1008
 
 
1009
  private :: &
 
1010
    getg1_p, &
 
1011
    getg2_p, &
 
1012
    getg3_p, &
 
1013
    getg4_p, &
 
1014
    getg5_p, &
 
1015
    getg6_p, &
 
1016
    getg7_p
 
1017
 
 
1018
  private :: &
 
1019
    get1_p, &
 
1020
    get2_p, &
 
1021
    get3_p, &
 
1022
    get4_p, &
 
1023
    get5_p, &
 
1024
    get6_p, &
 
1025
    get7_p
 
1026
 
 
1027
  interface get
 
1028
    module procedure &
 
1029
      getg1_p, &
 
1030
      get1_p, &
 
1031
      getg2_p, &
 
1032
      get2_p, &
 
1033
      getg3_p, &
 
1034
      get3_p, &
 
1035
      getg4_p, &
 
1036
      get4_p, &
 
1037
      getg5_p, &
 
1038
      get5_p, &
 
1039
      getg6_p, &
 
1040
      get6_p, &
 
1041
      getg7_p, &
 
1042
    get7_p
 
1043
  end interface
 
1044
 
 
1045
  private :: &
 
1046
    setg1_p, &
 
1047
    setg2_p, &
 
1048
    setg3_p, &
 
1049
    setg4_p, &
 
1050
    setg5_p, &
 
1051
    setg6_p, &
 
1052
    setg7_p
 
1053
 
 
1054
  private :: &
 
1055
    set1_p, &
 
1056
    set2_p, &
 
1057
    set3_p, &
 
1058
    set4_p, &
 
1059
    set5_p, &
 
1060
    set6_p, &
 
1061
    set7_p
 
1062
 
 
1063
  interface set
 
1064
    module procedure &
 
1065
      setg1_p, &
 
1066
      set1_p, &
 
1067
      setg2_p, &
 
1068
      set2_p, &
 
1069
      setg3_p, &
 
1070
      set3_p, &
 
1071
      setg4_p, &
 
1072
      set4_p, &
 
1073
      setg5_p, &
 
1074
      set5_p, &
 
1075
      setg6_p, &
 
1076
      set6_p, &
 
1077
      setg7_p, &
 
1078
    set7_p
 
1079
  end interface
 
1080
 
 
1081
 
 
1082
  private :: &
 
1083
    castsidl_rmi_Instan0abva2f9r2_p, &
 
1084
    castsidl_rmi_Instan_3nmv3wn0v_p, &
 
1085
    castsidl_rmi_Instanoczhfuccq2_p, &
 
1086
    castsidl_rmi_Instan_ikto5mzb2_p, &
 
1087
    castsidl_rmi_Instanllzpvwudrf_p, &
 
1088
    castsidl_rmi_Instan90gy8pcgs__p, &
 
1089
    castsidl_rmi_Instan74vr3eqwe6_p
 
1090
interface cast
 
1091
  module procedure &
 
1092
    castsidl_rmi_Instan0abva2f9r2_p, &
 
1093
    castsidl_rmi_Instan_3nmv3wn0v_p, &
 
1094
    castsidl_rmi_Instanoczhfuccq2_p, &
 
1095
    castsidl_rmi_Instan_ikto5mzb2_p, &
 
1096
    castsidl_rmi_Instanllzpvwudrf_p, &
 
1097
    castsidl_rmi_Instan90gy8pcgs__p, &
 
1098
    castsidl_rmi_Instan74vr3eqwe6_p
 
1099
end interface
 
1100
 
 
1101
 
 
1102
contains
 
1103
 
 
1104
 
 
1105
  ! 
 
1106
  ! The size of lower determines the dimension of the
 
1107
  ! array.
 
1108
  ! 
 
1109
 
 
1110
  subroutine createCol1_p(lower, upper, array)
 
1111
    integer (kind=sidl_int), dimension(1), intent(in) :: lower
 
1112
    integer (kind=sidl_int), dimension(1), intent(in) :: upper
 
1113
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: array
 
1114
    external In_ary_createCol503hal19nhswj_m
 
1115
    call In_ary_createCol503hal19nhswj_m(1, lower, upper, array)
 
1116
  end subroutine createCol1_p
 
1117
 
 
1118
  ! 
 
1119
  ! The size of lower determines the dimension of the
 
1120
  ! array.
 
1121
  ! 
 
1122
 
 
1123
  subroutine createRow1_p(lower, upper, array)
 
1124
    integer (kind=sidl_int), dimension(1), intent(in) :: lower
 
1125
    integer (kind=sidl_int), dimension(1), intent(in) :: upper
 
1126
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: array
 
1127
    external In_ary_createRown3r51s1xwjq3y_m
 
1128
    call In_ary_createRown3r51s1xwjq3y_m(1, lower, upper, array)
 
1129
  end subroutine createRow1_p
 
1130
 
 
1131
  subroutine create1d1_p(len, array)
 
1132
    integer (kind=sidl_int), intent(in) :: len
 
1133
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: array
 
1134
    external Ins_ary_create1d1nfpgmwr_yr7n_m
 
1135
    call Ins_ary_create1d1nfpgmwr_yr7n_m(len, array)
 
1136
  end subroutine create1d1_p
 
1137
 
 
1138
  subroutine copy1_p(src, dest)
 
1139
    type(sidl_rmi_InstanceHandle_1d), intent(in) :: src
 
1140
    type(sidl_rmi_InstanceHandle_1d), intent(in) :: dest
 
1141
    external Instanc_ary_copy74exzcflpha8u_m
 
1142
    call Instanc_ary_copy74exzcflpha8u_m(src, dest)
 
1143
  end subroutine copy1_p
 
1144
 
 
1145
  subroutine ensure1_p(src, dim, ordering, result)
 
1146
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: src
 
1147
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: result
 
1148
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
1149
    external Insta_ary_ensurendmj64t5zsuug_m
 
1150
    call Insta_ary_ensurendmj64t5zsuug_m(src, 1, ordering, result)
 
1151
  end subroutine ensure1_p
 
1152
 
 
1153
  subroutine slice11_p(src, numElem, srcStart, srcStride, newLower, result)
 
1154
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: src
 
1155
    integer (kind=sidl_int), dimension(1), intent(in) :: numElem
 
1156
    integer (kind=sidl_int), dimension(1), intent(in) :: srcStart, srcStride
 
1157
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: result
 
1158
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1159
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1160
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 1, numElem, srcStart, srcStride, &
 
1161
      newLower, result)
 
1162
  end subroutine slice11_p
 
1163
 
 
1164
  subroutine getg1_p(array, index, value)
 
1165
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1166
    integer (kind=sidl_int), intent(in), dimension(1) :: index
 
1167
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
1168
    external Instance_ary_gets490kjs34k2ft_m
 
1169
    call Instance_ary_gets490kjs34k2ft_m(array, index, value)
 
1170
  end subroutine getg1_p
 
1171
 
 
1172
  subroutine setg1_p(array, index, value)
 
1173
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1174
    integer (kind=sidl_int), intent(in), dimension(1) :: index
 
1175
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
1176
    external Instance_ary_seta0to2a4_ekbd0_m
 
1177
    call Instance_ary_seta0to2a4_ekbd0_m(array, index, value)
 
1178
  end subroutine setg1_p
 
1179
 
 
1180
  subroutine get1_p(array, &
 
1181
      i1, &
 
1182
      value)
 
1183
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1184
    integer (kind=sidl_int), intent(in) :: i1
 
1185
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
1186
    external Instanc_ary_get1utud4j4p7zx3m_m
 
1187
    call Instanc_ary_get1utud4j4p7zx3m_m(array, &
 
1188
      i1, &
 
1189
      value)
 
1190
  end subroutine get1_p
 
1191
 
 
1192
  subroutine set1_p(array, &
 
1193
      i1, &
 
1194
      value)
 
1195
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1196
    integer (kind=sidl_int), intent(in) :: i1
 
1197
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
1198
    external Instanc_ary_set1qvm3x3y3qd85l_m
 
1199
    call Instanc_ary_set1qvm3x3y3qd85l_m(array, &
 
1200
      i1, &
 
1201
      value)
 
1202
  end subroutine set1_p
 
1203
 
 
1204
  subroutine smartCopy1_p(src, dest)
 
1205
    type(sidl_rmi_InstanceHandle_1d), intent(in) :: src
 
1206
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: dest
 
1207
    integer(sidl_int) :: dim
 
1208
    external In_ary_smartCopy3n08hea3bkqb__m
 
1209
    dim = 1
 
1210
    call In_ary_smartCopy3n08hea3bkqb__m(src, 1, dest)
 
1211
  end subroutine smartCopy1_p
 
1212
 
 
1213
  logical function  isColumnOrder1_p(array)
 
1214
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1215
    external ary_isColumnOrderrc71jykyd_it_m
 
1216
    call ary_isColumnOrderrc71jykyd_it_m(array, isColumnOrder1_p)
 
1217
  end function isColumnOrder1_p
 
1218
 
 
1219
  logical function  isRowOrder1_p(array)
 
1220
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1221
    external I_ary_isRowOrderr5dqy6njtda60_m
 
1222
    call I_ary_isRowOrderr5dqy6njtda60_m(array, isRowOrder1_p)
 
1223
  end function isRowOrder1_p
 
1224
 
 
1225
  integer (kind=sidl_int) function  dimen1_p(array)
 
1226
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1227
    external Instan_ary_dimeny3t1whwziwhcu_m
 
1228
    call Instan_ary_dimeny3t1whwziwhcu_m(array, dimen1_p)
 
1229
  end function dimen1_p
 
1230
 
 
1231
  integer (kind=sidl_int) function  stride1_p(array, index)
 
1232
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1233
    integer (kind=sidl_int), intent(in) :: index
 
1234
    external Insta_ary_stride2dyy0gm91ztec_m
 
1235
    call Insta_ary_stride2dyy0gm91ztec_m(array, index, stride1_p)
 
1236
  end function stride1_p
 
1237
 
 
1238
  integer (kind=sidl_int) function  lower1_p(array, index)
 
1239
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1240
    integer (kind=sidl_int), intent(in) :: index
 
1241
    external Instan_ary_lowerw6myk0cwh_00a_m
 
1242
    call Instan_ary_lowerw6myk0cwh_00a_m(array, index, lower1_p)
 
1243
  end function lower1_p
 
1244
 
 
1245
  integer (kind=sidl_int) function  upper1_p(array, index)
 
1246
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1247
    integer (kind=sidl_int), intent(in) :: index
 
1248
    external Instan_ary_upperetvtmqie2wu2f_m
 
1249
    call Instan_ary_upperetvtmqie2wu2f_m(array, index, upper1_p)
 
1250
  end function upper1_p
 
1251
 
 
1252
  integer (kind=sidl_int) function  length1_p(array, index)
 
1253
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1254
    integer (kind=sidl_int), intent(in) :: index
 
1255
    external Insta_ary_lengthzvkxy8iui7d1l_m
 
1256
    call Insta_ary_lengthzvkxy8iui7d1l_m(array, index, length1_p)
 
1257
  end function length1_p
 
1258
 
 
1259
  subroutine  addRef1_p(array)
 
1260
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1261
    external Insta_ary_addRefwuote493cfmdz_m
 
1262
    call Insta_ary_addRefwuote493cfmdz_m(array)
 
1263
  end subroutine addRef1_p
 
1264
 
 
1265
  subroutine  deleteRef1_p(array)
 
1266
    type(sidl_rmi_InstanceHandle_1d), intent(in)  :: array
 
1267
    external In_ary_deleteRefg43l66oovz61u_m
 
1268
    call In_ary_deleteRefg43l66oovz61u_m(array)
 
1269
  end subroutine deleteRef1_p
 
1270
 
 
1271
  logical function is_null1_p(array)
 
1272
    type(sidl_rmi_InstanceHandle_1d), intent(in) :: array
 
1273
    is_null1_p = (array%d_array .eq. 0)
 
1274
  end function is_null1_p
 
1275
 
 
1276
  logical function not_null1_p(array)
 
1277
    type(sidl_rmi_InstanceHandle_1d), intent(in) :: array
 
1278
    not_null1_p = (array%d_array .ne. 0)
 
1279
  end function not_null1_p
 
1280
 
 
1281
  subroutine set_null1_p(array)
 
1282
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: array
 
1283
    array%d_array = 0
 
1284
  end subroutine set_null1_p
 
1285
 
 
1286
  ! 
 
1287
  ! The size of lower determines the dimension of the
 
1288
  ! array.
 
1289
  ! 
 
1290
 
 
1291
  subroutine createCol2_p(lower, upper, array)
 
1292
    integer (kind=sidl_int), dimension(2), intent(in) :: lower
 
1293
    integer (kind=sidl_int), dimension(2), intent(in) :: upper
 
1294
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: array
 
1295
    external In_ary_createCol503hal19nhswj_m
 
1296
    call In_ary_createCol503hal19nhswj_m(2, lower, upper, array)
 
1297
  end subroutine createCol2_p
 
1298
 
 
1299
  ! 
 
1300
  ! The size of lower determines the dimension of the
 
1301
  ! array.
 
1302
  ! 
 
1303
 
 
1304
  subroutine createRow2_p(lower, upper, array)
 
1305
    integer (kind=sidl_int), dimension(2), intent(in) :: lower
 
1306
    integer (kind=sidl_int), dimension(2), intent(in) :: upper
 
1307
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: array
 
1308
    external In_ary_createRown3r51s1xwjq3y_m
 
1309
    call In_ary_createRown3r51s1xwjq3y_m(2, lower, upper, array)
 
1310
  end subroutine createRow2_p
 
1311
 
 
1312
  subroutine create2dCol2_p(m, n, array)
 
1313
    integer (kind=sidl_int), intent(in) :: m, n
 
1314
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: array
 
1315
    external ary_create2dColrmec1mwuejb10r_m
 
1316
    call ary_create2dColrmec1mwuejb10r_m(m, n, array)
 
1317
  end subroutine create2dCol2_p
 
1318
 
 
1319
  subroutine create2dRow2_p(m, n, array)
 
1320
    integer (kind=sidl_int), intent(in) :: m, n
 
1321
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: array
 
1322
    external ary_create2dRowz0rb6tzne2s0bl_m
 
1323
    call ary_create2dRowz0rb6tzne2s0bl_m(m, n, array)
 
1324
  end subroutine create2dRow2_p
 
1325
 
 
1326
  subroutine copy2_p(src, dest)
 
1327
    type(sidl_rmi_InstanceHandle_2d), intent(in) :: src
 
1328
    type(sidl_rmi_InstanceHandle_2d), intent(in) :: dest
 
1329
    external Instanc_ary_copy74exzcflpha8u_m
 
1330
    call Instanc_ary_copy74exzcflpha8u_m(src, dest)
 
1331
  end subroutine copy2_p
 
1332
 
 
1333
  subroutine ensure2_p(src, dim, ordering, result)
 
1334
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: src
 
1335
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: result
 
1336
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
1337
    external Insta_ary_ensurendmj64t5zsuug_m
 
1338
    call Insta_ary_ensurendmj64t5zsuug_m(src, 2, ordering, result)
 
1339
  end subroutine ensure2_p
 
1340
 
 
1341
  subroutine slice12_p(src, numElem, srcStart, srcStride, newLower, result)
 
1342
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: src
 
1343
    integer (kind=sidl_int), dimension(2), intent(in) :: numElem
 
1344
    integer (kind=sidl_int), dimension(2), intent(in) :: srcStart, srcStride
 
1345
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: result
 
1346
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1347
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1348
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 1, numElem, srcStart, srcStride, &
 
1349
      newLower, result)
 
1350
  end subroutine slice12_p
 
1351
 
 
1352
  subroutine slice22_p(src, numElem, srcStart, srcStride, newLower, result)
 
1353
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: src
 
1354
    integer (kind=sidl_int), dimension(2), intent(in) :: numElem
 
1355
    integer (kind=sidl_int), dimension(2), intent(in) :: srcStart, srcStride
 
1356
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: result
 
1357
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1358
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1359
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 2, numElem, srcStart, srcStride, &
 
1360
      newLower, result)
 
1361
  end subroutine slice22_p
 
1362
 
 
1363
  subroutine getg2_p(array, index, value)
 
1364
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1365
    integer (kind=sidl_int), intent(in), dimension(2) :: index
 
1366
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
1367
    external Instance_ary_gets490kjs34k2ft_m
 
1368
    call Instance_ary_gets490kjs34k2ft_m(array, index, value)
 
1369
  end subroutine getg2_p
 
1370
 
 
1371
  subroutine setg2_p(array, index, value)
 
1372
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1373
    integer (kind=sidl_int), intent(in), dimension(2) :: index
 
1374
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
1375
    external Instance_ary_seta0to2a4_ekbd0_m
 
1376
    call Instance_ary_seta0to2a4_ekbd0_m(array, index, value)
 
1377
  end subroutine setg2_p
 
1378
 
 
1379
  subroutine get2_p(array, &
 
1380
      i1, &
 
1381
      i2, &
 
1382
      value)
 
1383
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1384
    integer (kind=sidl_int), intent(in) :: i1
 
1385
    integer (kind=sidl_int), intent(in) :: i2
 
1386
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
1387
    external Instanc_ary_get2kkiy40ovt45ag_m
 
1388
    call Instanc_ary_get2kkiy40ovt45ag_m(array, &
 
1389
      i1, &
 
1390
      i2, &
 
1391
      value)
 
1392
  end subroutine get2_p
 
1393
 
 
1394
  subroutine set2_p(array, &
 
1395
      i1, &
 
1396
      i2, &
 
1397
      value)
 
1398
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1399
    integer (kind=sidl_int), intent(in) :: i1
 
1400
    integer (kind=sidl_int), intent(in) :: i2
 
1401
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
1402
    external Instanc_ary_set2bi270ft15ksqw_m
 
1403
    call Instanc_ary_set2bi270ft15ksqw_m(array, &
 
1404
      i1, &
 
1405
      i2, &
 
1406
      value)
 
1407
  end subroutine set2_p
 
1408
 
 
1409
  subroutine smartCopy2_p(src, dest)
 
1410
    type(sidl_rmi_InstanceHandle_2d), intent(in) :: src
 
1411
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: dest
 
1412
    integer(sidl_int) :: dim
 
1413
    external In_ary_smartCopy3n08hea3bkqb__m
 
1414
    dim = 2
 
1415
    call In_ary_smartCopy3n08hea3bkqb__m(src, 2, dest)
 
1416
  end subroutine smartCopy2_p
 
1417
 
 
1418
  logical function  isColumnOrder2_p(array)
 
1419
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1420
    external ary_isColumnOrderrc71jykyd_it_m
 
1421
    call ary_isColumnOrderrc71jykyd_it_m(array, isColumnOrder2_p)
 
1422
  end function isColumnOrder2_p
 
1423
 
 
1424
  logical function  isRowOrder2_p(array)
 
1425
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1426
    external I_ary_isRowOrderr5dqy6njtda60_m
 
1427
    call I_ary_isRowOrderr5dqy6njtda60_m(array, isRowOrder2_p)
 
1428
  end function isRowOrder2_p
 
1429
 
 
1430
  integer (kind=sidl_int) function  dimen2_p(array)
 
1431
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1432
    external Instan_ary_dimeny3t1whwziwhcu_m
 
1433
    call Instan_ary_dimeny3t1whwziwhcu_m(array, dimen2_p)
 
1434
  end function dimen2_p
 
1435
 
 
1436
  integer (kind=sidl_int) function  stride2_p(array, index)
 
1437
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1438
    integer (kind=sidl_int), intent(in) :: index
 
1439
    external Insta_ary_stride2dyy0gm91ztec_m
 
1440
    call Insta_ary_stride2dyy0gm91ztec_m(array, index, stride2_p)
 
1441
  end function stride2_p
 
1442
 
 
1443
  integer (kind=sidl_int) function  lower2_p(array, index)
 
1444
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1445
    integer (kind=sidl_int), intent(in) :: index
 
1446
    external Instan_ary_lowerw6myk0cwh_00a_m
 
1447
    call Instan_ary_lowerw6myk0cwh_00a_m(array, index, lower2_p)
 
1448
  end function lower2_p
 
1449
 
 
1450
  integer (kind=sidl_int) function  upper2_p(array, index)
 
1451
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1452
    integer (kind=sidl_int), intent(in) :: index
 
1453
    external Instan_ary_upperetvtmqie2wu2f_m
 
1454
    call Instan_ary_upperetvtmqie2wu2f_m(array, index, upper2_p)
 
1455
  end function upper2_p
 
1456
 
 
1457
  integer (kind=sidl_int) function  length2_p(array, index)
 
1458
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1459
    integer (kind=sidl_int), intent(in) :: index
 
1460
    external Insta_ary_lengthzvkxy8iui7d1l_m
 
1461
    call Insta_ary_lengthzvkxy8iui7d1l_m(array, index, length2_p)
 
1462
  end function length2_p
 
1463
 
 
1464
  subroutine  addRef2_p(array)
 
1465
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1466
    external Insta_ary_addRefwuote493cfmdz_m
 
1467
    call Insta_ary_addRefwuote493cfmdz_m(array)
 
1468
  end subroutine addRef2_p
 
1469
 
 
1470
  subroutine  deleteRef2_p(array)
 
1471
    type(sidl_rmi_InstanceHandle_2d), intent(in)  :: array
 
1472
    external In_ary_deleteRefg43l66oovz61u_m
 
1473
    call In_ary_deleteRefg43l66oovz61u_m(array)
 
1474
  end subroutine deleteRef2_p
 
1475
 
 
1476
  logical function is_null2_p(array)
 
1477
    type(sidl_rmi_InstanceHandle_2d), intent(in) :: array
 
1478
    is_null2_p = (array%d_array .eq. 0)
 
1479
  end function is_null2_p
 
1480
 
 
1481
  logical function not_null2_p(array)
 
1482
    type(sidl_rmi_InstanceHandle_2d), intent(in) :: array
 
1483
    not_null2_p = (array%d_array .ne. 0)
 
1484
  end function not_null2_p
 
1485
 
 
1486
  subroutine set_null2_p(array)
 
1487
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: array
 
1488
    array%d_array = 0
 
1489
  end subroutine set_null2_p
 
1490
 
 
1491
  ! 
 
1492
  ! The size of lower determines the dimension of the
 
1493
  ! array.
 
1494
  ! 
 
1495
 
 
1496
  subroutine createCol3_p(lower, upper, array)
 
1497
    integer (kind=sidl_int), dimension(3), intent(in) :: lower
 
1498
    integer (kind=sidl_int), dimension(3), intent(in) :: upper
 
1499
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: array
 
1500
    external In_ary_createCol503hal19nhswj_m
 
1501
    call In_ary_createCol503hal19nhswj_m(3, lower, upper, array)
 
1502
  end subroutine createCol3_p
 
1503
 
 
1504
  ! 
 
1505
  ! The size of lower determines the dimension of the
 
1506
  ! array.
 
1507
  ! 
 
1508
 
 
1509
  subroutine createRow3_p(lower, upper, array)
 
1510
    integer (kind=sidl_int), dimension(3), intent(in) :: lower
 
1511
    integer (kind=sidl_int), dimension(3), intent(in) :: upper
 
1512
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: array
 
1513
    external In_ary_createRown3r51s1xwjq3y_m
 
1514
    call In_ary_createRown3r51s1xwjq3y_m(3, lower, upper, array)
 
1515
  end subroutine createRow3_p
 
1516
 
 
1517
  subroutine copy3_p(src, dest)
 
1518
    type(sidl_rmi_InstanceHandle_3d), intent(in) :: src
 
1519
    type(sidl_rmi_InstanceHandle_3d), intent(in) :: dest
 
1520
    external Instanc_ary_copy74exzcflpha8u_m
 
1521
    call Instanc_ary_copy74exzcflpha8u_m(src, dest)
 
1522
  end subroutine copy3_p
 
1523
 
 
1524
  subroutine ensure3_p(src, dim, ordering, result)
 
1525
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: src
 
1526
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: result
 
1527
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
1528
    external Insta_ary_ensurendmj64t5zsuug_m
 
1529
    call Insta_ary_ensurendmj64t5zsuug_m(src, 3, ordering, result)
 
1530
  end subroutine ensure3_p
 
1531
 
 
1532
  subroutine slice13_p(src, numElem, srcStart, srcStride, newLower, result)
 
1533
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: src
 
1534
    integer (kind=sidl_int), dimension(3), intent(in) :: numElem
 
1535
    integer (kind=sidl_int), dimension(3), intent(in) :: srcStart, srcStride
 
1536
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: result
 
1537
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1538
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1539
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 1, numElem, srcStart, srcStride, &
 
1540
      newLower, result)
 
1541
  end subroutine slice13_p
 
1542
 
 
1543
  subroutine slice23_p(src, numElem, srcStart, srcStride, newLower, result)
 
1544
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: src
 
1545
    integer (kind=sidl_int), dimension(3), intent(in) :: numElem
 
1546
    integer (kind=sidl_int), dimension(3), intent(in) :: srcStart, srcStride
 
1547
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: result
 
1548
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1549
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1550
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 2, numElem, srcStart, srcStride, &
 
1551
      newLower, result)
 
1552
  end subroutine slice23_p
 
1553
 
 
1554
  subroutine slice33_p(src, numElem, srcStart, srcStride, newLower, result)
 
1555
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: src
 
1556
    integer (kind=sidl_int), dimension(3), intent(in) :: numElem
 
1557
    integer (kind=sidl_int), dimension(3), intent(in) :: srcStart, srcStride
 
1558
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: result
 
1559
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1560
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1561
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 3, numElem, srcStart, srcStride, &
 
1562
      newLower, result)
 
1563
  end subroutine slice33_p
 
1564
 
 
1565
  subroutine getg3_p(array, index, value)
 
1566
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1567
    integer (kind=sidl_int), intent(in), dimension(3) :: index
 
1568
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
1569
    external Instance_ary_gets490kjs34k2ft_m
 
1570
    call Instance_ary_gets490kjs34k2ft_m(array, index, value)
 
1571
  end subroutine getg3_p
 
1572
 
 
1573
  subroutine setg3_p(array, index, value)
 
1574
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1575
    integer (kind=sidl_int), intent(in), dimension(3) :: index
 
1576
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
1577
    external Instance_ary_seta0to2a4_ekbd0_m
 
1578
    call Instance_ary_seta0to2a4_ekbd0_m(array, index, value)
 
1579
  end subroutine setg3_p
 
1580
 
 
1581
  subroutine get3_p(array, &
 
1582
      i1, &
 
1583
      i2, &
 
1584
      i3, &
 
1585
      value)
 
1586
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1587
    integer (kind=sidl_int), intent(in) :: i1
 
1588
    integer (kind=sidl_int), intent(in) :: i2
 
1589
    integer (kind=sidl_int), intent(in) :: i3
 
1590
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
1591
    external Instanc_ary_get3khdvbbvzydsd7_m
 
1592
    call Instanc_ary_get3khdvbbvzydsd7_m(array, &
 
1593
      i1, &
 
1594
      i2, &
 
1595
      i3, &
 
1596
      value)
 
1597
  end subroutine get3_p
 
1598
 
 
1599
  subroutine set3_p(array, &
 
1600
      i1, &
 
1601
      i2, &
 
1602
      i3, &
 
1603
      value)
 
1604
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1605
    integer (kind=sidl_int), intent(in) :: i1
 
1606
    integer (kind=sidl_int), intent(in) :: i2
 
1607
    integer (kind=sidl_int), intent(in) :: i3
 
1608
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
1609
    external Instanc_ary_set3fh6w6y0ep6ni1_m
 
1610
    call Instanc_ary_set3fh6w6y0ep6ni1_m(array, &
 
1611
      i1, &
 
1612
      i2, &
 
1613
      i3, &
 
1614
      value)
 
1615
  end subroutine set3_p
 
1616
 
 
1617
  subroutine smartCopy3_p(src, dest)
 
1618
    type(sidl_rmi_InstanceHandle_3d), intent(in) :: src
 
1619
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: dest
 
1620
    integer(sidl_int) :: dim
 
1621
    external In_ary_smartCopy3n08hea3bkqb__m
 
1622
    dim = 3
 
1623
    call In_ary_smartCopy3n08hea3bkqb__m(src, 3, dest)
 
1624
  end subroutine smartCopy3_p
 
1625
 
 
1626
  logical function  isColumnOrder3_p(array)
 
1627
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1628
    external ary_isColumnOrderrc71jykyd_it_m
 
1629
    call ary_isColumnOrderrc71jykyd_it_m(array, isColumnOrder3_p)
 
1630
  end function isColumnOrder3_p
 
1631
 
 
1632
  logical function  isRowOrder3_p(array)
 
1633
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1634
    external I_ary_isRowOrderr5dqy6njtda60_m
 
1635
    call I_ary_isRowOrderr5dqy6njtda60_m(array, isRowOrder3_p)
 
1636
  end function isRowOrder3_p
 
1637
 
 
1638
  integer (kind=sidl_int) function  dimen3_p(array)
 
1639
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1640
    external Instan_ary_dimeny3t1whwziwhcu_m
 
1641
    call Instan_ary_dimeny3t1whwziwhcu_m(array, dimen3_p)
 
1642
  end function dimen3_p
 
1643
 
 
1644
  integer (kind=sidl_int) function  stride3_p(array, index)
 
1645
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1646
    integer (kind=sidl_int), intent(in) :: index
 
1647
    external Insta_ary_stride2dyy0gm91ztec_m
 
1648
    call Insta_ary_stride2dyy0gm91ztec_m(array, index, stride3_p)
 
1649
  end function stride3_p
 
1650
 
 
1651
  integer (kind=sidl_int) function  lower3_p(array, index)
 
1652
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1653
    integer (kind=sidl_int), intent(in) :: index
 
1654
    external Instan_ary_lowerw6myk0cwh_00a_m
 
1655
    call Instan_ary_lowerw6myk0cwh_00a_m(array, index, lower3_p)
 
1656
  end function lower3_p
 
1657
 
 
1658
  integer (kind=sidl_int) function  upper3_p(array, index)
 
1659
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1660
    integer (kind=sidl_int), intent(in) :: index
 
1661
    external Instan_ary_upperetvtmqie2wu2f_m
 
1662
    call Instan_ary_upperetvtmqie2wu2f_m(array, index, upper3_p)
 
1663
  end function upper3_p
 
1664
 
 
1665
  integer (kind=sidl_int) function  length3_p(array, index)
 
1666
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1667
    integer (kind=sidl_int), intent(in) :: index
 
1668
    external Insta_ary_lengthzvkxy8iui7d1l_m
 
1669
    call Insta_ary_lengthzvkxy8iui7d1l_m(array, index, length3_p)
 
1670
  end function length3_p
 
1671
 
 
1672
  subroutine  addRef3_p(array)
 
1673
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1674
    external Insta_ary_addRefwuote493cfmdz_m
 
1675
    call Insta_ary_addRefwuote493cfmdz_m(array)
 
1676
  end subroutine addRef3_p
 
1677
 
 
1678
  subroutine  deleteRef3_p(array)
 
1679
    type(sidl_rmi_InstanceHandle_3d), intent(in)  :: array
 
1680
    external In_ary_deleteRefg43l66oovz61u_m
 
1681
    call In_ary_deleteRefg43l66oovz61u_m(array)
 
1682
  end subroutine deleteRef3_p
 
1683
 
 
1684
  logical function is_null3_p(array)
 
1685
    type(sidl_rmi_InstanceHandle_3d), intent(in) :: array
 
1686
    is_null3_p = (array%d_array .eq. 0)
 
1687
  end function is_null3_p
 
1688
 
 
1689
  logical function not_null3_p(array)
 
1690
    type(sidl_rmi_InstanceHandle_3d), intent(in) :: array
 
1691
    not_null3_p = (array%d_array .ne. 0)
 
1692
  end function not_null3_p
 
1693
 
 
1694
  subroutine set_null3_p(array)
 
1695
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: array
 
1696
    array%d_array = 0
 
1697
  end subroutine set_null3_p
 
1698
 
 
1699
  ! 
 
1700
  ! The size of lower determines the dimension of the
 
1701
  ! array.
 
1702
  ! 
 
1703
 
 
1704
  subroutine createCol4_p(lower, upper, array)
 
1705
    integer (kind=sidl_int), dimension(4), intent(in) :: lower
 
1706
    integer (kind=sidl_int), dimension(4), intent(in) :: upper
 
1707
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: array
 
1708
    external In_ary_createCol503hal19nhswj_m
 
1709
    call In_ary_createCol503hal19nhswj_m(4, lower, upper, array)
 
1710
  end subroutine createCol4_p
 
1711
 
 
1712
  ! 
 
1713
  ! The size of lower determines the dimension of the
 
1714
  ! array.
 
1715
  ! 
 
1716
 
 
1717
  subroutine createRow4_p(lower, upper, array)
 
1718
    integer (kind=sidl_int), dimension(4), intent(in) :: lower
 
1719
    integer (kind=sidl_int), dimension(4), intent(in) :: upper
 
1720
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: array
 
1721
    external In_ary_createRown3r51s1xwjq3y_m
 
1722
    call In_ary_createRown3r51s1xwjq3y_m(4, lower, upper, array)
 
1723
  end subroutine createRow4_p
 
1724
 
 
1725
  subroutine copy4_p(src, dest)
 
1726
    type(sidl_rmi_InstanceHandle_4d), intent(in) :: src
 
1727
    type(sidl_rmi_InstanceHandle_4d), intent(in) :: dest
 
1728
    external Instanc_ary_copy74exzcflpha8u_m
 
1729
    call Instanc_ary_copy74exzcflpha8u_m(src, dest)
 
1730
  end subroutine copy4_p
 
1731
 
 
1732
  subroutine ensure4_p(src, dim, ordering, result)
 
1733
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: src
 
1734
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: result
 
1735
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
1736
    external Insta_ary_ensurendmj64t5zsuug_m
 
1737
    call Insta_ary_ensurendmj64t5zsuug_m(src, 4, ordering, result)
 
1738
  end subroutine ensure4_p
 
1739
 
 
1740
  subroutine slice14_p(src, numElem, srcStart, srcStride, newLower, result)
 
1741
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: src
 
1742
    integer (kind=sidl_int), dimension(4), intent(in) :: numElem
 
1743
    integer (kind=sidl_int), dimension(4), intent(in) :: srcStart, srcStride
 
1744
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: result
 
1745
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1746
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1747
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 1, numElem, srcStart, srcStride, &
 
1748
      newLower, result)
 
1749
  end subroutine slice14_p
 
1750
 
 
1751
  subroutine slice24_p(src, numElem, srcStart, srcStride, newLower, result)
 
1752
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: src
 
1753
    integer (kind=sidl_int), dimension(4), intent(in) :: numElem
 
1754
    integer (kind=sidl_int), dimension(4), intent(in) :: srcStart, srcStride
 
1755
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: result
 
1756
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1757
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1758
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 2, numElem, srcStart, srcStride, &
 
1759
      newLower, result)
 
1760
  end subroutine slice24_p
 
1761
 
 
1762
  subroutine slice34_p(src, numElem, srcStart, srcStride, newLower, result)
 
1763
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: src
 
1764
    integer (kind=sidl_int), dimension(4), intent(in) :: numElem
 
1765
    integer (kind=sidl_int), dimension(4), intent(in) :: srcStart, srcStride
 
1766
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: result
 
1767
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1768
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1769
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 3, numElem, srcStart, srcStride, &
 
1770
      newLower, result)
 
1771
  end subroutine slice34_p
 
1772
 
 
1773
  subroutine slice44_p(src, numElem, srcStart, srcStride, newLower, result)
 
1774
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: src
 
1775
    integer (kind=sidl_int), dimension(4), intent(in) :: numElem
 
1776
    integer (kind=sidl_int), dimension(4), intent(in) :: srcStart, srcStride
 
1777
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: result
 
1778
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1779
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1780
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 4, numElem, srcStart, srcStride, &
 
1781
      newLower, result)
 
1782
  end subroutine slice44_p
 
1783
 
 
1784
  subroutine getg4_p(array, index, value)
 
1785
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1786
    integer (kind=sidl_int), intent(in), dimension(4) :: index
 
1787
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
1788
    external Instance_ary_gets490kjs34k2ft_m
 
1789
    call Instance_ary_gets490kjs34k2ft_m(array, index, value)
 
1790
  end subroutine getg4_p
 
1791
 
 
1792
  subroutine setg4_p(array, index, value)
 
1793
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1794
    integer (kind=sidl_int), intent(in), dimension(4) :: index
 
1795
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
1796
    external Instance_ary_seta0to2a4_ekbd0_m
 
1797
    call Instance_ary_seta0to2a4_ekbd0_m(array, index, value)
 
1798
  end subroutine setg4_p
 
1799
 
 
1800
  subroutine get4_p(array, &
 
1801
      i1, &
 
1802
      i2, &
 
1803
      i3, &
 
1804
      i4, &
 
1805
      value)
 
1806
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1807
    integer (kind=sidl_int), intent(in) :: i1
 
1808
    integer (kind=sidl_int), intent(in) :: i2
 
1809
    integer (kind=sidl_int), intent(in) :: i3
 
1810
    integer (kind=sidl_int), intent(in) :: i4
 
1811
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
1812
    external Instanc_ary_get49e4xg60hyu7ev_m
 
1813
    call Instanc_ary_get49e4xg60hyu7ev_m(array, &
 
1814
      i1, &
 
1815
      i2, &
 
1816
      i3, &
 
1817
      i4, &
 
1818
      value)
 
1819
  end subroutine get4_p
 
1820
 
 
1821
  subroutine set4_p(array, &
 
1822
      i1, &
 
1823
      i2, &
 
1824
      i3, &
 
1825
      i4, &
 
1826
      value)
 
1827
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1828
    integer (kind=sidl_int), intent(in) :: i1
 
1829
    integer (kind=sidl_int), intent(in) :: i2
 
1830
    integer (kind=sidl_int), intent(in) :: i3
 
1831
    integer (kind=sidl_int), intent(in) :: i4
 
1832
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
1833
    external Instanc_ary_set459856181f3j4t_m
 
1834
    call Instanc_ary_set459856181f3j4t_m(array, &
 
1835
      i1, &
 
1836
      i2, &
 
1837
      i3, &
 
1838
      i4, &
 
1839
      value)
 
1840
  end subroutine set4_p
 
1841
 
 
1842
  subroutine smartCopy4_p(src, dest)
 
1843
    type(sidl_rmi_InstanceHandle_4d), intent(in) :: src
 
1844
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: dest
 
1845
    integer(sidl_int) :: dim
 
1846
    external In_ary_smartCopy3n08hea3bkqb__m
 
1847
    dim = 4
 
1848
    call In_ary_smartCopy3n08hea3bkqb__m(src, 4, dest)
 
1849
  end subroutine smartCopy4_p
 
1850
 
 
1851
  logical function  isColumnOrder4_p(array)
 
1852
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1853
    external ary_isColumnOrderrc71jykyd_it_m
 
1854
    call ary_isColumnOrderrc71jykyd_it_m(array, isColumnOrder4_p)
 
1855
  end function isColumnOrder4_p
 
1856
 
 
1857
  logical function  isRowOrder4_p(array)
 
1858
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1859
    external I_ary_isRowOrderr5dqy6njtda60_m
 
1860
    call I_ary_isRowOrderr5dqy6njtda60_m(array, isRowOrder4_p)
 
1861
  end function isRowOrder4_p
 
1862
 
 
1863
  integer (kind=sidl_int) function  dimen4_p(array)
 
1864
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1865
    external Instan_ary_dimeny3t1whwziwhcu_m
 
1866
    call Instan_ary_dimeny3t1whwziwhcu_m(array, dimen4_p)
 
1867
  end function dimen4_p
 
1868
 
 
1869
  integer (kind=sidl_int) function  stride4_p(array, index)
 
1870
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1871
    integer (kind=sidl_int), intent(in) :: index
 
1872
    external Insta_ary_stride2dyy0gm91ztec_m
 
1873
    call Insta_ary_stride2dyy0gm91ztec_m(array, index, stride4_p)
 
1874
  end function stride4_p
 
1875
 
 
1876
  integer (kind=sidl_int) function  lower4_p(array, index)
 
1877
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1878
    integer (kind=sidl_int), intent(in) :: index
 
1879
    external Instan_ary_lowerw6myk0cwh_00a_m
 
1880
    call Instan_ary_lowerw6myk0cwh_00a_m(array, index, lower4_p)
 
1881
  end function lower4_p
 
1882
 
 
1883
  integer (kind=sidl_int) function  upper4_p(array, index)
 
1884
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1885
    integer (kind=sidl_int), intent(in) :: index
 
1886
    external Instan_ary_upperetvtmqie2wu2f_m
 
1887
    call Instan_ary_upperetvtmqie2wu2f_m(array, index, upper4_p)
 
1888
  end function upper4_p
 
1889
 
 
1890
  integer (kind=sidl_int) function  length4_p(array, index)
 
1891
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1892
    integer (kind=sidl_int), intent(in) :: index
 
1893
    external Insta_ary_lengthzvkxy8iui7d1l_m
 
1894
    call Insta_ary_lengthzvkxy8iui7d1l_m(array, index, length4_p)
 
1895
  end function length4_p
 
1896
 
 
1897
  subroutine  addRef4_p(array)
 
1898
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1899
    external Insta_ary_addRefwuote493cfmdz_m
 
1900
    call Insta_ary_addRefwuote493cfmdz_m(array)
 
1901
  end subroutine addRef4_p
 
1902
 
 
1903
  subroutine  deleteRef4_p(array)
 
1904
    type(sidl_rmi_InstanceHandle_4d), intent(in)  :: array
 
1905
    external In_ary_deleteRefg43l66oovz61u_m
 
1906
    call In_ary_deleteRefg43l66oovz61u_m(array)
 
1907
  end subroutine deleteRef4_p
 
1908
 
 
1909
  logical function is_null4_p(array)
 
1910
    type(sidl_rmi_InstanceHandle_4d), intent(in) :: array
 
1911
    is_null4_p = (array%d_array .eq. 0)
 
1912
  end function is_null4_p
 
1913
 
 
1914
  logical function not_null4_p(array)
 
1915
    type(sidl_rmi_InstanceHandle_4d), intent(in) :: array
 
1916
    not_null4_p = (array%d_array .ne. 0)
 
1917
  end function not_null4_p
 
1918
 
 
1919
  subroutine set_null4_p(array)
 
1920
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: array
 
1921
    array%d_array = 0
 
1922
  end subroutine set_null4_p
 
1923
 
 
1924
  ! 
 
1925
  ! The size of lower determines the dimension of the
 
1926
  ! array.
 
1927
  ! 
 
1928
 
 
1929
  subroutine createCol5_p(lower, upper, array)
 
1930
    integer (kind=sidl_int), dimension(5), intent(in) :: lower
 
1931
    integer (kind=sidl_int), dimension(5), intent(in) :: upper
 
1932
    type(sidl_rmi_InstanceHandle_5d), intent(out) :: array
 
1933
    external In_ary_createCol503hal19nhswj_m
 
1934
    call In_ary_createCol503hal19nhswj_m(5, lower, upper, array)
 
1935
  end subroutine createCol5_p
 
1936
 
 
1937
  ! 
 
1938
  ! The size of lower determines the dimension of the
 
1939
  ! array.
 
1940
  ! 
 
1941
 
 
1942
  subroutine createRow5_p(lower, upper, array)
 
1943
    integer (kind=sidl_int), dimension(5), intent(in) :: lower
 
1944
    integer (kind=sidl_int), dimension(5), intent(in) :: upper
 
1945
    type(sidl_rmi_InstanceHandle_5d), intent(out) :: array
 
1946
    external In_ary_createRown3r51s1xwjq3y_m
 
1947
    call In_ary_createRown3r51s1xwjq3y_m(5, lower, upper, array)
 
1948
  end subroutine createRow5_p
 
1949
 
 
1950
  subroutine copy5_p(src, dest)
 
1951
    type(sidl_rmi_InstanceHandle_5d), intent(in) :: src
 
1952
    type(sidl_rmi_InstanceHandle_5d), intent(in) :: dest
 
1953
    external Instanc_ary_copy74exzcflpha8u_m
 
1954
    call Instanc_ary_copy74exzcflpha8u_m(src, dest)
 
1955
  end subroutine copy5_p
 
1956
 
 
1957
  subroutine ensure5_p(src, dim, ordering, result)
 
1958
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: src
 
1959
    type(sidl_rmi_InstanceHandle_5d), intent(out) :: result
 
1960
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
1961
    external Insta_ary_ensurendmj64t5zsuug_m
 
1962
    call Insta_ary_ensurendmj64t5zsuug_m(src, 5, ordering, result)
 
1963
  end subroutine ensure5_p
 
1964
 
 
1965
  subroutine slice15_p(src, numElem, srcStart, srcStride, newLower, result)
 
1966
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: src
 
1967
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
1968
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
1969
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: result
 
1970
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1971
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1972
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 1, numElem, srcStart, srcStride, &
 
1973
      newLower, result)
 
1974
  end subroutine slice15_p
 
1975
 
 
1976
  subroutine slice25_p(src, numElem, srcStart, srcStride, newLower, result)
 
1977
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: src
 
1978
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
1979
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
1980
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: result
 
1981
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1982
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1983
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 2, numElem, srcStart, srcStride, &
 
1984
      newLower, result)
 
1985
  end subroutine slice25_p
 
1986
 
 
1987
  subroutine slice35_p(src, numElem, srcStart, srcStride, newLower, result)
 
1988
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: src
 
1989
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
1990
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
1991
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: result
 
1992
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
1993
    external Instan_ary_slice1vc27u0c_r8pu_m
 
1994
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 3, numElem, srcStart, srcStride, &
 
1995
      newLower, result)
 
1996
  end subroutine slice35_p
 
1997
 
 
1998
  subroutine slice45_p(src, numElem, srcStart, srcStride, newLower, result)
 
1999
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: src
 
2000
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
2001
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
2002
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: result
 
2003
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2004
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2005
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 4, numElem, srcStart, srcStride, &
 
2006
      newLower, result)
 
2007
  end subroutine slice45_p
 
2008
 
 
2009
  subroutine slice55_p(src, numElem, srcStart, srcStride, newLower, result)
 
2010
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: src
 
2011
    integer (kind=sidl_int), dimension(5), intent(in) :: numElem
 
2012
    integer (kind=sidl_int), dimension(5), intent(in) :: srcStart, srcStride
 
2013
    type(sidl_rmi_InstanceHandle_5d), intent(out) :: result
 
2014
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2015
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2016
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 5, numElem, srcStart, srcStride, &
 
2017
      newLower, result)
 
2018
  end subroutine slice55_p
 
2019
 
 
2020
  subroutine getg5_p(array, index, value)
 
2021
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2022
    integer (kind=sidl_int), intent(in), dimension(5) :: index
 
2023
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
2024
    external Instance_ary_gets490kjs34k2ft_m
 
2025
    call Instance_ary_gets490kjs34k2ft_m(array, index, value)
 
2026
  end subroutine getg5_p
 
2027
 
 
2028
  subroutine setg5_p(array, index, value)
 
2029
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2030
    integer (kind=sidl_int), intent(in), dimension(5) :: index
 
2031
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
2032
    external Instance_ary_seta0to2a4_ekbd0_m
 
2033
    call Instance_ary_seta0to2a4_ekbd0_m(array, index, value)
 
2034
  end subroutine setg5_p
 
2035
 
 
2036
  subroutine get5_p(array, &
 
2037
      i1, &
 
2038
      i2, &
 
2039
      i3, &
 
2040
      i4, &
 
2041
      i5, &
 
2042
      value)
 
2043
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2044
    integer (kind=sidl_int), intent(in) :: i1
 
2045
    integer (kind=sidl_int), intent(in) :: i2
 
2046
    integer (kind=sidl_int), intent(in) :: i3
 
2047
    integer (kind=sidl_int), intent(in) :: i4
 
2048
    integer (kind=sidl_int), intent(in) :: i5
 
2049
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
2050
    external Instanc_ary_get5xmg31u40oy6ii_m
 
2051
    call Instanc_ary_get5xmg31u40oy6ii_m(array, &
 
2052
      i1, &
 
2053
      i2, &
 
2054
      i3, &
 
2055
      i4, &
 
2056
      i5, &
 
2057
      value)
 
2058
  end subroutine get5_p
 
2059
 
 
2060
  subroutine set5_p(array, &
 
2061
      i1, &
 
2062
      i2, &
 
2063
      i3, &
 
2064
      i4, &
 
2065
      i5, &
 
2066
      value)
 
2067
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2068
    integer (kind=sidl_int), intent(in) :: i1
 
2069
    integer (kind=sidl_int), intent(in) :: i2
 
2070
    integer (kind=sidl_int), intent(in) :: i3
 
2071
    integer (kind=sidl_int), intent(in) :: i4
 
2072
    integer (kind=sidl_int), intent(in) :: i5
 
2073
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
2074
    external Instanc_ary_set5sxgl7hqo5ldln_m
 
2075
    call Instanc_ary_set5sxgl7hqo5ldln_m(array, &
 
2076
      i1, &
 
2077
      i2, &
 
2078
      i3, &
 
2079
      i4, &
 
2080
      i5, &
 
2081
      value)
 
2082
  end subroutine set5_p
 
2083
 
 
2084
  subroutine smartCopy5_p(src, dest)
 
2085
    type(sidl_rmi_InstanceHandle_5d), intent(in) :: src
 
2086
    type(sidl_rmi_InstanceHandle_5d), intent(out) :: dest
 
2087
    integer(sidl_int) :: dim
 
2088
    external In_ary_smartCopy3n08hea3bkqb__m
 
2089
    dim = 5
 
2090
    call In_ary_smartCopy3n08hea3bkqb__m(src, 5, dest)
 
2091
  end subroutine smartCopy5_p
 
2092
 
 
2093
  logical function  isColumnOrder5_p(array)
 
2094
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2095
    external ary_isColumnOrderrc71jykyd_it_m
 
2096
    call ary_isColumnOrderrc71jykyd_it_m(array, isColumnOrder5_p)
 
2097
  end function isColumnOrder5_p
 
2098
 
 
2099
  logical function  isRowOrder5_p(array)
 
2100
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2101
    external I_ary_isRowOrderr5dqy6njtda60_m
 
2102
    call I_ary_isRowOrderr5dqy6njtda60_m(array, isRowOrder5_p)
 
2103
  end function isRowOrder5_p
 
2104
 
 
2105
  integer (kind=sidl_int) function  dimen5_p(array)
 
2106
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2107
    external Instan_ary_dimeny3t1whwziwhcu_m
 
2108
    call Instan_ary_dimeny3t1whwziwhcu_m(array, dimen5_p)
 
2109
  end function dimen5_p
 
2110
 
 
2111
  integer (kind=sidl_int) function  stride5_p(array, index)
 
2112
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2113
    integer (kind=sidl_int), intent(in) :: index
 
2114
    external Insta_ary_stride2dyy0gm91ztec_m
 
2115
    call Insta_ary_stride2dyy0gm91ztec_m(array, index, stride5_p)
 
2116
  end function stride5_p
 
2117
 
 
2118
  integer (kind=sidl_int) function  lower5_p(array, index)
 
2119
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2120
    integer (kind=sidl_int), intent(in) :: index
 
2121
    external Instan_ary_lowerw6myk0cwh_00a_m
 
2122
    call Instan_ary_lowerw6myk0cwh_00a_m(array, index, lower5_p)
 
2123
  end function lower5_p
 
2124
 
 
2125
  integer (kind=sidl_int) function  upper5_p(array, index)
 
2126
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2127
    integer (kind=sidl_int), intent(in) :: index
 
2128
    external Instan_ary_upperetvtmqie2wu2f_m
 
2129
    call Instan_ary_upperetvtmqie2wu2f_m(array, index, upper5_p)
 
2130
  end function upper5_p
 
2131
 
 
2132
  integer (kind=sidl_int) function  length5_p(array, index)
 
2133
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2134
    integer (kind=sidl_int), intent(in) :: index
 
2135
    external Insta_ary_lengthzvkxy8iui7d1l_m
 
2136
    call Insta_ary_lengthzvkxy8iui7d1l_m(array, index, length5_p)
 
2137
  end function length5_p
 
2138
 
 
2139
  subroutine  addRef5_p(array)
 
2140
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2141
    external Insta_ary_addRefwuote493cfmdz_m
 
2142
    call Insta_ary_addRefwuote493cfmdz_m(array)
 
2143
  end subroutine addRef5_p
 
2144
 
 
2145
  subroutine  deleteRef5_p(array)
 
2146
    type(sidl_rmi_InstanceHandle_5d), intent(in)  :: array
 
2147
    external In_ary_deleteRefg43l66oovz61u_m
 
2148
    call In_ary_deleteRefg43l66oovz61u_m(array)
 
2149
  end subroutine deleteRef5_p
 
2150
 
 
2151
  logical function is_null5_p(array)
 
2152
    type(sidl_rmi_InstanceHandle_5d), intent(in) :: array
 
2153
    is_null5_p = (array%d_array .eq. 0)
 
2154
  end function is_null5_p
 
2155
 
 
2156
  logical function not_null5_p(array)
 
2157
    type(sidl_rmi_InstanceHandle_5d), intent(in) :: array
 
2158
    not_null5_p = (array%d_array .ne. 0)
 
2159
  end function not_null5_p
 
2160
 
 
2161
  subroutine set_null5_p(array)
 
2162
    type(sidl_rmi_InstanceHandle_5d), intent(out) :: array
 
2163
    array%d_array = 0
 
2164
  end subroutine set_null5_p
 
2165
 
 
2166
  ! 
 
2167
  ! The size of lower determines the dimension of the
 
2168
  ! array.
 
2169
  ! 
 
2170
 
 
2171
  subroutine createCol6_p(lower, upper, array)
 
2172
    integer (kind=sidl_int), dimension(6), intent(in) :: lower
 
2173
    integer (kind=sidl_int), dimension(6), intent(in) :: upper
 
2174
    type(sidl_rmi_InstanceHandle_6d), intent(out) :: array
 
2175
    external In_ary_createCol503hal19nhswj_m
 
2176
    call In_ary_createCol503hal19nhswj_m(6, lower, upper, array)
 
2177
  end subroutine createCol6_p
 
2178
 
 
2179
  ! 
 
2180
  ! The size of lower determines the dimension of the
 
2181
  ! array.
 
2182
  ! 
 
2183
 
 
2184
  subroutine createRow6_p(lower, upper, array)
 
2185
    integer (kind=sidl_int), dimension(6), intent(in) :: lower
 
2186
    integer (kind=sidl_int), dimension(6), intent(in) :: upper
 
2187
    type(sidl_rmi_InstanceHandle_6d), intent(out) :: array
 
2188
    external In_ary_createRown3r51s1xwjq3y_m
 
2189
    call In_ary_createRown3r51s1xwjq3y_m(6, lower, upper, array)
 
2190
  end subroutine createRow6_p
 
2191
 
 
2192
  subroutine copy6_p(src, dest)
 
2193
    type(sidl_rmi_InstanceHandle_6d), intent(in) :: src
 
2194
    type(sidl_rmi_InstanceHandle_6d), intent(in) :: dest
 
2195
    external Instanc_ary_copy74exzcflpha8u_m
 
2196
    call Instanc_ary_copy74exzcflpha8u_m(src, dest)
 
2197
  end subroutine copy6_p
 
2198
 
 
2199
  subroutine ensure6_p(src, dim, ordering, result)
 
2200
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: src
 
2201
    type(sidl_rmi_InstanceHandle_6d), intent(out) :: result
 
2202
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
2203
    external Insta_ary_ensurendmj64t5zsuug_m
 
2204
    call Insta_ary_ensurendmj64t5zsuug_m(src, 6, ordering, result)
 
2205
  end subroutine ensure6_p
 
2206
 
 
2207
  subroutine slice16_p(src, numElem, srcStart, srcStride, newLower, result)
 
2208
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: src
 
2209
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2210
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2211
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: result
 
2212
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2213
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2214
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 1, numElem, srcStart, srcStride, &
 
2215
      newLower, result)
 
2216
  end subroutine slice16_p
 
2217
 
 
2218
  subroutine slice26_p(src, numElem, srcStart, srcStride, newLower, result)
 
2219
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: src
 
2220
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2221
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2222
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: result
 
2223
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2224
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2225
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 2, numElem, srcStart, srcStride, &
 
2226
      newLower, result)
 
2227
  end subroutine slice26_p
 
2228
 
 
2229
  subroutine slice36_p(src, numElem, srcStart, srcStride, newLower, result)
 
2230
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: src
 
2231
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2232
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2233
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: result
 
2234
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2235
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2236
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 3, numElem, srcStart, srcStride, &
 
2237
      newLower, result)
 
2238
  end subroutine slice36_p
 
2239
 
 
2240
  subroutine slice46_p(src, numElem, srcStart, srcStride, newLower, result)
 
2241
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: src
 
2242
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2243
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2244
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: result
 
2245
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2246
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2247
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 4, numElem, srcStart, srcStride, &
 
2248
      newLower, result)
 
2249
  end subroutine slice46_p
 
2250
 
 
2251
  subroutine slice56_p(src, numElem, srcStart, srcStride, newLower, result)
 
2252
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: src
 
2253
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2254
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2255
    type(sidl_rmi_InstanceHandle_5d), intent(out) :: result
 
2256
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2257
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2258
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 5, numElem, srcStart, srcStride, &
 
2259
      newLower, result)
 
2260
  end subroutine slice56_p
 
2261
 
 
2262
  subroutine slice66_p(src, numElem, srcStart, srcStride, newLower, result)
 
2263
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: src
 
2264
    integer (kind=sidl_int), dimension(6), intent(in) :: numElem
 
2265
    integer (kind=sidl_int), dimension(6), intent(in) :: srcStart, srcStride
 
2266
    type(sidl_rmi_InstanceHandle_6d), intent(out) :: result
 
2267
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2268
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2269
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 6, numElem, srcStart, srcStride, &
 
2270
      newLower, result)
 
2271
  end subroutine slice66_p
 
2272
 
 
2273
  subroutine getg6_p(array, index, value)
 
2274
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2275
    integer (kind=sidl_int), intent(in), dimension(6) :: index
 
2276
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
2277
    external Instance_ary_gets490kjs34k2ft_m
 
2278
    call Instance_ary_gets490kjs34k2ft_m(array, index, value)
 
2279
  end subroutine getg6_p
 
2280
 
 
2281
  subroutine setg6_p(array, index, value)
 
2282
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2283
    integer (kind=sidl_int), intent(in), dimension(6) :: index
 
2284
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
2285
    external Instance_ary_seta0to2a4_ekbd0_m
 
2286
    call Instance_ary_seta0to2a4_ekbd0_m(array, index, value)
 
2287
  end subroutine setg6_p
 
2288
 
 
2289
  subroutine get6_p(array, &
 
2290
      i1, &
 
2291
      i2, &
 
2292
      i3, &
 
2293
      i4, &
 
2294
      i5, &
 
2295
      i6, &
 
2296
      value)
 
2297
    type(sidl_rmi_InstanceHandle_6d), 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
    integer (kind=sidl_int), intent(in) :: i5
 
2303
    integer (kind=sidl_int), intent(in) :: i6
 
2304
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
2305
    external Instanc_ary_get6mq9ml65qlepyn_m
 
2306
    call Instanc_ary_get6mq9ml65qlepyn_m(array, &
 
2307
      i1, &
 
2308
      i2, &
 
2309
      i3, &
 
2310
      i4, &
 
2311
      i5, &
 
2312
      i6, &
 
2313
      value)
 
2314
  end subroutine get6_p
 
2315
 
 
2316
  subroutine set6_p(array, &
 
2317
      i1, &
 
2318
      i2, &
 
2319
      i3, &
 
2320
      i4, &
 
2321
      i5, &
 
2322
      i6, &
 
2323
      value)
 
2324
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2325
    integer (kind=sidl_int), intent(in) :: i1
 
2326
    integer (kind=sidl_int), intent(in) :: i2
 
2327
    integer (kind=sidl_int), intent(in) :: i3
 
2328
    integer (kind=sidl_int), intent(in) :: i4
 
2329
    integer (kind=sidl_int), intent(in) :: i5
 
2330
    integer (kind=sidl_int), intent(in) :: i6
 
2331
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
2332
    external Instanc_ary_set6dfsebwmt4sp53_m
 
2333
    call Instanc_ary_set6dfsebwmt4sp53_m(array, &
 
2334
      i1, &
 
2335
      i2, &
 
2336
      i3, &
 
2337
      i4, &
 
2338
      i5, &
 
2339
      i6, &
 
2340
      value)
 
2341
  end subroutine set6_p
 
2342
 
 
2343
  subroutine smartCopy6_p(src, dest)
 
2344
    type(sidl_rmi_InstanceHandle_6d), intent(in) :: src
 
2345
    type(sidl_rmi_InstanceHandle_6d), intent(out) :: dest
 
2346
    integer(sidl_int) :: dim
 
2347
    external In_ary_smartCopy3n08hea3bkqb__m
 
2348
    dim = 6
 
2349
    call In_ary_smartCopy3n08hea3bkqb__m(src, 6, dest)
 
2350
  end subroutine smartCopy6_p
 
2351
 
 
2352
  logical function  isColumnOrder6_p(array)
 
2353
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2354
    external ary_isColumnOrderrc71jykyd_it_m
 
2355
    call ary_isColumnOrderrc71jykyd_it_m(array, isColumnOrder6_p)
 
2356
  end function isColumnOrder6_p
 
2357
 
 
2358
  logical function  isRowOrder6_p(array)
 
2359
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2360
    external I_ary_isRowOrderr5dqy6njtda60_m
 
2361
    call I_ary_isRowOrderr5dqy6njtda60_m(array, isRowOrder6_p)
 
2362
  end function isRowOrder6_p
 
2363
 
 
2364
  integer (kind=sidl_int) function  dimen6_p(array)
 
2365
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2366
    external Instan_ary_dimeny3t1whwziwhcu_m
 
2367
    call Instan_ary_dimeny3t1whwziwhcu_m(array, dimen6_p)
 
2368
  end function dimen6_p
 
2369
 
 
2370
  integer (kind=sidl_int) function  stride6_p(array, index)
 
2371
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2372
    integer (kind=sidl_int), intent(in) :: index
 
2373
    external Insta_ary_stride2dyy0gm91ztec_m
 
2374
    call Insta_ary_stride2dyy0gm91ztec_m(array, index, stride6_p)
 
2375
  end function stride6_p
 
2376
 
 
2377
  integer (kind=sidl_int) function  lower6_p(array, index)
 
2378
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2379
    integer (kind=sidl_int), intent(in) :: index
 
2380
    external Instan_ary_lowerw6myk0cwh_00a_m
 
2381
    call Instan_ary_lowerw6myk0cwh_00a_m(array, index, lower6_p)
 
2382
  end function lower6_p
 
2383
 
 
2384
  integer (kind=sidl_int) function  upper6_p(array, index)
 
2385
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2386
    integer (kind=sidl_int), intent(in) :: index
 
2387
    external Instan_ary_upperetvtmqie2wu2f_m
 
2388
    call Instan_ary_upperetvtmqie2wu2f_m(array, index, upper6_p)
 
2389
  end function upper6_p
 
2390
 
 
2391
  integer (kind=sidl_int) function  length6_p(array, index)
 
2392
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2393
    integer (kind=sidl_int), intent(in) :: index
 
2394
    external Insta_ary_lengthzvkxy8iui7d1l_m
 
2395
    call Insta_ary_lengthzvkxy8iui7d1l_m(array, index, length6_p)
 
2396
  end function length6_p
 
2397
 
 
2398
  subroutine  addRef6_p(array)
 
2399
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2400
    external Insta_ary_addRefwuote493cfmdz_m
 
2401
    call Insta_ary_addRefwuote493cfmdz_m(array)
 
2402
  end subroutine addRef6_p
 
2403
 
 
2404
  subroutine  deleteRef6_p(array)
 
2405
    type(sidl_rmi_InstanceHandle_6d), intent(in)  :: array
 
2406
    external In_ary_deleteRefg43l66oovz61u_m
 
2407
    call In_ary_deleteRefg43l66oovz61u_m(array)
 
2408
  end subroutine deleteRef6_p
 
2409
 
 
2410
  logical function is_null6_p(array)
 
2411
    type(sidl_rmi_InstanceHandle_6d), intent(in) :: array
 
2412
    is_null6_p = (array%d_array .eq. 0)
 
2413
  end function is_null6_p
 
2414
 
 
2415
  logical function not_null6_p(array)
 
2416
    type(sidl_rmi_InstanceHandle_6d), intent(in) :: array
 
2417
    not_null6_p = (array%d_array .ne. 0)
 
2418
  end function not_null6_p
 
2419
 
 
2420
  subroutine set_null6_p(array)
 
2421
    type(sidl_rmi_InstanceHandle_6d), intent(out) :: array
 
2422
    array%d_array = 0
 
2423
  end subroutine set_null6_p
 
2424
 
 
2425
  ! 
 
2426
  ! The size of lower determines the dimension of the
 
2427
  ! array.
 
2428
  ! 
 
2429
 
 
2430
  subroutine createCol7_p(lower, upper, array)
 
2431
    integer (kind=sidl_int), dimension(7), intent(in) :: lower
 
2432
    integer (kind=sidl_int), dimension(7), intent(in) :: upper
 
2433
    type(sidl_rmi_InstanceHandle_7d), intent(out) :: array
 
2434
    external In_ary_createCol503hal19nhswj_m
 
2435
    call In_ary_createCol503hal19nhswj_m(7, lower, upper, array)
 
2436
  end subroutine createCol7_p
 
2437
 
 
2438
  ! 
 
2439
  ! The size of lower determines the dimension of the
 
2440
  ! array.
 
2441
  ! 
 
2442
 
 
2443
  subroutine createRow7_p(lower, upper, array)
 
2444
    integer (kind=sidl_int), dimension(7), intent(in) :: lower
 
2445
    integer (kind=sidl_int), dimension(7), intent(in) :: upper
 
2446
    type(sidl_rmi_InstanceHandle_7d), intent(out) :: array
 
2447
    external In_ary_createRown3r51s1xwjq3y_m
 
2448
    call In_ary_createRown3r51s1xwjq3y_m(7, lower, upper, array)
 
2449
  end subroutine createRow7_p
 
2450
 
 
2451
  subroutine copy7_p(src, dest)
 
2452
    type(sidl_rmi_InstanceHandle_7d), intent(in) :: src
 
2453
    type(sidl_rmi_InstanceHandle_7d), intent(in) :: dest
 
2454
    external Instanc_ary_copy74exzcflpha8u_m
 
2455
    call Instanc_ary_copy74exzcflpha8u_m(src, dest)
 
2456
  end subroutine copy7_p
 
2457
 
 
2458
  subroutine ensure7_p(src, dim, ordering, result)
 
2459
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: src
 
2460
    type(sidl_rmi_InstanceHandle_7d), intent(out) :: result
 
2461
    integer (kind=sidl_int), intent(in) :: dim, ordering
 
2462
    external Insta_ary_ensurendmj64t5zsuug_m
 
2463
    call Insta_ary_ensurendmj64t5zsuug_m(src, 7, ordering, result)
 
2464
  end subroutine ensure7_p
 
2465
 
 
2466
  subroutine slice17_p(src, numElem, srcStart, srcStride, newLower, result)
 
2467
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: src
 
2468
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2469
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2470
    type(sidl_rmi_InstanceHandle_1d), intent(out) :: result
 
2471
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2472
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2473
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 1, numElem, srcStart, srcStride, &
 
2474
      newLower, result)
 
2475
  end subroutine slice17_p
 
2476
 
 
2477
  subroutine slice27_p(src, numElem, srcStart, srcStride, newLower, result)
 
2478
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: src
 
2479
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2480
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2481
    type(sidl_rmi_InstanceHandle_2d), intent(out) :: result
 
2482
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2483
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2484
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 2, numElem, srcStart, srcStride, &
 
2485
      newLower, result)
 
2486
  end subroutine slice27_p
 
2487
 
 
2488
  subroutine slice37_p(src, numElem, srcStart, srcStride, newLower, result)
 
2489
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: src
 
2490
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2491
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2492
    type(sidl_rmi_InstanceHandle_3d), intent(out) :: result
 
2493
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2494
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2495
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 3, numElem, srcStart, srcStride, &
 
2496
      newLower, result)
 
2497
  end subroutine slice37_p
 
2498
 
 
2499
  subroutine slice47_p(src, numElem, srcStart, srcStride, newLower, result)
 
2500
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: src
 
2501
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2502
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2503
    type(sidl_rmi_InstanceHandle_4d), intent(out) :: result
 
2504
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2505
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2506
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 4, numElem, srcStart, srcStride, &
 
2507
      newLower, result)
 
2508
  end subroutine slice47_p
 
2509
 
 
2510
  subroutine slice57_p(src, numElem, srcStart, srcStride, newLower, result)
 
2511
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: src
 
2512
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2513
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2514
    type(sidl_rmi_InstanceHandle_5d), intent(out) :: result
 
2515
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2516
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2517
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 5, numElem, srcStart, srcStride, &
 
2518
      newLower, result)
 
2519
  end subroutine slice57_p
 
2520
 
 
2521
  subroutine slice67_p(src, numElem, srcStart, srcStride, newLower, result)
 
2522
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: src
 
2523
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2524
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2525
    type(sidl_rmi_InstanceHandle_6d), intent(out) :: result
 
2526
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2527
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2528
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 6, numElem, srcStart, srcStride, &
 
2529
      newLower, result)
 
2530
  end subroutine slice67_p
 
2531
 
 
2532
  subroutine slice77_p(src, numElem, srcStart, srcStride, newLower, result)
 
2533
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: src
 
2534
    integer (kind=sidl_int), dimension(7), intent(in) :: numElem
 
2535
    integer (kind=sidl_int), dimension(7), intent(in) :: srcStart, srcStride
 
2536
    type(sidl_rmi_InstanceHandle_7d), intent(out) :: result
 
2537
    integer (kind=sidl_int), dimension(:), intent(in) :: newLower
 
2538
    external Instan_ary_slice1vc27u0c_r8pu_m
 
2539
    call Instan_ary_slice1vc27u0c_r8pu_m(src, 7, numElem, srcStart, srcStride, &
 
2540
      newLower, result)
 
2541
  end subroutine slice77_p
 
2542
 
 
2543
  subroutine getg7_p(array, index, value)
 
2544
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2545
    integer (kind=sidl_int), intent(in), dimension(7) :: index
 
2546
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
2547
    external Instance_ary_gets490kjs34k2ft_m
 
2548
    call Instance_ary_gets490kjs34k2ft_m(array, index, value)
 
2549
  end subroutine getg7_p
 
2550
 
 
2551
  subroutine setg7_p(array, index, value)
 
2552
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2553
    integer (kind=sidl_int), intent(in), dimension(7) :: index
 
2554
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
2555
    external Instance_ary_seta0to2a4_ekbd0_m
 
2556
    call Instance_ary_seta0to2a4_ekbd0_m(array, index, value)
 
2557
  end subroutine setg7_p
 
2558
 
 
2559
  subroutine get7_p(array, &
 
2560
      i1, &
 
2561
      i2, &
 
2562
      i3, &
 
2563
      i4, &
 
2564
      i5, &
 
2565
      i6, &
 
2566
      i7, &
 
2567
      value)
 
2568
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2569
    integer (kind=sidl_int), intent(in) :: i1
 
2570
    integer (kind=sidl_int), intent(in) :: i2
 
2571
    integer (kind=sidl_int), intent(in) :: i3
 
2572
    integer (kind=sidl_int), intent(in) :: i4
 
2573
    integer (kind=sidl_int), intent(in) :: i5
 
2574
    integer (kind=sidl_int), intent(in) :: i6
 
2575
    integer (kind=sidl_int), intent(in) :: i7
 
2576
    type(sidl_rmi_InstanceHandle_t), intent(out) :: value
 
2577
    external Instanc_ary_get7efdua8p1kpya1_m
 
2578
    call Instanc_ary_get7efdua8p1kpya1_m(array, &
 
2579
      i1, &
 
2580
      i2, &
 
2581
      i3, &
 
2582
      i4, &
 
2583
      i5, &
 
2584
      i6, &
 
2585
      i7, &
 
2586
      value)
 
2587
  end subroutine get7_p
 
2588
 
 
2589
  subroutine set7_p(array, &
 
2590
      i1, &
 
2591
      i2, &
 
2592
      i3, &
 
2593
      i4, &
 
2594
      i5, &
 
2595
      i6, &
 
2596
      i7, &
 
2597
      value)
 
2598
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2599
    integer (kind=sidl_int), intent(in) :: i1
 
2600
    integer (kind=sidl_int), intent(in) :: i2
 
2601
    integer (kind=sidl_int), intent(in) :: i3
 
2602
    integer (kind=sidl_int), intent(in) :: i4
 
2603
    integer (kind=sidl_int), intent(in) :: i5
 
2604
    integer (kind=sidl_int), intent(in) :: i6
 
2605
    integer (kind=sidl_int), intent(in) :: i7
 
2606
    type(sidl_rmi_InstanceHandle_t), intent(in) :: value
 
2607
    external Instanc_ary_set7as_1zftdn9l01_m
 
2608
    call Instanc_ary_set7as_1zftdn9l01_m(array, &
 
2609
      i1, &
 
2610
      i2, &
 
2611
      i3, &
 
2612
      i4, &
 
2613
      i5, &
 
2614
      i6, &
 
2615
      i7, &
 
2616
      value)
 
2617
  end subroutine set7_p
 
2618
 
 
2619
  subroutine smartCopy7_p(src, dest)
 
2620
    type(sidl_rmi_InstanceHandle_7d), intent(in) :: src
 
2621
    type(sidl_rmi_InstanceHandle_7d), intent(out) :: dest
 
2622
    integer(sidl_int) :: dim
 
2623
    external In_ary_smartCopy3n08hea3bkqb__m
 
2624
    dim = 7
 
2625
    call In_ary_smartCopy3n08hea3bkqb__m(src, 7, dest)
 
2626
  end subroutine smartCopy7_p
 
2627
 
 
2628
  logical function  isColumnOrder7_p(array)
 
2629
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2630
    external ary_isColumnOrderrc71jykyd_it_m
 
2631
    call ary_isColumnOrderrc71jykyd_it_m(array, isColumnOrder7_p)
 
2632
  end function isColumnOrder7_p
 
2633
 
 
2634
  logical function  isRowOrder7_p(array)
 
2635
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2636
    external I_ary_isRowOrderr5dqy6njtda60_m
 
2637
    call I_ary_isRowOrderr5dqy6njtda60_m(array, isRowOrder7_p)
 
2638
  end function isRowOrder7_p
 
2639
 
 
2640
  integer (kind=sidl_int) function  dimen7_p(array)
 
2641
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2642
    external Instan_ary_dimeny3t1whwziwhcu_m
 
2643
    call Instan_ary_dimeny3t1whwziwhcu_m(array, dimen7_p)
 
2644
  end function dimen7_p
 
2645
 
 
2646
  integer (kind=sidl_int) function  stride7_p(array, index)
 
2647
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2648
    integer (kind=sidl_int), intent(in) :: index
 
2649
    external Insta_ary_stride2dyy0gm91ztec_m
 
2650
    call Insta_ary_stride2dyy0gm91ztec_m(array, index, stride7_p)
 
2651
  end function stride7_p
 
2652
 
 
2653
  integer (kind=sidl_int) function  lower7_p(array, index)
 
2654
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2655
    integer (kind=sidl_int), intent(in) :: index
 
2656
    external Instan_ary_lowerw6myk0cwh_00a_m
 
2657
    call Instan_ary_lowerw6myk0cwh_00a_m(array, index, lower7_p)
 
2658
  end function lower7_p
 
2659
 
 
2660
  integer (kind=sidl_int) function  upper7_p(array, index)
 
2661
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2662
    integer (kind=sidl_int), intent(in) :: index
 
2663
    external Instan_ary_upperetvtmqie2wu2f_m
 
2664
    call Instan_ary_upperetvtmqie2wu2f_m(array, index, upper7_p)
 
2665
  end function upper7_p
 
2666
 
 
2667
  integer (kind=sidl_int) function  length7_p(array, index)
 
2668
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2669
    integer (kind=sidl_int), intent(in) :: index
 
2670
    external Insta_ary_lengthzvkxy8iui7d1l_m
 
2671
    call Insta_ary_lengthzvkxy8iui7d1l_m(array, index, length7_p)
 
2672
  end function length7_p
 
2673
 
 
2674
  subroutine  addRef7_p(array)
 
2675
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2676
    external Insta_ary_addRefwuote493cfmdz_m
 
2677
    call Insta_ary_addRefwuote493cfmdz_m(array)
 
2678
  end subroutine addRef7_p
 
2679
 
 
2680
  subroutine  deleteRef7_p(array)
 
2681
    type(sidl_rmi_InstanceHandle_7d), intent(in)  :: array
 
2682
    external In_ary_deleteRefg43l66oovz61u_m
 
2683
    call In_ary_deleteRefg43l66oovz61u_m(array)
 
2684
  end subroutine deleteRef7_p
 
2685
 
 
2686
  logical function is_null7_p(array)
 
2687
    type(sidl_rmi_InstanceHandle_7d), intent(in) :: array
 
2688
    is_null7_p = (array%d_array .eq. 0)
 
2689
  end function is_null7_p
 
2690
 
 
2691
  logical function not_null7_p(array)
 
2692
    type(sidl_rmi_InstanceHandle_7d), intent(in) :: array
 
2693
    not_null7_p = (array%d_array .ne. 0)
 
2694
  end function not_null7_p
 
2695
 
 
2696
  subroutine set_null7_p(array)
 
2697
    type(sidl_rmi_InstanceHandle_7d), intent(out) :: array
 
2698
    array%d_array = 0
 
2699
  end subroutine set_null7_p
 
2700
 
 
2701
  subroutine castsidl_rmi_Instan0abva2f9r2_p(oldType, newType)
 
2702
    type(sidl__array), intent(out) :: newType
 
2703
    type(sidl_rmi_InstanceHandle_1d), intent(in) :: oldType
 
2704
    newType%d_array = oldType%d_array
 
2705
  end subroutine castsidl_rmi_Instan0abva2f9r2_p
 
2706
 
 
2707
  subroutine castsidl_rmi_Instan_3nmv3wn0v_p(oldType, newType)
 
2708
    type(sidl__array), intent(out) :: newType
 
2709
    type(sidl_rmi_InstanceHandle_2d), intent(in) :: oldType
 
2710
    newType%d_array = oldType%d_array
 
2711
  end subroutine castsidl_rmi_Instan_3nmv3wn0v_p
 
2712
 
 
2713
  subroutine castsidl_rmi_Instanoczhfuccq2_p(oldType, newType)
 
2714
    type(sidl__array), intent(out) :: newType
 
2715
    type(sidl_rmi_InstanceHandle_3d), intent(in) :: oldType
 
2716
    newType%d_array = oldType%d_array
 
2717
  end subroutine castsidl_rmi_Instanoczhfuccq2_p
 
2718
 
 
2719
  subroutine castsidl_rmi_Instan_ikto5mzb2_p(oldType, newType)
 
2720
    type(sidl__array), intent(out) :: newType
 
2721
    type(sidl_rmi_InstanceHandle_4d), intent(in) :: oldType
 
2722
    newType%d_array = oldType%d_array
 
2723
  end subroutine castsidl_rmi_Instan_ikto5mzb2_p
 
2724
 
 
2725
  subroutine castsidl_rmi_Instanllzpvwudrf_p(oldType, newType)
 
2726
    type(sidl__array), intent(out) :: newType
 
2727
    type(sidl_rmi_InstanceHandle_5d), intent(in) :: oldType
 
2728
    newType%d_array = oldType%d_array
 
2729
  end subroutine castsidl_rmi_Instanllzpvwudrf_p
 
2730
 
 
2731
  subroutine castsidl_rmi_Instan90gy8pcgs__p(oldType, newType)
 
2732
    type(sidl__array), intent(out) :: newType
 
2733
    type(sidl_rmi_InstanceHandle_6d), intent(in) :: oldType
 
2734
    newType%d_array = oldType%d_array
 
2735
  end subroutine castsidl_rmi_Instan90gy8pcgs__p
 
2736
 
 
2737
  subroutine castsidl_rmi_Instan74vr3eqwe6_p(oldType, newType)
 
2738
    type(sidl__array), intent(out) :: newType
 
2739
    type(sidl_rmi_InstanceHandle_7d), intent(in) :: oldType
 
2740
    newType%d_array = oldType%d_array
 
2741
  end subroutine castsidl_rmi_Instan74vr3eqwe6_p
 
2742
 
 
2743
 
 
2744
end module sidl_rmi_InstanceHandle_array