Rocstar  1.0
Rocstar multiphysics simulation application
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
roccomf90.h
Go to the documentation of this file.
1 !* *******************************************************************
2 ! * Illinois Open Source License *
3 ! * *
4 ! * University of Illinois/NCSA *
5 ! * Open Source License *
6 ! * *
7 ! * Copyright@2008, University of Illinois. All rights reserved. *
8 ! * *
9 ! * Developed by: *
10 ! * *
11 ! * Center for Simulation of Advanced Rockets *
12 ! * *
13 ! * University of Illinois *
14 ! * *
15 ! * www.csar.uiuc.edu *
16 ! * *
17 ! * Permission is hereby granted, free of charge, to any person *
18 ! * obtaining a copy of this software and associated documentation *
19 ! * files (the "Software"), to deal with the Software without *
20 ! * restriction, including without limitation the rights to use, *
21 ! * copy, modify, merge, publish, distribute, sublicense, and/or *
22 ! * sell copies of the Software, and to permit persons to whom the *
23 ! * Software is furnished to do so, subject to the following *
24 ! * conditions: *
25 ! * *
26 ! * *
27 ! * @ Redistributions of source code must retain the above copyright *
28 ! * notice, this list of conditions and the following disclaimers. *
29 ! * *
30 ! * @ Redistributions in binary form must reproduce the above *
31 ! * copyright notice, this list of conditions and the following *
32 ! * disclaimers in the documentation and/or other materials *
33 ! * provided with the distribution. *
34 ! * *
35 ! * @ Neither the names of the Center for Simulation of Advanced *
36 ! * Rockets, the University of Illinois, nor the names of its *
37 ! * contributors may be used to endorse or promote products derived *
38 ! * from this Software without specific prior written permission. *
39 ! * *
40 ! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, *
41 ! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES *
42 ! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND *
43 ! * NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR *
44 ! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER *
45 ! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, *
46 ! * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE *
47 ! * USE OR OTHER DEALINGS WITH THE SOFTWARE. *
48 ! *********************************************************************
49 
50 ! $Id: roccomf90.h,v 1.34 2008/11/19 22:16:40 mtcampbe Exp $
51 
52 ! Roccom types
53  INTEGER COM_CHARACTER, COM_LOGICAL, COM_INTEGER, COM_REAL, COM_DOUBLE
54  INTEGER COM_DOUBLE_PRECISION, COM_COMPLEX, COM_DOUBLE_COMPLEX
55  INTEGER COM_MPI_COMM, COM_MPI_COMMF
56  PARAMETER (COM_CHARACTER=13, COM_LOGICAL=14, COM_INTEGER=15)
57  PARAMETER (COM_REAL=16, COM_DOUBLE=17, COM_DOUBLE_PRECISION=17)
58  PARAMETER (COM_COMPLEX=18,COM_DOUBLE_COMPLEX=19)
59  PARAMETER (COM_MPI_COMM=21,COM_MPI_COMMF=21)
60 
61  INTEGER COM_RAWDATA, COM_METADATA, COM_STRING
62  INTEGER COM_VOID, COM_F90POINTER, COM_POINTER
63  PARAMETER (COM_STRING=-1, COM_RAWDATA=-2, COM_METADATA=-3, &
64  COM_VOID=-4, COM_F90POINTER=-5, COM_POINTER=-5)
65 
66  EXTERNAL COM_CALL_FUNCTION
67  EXTERNAL COM_ICALL_FUNCTION
68 
69  INTERFACE
70  SUBROUTINE COM_INIT
71  END SUBROUTINE COM_INIT
72 
73  SUBROUTINE COM_FINALIZE
74  END SUBROUTINE COM_FINALIZE
75 
76  FUNCTION COM_INITIALIZED()
77  INTEGER :: COM_INITIALIZED
78  END FUNCTION COM_INITIALIZED
79 
80  SUBROUTINE COM_ABORT( IERR)
81  INTEGER, INTENT(IN) :: IERR
82  END SUBROUTINE COM_ABORT
83 
84  SUBROUTINE COM_SET_DEFAULT_COMMUNICATOR( comm)
85  INTEGER, INTENT(IN) :: comm
86  END SUBROUTINE COM_SET_DEFAULT_COMMUNICATOR
87 
88  FUNCTION COM_GET_DEFAULT_COMMUNICATOR()
89  INTEGER :: COM_GET_DEFAULT_COMMUNICATOR
90  END FUNCTION COM_GET_DEFAULT_COMMUNICATOR
91 
92  SUBROUTINE COM_LOAD_MODULE( MNAME, WNAME)
93  CHARACTER(*), INTENT(IN) :: MNAME, WNAME
94  END SUBROUTINE COM_LOAD_MODULE
95 
96  SUBROUTINE COM_DELETE_WINDOW( W_NAME)
97  CHARACTER(*), INTENT(IN) :: W_NAME
98  END SUBROUTINE COM_DELETE_WINDOW
99 
100  SUBROUTINE COM_DELETE_PANE( W_NAME, PID)
101  CHARACTER(*), INTENT(IN) :: W_NAME
102  INTEGER, INTENT(IN) :: PID
103  END SUBROUTINE COM_DELETE_PANE
104 
105  SUBROUTINE COM_NEW_ATTRIBUTE( WA_NAME, LOC, TYPE, SIZE, UNIT)
106  CHARACTER(*), INTENT(IN) :: WA_NAME, LOC, UNIT
107  INTEGER, INTENT(IN) :: TYPE, SIZE
108  END SUBROUTINE COM_NEW_ATTRIBUTE
109 
110  SUBROUTINE COM_DELETE_ATTRIBUTE( WA_NAME)
111  CHARACTER(*), INTENT(IN) :: WA_NAME
112  END SUBROUTINE COM_DELETE_ATTRIBUTE
113 
114  SUBROUTINE COM_SET_EXTERNAL( W_NAME, PID, PTR)
115  CHARACTER(*), INTENT(IN) :: W_NAME
116  INTEGER, INTENT(IN) :: PID
117  EXTERNAL PTR
118  END SUBROUTINE COM_SET_EXTERNAL
119 
120  SUBROUTINE COM_SET_EXTERNAL_CONST( W_NAME, PID, PTR)
121  CHARACTER(*), INTENT(IN) :: W_NAME
122  INTEGER, INTENT(IN) :: PID
123  EXTERNAL PTR
124  END SUBROUTINE COM_SET_EXTERNAL_CONST
125 
126  SUBROUTINE COM_CHECK_BOUNDS( W_NAME, PID, PTR)
127  CHARACTER(*), INTENT(IN) :: W_NAME
128  INTEGER, INTENT(IN) :: PID
129  EXTERNAL PTR
130  END SUBROUTINE COM_CHECK_BOUNDS
131 
132  FUNCTION COM_CALL_SYSTEM( COMMAND)
133  CHARACTER(*), INTENT(IN) :: COMMAND
134  INTEGER :: COM_CALL_SYSTEM
135  END FUNCTION COM_CALL_SYSTEM
136 
137  SUBROUTINE COM_CALL_EXIT( IERR)
138  INTEGER, INTENT(IN) :: IERR
139  END SUBROUTINE COM_CALL_EXIT
140 
141  SUBROUTINE COM_CALL_ATEXIT( FUNC)
142  EXTERNAL FUNC
143  END SUBROUTINE COM_CALL_ATEXIT
144 
145  END INTERFACE
146 
147  INTERFACE COM_WINDOW_INIT_DONE
148  SUBROUTINE COM_WINDOW_INIT_DONE_1ARG( W_NAME)
149  CHARACTER(*), INTENT(IN) :: W_NAME
150  END SUBROUTINE COM_WINDOW_INIT_DONE_1ARG
151 
152  SUBROUTINE COM_WINDOW_INIT_DONE_2ARG( W_NAME, PNCHANGED)
153  CHARACTER(*), INTENT(IN) :: W_NAME
154  INTEGER, INTENT(IN) :: PNCHANGED
155  END SUBROUTINE COM_WINDOW_INIT_DONE_2ARG
156  END INTERFACE
157 
158  INTERFACE COM_UNLOAD_MODULE
159  SUBROUTINE COM_UNLOAD_MODULE_1( MNAME)
160  CHARACTER(*), INTENT(IN) :: MNAME
161  END SUBROUTINE COM_UNLOAD_MODULE_1
162 
163  SUBROUTINE COM_UNLOAD_MODULE_2( MNAME, WNAME)
164  CHARACTER(*), INTENT(IN) :: MNAME, WNAME
165  END SUBROUTINE COM_UNLOAD_MODULE_2
166  END INTERFACE
167 
168  INTERFACE COM_NEW_WINDOW
169  SUBROUTINE COM_NEW_WINDOW_NULL( W_NAME)
170  CHARACTER(*), INTENT(IN) :: W_NAME
171  END SUBROUTINE COM_NEW_WINDOW_NULL
172 
173  SUBROUTINE COM_NEW_WINDOW_MPI( W_NAME, COMM)
174  CHARACTER(*), INTENT(IN) :: W_NAME
175  INTEGER, INTENT(IN) :: COMM
176  END SUBROUTINE COM_NEW_WINDOW_MPI
177  END INTERFACE
178 
179  INTERFACE COM_SET_SIZE
180  SUBROUTINE COM_SET_SIZE1( ANAME, PANE_ID, SIZE_TOTAL)
181  CHARACTER(*), INTENT( IN) :: ANAME
182  INTEGER, INTENT(IN) :: PANE_ID, SIZE_TOTAL
183  END SUBROUTINE COM_SET_SIZE1
184 
185  SUBROUTINE COM_SET_SIZE2( ANAME, PANE_ID, SIZE_TOTAL, SIZE_GHOST)
186  CHARACTER(*), INTENT( IN) :: ANAME
187  INTEGER, INTENT(IN) :: PANE_ID, SIZE_TOTAL, SIZE_GHOST
188  END SUBROUTINE COM_SET_SIZE2
189  END INTERFACE
190 
191  INTERFACE COM_SET_ARRAY
192  SUBROUTINE COM_SET_ARRAY_NULL( W_NAME, PID)
193  CHARACTER(*), INTENT(IN) :: W_NAME
194  INTEGER, INTENT(IN) :: PID
195  END SUBROUTINE COM_SET_ARRAY_NULL
196 
197  SUBROUTINE COM_SET_ARRAY_CHR( W_NAME, PID, PTR)
198  CHARACTER(*), INTENT(IN) :: W_NAME
199  INTEGER, INTENT(IN) :: PID
200  CHARACTER(*), TARGET :: PTR
201  END SUBROUTINE COM_SET_ARRAY_CHR
202 
203  SUBROUTINE COM_SET_ARRAY_INT( W_NAME, PID, PTR)
204  CHARACTER(*), INTENT(IN) :: W_NAME
205  INTEGER, INTENT(IN) :: PID
206  INTEGER, TARGET :: PTR
207  END SUBROUTINE COM_SET_ARRAY_INT
208 
209  SUBROUTINE COM_SET_ARRAY_INT_STRD( W_NAME, PID, PTR, STRD)
210  CHARACTER(*), INTENT(IN) :: W_NAME
211  INTEGER, INTENT(IN) :: PID, STRD
212  INTEGER, TARGET :: PTR
213  END SUBROUTINE COM_SET_ARRAY_INT_STRD
214 
215  SUBROUTINE COM_SET_ARRAY_INT_DYN( W_NAME, PID, PTR, STRD, CAP)
216  CHARACTER(*), INTENT(IN) :: W_NAME
217  INTEGER, INTENT(IN) :: PID, STRD, CAP
218  INTEGER, TARGET :: PTR
219  END SUBROUTINE COM_SET_ARRAY_INT_DYN
220 
221  SUBROUTINE COM_SET_ARRAY_INT1D( W_NAME, PID, PTR)
222  CHARACTER(*), INTENT(IN) :: W_NAME
223  INTEGER, INTENT(IN) :: PID
224  INTEGER, POINTER :: PTR(:)
225  END SUBROUTINE COM_SET_ARRAY_INT1D
226 
227  SUBROUTINE COM_SET_ARRAY_INT1D_STRD( W_NAME, PID, PTR, STRD)
228  CHARACTER(*), INTENT(IN) :: W_NAME
229  INTEGER, INTENT(IN) :: PID, STRD
230  INTEGER, POINTER :: PTR(:)
231  END SUBROUTINE COM_SET_ARRAY_INT1D_STRD
232 
233  SUBROUTINE COM_SET_ARRAY_INT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
234  CHARACTER(*), INTENT(IN) :: W_NAME
235  INTEGER, INTENT(IN) :: PID, CAP, STRD
236  INTEGER, POINTER :: PTR(:)
237  END SUBROUTINE COM_SET_ARRAY_INT1D_DYN
238 
239  SUBROUTINE COM_SET_ARRAY_INT2D( W_NAME, PID, PTR)
240  CHARACTER(*), INTENT(IN) :: W_NAME
241  INTEGER, INTENT(IN) :: PID
242  INTEGER, POINTER :: PTR(:,:)
243  END SUBROUTINE COM_SET_ARRAY_INT2D
244 
245  SUBROUTINE COM_SET_ARRAY_INT2D_STRD( W_NAME, PID, PTR, STRD)
246  CHARACTER(*), INTENT(IN) :: W_NAME
247  INTEGER, INTENT(IN) :: PID, STRD
248  INTEGER, POINTER :: PTR(:,:)
249  END SUBROUTINE COM_SET_ARRAY_INT2D_STRD
250 
251  SUBROUTINE COM_SET_ARRAY_INT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
252  CHARACTER(*), INTENT(IN) :: W_NAME
253  INTEGER, INTENT(IN) :: PID, CAP, STRD
254  INTEGER, POINTER :: PTR(:,:)
255  END SUBROUTINE COM_SET_ARRAY_INT2D_DYN
256 
257  SUBROUTINE COM_SET_ARRAY_INT3D( W_NAME, PID, PTR)
258  CHARACTER(*), INTENT(IN) :: W_NAME
259  INTEGER, INTENT(IN) :: PID
260  INTEGER, POINTER :: PTR(:,:,:)
261  END SUBROUTINE COM_SET_ARRAY_INT3D
262 
263  SUBROUTINE COM_SET_ARRAY_INT3D_STRD( W_NAME, PID, PTR, STRD)
264  CHARACTER(*), INTENT(IN) :: W_NAME
265  INTEGER, INTENT(IN) :: PID, STRD
266  INTEGER, POINTER :: PTR(:,:,:)
267  END SUBROUTINE COM_SET_ARRAY_INT3D_STRD
268 
269  SUBROUTINE COM_SET_ARRAY_INT3D_DYN( W_NAME, PID, PTR, STRD, CAP)
270  CHARACTER(*), INTENT(IN) :: W_NAME
271  INTEGER, INTENT(IN) :: PID, CAP, STRD
272  INTEGER, POINTER :: PTR(:,:,:)
273  END SUBROUTINE COM_SET_ARRAY_INT3D_DYN
274 
275  SUBROUTINE COM_SET_ARRAY_FLT( W_NAME, PID, PTR)
276  CHARACTER(*), INTENT(IN) :: W_NAME
277  INTEGER, INTENT(IN) :: PID
278  REAL, TARGET :: PTR
279  END SUBROUTINE COM_SET_ARRAY_FLT
280 
281  SUBROUTINE COM_SET_ARRAY_FLT_STRD( W_NAME, PID, PTR, STRD)
282  CHARACTER(*), INTENT(IN) :: W_NAME
283  INTEGER, INTENT(IN) :: PID, STRD
284  REAL, TARGET :: PTR
285  END SUBROUTINE COM_SET_ARRAY_FLT_STRD
286 
287  SUBROUTINE COM_SET_ARRAY_FLT_DYN( W_NAME, PID, PTR, STRD, CAP)
288  CHARACTER(*), INTENT(IN) :: W_NAME
289  INTEGER, INTENT(IN) :: PID, STRD, CAP
290  REAL, TARGET :: PTR
291  END SUBROUTINE COM_SET_ARRAY_FLT_DYN
292 
293  SUBROUTINE COM_SET_ARRAY_FLT1D( W_NAME, PID, PTR)
294  CHARACTER(*), INTENT(IN) :: W_NAME
295  INTEGER, INTENT(IN) :: PID
296  REAL, POINTER :: PTR(:)
297  END SUBROUTINE COM_SET_ARRAY_FLT1D
298 
299  SUBROUTINE COM_SET_ARRAY_FLT1D_STRD( W_NAME, PID, PTR, STRD)
300  CHARACTER(*), INTENT(IN) :: W_NAME
301  INTEGER, INTENT(IN) :: PID, STRD
302  REAL, POINTER :: PTR(:)
303  END SUBROUTINE COM_SET_ARRAY_FLT1D_STRD
304 
305  SUBROUTINE COM_SET_ARRAY_FLT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
306  CHARACTER(*), INTENT(IN) :: W_NAME
307  INTEGER, INTENT(IN) :: PID, STRD, CAP
308  REAL, POINTER :: PTR(:)
309  END SUBROUTINE COM_SET_ARRAY_FLT1D_DYN
310 
311  SUBROUTINE COM_SET_ARRAY_FLT2D( W_NAME, PID, PTR)
312  CHARACTER(*), INTENT(IN) :: W_NAME
313  INTEGER, INTENT(IN) :: PID
314  REAL, POINTER :: PTR(:,:)
315  END SUBROUTINE COM_SET_ARRAY_FLT2D
316 
317  SUBROUTINE COM_SET_ARRAY_FLT2D_STRD( W_NAME, PID, PTR, STRD)
318  CHARACTER(*), INTENT(IN) :: W_NAME
319  INTEGER, INTENT(IN) :: PID, STRD
320  REAL, POINTER :: PTR(:,:)
321  END SUBROUTINE COM_SET_ARRAY_FLT2D_STRD
322 
323  SUBROUTINE COM_SET_ARRAY_FLT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
324  CHARACTER(*), INTENT(IN) :: W_NAME
325  INTEGER, INTENT(IN) :: PID, STRD, CAP
326  REAL, POINTER :: PTR(:,:)
327  END SUBROUTINE COM_SET_ARRAY_FLT2D_DYN
328 
329  SUBROUTINE COM_SET_ARRAY_FLT3D( W_NAME, PID, PTR)
330  CHARACTER(*), INTENT(IN) :: W_NAME
331  INTEGER, INTENT(IN) :: PID
332  REAL, POINTER :: PTR(:,:,:)
333  END SUBROUTINE COM_SET_ARRAY_FLT3D
334 
335  SUBROUTINE COM_SET_ARRAY_FLT3D_STRD( W_NAME, PID, PTR, STRD)
336  CHARACTER(*), INTENT(IN) :: W_NAME
337  INTEGER, INTENT(IN) :: PID, STRD
338  REAL, POINTER :: PTR(:,:,:)
339  END SUBROUTINE COM_SET_ARRAY_FLT3D_STRD
340 
341  SUBROUTINE COM_SET_ARRAY_FLT3D_DYN( W_NAME, PID, PTR, STRD, CAP)
342  CHARACTER(*), INTENT(IN) :: W_NAME
343  INTEGER, INTENT(IN) :: PID, STRD, CAP
344  REAL, POINTER :: PTR(:,:,:)
345  END SUBROUTINE COM_SET_ARRAY_FLT3D_DYN
346 
347  SUBROUTINE COM_SET_ARRAY_DBL( W_NAME, PID, PTR)
348  CHARACTER(*), INTENT(IN) :: W_NAME
349  INTEGER, INTENT(IN) :: PID
350  DOUBLE PRECISION, TARGET :: PTR
351  END SUBROUTINE COM_SET_ARRAY_DBL
352 
353  SUBROUTINE COM_SET_ARRAY_DBL_STRD( W_NAME, PID, PTR, STRD)
354  CHARACTER(*), INTENT(IN) :: W_NAME
355  INTEGER, INTENT(IN) :: PID, STRD
356  DOUBLE PRECISION, TARGET :: PTR
357  END SUBROUTINE COM_SET_ARRAY_DBL_STRD
358 
359  SUBROUTINE COM_SET_ARRAY_DBL_DYN( W_NAME, PID, PTR, STRD, CAP)
360  CHARACTER(*), INTENT(IN) :: W_NAME
361  INTEGER, INTENT(IN) :: PID, STRD, CAP
362  DOUBLE PRECISION, TARGET :: PTR
363  END SUBROUTINE COM_SET_ARRAY_DBL_DYN
364 
365  SUBROUTINE COM_SET_ARRAY_DBL1D( W_NAME, PID, PTR)
366  CHARACTER(*), INTENT(IN) :: W_NAME
367  INTEGER, INTENT(IN) :: PID
368  DOUBLE PRECISION, POINTER :: PTR(:)
369  END SUBROUTINE COM_SET_ARRAY_DBL1D
370 
371  SUBROUTINE COM_SET_ARRAY_DBL1D_STRD( W_NAME, PID, PTR, STRD)
372  CHARACTER(*), INTENT(IN) :: W_NAME
373  INTEGER, INTENT(IN) :: PID, STRD
374  DOUBLE PRECISION, POINTER :: PTR(:)
375  END SUBROUTINE COM_SET_ARRAY_DBL1D_STRD
376 
377  SUBROUTINE COM_SET_ARRAY_DBL1D_DYN( W_NAME, PID, PTR, STRD, CAP)
378  CHARACTER(*), INTENT(IN) :: W_NAME
379  INTEGER, INTENT(IN) :: PID, STRD, CAP
380  DOUBLE PRECISION, POINTER :: PTR(:)
381  END SUBROUTINE COM_SET_ARRAY_DBL1D_DYN
382 
383  SUBROUTINE COM_SET_ARRAY_DBL2D( W_NAME, PID, PTR)
384  CHARACTER(*), INTENT(IN) :: W_NAME
385  INTEGER, INTENT(IN) :: PID
386  DOUBLE PRECISION, POINTER :: PTR(:,:)
387  END SUBROUTINE COM_SET_ARRAY_DBL2D
388 
389  SUBROUTINE COM_SET_ARRAY_DBL2D_STRD( W_NAME, PID, PTR, STRD)
390  CHARACTER(*), INTENT(IN) :: W_NAME
391  INTEGER, INTENT(IN) :: PID, STRD
392  DOUBLE PRECISION, POINTER :: PTR(:,:)
393  END SUBROUTINE COM_SET_ARRAY_DBL2D_STRD
394 
395  SUBROUTINE COM_SET_ARRAY_DBL2D_DYN( W_NAME, PID, PTR, STRD, CAP)
396  CHARACTER(*), INTENT(IN) :: W_NAME
397  INTEGER, INTENT(IN) :: PID, STRD, CAP
398  DOUBLE PRECISION, POINTER :: PTR(:,:)
399  END SUBROUTINE COM_SET_ARRAY_DBL2D_DYN
400 
401  SUBROUTINE COM_SET_ARRAY_DBL3D( W_NAME, PID, PTR)
402  CHARACTER(*), INTENT(IN) :: W_NAME
403  INTEGER, INTENT(IN) :: PID
404  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
405  END SUBROUTINE COM_SET_ARRAY_DBL3D
406 
407  SUBROUTINE COM_SET_ARRAY_DBL3D_STRD( W_NAME, PID, PTR, STRD)
408  CHARACTER(*), INTENT(IN) :: W_NAME
409  INTEGER, INTENT(IN) :: PID, STRD
410  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
411  END SUBROUTINE COM_SET_ARRAY_DBL3D_STRD
412 
413  SUBROUTINE COM_SET_ARRAY_DBL3D_DYN( W_NAME, PID, PTR, STRD, CAP)
414  CHARACTER(*), INTENT(IN) :: W_NAME
415  INTEGER, INTENT(IN) :: PID, STRD, CAP
416  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
417  END SUBROUTINE COM_SET_ARRAY_DBL3D_DYN
418  END INTERFACE
419 
420  INTERFACE COM_SET_ARRAY_CONST
421  SUBROUTINE COM_SET_ARRAY_CONST_NULL( W_NAME, PID)
422  CHARACTER(*), INTENT(IN) :: W_NAME
423  INTEGER, INTENT(IN) :: PID
424  END SUBROUTINE COM_SET_ARRAY_CONST_NULL
425 
426  SUBROUTINE COM_SET_ARRAY_CONST_CHR( W_NAME, PID, PTR)
427  CHARACTER(*), INTENT(IN) :: W_NAME
428  INTEGER, INTENT(IN) :: PID
429  CHARACTER(*), INTENT(IN) :: PTR
430  END SUBROUTINE COM_SET_ARRAY_CONST_CHR
431 
432  SUBROUTINE COM_SET_ARRAY_CONST_INT( W_NAME, PID, PTR)
433  CHARACTER(*), INTENT(IN) :: W_NAME
434  INTEGER, INTENT(IN) :: PID
435  INTEGER, TARGET :: PTR
436  END SUBROUTINE COM_SET_ARRAY_CONST_INT
437 
438  SUBROUTINE COM_SET_ARRAY_CONST_INT_STRD( W_NAME, PID, PTR, STRD)
439  CHARACTER(*), INTENT(IN) :: W_NAME
440  INTEGER, INTENT(IN) :: PID, STRD
441  INTEGER, TARGET :: PTR
442  END SUBROUTINE COM_SET_ARRAY_CONST_INT_STRD
443 
444  SUBROUTINE COM_SET_ARRAY_CONST_INT_DYN( W_NAME, PID, PTR, STRD, CAP)
445  CHARACTER(*), INTENT(IN) :: W_NAME
446  INTEGER, INTENT(IN) :: PID, STRD, CAP
447  INTEGER, TARGET :: PTR
448  END SUBROUTINE COM_SET_ARRAY_CONST_INT_DYN
449 
450  SUBROUTINE COM_SET_ARRAY_CONST_INT1D( W_NAME, PID, PTR)
451  CHARACTER(*), INTENT(IN) :: W_NAME
452  INTEGER, INTENT(IN) :: PID
453  INTEGER, POINTER :: PTR(:)
454  END SUBROUTINE COM_SET_ARRAY_CONST_INT1D
455 
456  SUBROUTINE COM_SET_ARRAY_CONST_INT1D_STRD( W_NAME, PID, PTR, STRD)
457  CHARACTER(*), INTENT(IN) :: W_NAME
458  INTEGER, INTENT(IN) :: PID, STRD
459  INTEGER, POINTER :: PTR(:)
460  END SUBROUTINE COM_SET_ARRAY_CONST_INT1D_STRD
461 
462  SUBROUTINE COM_SET_ARRAY_CONST_INT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
463  CHARACTER(*), INTENT(IN) :: W_NAME
464  INTEGER, INTENT(IN) :: PID, CAP, STRD
465  INTEGER, POINTER :: PTR(:)
466  END SUBROUTINE COM_SET_ARRAY_CONST_INT1D_DYN
467 
468  SUBROUTINE COM_SET_ARRAY_CONST_INT2D( W_NAME, PID, PTR)
469  CHARACTER(*), INTENT(IN) :: W_NAME
470  INTEGER, INTENT(IN) :: PID
471  INTEGER, POINTER :: PTR(:,:)
472  END SUBROUTINE COM_SET_ARRAY_CONST_INT2D
473 
474  SUBROUTINE COM_SET_ARRAY_CONST_INT2D_STRD( W_NAME, PID, PTR, STRD)
475  CHARACTER(*), INTENT(IN) :: W_NAME
476  INTEGER, INTENT(IN) :: PID, STRD
477  INTEGER, POINTER :: PTR(:,:)
478  END SUBROUTINE COM_SET_ARRAY_CONST_INT2D_STRD
479 
480  SUBROUTINE COM_SET_ARRAY_CONST_INT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
481  CHARACTER(*), INTENT(IN) :: W_NAME
482  INTEGER, INTENT(IN) :: PID, CAP, STRD
483  INTEGER, POINTER :: PTR(:,:)
484  END SUBROUTINE COM_SET_ARRAY_CONST_INT2D_DYN
485 
486  SUBROUTINE COM_SET_ARRAY_CONST_INT3D( W_NAME, PID, PTR)
487  CHARACTER(*), INTENT(IN) :: W_NAME
488  INTEGER, INTENT(IN) :: PID
489  INTEGER, POINTER :: PTR(:,:,:)
490  END SUBROUTINE COM_SET_ARRAY_CONST_INT3D
491 
492  SUBROUTINE COM_SET_ARRAY_CONST_INT3D_STRD( W_NAME, PID, PTR, STRD)
493  CHARACTER(*), INTENT(IN) :: W_NAME
494  INTEGER, INTENT(IN) :: PID, STRD
495  INTEGER, POINTER :: PTR(:,:,:)
496  END SUBROUTINE COM_SET_ARRAY_CONST_INT3D_STRD
497 
498  SUBROUTINE COM_SET_ARRAY_CONST_INT3D_DYN( W_NAME, PID, PTR, STRD, CAP)
499  CHARACTER(*), INTENT(IN) :: W_NAME
500  INTEGER, INTENT(IN) :: PID, CAP, STRD
501  INTEGER, POINTER :: PTR(:,:,:)
502  END SUBROUTINE COM_SET_ARRAY_CONST_INT3D_DYN
503 
504  SUBROUTINE COM_SET_ARRAY_CONST_FLT( W_NAME, PID, PTR)
505  CHARACTER(*), INTENT(IN) :: W_NAME
506  INTEGER, INTENT(IN) :: PID
507  REAL, TARGET :: PTR
508  END SUBROUTINE COM_SET_ARRAY_CONST_FLT
509 
510  SUBROUTINE COM_SET_ARRAY_CONST_FLT_STRD( W_NAME, PID, PTR, STRD)
511  CHARACTER(*), INTENT(IN) :: W_NAME
512  INTEGER, INTENT(IN) :: PID, STRD
513  REAL, TARGET :: PTR
514  END SUBROUTINE COM_SET_ARRAY_CONST_FLT_STRD
515 
516  SUBROUTINE COM_SET_ARRAY_CONST_FLT_DYN( W_NAME, PID, PTR, STRD, CAP)
517  CHARACTER(*), INTENT(IN) :: W_NAME
518  INTEGER, INTENT(IN) :: PID, STRD, CAP
519  REAL, TARGET :: PTR
520  END SUBROUTINE COM_SET_ARRAY_CONST_FLT_DYN
521 
522  SUBROUTINE COM_SET_ARRAY_CONST_FLT1D( W_NAME, PID, PTR)
523  CHARACTER(*), INTENT(IN) :: W_NAME
524  INTEGER, INTENT(IN) :: PID
525  REAL, POINTER :: PTR(:)
526  END SUBROUTINE COM_SET_ARRAY_CONST_FLT1D
527 
528  SUBROUTINE COM_SET_ARRAY_CONST_FLT1D_STRD( W_NAME, PID, PTR, STRD)
529  CHARACTER(*), INTENT(IN) :: W_NAME
530  INTEGER, INTENT(IN) :: PID, STRD
531  REAL, POINTER :: PTR(:)
532  END SUBROUTINE COM_SET_ARRAY_CONST_FLT1D_STRD
533 
534  SUBROUTINE COM_SET_ARRAY_CONST_FLT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
535  CHARACTER(*), INTENT(IN) :: W_NAME
536  INTEGER, INTENT(IN) :: PID, STRD, CAP
537  REAL, POINTER :: PTR(:)
538  END SUBROUTINE COM_SET_ARRAY_CONST_FLT1D_DYN
539 
540  SUBROUTINE COM_SET_ARRAY_CONST_FLT2D( W_NAME, PID, PTR)
541  CHARACTER(*), INTENT(IN) :: W_NAME
542  INTEGER, INTENT(IN) :: PID
543  REAL, POINTER :: PTR(:,:)
544  END SUBROUTINE COM_SET_ARRAY_CONST_FLT2D
545 
546  SUBROUTINE COM_SET_ARRAY_CONST_FLT2D_STRD( W_NAME, PID, PTR, STRD)
547  CHARACTER(*), INTENT(IN) :: W_NAME
548  INTEGER, INTENT(IN) :: PID, STRD
549  REAL, POINTER :: PTR(:,:)
550  END SUBROUTINE COM_SET_ARRAY_CONST_FLT2D_STRD
551 
552  SUBROUTINE COM_SET_ARRAY_CONST_FLT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
553  CHARACTER(*), INTENT(IN) :: W_NAME
554  INTEGER, INTENT(IN) :: PID, STRD, CAP
555  REAL, POINTER :: PTR(:,:)
556  END SUBROUTINE COM_SET_ARRAY_CONST_FLT2D_DYN
557 
558  SUBROUTINE COM_SET_ARRAY_CONST_FLT3D( W_NAME, PID, PTR)
559  CHARACTER(*), INTENT(IN) :: W_NAME
560  INTEGER, INTENT(IN) :: PID
561  REAL, POINTER :: PTR(:,:,:)
562  END SUBROUTINE COM_SET_ARRAY_CONST_FLT3D
563 
564  SUBROUTINE COM_SET_ARRAY_CONST_FLT3D_STRD( W_NAME, PID, PTR, STRD)
565  CHARACTER(*), INTENT(IN) :: W_NAME
566  INTEGER, INTENT(IN) :: PID, STRD
567  REAL, POINTER :: PTR(:,:,:)
568  END SUBROUTINE COM_SET_ARRAY_CONST_FLT3D_STRD
569 
570  SUBROUTINE COM_SET_ARRAY_CONST_FLT3D_DYN( W_NAME, PID, PTR, STRD, CAP)
571  CHARACTER(*), INTENT(IN) :: W_NAME
572  INTEGER, INTENT(IN) :: PID, STRD, CAP
573  REAL, POINTER :: PTR(:,:,:)
574  END SUBROUTINE COM_SET_ARRAY_CONST_FLT3D_DYN
575 
576  SUBROUTINE COM_SET_ARRAY_CONST_DBL( W_NAME, PID, PTR)
577  CHARACTER(*), INTENT(IN) :: W_NAME
578  INTEGER, INTENT(IN) :: PID
579  DOUBLE PRECISION :: PTR
580  END SUBROUTINE COM_SET_ARRAY_CONST_DBL
581 
582  SUBROUTINE COM_SET_ARRAY_CONST_DBL_STRD( W_NAME, PID, PTR, STRD)
583  CHARACTER(*), INTENT(IN) :: W_NAME
584  INTEGER, INTENT(IN) :: PID, STRD
585  DOUBLE PRECISION :: PTR
586  END SUBROUTINE COM_SET_ARRAY_CONST_DBL_STRD
587 
588  SUBROUTINE COM_SET_ARRAY_CONST_DBL_DYN( W_NAME, PID, PTR, STRD, CAP)
589  CHARACTER(*), INTENT(IN) :: W_NAME
590  INTEGER, INTENT(IN) :: PID, STRD, CAP
591  DOUBLE PRECISION :: PTR
592  END SUBROUTINE COM_SET_ARRAY_CONST_DBL_DYN
593 
594  SUBROUTINE COM_SET_ARRAY_CONST_DBL1D( W_NAME, PID, PTR)
595  CHARACTER(*), INTENT(IN) :: W_NAME
596  INTEGER, INTENT(IN) :: PID
597  DOUBLE PRECISION, POINTER :: PTR(:)
598  END SUBROUTINE COM_SET_ARRAY_CONST_DBL1D
599 
600  SUBROUTINE COM_SET_ARRAY_CONST_DBL1D_STRD( W_NAME, PID, PTR, STRD)
601  CHARACTER(*), INTENT(IN) :: W_NAME
602  INTEGER, INTENT(IN) :: PID, STRD
603  DOUBLE PRECISION, POINTER :: PTR(:)
604  END SUBROUTINE COM_SET_ARRAY_CONST_DBL1D_STRD
605 
606  SUBROUTINE COM_SET_ARRAY_CONST_DBL1D_DYN( W_NAME, PID, PTR, STRD, CAP)
607  CHARACTER(*), INTENT(IN) :: W_NAME
608  INTEGER, INTENT(IN) :: PID, STRD, CAP
609  DOUBLE PRECISION, POINTER :: PTR(:)
610  END SUBROUTINE COM_SET_ARRAY_CONST_DBL1D_DYN
611 
612  SUBROUTINE COM_SET_ARRAY_CONST_DBL2D( W_NAME, PID, PTR)
613  CHARACTER(*), INTENT(IN) :: W_NAME
614  INTEGER, INTENT(IN) :: PID
615  DOUBLE PRECISION, POINTER :: PTR(:,:)
616  END SUBROUTINE COM_SET_ARRAY_CONST_DBL2D
617 
618  SUBROUTINE COM_SET_ARRAY_CONST_DBL2D_STRD( W_NAME, PID, PTR, STRD)
619  CHARACTER(*), INTENT(IN) :: W_NAME
620  INTEGER, INTENT(IN) :: PID, STRD
621  DOUBLE PRECISION, POINTER :: PTR(:,:)
622  END SUBROUTINE COM_SET_ARRAY_CONST_DBL2D_STRD
623 
624  SUBROUTINE COM_SET_ARRAY_CONST_DBL2D_DYN( W_NAME, PID, PTR, STRD, CAP)
625  CHARACTER(*), INTENT(IN) :: W_NAME
626  INTEGER, INTENT(IN) :: PID, STRD, CAP
627  DOUBLE PRECISION, POINTER :: PTR(:,:)
628  END SUBROUTINE COM_SET_ARRAY_CONST_DBL2D_DYN
629 
630  SUBROUTINE COM_SET_ARRAY_CONST_DBL3D( W_NAME, PID, PTR)
631  CHARACTER(*), INTENT(IN) :: W_NAME
632  INTEGER, INTENT(IN) :: PID
633  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
634  END SUBROUTINE COM_SET_ARRAY_CONST_DBL3D
635 
636  SUBROUTINE COM_SET_ARRAY_CONST_DBL3D_STRD( W_NAME, PID, PTR, STRD)
637  CHARACTER(*), INTENT(IN) :: W_NAME
638  INTEGER, INTENT(IN) :: PID, STRD
639  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
640  END SUBROUTINE COM_SET_ARRAY_CONST_DBL3D_STRD
641 
642  SUBROUTINE COM_SET_ARRAY_CONST_DBL3D_DYN( W_NAME, PID, PTR, STRD, CAP)
643  CHARACTER(*), INTENT(IN) :: W_NAME
644  INTEGER, INTENT(IN) :: PID, STRD, CAP
645  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
646  END SUBROUTINE COM_SET_ARRAY_CONST_DBL3D_DYN
647  END INTERFACE
648 
649  INTERFACE COM_APPEND_ARRAY
650  SUBROUTINE COM_APPEND_ARRAY_CHR( W_NAME, PID, PTR, STRD, CAP)
651  CHARACTER(*), INTENT(IN) :: W_NAME
652  INTEGER, INTENT(IN) :: PID, STRD, CAP
653  CHARACTER :: PTR
654  END SUBROUTINE COM_APPEND_ARRAY_CHR
655 
656  SUBROUTINE COM_APPEND_ARRAY_INT( W_NAME, PID, PTR, STRD, CAP)
657  CHARACTER(*), INTENT(IN) :: W_NAME
658  INTEGER, INTENT(IN) :: PID, STRD, CAP
659  INTEGER :: PTR
660  END SUBROUTINE COM_APPEND_ARRAY_INT
661 
662  SUBROUTINE COM_APPEND_ARRAY_INT1D( W_NAME, PID, PTR, STRD, CAP)
663  CHARACTER(*), INTENT(IN) :: W_NAME
664  INTEGER, INTENT(IN) :: PID, CAP, STRD
665  INTEGER, POINTER :: PTR(:)
666  END SUBROUTINE COM_APPEND_ARRAY_INT1D
667 
668  SUBROUTINE COM_APPEND_ARRAY_INT2D( W_NAME, PID, PTR, STRD, CAP)
669  CHARACTER(*), INTENT(IN) :: W_NAME
670  INTEGER, INTENT(IN) :: PID, CAP, STRD
671  INTEGER, POINTER :: PTR(:,:)
672  END SUBROUTINE COM_APPEND_ARRAY_INT2D
673 
674  SUBROUTINE COM_APPEND_ARRAY_INT3D( W_NAME, PID, PTR, STRD, CAP)
675  CHARACTER(*), INTENT(IN) :: W_NAME
676  INTEGER, INTENT(IN) :: PID, CAP, STRD
677  INTEGER, POINTER :: PTR(:,:,:)
678  END SUBROUTINE COM_APPEND_ARRAY_INT3D
679 
680  SUBROUTINE COM_APPEND_ARRAY_FLT( W_NAME, PID, PTR, STRD, CAP)
681  CHARACTER(*), INTENT(IN) :: W_NAME
682  INTEGER, INTENT(IN) :: PID, STRD, CAP
683  REAL :: PTR
684  END SUBROUTINE COM_APPEND_ARRAY_FLT
685 
686  SUBROUTINE COM_APPEND_ARRAY_FLT1D( W_NAME, PID, PTR, STRD, CAP)
687  CHARACTER(*), INTENT(IN) :: W_NAME
688  INTEGER, INTENT(IN) :: PID, STRD, CAP
689  REAL, POINTER :: PTR(:)
690  END SUBROUTINE COM_APPEND_ARRAY_FLT1D
691 
692  SUBROUTINE COM_APPEND_ARRAY_FLT2D( W_NAME, PID, PTR, STRD, CAP)
693  CHARACTER(*), INTENT(IN) :: W_NAME
694  INTEGER, INTENT(IN) :: PID, STRD, CAP
695  REAL, POINTER :: PTR(:,:)
696  END SUBROUTINE COM_APPEND_ARRAY_FLT2D
697 
698  SUBROUTINE COM_APPEND_ARRAY_FLT3D( W_NAME, PID, PTR, STRD, CAP)
699  CHARACTER(*), INTENT(IN) :: W_NAME
700  INTEGER, INTENT(IN) :: PID, STRD, CAP
701  REAL, POINTER :: PTR(:,:,:)
702  END SUBROUTINE COM_APPEND_ARRAY_FLT3D
703 
704  SUBROUTINE COM_APPEND_ARRAY_DBL( W_NAME, PID, PTR, STRD, CAP)
705  CHARACTER(*), INTENT(IN) :: W_NAME
706  INTEGER, INTENT(IN) :: PID, STRD, CAP
707  DOUBLE PRECISION :: PTR
708  END SUBROUTINE COM_APPEND_ARRAY_DBL
709 
710  SUBROUTINE COM_APPEND_ARRAY_DBL1D( W_NAME, PID, PTR, STRD, CAP)
711  CHARACTER(*), INTENT(IN) :: W_NAME
712  INTEGER, INTENT(IN) :: PID, STRD, CAP
713  DOUBLE PRECISION, POINTER :: PTR(:)
714  END SUBROUTINE COM_APPEND_ARRAY_DBL1D
715 
716  SUBROUTINE COM_APPEND_ARRAY_DBL2D( W_NAME, PID, PTR, STRD, CAP)
717  CHARACTER(*), INTENT(IN) :: W_NAME
718  INTEGER, INTENT(IN) :: PID, STRD, CAP
719  DOUBLE PRECISION, POINTER :: PTR(:,:)
720  END SUBROUTINE COM_APPEND_ARRAY_DBL2D
721 
722  SUBROUTINE COM_APPEND_ARRAY_DBL3D( W_NAME, PID, PTR, STRD, CAP)
723  CHARACTER(*), INTENT(IN) :: W_NAME
724  INTEGER, INTENT(IN) :: PID, STRD, CAP
725  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
726  END SUBROUTINE COM_APPEND_ARRAY_DBL3D
727  END INTERFACE
728 
729  INTERFACE COM_SET_BOUNDS
730  SUBROUTINE COM_SET_BOUNDS_INT( WNAME, PANE_ID, LBND, UBND)
731  CHARACTER(*), INTENT(IN) :: WNAME
732  INTEGER, INTENT(IN) :: PANE_ID
733  INTEGER, INTENT(IN) :: LBND, UBND
734  END SUBROUTINE COM_SET_BOUNDS_INT
735 
736  SUBROUTINE COM_SET_BOUNDS_FLT( WNAME, PANE_ID, LBND, UBND)
737  CHARACTER(*), INTENT(IN) :: WNAME
738  INTEGER, INTENT(IN) :: PANE_ID
739  REAL, INTENT(IN) :: LBND, UBND
740  END SUBROUTINE COM_SET_BOUNDS_FLT
741 
742  SUBROUTINE COM_SET_BOUNDS_DBL( WNAME, PANE_ID, LBND, UBND)
743  CHARACTER(*), INTENT(IN) :: WNAME
744  INTEGER, INTENT(IN) :: PANE_ID
745  DOUBLE PRECISION, INTENT(IN) :: LBND, UBND
746  END SUBROUTINE COM_SET_BOUNDS_DBL
747  END INTERFACE
748 
749  INTERFACE COM_ALLOCATE_ARRAY
750  SUBROUTINE COM_ALLOC_ARRAY_WIN( W_NAME)
751  CHARACTER(*), INTENT(IN) :: W_NAME
752  END SUBROUTINE COM_ALLOC_ARRAY_WIN
753 
754  SUBROUTINE COM_ALLOC_ARRAY_PANE( W_NAME, PID)
755  CHARACTER(*), INTENT(IN) :: W_NAME
756  INTEGER, INTENT(IN) :: PID
757  END SUBROUTINE COM_ALLOC_ARRAY_PANE
758 
759  SUBROUTINE COM_ALLOC_ARRAY_CHR( W_NAME, PID, PTR)
760  CHARACTER(*), INTENT(IN) :: W_NAME
761  INTEGER, INTENT(IN) :: PID
762  CHARACTER(*), POINTER :: PTR
763  END SUBROUTINE COM_ALLOC_ARRAY_CHR
764 
765  SUBROUTINE COM_ALLOC_ARRAY_INT( W_NAME, PID, PTR)
766  CHARACTER(*), INTENT(IN) :: W_NAME
767  INTEGER, INTENT(IN) :: PID
768  INTEGER, POINTER :: PTR
769  END SUBROUTINE COM_ALLOC_ARRAY_INT
770 
771  SUBROUTINE COM_ALLOC_ARRAY_INT1D( W_NAME, PID, PTR)
772  CHARACTER(*), INTENT(IN) :: W_NAME
773  INTEGER, INTENT(IN) :: PID
774  INTEGER, POINTER :: PTR(:)
775  END SUBROUTINE COM_ALLOC_ARRAY_INT1D
776 
777  SUBROUTINE COM_ALLOC_ARRAY_INT1D_STRD( W_NAME, PID, PTR, STRD)
778  CHARACTER(*), INTENT(IN) :: W_NAME
779  INTEGER, INTENT(IN) :: PID, STRD
780  INTEGER, POINTER :: PTR(:)
781  END SUBROUTINE COM_ALLOC_ARRAY_INT1D_STRD
782 
783  SUBROUTINE COM_ALLOC_ARRAY_INT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
784  CHARACTER(*), INTENT(IN) :: W_NAME
785  INTEGER, INTENT(IN) :: PID, CAP, STRD
786  INTEGER, POINTER :: PTR(:)
787  END SUBROUTINE COM_ALLOC_ARRAY_INT1D_DYN
788 
789  SUBROUTINE COM_ALLOC_ARRAY_INT2D( W_NAME, PID, PTR)
790  CHARACTER(*), INTENT(IN) :: W_NAME
791  INTEGER, INTENT(IN) :: PID
792  INTEGER, POINTER :: PTR(:,:)
793  END SUBROUTINE COM_ALLOC_ARRAY_INT2D
794 
795  SUBROUTINE COM_ALLOC_ARRAY_INT2D_STRD( W_NAME, PID, PTR, STRD)
796  CHARACTER(*), INTENT(IN) :: W_NAME
797  INTEGER, INTENT(IN) :: PID, STRD
798  INTEGER, POINTER :: PTR(:,:)
799  END SUBROUTINE COM_ALLOC_ARRAY_INT2D_STRD
800 
801  SUBROUTINE COM_ALLOC_ARRAY_INT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
802  CHARACTER(*), INTENT(IN) :: W_NAME
803  INTEGER, INTENT(IN) :: PID, CAP, STRD
804  INTEGER, POINTER :: PTR(:,:)
805  END SUBROUTINE COM_ALLOC_ARRAY_INT2D_DYN
806 
807  SUBROUTINE COM_ALLOC_ARRAY_FLT( W_NAME, PID, PTR)
808  CHARACTER(*), INTENT(IN) :: W_NAME
809  INTEGER, INTENT(IN) :: PID
810  REAL, POINTER :: PTR
811  END SUBROUTINE COM_ALLOC_ARRAY_FLT
812 
813  SUBROUTINE COM_ALLOC_ARRAY_FLT1D( W_NAME, PID, PTR)
814  CHARACTER(*), INTENT(IN) :: W_NAME
815  INTEGER, INTENT(IN) :: PID
816  REAL, POINTER :: PTR(:)
817  END SUBROUTINE COM_ALLOC_ARRAY_FLT1D
818 
819  SUBROUTINE COM_ALLOC_ARRAY_FLT1D_STRD( W_NAME, PID, PTR, STRD)
820  CHARACTER(*), INTENT(IN) :: W_NAME
821  INTEGER, INTENT(IN) :: PID, STRD
822  REAL, POINTER :: PTR(:)
823  END SUBROUTINE COM_ALLOC_ARRAY_FLT1D_STRD
824 
825  SUBROUTINE COM_ALLOC_ARRAY_FLT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
826  CHARACTER(*), INTENT(IN) :: W_NAME
827  INTEGER, INTENT(IN) :: PID, STRD, CAP
828  REAL, POINTER :: PTR(:)
829  END SUBROUTINE COM_ALLOC_ARRAY_FLT1D_DYN
830 
831  SUBROUTINE COM_ALLOC_ARRAY_FLT2D( W_NAME, PID, PTR)
832  CHARACTER(*), INTENT(IN) :: W_NAME
833  INTEGER, INTENT(IN) :: PID
834  REAL, POINTER :: PTR(:,:)
835  END SUBROUTINE COM_ALLOC_ARRAY_FLT2D
836 
837  SUBROUTINE COM_ALLOC_ARRAY_FLT2D_STRD( W_NAME, PID, PTR, STRD)
838  CHARACTER(*), INTENT(IN) :: W_NAME
839  INTEGER, INTENT(IN) :: PID, STRD
840  REAL, POINTER :: PTR(:,:)
841  END SUBROUTINE COM_ALLOC_ARRAY_FLT2D_STRD
842 
843  SUBROUTINE COM_ALLOC_ARRAY_FLT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
844  CHARACTER(*), INTENT(IN) :: W_NAME
845  INTEGER, INTENT(IN) :: PID, STRD, CAP
846  REAL, POINTER :: PTR(:,:)
847  END SUBROUTINE COM_ALLOC_ARRAY_FLT2D_DYN
848 
849  SUBROUTINE COM_ALLOC_ARRAY_DBL( W_NAME, PID, PTR)
850  CHARACTER(*), INTENT(IN) :: W_NAME
851  INTEGER, INTENT(IN) :: PID
852  DOUBLE PRECISION, POINTER :: PTR
853  END SUBROUTINE COM_ALLOC_ARRAY_DBL
854 
855  SUBROUTINE COM_ALLOC_ARRAY_DBL1D( W_NAME, PID, PTR)
856  CHARACTER(*), INTENT(IN) :: W_NAME
857  INTEGER, INTENT(IN) :: PID
858  DOUBLE PRECISION, POINTER :: PTR(:)
859  END SUBROUTINE COM_ALLOC_ARRAY_DBL1D
860 
861  SUBROUTINE COM_ALLOC_ARRAY_DBL1D_STRD( W_NAME, PID, PTR, STRD)
862  CHARACTER(*), INTENT(IN) :: W_NAME
863  INTEGER, INTENT(IN) :: PID, STRD
864  DOUBLE PRECISION, POINTER :: PTR(:)
865  END SUBROUTINE COM_ALLOC_ARRAY_DBL1D_STRD
866 
867  SUBROUTINE COM_ALLOC_ARRAY_DBL1D_DYN( W_NAME, PID, PTR, STRD, CAP)
868  CHARACTER(*), INTENT(IN) :: W_NAME
869  INTEGER, INTENT(IN) :: PID, STRD, CAP
870  DOUBLE PRECISION, POINTER :: PTR(:)
871  END SUBROUTINE COM_ALLOC_ARRAY_DBL1D_DYN
872 
873  SUBROUTINE COM_ALLOC_ARRAY_DBL2D( W_NAME, PID, PTR)
874  CHARACTER(*), INTENT(IN) :: W_NAME
875  INTEGER, INTENT(IN) :: PID
876  DOUBLE PRECISION, POINTER :: PTR(:,:)
877  END SUBROUTINE COM_ALLOC_ARRAY_DBL2D
878 
879  SUBROUTINE COM_ALLOC_ARRAY_DBL2D_STRD( W_NAME, PID, PTR, STRD)
880  CHARACTER(*), INTENT(IN) :: W_NAME
881  INTEGER, INTENT(IN) :: PID, STRD
882  DOUBLE PRECISION, POINTER :: PTR(:,:)
883  END SUBROUTINE COM_ALLOC_ARRAY_DBL2D_STRD
884 
885  SUBROUTINE COM_ALLOC_ARRAY_DBL2D_DYN( W_NAME, PID, PTR, STRD, CAP)
886  CHARACTER(*), INTENT(IN) :: W_NAME
887  INTEGER, INTENT(IN) :: PID, STRD, CAP
888  DOUBLE PRECISION, POINTER :: PTR(:,:)
889  END SUBROUTINE COM_ALLOC_ARRAY_DBL2D_DYN
890 
891  END INTERFACE
892 
893  INTERFACE COM_RESIZE_ARRAY
894  SUBROUTINE COM_RESIZE_ARRAY_WIN( W_NAME)
895  CHARACTER(*), INTENT(IN) :: W_NAME
896  END SUBROUTINE COM_RESIZE_ARRAY_WIN
897 
898  SUBROUTINE COM_RESIZE_ARRAY_PANE( W_NAME, PID)
899  CHARACTER(*), INTENT(IN) :: W_NAME
900  INTEGER, INTENT(IN) :: PID
901  END SUBROUTINE COM_RESIZE_ARRAY_PANE
902 
903  SUBROUTINE COM_RESIZE_ARRAY_CHR( W_NAME, PID, PTR)
904  CHARACTER(*), INTENT(IN) :: W_NAME
905  INTEGER, INTENT(IN) :: PID
906  CHARACTER(*), POINTER :: PTR
907  END SUBROUTINE COM_RESIZE_ARRAY_CHR
908 
909  SUBROUTINE COM_RESIZE_ARRAY_INT( W_NAME, PID, PTR)
910  CHARACTER(*), INTENT(IN) :: W_NAME
911  INTEGER, INTENT(IN) :: PID
912  INTEGER, POINTER :: PTR
913  END SUBROUTINE COM_RESIZE_ARRAY_INT
914 
915  SUBROUTINE COM_RESIZE_ARRAY_INT1D( W_NAME, PID, PTR)
916  CHARACTER(*), INTENT(IN) :: W_NAME
917  INTEGER, INTENT(IN) :: PID
918  INTEGER, POINTER :: PTR(:)
919  END SUBROUTINE COM_RESIZE_ARRAY_INT1D
920 
921  SUBROUTINE COM_RESIZE_ARRAY_INT1D_STRD( W_NAME, PID, PTR, STRD)
922  CHARACTER(*), INTENT(IN) :: W_NAME
923  INTEGER, INTENT(IN) :: PID, STRD
924  INTEGER, POINTER :: PTR(:)
925  END SUBROUTINE COM_RESIZE_ARRAY_INT1D_STRD
926 
927  SUBROUTINE COM_RESIZE_ARRAY_INT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
928  CHARACTER(*), INTENT(IN) :: W_NAME
929  INTEGER, INTENT(IN) :: PID, STRD, CAP
930  INTEGER, POINTER :: PTR(:)
931  END SUBROUTINE COM_RESIZE_ARRAY_INT1D_DYN
932 
933  SUBROUTINE COM_RESIZE_ARRAY_INT2D( W_NAME, PID, PTR)
934  CHARACTER(*), INTENT(IN) :: W_NAME
935  INTEGER, INTENT(IN) :: PID
936  INTEGER, POINTER :: PTR(:,:)
937  END SUBROUTINE COM_RESIZE_ARRAY_INT2D
938 
939  SUBROUTINE COM_RESIZE_ARRAY_INT2D_STRD( W_NAME, PID, PTR, STRD)
940  CHARACTER(*), INTENT(IN) :: W_NAME
941  INTEGER, INTENT(IN) :: PID, STRD
942  INTEGER, POINTER :: PTR(:,:)
943  END SUBROUTINE COM_RESIZE_ARRAY_INT2D_STRD
944 
945  SUBROUTINE COM_RESIZE_ARRAY_INT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
946  CHARACTER(*), INTENT(IN) :: W_NAME
947  INTEGER, INTENT(IN) :: PID, CAP, STRD
948  INTEGER, POINTER :: PTR(:,:)
949  END SUBROUTINE COM_RESIZE_ARRAY_INT2D_DYN
950 
951  SUBROUTINE COM_RESIZE_ARRAY_FLT( W_NAME, PID, PTR)
952  CHARACTER(*), INTENT(IN) :: W_NAME
953  INTEGER, INTENT(IN) :: PID
954  REAL, POINTER :: PTR
955  END SUBROUTINE COM_RESIZE_ARRAY_FLT
956 
957  SUBROUTINE COM_RESIZE_ARRAY_FLT1D( W_NAME, PID, PTR)
958  CHARACTER(*), INTENT(IN) :: W_NAME
959  INTEGER, INTENT(IN) :: PID
960  REAL, POINTER :: PTR(:)
961  END SUBROUTINE COM_RESIZE_ARRAY_FLT1D
962 
963  SUBROUTINE COM_RESIZE_ARRAY_FLT1D_STRD( W_NAME, PID, PTR, STRD)
964  CHARACTER(*), INTENT(IN) :: W_NAME
965  INTEGER, INTENT(IN) :: PID, STRD
966  REAL, POINTER :: PTR(:)
967  END SUBROUTINE COM_RESIZE_ARRAY_FLT1D_STRD
968 
969  SUBROUTINE COM_RESIZE_ARRAY_FLT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
970  CHARACTER(*), INTENT(IN) :: W_NAME
971  INTEGER, INTENT(IN) :: PID, STRD, CAP
972  REAL, POINTER :: PTR(:)
973  END SUBROUTINE COM_RESIZE_ARRAY_FLT1D_DYN
974 
975  SUBROUTINE COM_RESIZE_ARRAY_FLT2D( W_NAME, PID, PTR)
976  CHARACTER(*), INTENT(IN) :: W_NAME
977  INTEGER, INTENT(IN) :: PID
978  REAL, POINTER :: PTR(:,:)
979  END SUBROUTINE COM_RESIZE_ARRAY_FLT2D
980 
981  SUBROUTINE COM_RESIZE_ARRAY_FLT2D_STRD( W_NAME, PID, PTR, STRD)
982  CHARACTER(*), INTENT(IN) :: W_NAME
983  INTEGER, INTENT(IN) :: PID, STRD
984  REAL, POINTER :: PTR(:,:)
985  END SUBROUTINE COM_RESIZE_ARRAY_FLT2D_STRD
986 
987  SUBROUTINE COM_RESIZE_ARRAY_FLT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
988  CHARACTER(*), INTENT(IN) :: W_NAME
989  INTEGER, INTENT(IN) :: PID, STRD, CAP
990  REAL, POINTER :: PTR(:,:)
991  END SUBROUTINE COM_RESIZE_ARRAY_FLT2D_DYN
992 
993  SUBROUTINE COM_RESIZE_ARRAY_DBL( W_NAME, PID, PTR)
994  CHARACTER(*), INTENT(IN) :: W_NAME
995  INTEGER, INTENT(IN) :: PID
996  DOUBLE PRECISION, POINTER :: PTR
997  END SUBROUTINE COM_RESIZE_ARRAY_DBL
998 
999  SUBROUTINE COM_RESIZE_ARRAY_DBL1D( W_NAME, PID, PTR)
1000  CHARACTER(*), INTENT(IN) :: W_NAME
1001  INTEGER, INTENT(IN) :: PID
1002  DOUBLE PRECISION, POINTER :: PTR(:)
1003  END SUBROUTINE COM_RESIZE_ARRAY_DBL1D
1004 
1005  SUBROUTINE COM_RESIZE_ARRAY_DBL1D_STRD( W_NAME, PID, PTR, STRD)
1006  CHARACTER(*), INTENT(IN) :: W_NAME
1007  INTEGER, INTENT(IN) :: PID, STRD
1008  DOUBLE PRECISION, POINTER :: PTR(:)
1009  END SUBROUTINE COM_RESIZE_ARRAY_DBL1D_STRD
1010 
1011  SUBROUTINE COM_RESIZE_ARRAY_DBL1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1012  CHARACTER(*), INTENT(IN) :: W_NAME
1013  INTEGER, INTENT(IN) :: PID, STRD, CAP
1014  DOUBLE PRECISION, POINTER :: PTR(:)
1015  END SUBROUTINE COM_RESIZE_ARRAY_DBL1D_DYN
1016 
1017  SUBROUTINE COM_RESIZE_ARRAY_DBL2D( W_NAME, PID, PTR)
1018  CHARACTER(*), INTENT(IN) :: W_NAME
1019  INTEGER, INTENT(IN) :: PID
1020  DOUBLE PRECISION, POINTER :: PTR(:,:)
1021  END SUBROUTINE COM_RESIZE_ARRAY_DBL2D
1022 
1023  SUBROUTINE COM_RESIZE_ARRAY_DBL2D_STRD( W_NAME, PID, PTR, STRD)
1024  CHARACTER(*), INTENT(IN) :: W_NAME
1025  INTEGER, INTENT(IN) :: PID, STRD
1026  DOUBLE PRECISION, POINTER :: PTR(:,:)
1027  END SUBROUTINE COM_RESIZE_ARRAY_DBL2D_STRD
1028 
1029  SUBROUTINE COM_RESIZE_ARRAY_DBL2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1030  CHARACTER(*), INTENT(IN) :: W_NAME
1031  INTEGER, INTENT(IN) :: PID, STRD, CAP
1032  DOUBLE PRECISION, POINTER :: PTR(:,:)
1033  END SUBROUTINE COM_RESIZE_ARRAY_DBL2D_DYN
1034 
1035  END INTERFACE
1036 
1037  INTERFACE COM_GET_ARRAY
1038  SUBROUTINE COM_GET_ARRAY_CHR( W_NAME, PID, PTR)
1039  CHARACTER(*), INTENT(IN) :: W_NAME
1040  INTEGER, INTENT(IN) :: PID
1041  CHARACTER(*), POINTER :: PTR
1042  END SUBROUTINE COM_GET_ARRAY_CHR
1043 
1044  SUBROUTINE COM_GET_ARRAY_INT( W_NAME, PID, PTR)
1045  CHARACTER(*), INTENT(IN) :: W_NAME
1046  INTEGER, INTENT(IN) :: PID
1047  INTEGER, POINTER :: PTR
1048  END SUBROUTINE COM_GET_ARRAY_INT
1049 
1050  SUBROUTINE COM_GET_ARRAY_INT1D( W_NAME, PID, PTR)
1051  CHARACTER(*), INTENT(IN) :: W_NAME
1052  INTEGER, INTENT(IN) :: PID
1053  INTEGER, POINTER :: PTR(:)
1054  END SUBROUTINE COM_GET_ARRAY_INT1D
1055 
1056  SUBROUTINE COM_GET_ARRAY_INT1D_STRD( W_NAME, PID, PTR, STRD)
1057  CHARACTER(*), INTENT(IN) :: W_NAME
1058  INTEGER, INTENT(IN) :: PID
1059  INTEGER, INTENT(OUT) :: STRD
1060  INTEGER, POINTER :: PTR(:)
1061  END SUBROUTINE COM_GET_ARRAY_INT1D_STRD
1062 
1063  SUBROUTINE COM_GET_ARRAY_INT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1064  CHARACTER(*), INTENT(IN) :: W_NAME
1065  INTEGER, INTENT(IN) :: PID
1066  INTEGER, INTENT(OUT) :: STRD, CAP
1067  INTEGER, POINTER :: PTR(:)
1068  END SUBROUTINE COM_GET_ARRAY_INT1D_DYN
1069 
1070  SUBROUTINE COM_GET_ARRAY_INT2D( W_NAME, PID, PTR)
1071  CHARACTER(*), INTENT(IN) :: W_NAME
1072  INTEGER, INTENT(IN) :: PID
1073  INTEGER, POINTER :: PTR(:,:)
1074  END SUBROUTINE COM_GET_ARRAY_INT2D
1075 
1076  SUBROUTINE COM_GET_ARRAY_INT2D_STRD( W_NAME, PID, PTR, STRD)
1077  CHARACTER(*), INTENT(IN) :: W_NAME
1078  INTEGER, INTENT(IN) :: PID
1079  INTEGER, INTENT(OUT) :: STRD
1080  INTEGER, POINTER :: PTR(:,:)
1081  END SUBROUTINE COM_GET_ARRAY_INT2D_STRD
1082 
1083  SUBROUTINE COM_GET_ARRAY_INT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1084  CHARACTER(*), INTENT(IN) :: W_NAME
1085  INTEGER, INTENT(IN) :: PID
1086  INTEGER, INTENT(OUT) :: STRD, CAP
1087  INTEGER, POINTER :: PTR(:,:)
1088  END SUBROUTINE COM_GET_ARRAY_INT2D_DYN
1089 
1090  SUBROUTINE COM_GET_ARRAY_FLT( W_NAME, PID, PTR)
1091  CHARACTER(*), INTENT(IN) :: W_NAME
1092  INTEGER, INTENT(IN) :: PID
1093  REAL, POINTER :: PTR
1094  END SUBROUTINE COM_GET_ARRAY_FLT
1095 
1096  SUBROUTINE COM_GET_ARRAY_FLT1D( W_NAME, PID, PTR)
1097  CHARACTER(*), INTENT(IN) :: W_NAME
1098  INTEGER, INTENT(IN) :: PID
1099  REAL, POINTER :: PTR(:)
1100  END SUBROUTINE COM_GET_ARRAY_FLT1D
1101 
1102  SUBROUTINE COM_GET_ARRAY_FLT1D_STRD( W_NAME, PID, PTR, STRD)
1103  CHARACTER(*), INTENT(IN) :: W_NAME
1104  INTEGER, INTENT(IN) :: PID
1105  INTEGER, INTENT(OUT) :: STRD
1106  REAL, POINTER :: PTR(:)
1107  END SUBROUTINE COM_GET_ARRAY_FLT1D_STRD
1108 
1109  SUBROUTINE COM_GET_ARRAY_FLT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1110  CHARACTER(*), INTENT(IN) :: W_NAME
1111  INTEGER, INTENT(IN) :: PID
1112  INTEGER, INTENT(OUT) :: STRD, CAP
1113  REAL, POINTER :: PTR(:)
1114  END SUBROUTINE COM_GET_ARRAY_FLT1D_DYN
1115 
1116  SUBROUTINE COM_GET_ARRAY_FLT2D( W_NAME, PID, PTR)
1117  CHARACTER(*), INTENT(IN) :: W_NAME
1118  INTEGER, INTENT(IN) :: PID
1119  REAL, POINTER :: PTR(:,:)
1120  END SUBROUTINE COM_GET_ARRAY_FLT2D
1121 
1122  SUBROUTINE COM_GET_ARRAY_FLT2D_STRD( W_NAME, PID, PTR, STRD)
1123  CHARACTER(*), INTENT(IN) :: W_NAME
1124  INTEGER, INTENT(IN) :: PID
1125  INTEGER, INTENT(OUT) :: STRD
1126  REAL, POINTER :: PTR(:,:)
1127  END SUBROUTINE COM_GET_ARRAY_FLT2D_STRD
1128 
1129  SUBROUTINE COM_GET_ARRAY_FLT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1130  CHARACTER(*), INTENT(IN) :: W_NAME
1131  INTEGER, INTENT(IN) :: PID
1132  INTEGER, INTENT(OUT) :: STRD, CAP
1133  REAL, POINTER :: PTR(:,:)
1134  END SUBROUTINE COM_GET_ARRAY_FLT2D_DYN
1135 
1136  SUBROUTINE COM_GET_ARRAY_DBL( W_NAME, PID, PTR)
1137  CHARACTER(*), INTENT(IN) :: W_NAME
1138  INTEGER, INTENT(IN) :: PID
1139  DOUBLE PRECISION, POINTER :: PTR
1140  END SUBROUTINE COM_GET_ARRAY_DBL
1141 
1142  SUBROUTINE COM_GET_ARRAY_DBL1D( W_NAME, PID, PTR)
1143  CHARACTER(*), INTENT(IN) :: W_NAME
1144  INTEGER, INTENT(IN) :: PID
1145  DOUBLE PRECISION, POINTER :: PTR(:)
1146  END SUBROUTINE COM_GET_ARRAY_DBL1D
1147 
1148  SUBROUTINE COM_GET_ARRAY_DBL1D_STRD( W_NAME, PID, PTR, STRD)
1149  CHARACTER(*), INTENT(IN) :: W_NAME
1150  INTEGER, INTENT(IN) :: PID
1151  INTEGER, INTENT(OUT) :: STRD
1152  DOUBLE PRECISION, POINTER :: PTR(:)
1153  END SUBROUTINE COM_GET_ARRAY_DBL1D_STRD
1154 
1155  SUBROUTINE COM_GET_ARRAY_DBL1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1156  CHARACTER(*), INTENT(IN) :: W_NAME
1157  INTEGER, INTENT(IN) :: PID
1158  INTEGER, INTENT(OUT) :: STRD, CAP
1159  DOUBLE PRECISION, POINTER :: PTR(:)
1160  END SUBROUTINE COM_GET_ARRAY_DBL1D_DYN
1161 
1162  SUBROUTINE COM_GET_ARRAY_DBL2D( W_NAME, PID, PTR)
1163  CHARACTER(*), INTENT(IN) :: W_NAME
1164  INTEGER, INTENT(IN) :: PID
1165  DOUBLE PRECISION, POINTER :: PTR(:,:)
1166  END SUBROUTINE COM_GET_ARRAY_DBL2D
1167 
1168  SUBROUTINE COM_GET_ARRAY_DBL2D_STRD( W_NAME, PID, PTR, STRD)
1169  CHARACTER(*), INTENT(IN) :: W_NAME
1170  INTEGER, INTENT(IN) :: PID
1171  INTEGER, INTENT(OUT) :: STRD
1172  DOUBLE PRECISION, POINTER :: PTR(:,:)
1173  END SUBROUTINE COM_GET_ARRAY_DBL2D_STRD
1174 
1175  SUBROUTINE COM_GET_ARRAY_DBL2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1176  CHARACTER(*), INTENT(IN) :: W_NAME
1177  INTEGER, INTENT(IN) :: PID
1178  INTEGER, INTENT(OUT) :: STRD, CAP
1179  DOUBLE PRECISION, POINTER :: PTR(:,:)
1180  END SUBROUTINE COM_GET_ARRAY_DBL2D_DYN
1181 
1182  END INTERFACE
1183 
1184  INTERFACE COM_GET_ARRAY_CONST
1185  SUBROUTINE COM_GET_ARRAY_CONST_CHR( W_NAME, PID, PTR)
1186  CHARACTER(*), INTENT(IN) :: W_NAME
1187  INTEGER, INTENT(IN) :: PID
1188  CHARACTER(*), POINTER :: PTR
1189  END SUBROUTINE COM_GET_ARRAY_CONST_CHR
1190 
1191  SUBROUTINE COM_GET_ARRAY_CONST_INT( W_NAME, PID, PTR)
1192  CHARACTER(*), INTENT(IN) :: W_NAME
1193  INTEGER, INTENT(IN) :: PID
1194  INTEGER, POINTER :: PTR
1195  END SUBROUTINE COM_GET_ARRAY_CONST_INT
1196 
1197  SUBROUTINE COM_GET_ARRAY_CONST_INT1D( W_NAME, PID, PTR)
1198  CHARACTER(*), INTENT(IN) :: W_NAME
1199  INTEGER, INTENT(IN) :: PID
1200  INTEGER, POINTER :: PTR(:)
1201  END SUBROUTINE COM_GET_ARRAY_CONST_INT1D
1202 
1203  SUBROUTINE COM_GET_ARRAY_CONST_INT1D_STRD( W_NAME, PID, PTR, STRD)
1204  CHARACTER(*), INTENT(IN) :: W_NAME
1205  INTEGER, INTENT(IN) :: PID
1206  INTEGER, INTENT(OUT) :: STRD
1207  INTEGER, POINTER :: PTR(:)
1208  END SUBROUTINE COM_GET_ARRAY_CONST_INT1D_STRD
1209 
1210  SUBROUTINE COM_GET_ARRAY_CONST_INT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1211  CHARACTER(*), INTENT(IN) :: W_NAME
1212  INTEGER, INTENT(IN) :: PID
1213  INTEGER, INTENT(OUT) :: STRD, CAP
1214  INTEGER, POINTER :: PTR(:)
1215  END SUBROUTINE COM_GET_ARRAY_CONST_INT1D_DYN
1216 
1217  SUBROUTINE COM_GET_ARRAY_CONST_INT2D( W_NAME, PID, PTR)
1218  CHARACTER(*), INTENT(IN) :: W_NAME
1219  INTEGER, INTENT(IN) :: PID
1220  INTEGER, POINTER :: PTR(:,:)
1221  END SUBROUTINE COM_GET_ARRAY_CONST_INT2D
1222 
1223  SUBROUTINE COM_GET_ARRAY_CONST_INT2D_STRD( W_NAME, PID, PTR, STRD)
1224  CHARACTER(*), INTENT(IN) :: W_NAME
1225  INTEGER, INTENT(IN) :: PID
1226  INTEGER, INTENT(OUT) :: STRD
1227  INTEGER, POINTER :: PTR(:,:)
1228  END SUBROUTINE COM_GET_ARRAY_CONST_INT2D_STRD
1229 
1230  SUBROUTINE COM_GET_ARRAY_CONST_INT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1231  CHARACTER(*), INTENT(IN) :: W_NAME
1232  INTEGER, INTENT(IN) :: PID
1233  INTEGER, INTENT(OUT) :: STRD, CAP
1234  INTEGER, POINTER :: PTR(:,:)
1235  END SUBROUTINE COM_GET_ARRAY_CONST_INT2D_DYN
1236 
1237  SUBROUTINE COM_GET_ARRAY_CONST_FLT( W_NAME, PID, PTR)
1238  CHARACTER(*), INTENT(IN) :: W_NAME
1239  INTEGER, INTENT(IN) :: PID
1240  REAL, POINTER :: PTR
1241  END SUBROUTINE COM_GET_ARRAY_CONST_FLT
1242 
1243  SUBROUTINE COM_GET_ARRAY_CONST_FLT1D( W_NAME, PID, PTR)
1244  CHARACTER(*), INTENT(IN) :: W_NAME
1245  INTEGER, INTENT(IN) :: PID
1246  REAL, POINTER :: PTR(:)
1247  END SUBROUTINE COM_GET_ARRAY_CONST_FLT1D
1248 
1249  SUBROUTINE COM_GET_ARRAY_CONST_FLT1D_STRD( W_NAME, PID, PTR, STRD)
1250  CHARACTER(*), INTENT(IN) :: W_NAME
1251  INTEGER, INTENT(IN) :: PID
1252  INTEGER, INTENT(OUT) :: STRD
1253  REAL, POINTER :: PTR(:)
1254  END SUBROUTINE COM_GET_ARRAY_CONST_FLT1D_STRD
1255 
1256  SUBROUTINE COM_GET_ARRAY_CONST_FLT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1257  CHARACTER(*), INTENT(IN) :: W_NAME
1258  INTEGER, INTENT(IN) :: PID
1259  INTEGER, INTENT(OUT) :: STRD, CAP
1260  REAL, POINTER :: PTR(:)
1261  END SUBROUTINE COM_GET_ARRAY_CONST_FLT1D_DYN
1262 
1263  SUBROUTINE COM_GET_ARRAY_CONST_FLT2D( W_NAME, PID, PTR)
1264  CHARACTER(*), INTENT(IN) :: W_NAME
1265  INTEGER, INTENT(IN) :: PID
1266  REAL, POINTER :: PTR(:,:)
1267  END SUBROUTINE COM_GET_ARRAY_CONST_FLT2D
1268 
1269  SUBROUTINE COM_GET_ARRAY_CONST_FLT2D_STRD( W_NAME, PID, PTR, STRD)
1270  CHARACTER(*), INTENT(IN) :: W_NAME
1271  INTEGER, INTENT(IN) :: PID
1272  INTEGER, INTENT(OUT) :: STRD
1273  REAL, POINTER :: PTR(:,:)
1274  END SUBROUTINE COM_GET_ARRAY_CONST_FLT2D_STRD
1275 
1276  SUBROUTINE COM_GET_ARRAY_CONST_FLT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1277  CHARACTER(*), INTENT(IN) :: W_NAME
1278  INTEGER, INTENT(IN) :: PID
1279  INTEGER, INTENT(OUT) :: STRD, CAP
1280  REAL, POINTER :: PTR(:,:)
1281  END SUBROUTINE COM_GET_ARRAY_CONST_FLT2D_DYN
1282 
1283  SUBROUTINE COM_GET_ARRAY_CONST_DBL( W_NAME, PID, PTR)
1284  CHARACTER(*), INTENT(IN) :: W_NAME
1285  INTEGER, INTENT(IN) :: PID
1286  DOUBLE PRECISION, POINTER :: PTR
1287  END SUBROUTINE COM_GET_ARRAY_CONST_DBL
1288 
1289  SUBROUTINE COM_GET_ARRAY_CONST_DBL1D( W_NAME, PID, PTR)
1290  CHARACTER(*), INTENT(IN) :: W_NAME
1291  INTEGER, INTENT(IN) :: PID
1292  DOUBLE PRECISION, POINTER :: PTR(:)
1293  END SUBROUTINE COM_GET_ARRAY_CONST_DBL1D
1294 
1295  SUBROUTINE COM_GET_ARRAY_CONST_DBL1D_STRD( W_NAME, PID, PTR, STRD)
1296  CHARACTER(*), INTENT(IN) :: W_NAME
1297  INTEGER, INTENT(IN) :: PID
1298  INTEGER, INTENT(OUT) :: STRD
1299  DOUBLE PRECISION, POINTER :: PTR(:)
1300  END SUBROUTINE COM_GET_ARRAY_CONST_DBL1D_STRD
1301 
1302  SUBROUTINE COM_GET_ARRAY_CONST_DBL1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1303  CHARACTER(*), INTENT(IN) :: W_NAME
1304  INTEGER, INTENT(IN) :: PID
1305  INTEGER, INTENT(OUT) :: STRD, CAP
1306  DOUBLE PRECISION, POINTER :: PTR(:)
1307  END SUBROUTINE COM_GET_ARRAY_CONST_DBL1D_DYN
1308 
1309  SUBROUTINE COM_GET_ARRAY_CONST_DBL2D( W_NAME, PID, PTR)
1310  CHARACTER(*), INTENT(IN) :: W_NAME
1311  INTEGER, INTENT(IN) :: PID
1312  DOUBLE PRECISION, POINTER :: PTR(:,:)
1313  END SUBROUTINE COM_GET_ARRAY_CONST_DBL2D
1314 
1315  SUBROUTINE COM_GET_ARRAY_CONST_DBL2D_STRD( W_NAME, PID, PTR, STRD)
1316  CHARACTER(*), INTENT(IN) :: W_NAME
1317  INTEGER, INTENT(IN) :: PID
1318  INTEGER, INTENT(OUT) :: STRD
1319  DOUBLE PRECISION, POINTER :: PTR(:,:)
1320  END SUBROUTINE COM_GET_ARRAY_CONST_DBL2D_STRD
1321 
1322  SUBROUTINE COM_GET_ARRAY_CONST_DBL2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1323  CHARACTER(*), INTENT(IN) :: W_NAME
1324  INTEGER, INTENT(IN) :: PID
1325  INTEGER, INTENT(OUT) :: STRD, CAP
1326  DOUBLE PRECISION, POINTER :: PTR(:,:)
1327  END SUBROUTINE COM_GET_ARRAY_CONST_DBL2D_DYN
1328 
1329  END INTERFACE
1330 
1331  INTERFACE COM_COPY_ARRAY
1332  SUBROUTINE COM_COPY_ARRAY_CHR( W_NAME, PID, PTR)
1333  CHARACTER(*), INTENT(IN) :: W_NAME
1334  INTEGER, INTENT(IN) :: PID
1335  CHARACTER(*), POINTER :: PTR
1336  END SUBROUTINE COM_COPY_ARRAY_CHR
1337 
1338  SUBROUTINE COM_COPY_ARRAY_INT( W_NAME, PID, PTR)
1339  CHARACTER(*), INTENT(IN) :: W_NAME
1340  INTEGER, INTENT(IN) :: PID
1341  INTEGER :: PTR
1342  END SUBROUTINE COM_COPY_ARRAY_INT
1343 
1344  SUBROUTINE COM_COPY_ARRAY_INT_STRD( W_NAME, PID, PTR, STRD)
1345  CHARACTER(*), INTENT(IN) :: W_NAME
1346  INTEGER, INTENT(IN) :: PID, STRD
1347  INTEGER, INTENT(OUT) :: PTR
1348  END SUBROUTINE COM_COPY_ARRAY_INT_STRD
1349 
1350  SUBROUTINE COM_COPY_ARRAY_INT_DYN( W_NAME, PID, PTR, STRD, CAP)
1351  CHARACTER(*), INTENT(IN) :: W_NAME
1352  INTEGER, INTENT(IN) :: PID, STRD, CAP
1353  INTEGER, INTENT(OUT) :: PTR
1354  END SUBROUTINE COM_COPY_ARRAY_INT_DYN
1355 
1356  SUBROUTINE COM_COPY_ARRAY_INT_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1357  CHARACTER(*), INTENT(IN) :: W_NAME
1358  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1359  INTEGER, INTENT(OUT) :: PTR
1360  END SUBROUTINE COM_COPY_ARRAY_INT_OFF
1361 
1362  SUBROUTINE COM_COPY_ARRAY_INT1D( W_NAME, PID, PTR)
1363  CHARACTER(*), INTENT(IN) :: W_NAME
1364  INTEGER, INTENT(IN) :: PID
1365  INTEGER, POINTER :: PTR(:)
1366  END SUBROUTINE COM_COPY_ARRAY_INT1D
1367 
1368  SUBROUTINE COM_COPY_ARRAY_INT1D_STRD( W_NAME, PID, PTR, STRD)
1369  CHARACTER(*), INTENT(IN) :: W_NAME
1370  INTEGER, INTENT(IN) :: PID, STRD
1371  INTEGER, POINTER :: PTR(:)
1372  END SUBROUTINE COM_COPY_ARRAY_INT1D_STRD
1373 
1374  SUBROUTINE COM_COPY_ARRAY_INT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1375  CHARACTER(*), INTENT(IN) :: W_NAME
1376  INTEGER, INTENT(IN) :: PID, STRD, CAP
1377  INTEGER, POINTER :: PTR(:)
1378  END SUBROUTINE COM_COPY_ARRAY_INT1D_DYN
1379 
1380  SUBROUTINE COM_COPY_ARRAY_INT1D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1381  CHARACTER(*), INTENT(IN) :: W_NAME
1382  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1383  INTEGER, POINTER :: PTR(:)
1384  END SUBROUTINE COM_COPY_ARRAY_INT1D_OFF
1385 
1386  SUBROUTINE COM_COPY_ARRAY_INT2D( W_NAME, PID, PTR)
1387  CHARACTER(*), INTENT(IN) :: W_NAME
1388  INTEGER, INTENT(IN) :: PID
1389  INTEGER, POINTER :: PTR(:,:)
1390  END SUBROUTINE COM_COPY_ARRAY_INT2D
1391 
1392  SUBROUTINE COM_COPY_ARRAY_INT2D_STRD( W_NAME, PID, PTR, STRD)
1393  CHARACTER(*), INTENT(IN) :: W_NAME
1394  INTEGER, INTENT(IN) :: PID, STRD
1395  INTEGER, POINTER :: PTR(:,:)
1396  END SUBROUTINE COM_COPY_ARRAY_INT2D_STRD
1397 
1398  SUBROUTINE COM_COPY_ARRAY_INT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1399  CHARACTER(*), INTENT(IN) :: W_NAME
1400  INTEGER, INTENT(IN) :: PID, STRD, CAP
1401  INTEGER, POINTER :: PTR(:,:)
1402  END SUBROUTINE COM_COPY_ARRAY_INT2D_DYN
1403 
1404  SUBROUTINE COM_COPY_ARRAY_INT2D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1405  CHARACTER(*), INTENT(IN) :: W_NAME
1406  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1407  INTEGER, POINTER :: PTR(:,:)
1408  END SUBROUTINE COM_COPY_ARRAY_INT2D_OFF
1409 
1410  SUBROUTINE COM_COPY_ARRAY_INT3D( W_NAME, PID, PTR)
1411  CHARACTER(*), INTENT(IN) :: W_NAME
1412  INTEGER, INTENT(IN) :: PID
1413  INTEGER, POINTER :: PTR(:,:,:)
1414  END SUBROUTINE COM_COPY_ARRAY_INT3D
1415 
1416  SUBROUTINE COM_COPY_ARRAY_INT3D_STRD( W_NAME, PID, PTR, STRD)
1417  CHARACTER(*), INTENT(IN) :: W_NAME
1418  INTEGER, INTENT(IN) :: PID, STRD
1419  INTEGER, POINTER :: PTR(:,:,:)
1420  END SUBROUTINE COM_COPY_ARRAY_INT3D_STRD
1421 
1422  SUBROUTINE COM_COPY_ARRAY_INT3D_DYN( W_NAME, PID, PTR, STRD, CAP)
1423  CHARACTER(*), INTENT(IN) :: W_NAME
1424  INTEGER, INTENT(IN) :: PID, STRD, CAP
1425  INTEGER, POINTER :: PTR(:,:,:)
1426  END SUBROUTINE COM_COPY_ARRAY_INT3D_DYN
1427 
1428  SUBROUTINE COM_COPY_ARRAY_INT3D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1429  CHARACTER(*), INTENT(IN) :: W_NAME
1430  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1431  INTEGER, POINTER :: PTR(:,:,:)
1432  END SUBROUTINE COM_COPY_ARRAY_INT3D_OFF
1433 
1434  SUBROUTINE COM_COPY_ARRAY_FLT( W_NAME, PID, PTR)
1435  CHARACTER(*), INTENT(IN) :: W_NAME
1436  INTEGER, INTENT(IN) :: PID
1437  REAL, INTENT(OUT) :: PTR
1438  END SUBROUTINE COM_COPY_ARRAY_FLT
1439 
1440  SUBROUTINE COM_COPY_ARRAY_FLT_STRD( W_NAME, PID, PTR, STRD)
1441  CHARACTER(*), INTENT(IN) :: W_NAME
1442  INTEGER, INTENT(IN) :: PID, STRD
1443  REAL, INTENT(OUT) :: PTR
1444  END SUBROUTINE COM_COPY_ARRAY_FLT_STRD
1445 
1446  SUBROUTINE COM_COPY_ARRAY_FLT_DYN( W_NAME, PID, PTR, STRD, CAP)
1447  CHARACTER(*), INTENT(IN) :: W_NAME
1448  INTEGER, INTENT(IN) :: PID, STRD, CAP
1449  REAL, INTENT(OUT) :: PTR
1450  END SUBROUTINE COM_COPY_ARRAY_FLT_DYN
1451 
1452  SUBROUTINE COM_COPY_ARRAY_FLT_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1453  CHARACTER(*), INTENT(IN) :: W_NAME
1454  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1455  REAL, INTENT(OUT) :: PTR
1456  END SUBROUTINE COM_COPY_ARRAY_FLT_OFF
1457 
1458  SUBROUTINE COM_COPY_ARRAY_FLT1D( W_NAME, PID, PTR)
1459  CHARACTER(*), INTENT(IN) :: W_NAME
1460  INTEGER, INTENT(IN) :: PID
1461  REAL, POINTER :: PTR(:)
1462  END SUBROUTINE COM_COPY_ARRAY_FLT1D
1463 
1464  SUBROUTINE COM_COPY_ARRAY_FLT1D_STRD( W_NAME, PID, PTR, STRD)
1465  CHARACTER(*), INTENT(IN) :: W_NAME
1466  INTEGER, INTENT(IN) :: PID, STRD
1467  REAL, POINTER :: PTR(:)
1468  END SUBROUTINE COM_COPY_ARRAY_FLT1D_STRD
1469 
1470  SUBROUTINE COM_COPY_ARRAY_FLT1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1471  CHARACTER(*), INTENT(IN) :: W_NAME
1472  INTEGER, INTENT(IN) :: PID, STRD, CAP
1473  REAL, POINTER :: PTR(:)
1474  END SUBROUTINE COM_COPY_ARRAY_FLT1D_DYN
1475 
1476  SUBROUTINE COM_COPY_ARRAY_FLT1D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1477  CHARACTER(*), INTENT(IN) :: W_NAME
1478  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1479  REAL, POINTER :: PTR(:)
1480  END SUBROUTINE COM_COPY_ARRAY_FLT1D_OFF
1481 
1482  SUBROUTINE COM_COPY_ARRAY_FLT2D( W_NAME, PID, PTR)
1483  CHARACTER(*), INTENT(IN) :: W_NAME
1484  INTEGER, INTENT(IN) :: PID
1485  REAL, POINTER :: PTR(:,:)
1486  END SUBROUTINE COM_COPY_ARRAY_FLT2D
1487 
1488  SUBROUTINE COM_COPY_ARRAY_FLT2D_STRD( W_NAME, PID, PTR, STRD)
1489  CHARACTER(*), INTENT(IN) :: W_NAME
1490  INTEGER, INTENT(IN) :: PID, STRD
1491  REAL, POINTER :: PTR(:,:)
1492  END SUBROUTINE COM_COPY_ARRAY_FLT2D_STRD
1493 
1494  SUBROUTINE COM_COPY_ARRAY_FLT2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1495  CHARACTER(*), INTENT(IN) :: W_NAME
1496  INTEGER, INTENT(IN) :: PID, STRD, CAP
1497  REAL, POINTER :: PTR(:,:)
1498  END SUBROUTINE COM_COPY_ARRAY_FLT2D_DYN
1499 
1500  SUBROUTINE COM_COPY_ARRAY_FLT2D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1501  CHARACTER(*), INTENT(IN) :: W_NAME
1502  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1503  REAL, POINTER :: PTR(:,:)
1504  END SUBROUTINE COM_COPY_ARRAY_FLT2D_OFF
1505 
1506  SUBROUTINE COM_COPY_ARRAY_FLT3D( W_NAME, PID, PTR)
1507  CHARACTER(*), INTENT(IN) :: W_NAME
1508  INTEGER, INTENT(IN) :: PID
1509  REAL, POINTER :: PTR(:,:,:)
1510  END SUBROUTINE COM_COPY_ARRAY_FLT3D
1511 
1512  SUBROUTINE COM_COPY_ARRAY_FLT3D_STRD( W_NAME, PID, PTR, STRD)
1513  CHARACTER(*), INTENT(IN) :: W_NAME
1514  INTEGER, INTENT(IN) :: PID, STRD
1515  REAL, POINTER :: PTR(:,:,:)
1516  END SUBROUTINE COM_COPY_ARRAY_FLT3D_STRD
1517 
1518  SUBROUTINE COM_COPY_ARRAY_FLT3D_DYN( W_NAME, PID, PTR, STRD, CAP)
1519  CHARACTER(*), INTENT(IN) :: W_NAME
1520  INTEGER, INTENT(IN) :: PID, STRD, CAP
1521  REAL, POINTER :: PTR(:,:,:)
1522  END SUBROUTINE COM_COPY_ARRAY_FLT3D_DYN
1523 
1524  SUBROUTINE COM_COPY_ARRAY_FLT3D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1525  CHARACTER(*), INTENT(IN) :: W_NAME
1526  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1527  REAL, POINTER :: PTR(:,:,:)
1528  END SUBROUTINE COM_COPY_ARRAY_FLT3D_OFF
1529 
1530  SUBROUTINE COM_COPY_ARRAY_DBL( W_NAME, PID, PTR)
1531  CHARACTER(*), INTENT(IN) :: W_NAME
1532  INTEGER, INTENT(IN) :: PID
1533  DOUBLE PRECISION, INTENT(OUT) :: PTR
1534  END SUBROUTINE COM_COPY_ARRAY_DBL
1535 
1536  SUBROUTINE COM_COPY_ARRAY_DBL_STRD( W_NAME, PID, PTR, STRD)
1537  CHARACTER(*), INTENT(IN) :: W_NAME
1538  INTEGER, INTENT(IN) :: PID, STRD
1539  DOUBLE PRECISION, INTENT(OUT) :: PTR
1540  END SUBROUTINE COM_COPY_ARRAY_DBL_STRD
1541 
1542  SUBROUTINE COM_COPY_ARRAY_DBL_DYN( W_NAME, PID, PTR, STRD, CAP)
1543  CHARACTER(*), INTENT(IN) :: W_NAME
1544  INTEGER, INTENT(IN) :: PID, STRD, CAP
1545  DOUBLE PRECISION, INTENT(OUT) :: PTR
1546  END SUBROUTINE COM_COPY_ARRAY_DBL_DYN
1547 
1548  SUBROUTINE COM_COPY_ARRAY_DBL_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1549  CHARACTER(*), INTENT(IN) :: W_NAME
1550  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1551  DOUBLE PRECISION, INTENT(OUT) :: PTR
1552  END SUBROUTINE COM_COPY_ARRAY_DBL_OFF
1553 
1554  SUBROUTINE COM_COPY_ARRAY_DBL1D( W_NAME, PID, PTR)
1555  CHARACTER(*), INTENT(IN) :: W_NAME
1556  INTEGER, INTENT(IN) :: PID
1557  DOUBLE PRECISION, POINTER :: PTR(:)
1558  END SUBROUTINE COM_COPY_ARRAY_DBL1D
1559 
1560  SUBROUTINE COM_COPY_ARRAY_DBL1D_STRD( W_NAME, PID, PTR, STRD)
1561  CHARACTER(*), INTENT(IN) :: W_NAME
1562  INTEGER, INTENT(IN) :: PID, STRD
1563  DOUBLE PRECISION, POINTER :: PTR(:)
1564  END SUBROUTINE COM_COPY_ARRAY_DBL1D_STRD
1565 
1566  SUBROUTINE COM_COPY_ARRAY_DBL1D_DYN( W_NAME, PID, PTR, STRD, CAP)
1567  CHARACTER(*), INTENT(IN) :: W_NAME
1568  INTEGER, INTENT(IN) :: PID, STRD, CAP
1569  DOUBLE PRECISION, POINTER :: PTR(:)
1570  END SUBROUTINE COM_COPY_ARRAY_DBL1D_DYN
1571 
1572  SUBROUTINE COM_COPY_ARRAY_DBL1D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1573  CHARACTER(*), INTENT(IN) :: W_NAME
1574  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1575  DOUBLE PRECISION, POINTER :: PTR(:)
1576  END SUBROUTINE COM_COPY_ARRAY_DBL1D_OFF
1577 
1578  SUBROUTINE COM_COPY_ARRAY_DBL2D( W_NAME, PID, PTR)
1579  CHARACTER(*), INTENT(IN) :: W_NAME
1580  INTEGER, INTENT(IN) :: PID
1581  DOUBLE PRECISION, POINTER :: PTR(:,:)
1582  END SUBROUTINE COM_COPY_ARRAY_DBL2D
1583 
1584  SUBROUTINE COM_COPY_ARRAY_DBL2D_STRD( W_NAME, PID, PTR, STRD)
1585  CHARACTER(*), INTENT(IN) :: W_NAME
1586  INTEGER, INTENT(IN) :: PID, STRD
1587  DOUBLE PRECISION, POINTER :: PTR(:,:)
1588  END SUBROUTINE COM_COPY_ARRAY_DBL2D_STRD
1589 
1590  SUBROUTINE COM_COPY_ARRAY_DBL2D_DYN( W_NAME, PID, PTR, STRD, CAP)
1591  CHARACTER(*), INTENT(IN) :: W_NAME
1592  INTEGER, INTENT(IN) :: PID, STRD, CAP
1593  DOUBLE PRECISION, POINTER :: PTR(:,:)
1594  END SUBROUTINE COM_COPY_ARRAY_DBL2D_DYN
1595 
1596  SUBROUTINE COM_COPY_ARRAY_DBL2D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1597  CHARACTER(*), INTENT(IN) :: W_NAME
1598  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1599  DOUBLE PRECISION, POINTER :: PTR(:,:)
1600  END SUBROUTINE COM_COPY_ARRAY_DBL2D_OFF
1601 
1602  SUBROUTINE COM_COPY_ARRAY_DBL3D( W_NAME, PID, PTR)
1603  CHARACTER(*), INTENT(IN) :: W_NAME
1604  INTEGER, INTENT(IN) :: PID
1605  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
1606  END SUBROUTINE COM_COPY_ARRAY_DBL3D
1607 
1608  SUBROUTINE COM_COPY_ARRAY_DBL3D_STRD( W_NAME, PID, PTR, STRD)
1609  CHARACTER(*), INTENT(IN) :: W_NAME
1610  INTEGER, INTENT(IN) :: PID, STRD
1611  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
1612  END SUBROUTINE COM_COPY_ARRAY_DBL3D_STRD
1613 
1614  SUBROUTINE COM_COPY_ARRAY_DBL3D_DYN( W_NAME, PID, PTR, STRD, CAP)
1615  CHARACTER(*), INTENT(IN) :: W_NAME
1616  INTEGER, INTENT(IN) :: PID, STRD, CAP
1617  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
1618  END SUBROUTINE COM_COPY_ARRAY_DBL3D_DYN
1619 
1620  SUBROUTINE COM_COPY_ARRAY_DBL3D_OFF( W_NAME, PID, PTR, STRD, CAP, OFF)
1621  CHARACTER(*), INTENT(IN) :: W_NAME
1622  INTEGER, INTENT(IN) :: PID, STRD, CAP, OFF
1623  DOUBLE PRECISION, POINTER :: PTR(:,:,:)
1624  END SUBROUTINE COM_COPY_ARRAY_DBL3D_OFF
1625  END INTERFACE
1626 
1627  INTERFACE COM_GET_BOUNDS
1628  SUBROUTINE COM_GET_BOUNDS_INT( WNAME, PANE_ID, LBND, UBND)
1629  CHARACTER(*), INTENT(IN) :: WNAME
1630  INTEGER, INTENT(IN) :: PANE_ID
1631  INTEGER, INTENT(OUT) :: LBND, UBND
1632  END SUBROUTINE COM_GET_BOUNDS_INT
1633 
1634  SUBROUTINE COM_GET_BOUNDS_FLT( WNAME, PANE_ID, LBND, UBND)
1635  CHARACTER(*), INTENT(IN) :: WNAME
1636  INTEGER, INTENT(IN) :: PANE_ID
1637  REAL, INTENT(OUT) :: LBND, UBND
1638  END SUBROUTINE COM_GET_BOUNDS_FLT
1639 
1640  SUBROUTINE COM_GET_BOUNDS_DBL( WNAME, PANE_ID, LBND, UBND)
1641  CHARACTER(*), INTENT(IN) :: WNAME
1642  INTEGER, INTENT(IN) :: PANE_ID
1643  DOUBLE PRECISION, INTENT(OUT) :: LBND, UBND
1644  END SUBROUTINE COM_GET_BOUNDS_DBL
1645  END INTERFACE
1646 
1647  INTERFACE COM_USE_ATTRIBUTE
1648  SUBROUTINE COM_USE_ATTR( WNAME, WANAME)
1649  CHARACTER(*), INTENT(IN) :: WNAME, WANAME
1650  END SUBROUTINE COM_USE_ATTR
1651 
1652  SUBROUTINE COM_USE_ATTR_GHOST( WNAME, WANAME, WITHGHOST)
1653  CHARACTER(*), INTENT(IN) :: WNAME, WANAME
1654  INTEGER, INTENT(IN) :: WITHGHOST
1655  END SUBROUTINE COM_USE_ATTR_GHOST
1656 
1657  SUBROUTINE COM_USE_ATTR_SUB( WNAME, WANAME, WITHGHOST, PTNNAME, VAL)
1658  CHARACTER(*), INTENT(IN) :: WNAME, WANAME, PTNNAME
1659  INTEGER, INTENT(IN) :: VAL, WITHGHOST
1660  END SUBROUTINE COM_USE_ATTR_SUB
1661  END INTERFACE
1662 
1663  INTERFACE COM_CLONE_ATTRIBUTE
1664  SUBROUTINE COM_CLONE_ATTR( WNAME, WANAME)
1665  CHARACTER(*), INTENT(IN) :: WNAME, WANAME
1666  END SUBROUTINE COM_CLONE_ATTR
1667 
1668  SUBROUTINE COM_CLONE_ATTR_GHOST( WNAME, WANAME, WITHGHOST)
1669  CHARACTER(*), INTENT(IN) :: WNAME, WANAME
1670  INTEGER, INTENT(IN) :: WITHGHOST
1671  END SUBROUTINE COM_CLONE_ATTR_GHOST
1672 
1673  SUBROUTINE COM_CLONE_ATTR_SUB( WNAME, WANAME, WITHGHOST, PTNNAME, VAL)
1674  CHARACTER(*), INTENT(IN) :: WNAME, WANAME, PTNNAME
1675  INTEGER, INTENT(IN) :: VAL, WITHGHOST
1676  END SUBROUTINE COM_CLONE_ATTR_SUB
1677  END INTERFACE
1678 
1679  INTERFACE COM_COPY_ATTRIBUTE
1680  SUBROUTINE COM_COPY_ATTR( WNAME, WANAME)
1681  CHARACTER(*), INTENT(IN) :: WNAME, WANAME
1682  END SUBROUTINE COM_COPY_ATTR
1683 
1684  SUBROUTINE COM_COPY_ATTR_GHOST( WNAME, WANAME, WITHGHOST)
1685  CHARACTER(*), INTENT(IN) :: WNAME, WANAME
1686  INTEGER, INTENT(IN) :: WITHGHOST
1687  END SUBROUTINE COM_COPY_ATTR_GHOST
1688 
1689  SUBROUTINE COM_COPY_ATTR_SUB( WNAME, WANAME, WITHGHOST, PTNNAME, VAL)
1690  CHARACTER(*), INTENT(IN) :: WNAME, WANAME, PTNNAME
1691  INTEGER, INTENT(IN) :: VAL, WITHGHOST
1692  END SUBROUTINE COM_COPY_ATTR_SUB
1693 
1694  SUBROUTINE COM_COPY_ATTR_HDLS( TRG_HDL, SRC_HDL)
1695  INTEGER, INTENT(IN) :: TRG_HDL, SRC_HDL
1696  END SUBROUTINE COM_COPY_ATTR_HDLS
1697 
1698  SUBROUTINE COM_COPY_ATTR_GHOST_HDLS( TRG_HDL, SRC_HDL, WG)
1699  INTEGER, INTENT(IN) :: TRG_HDL, SRC_HDL, WG
1700  END SUBROUTINE COM_COPY_ATTR_GHOST_HDLS
1701 
1702  SUBROUTINE COM_COPY_ATTR_SUB_HDLS( TRG_HDL, SRC_HDL, WG, PNT, VAL)
1703  INTEGER, INTENT(IN) :: TRG_HDL, SRC_HDL, WG, PNT, VAL
1704  END SUBROUTINE COM_COPY_ATTR_SUB_HDLS
1705  END INTERFACE
1706 
1707  INTERFACE COM_DEALLOCATE_ARRAY
1708  SUBROUTINE COM_DEALLOCATE_WIN( WANAME)
1709  CHARACTER(*), INTENT(IN) :: WANAME
1710  END SUBROUTINE COM_DEALLOCATE_WIN
1711 
1712  SUBROUTINE COM_DEALLOCATE_PANE( WANAME, PID)
1713  CHARACTER(*), INTENT(IN) :: WANAME
1714  INTEGER, INTENT(IN) :: PID
1715  END SUBROUTINE COM_DEALLOCATE_PANE
1716  END INTERFACE
1717 
1718  INTERFACE COM_GET_SIZE
1719  SUBROUTINE COM_GET_SIZE1( ANAME, PANE_ID, SIZE_TOTAL)
1720  CHARACTER(*), INTENT( IN) :: ANAME
1721  INTEGER, INTENT(IN) :: PANE_ID
1722  INTEGER, INTENT(OUT) :: SIZE_TOTAL
1723  END SUBROUTINE COM_GET_SIZE1
1724 
1725  SUBROUTINE COM_GET_SIZE2( ANAME, PANE_ID, SIZE_TOTAL, SIZE_GHOST)
1726  CHARACTER(*), INTENT( IN) :: ANAME
1727  INTEGER, INTENT(IN) :: PANE_ID
1728  INTEGER, INTENT(OUT) :: SIZE_TOTAL, SIZE_GHOST
1729  END SUBROUTINE COM_GET_SIZE2
1730  END INTERFACE
1731 
1732  INTERFACE
1733  SUBROUTINE COM_GET_ATTRIBUTE( WA_NAME, LOC, TYPE, SIZE, UNIT)
1734  CHARACTER(*), INTENT(IN) :: WA_NAME
1735  CHARACTER, INTENT(OUT) :: LOC
1736  CHARACTER(*), INTENT(OUT):: UNIT
1737  INTEGER, INTENT(OUT) :: TYPE, SIZE
1738  END SUBROUTINE COM_GET_ATTRIBUTE
1739 
1740  SUBROUTINE COM_SET_FUNCTION( WF_NAME, FUNC, INTENTS, TYPES)
1741  CHARACTER(*), INTENT(IN) :: WF_NAME, INTENTS
1742  INTEGER, INTENT(IN) :: TYPES(1)
1743  EXTERNAL FUNC
1744  END SUBROUTINE COM_SET_FUNCTION
1745 
1746  SUBROUTINE COM_SET_MEMBER_FUNCTION( WF_NAME, FUNC, &
1747  WA_NAME, INTENTS, TYPES)
1748  CHARACTER(*), INTENT(IN) :: WF_NAME, WA_NAME, INTENTS
1749  INTEGER, INTENT(IN) :: TYPES(1)
1750  EXTERNAL FUNC
1751  End SUBROUTINE COM_SET_MEMBER_FUNCTION
1752 
1753  SUBROUTINE COM_GET_COMMUNICATOR( W_NAME, COMM)
1754  CHARACTER(*), INTENT(IN) :: W_NAME
1755  INTEGER, INTENT(OUT) :: COMM
1756  END SUBROUTINE COM_GET_COMMUNICATOR
1757 
1758  SUBROUTINE COM_GET_ATTRIBUTES( W_NAME, NATTS, NAMES)
1759  CHARACTER(*), INTENT(IN) :: W_NAME
1760  INTEGER, INTENT(INOUT) :: NATTS
1761  CHARACTER, POINTER :: NAMES(:)
1762  END SUBROUTINE COM_GET_ATTRIBUTES
1763 
1764  SUBROUTINE COM_GET_CONNECTIVITIES( W_NAME, PANE_ID, NATTS, NAMES)
1765  CHARACTER(*), INTENT(IN) :: W_NAME
1766  INTEGER, INTENT(IN) :: PANE_ID
1767  INTEGER, INTENT(INOUT) :: NATTS
1768  CHARACTER, POINTER :: NAMES(:)
1769  END SUBROUTINE COM_GET_CONNECTIVITIES
1770 
1771  SUBROUTINE COM_GET_PARENT( WANAME, PANE_ID, NAMES)
1772  CHARACTER(*), INTENT(IN) :: WANAME
1773  INTEGER, INTENT(IN) :: PANE_ID
1774  CHARACTER, POINTER :: NAMES(:)
1775  END SUBROUTINE COM_GET_PARENT
1776  END INTERFACE
1777 
1778  INTERFACE COM_GET_PANES
1779  SUBROUTINE COM_GET_NPANE( W_NAME, NPANES)
1780  CHARACTER(*), INTENT(IN) :: W_NAME
1781  INTEGER, INTENT(INOUT) :: NPANES
1782  END SUBROUTINE COM_GET_NPANE
1783 
1784  SUBROUTINE COM_GET_PANE_IDS( W_NAME, NPANES, PANES)
1785  CHARACTER(*), INTENT(IN) :: W_NAME
1786  INTEGER, INTENT(INOUT) :: NPANES
1787  INTEGER, POINTER :: PANES(:)
1788  END SUBROUTINE COM_GET_PANE_IDS
1789 
1790  SUBROUTINE COM_GET_PANE_IDS_ON_RANK( W_NAME, NPANES, PANES, RANK)
1791  CHARACTER(*), INTENT(IN) :: W_NAME
1792  INTEGER, INTENT(INOUT) :: NPANES
1793  INTEGER, INTENT(IN) :: RANK
1794  INTEGER, POINTER :: PANES(:)
1795  END SUBROUTINE COM_GET_PANE_IDS_ON_RANK
1796  END INTERFACE
1797 
1798  INTERFACE COM_FREE_BUFFER
1799  SUBROUTINE COM_FREE_BUFFER_CHAR( BUF)
1800  CHARACTER, POINTER :: BUF(:)
1801  END SUBROUTINE COM_FREE_BUFFER_CHAR
1802 
1803  SUBROUTINE COM_FREE_BUFFER_INT( BUF)
1804  INTEGER, POINTER :: BUF(:)
1805  END SUBROUTINE COM_FREE_BUFFER_INT
1806  END INTERFACE
1807 
1808  INTERFACE
1809  FUNCTION COM_GET_WINDOW_HANDLE( WNAME)
1810  CHARACTER(*), INTENT(IN) :: WNAME
1811  INTEGER :: COM_GET_WINDOW_HANDLE
1812  END FUNCTION COM_GET_WINDOW_HANDLE
1813 
1814  FUNCTION COM_GET_ATTRIBUTE_HANDLE( WANAME)
1815  CHARACTER(*), INTENT(IN) :: WANAME
1816  INTEGER :: COM_GET_ATTRIBUTE_HANDLE
1817  END FUNCTION COM_GET_ATTRIBUTE_HANDLE
1818 
1819  FUNCTION COM_GET_ATTRIBUTE_HANDLE_CONST( WANAME)
1820  CHARACTER(*), INTENT(IN) :: WANAME
1821  INTEGER :: COM_GET_ATTRIBUTE_HANDLE_CONST
1822  END FUNCTION COM_GET_ATTRIBUTE_HANDLE_CONST
1823 
1824  FUNCTION COM_GET_FUNCTION_HANDLE( WFNAME)
1825  CHARACTER(*), INTENT(IN) :: WFNAME
1826  INTEGER :: COM_GET_FUNCTION_HANDLE
1827  END FUNCTION COM_GET_FUNCTION_HANDLE
1828 
1829  FUNCTION COM_GET_STATUS( WANAME, PANEID)
1830  CHARACTER(*), INTENT(IN) :: WANAME
1831  INTEGER, INTENT(IN) :: PANEID
1832  INTEGER :: COM_GET_STATUS
1833  END FUNCTION COM_GET_STATUS
1834 
1835  SUBROUTINE COM_WAIT( PID)
1836  INTEGER, INTENT(IN) :: PID
1837  END SUBROUTINE COM_WAIT
1838 
1839  SUBROUTINE COM_TEST( PID, STATUS)
1840  INTEGER, INTENT(IN) :: PID
1841  LOGICAL, INTENT(OUT) :: STATUS
1842  END SUBROUTINE COM_TEST
1843 
1844  SUBROUTINE COM_SET_VERBOSE( level)
1845  INTEGER, INTENT(IN) :: level
1846  END SUBROUTINE COM_SET_VERBOSE
1847 
1848  SUBROUTINE COM_SET_DEBUG( debug)
1849  LOGICAL, INTENT(IN) :: debug
1850  END SUBROUTINE COM_SET_DEBUG
1851 
1852  SUBROUTINE COM_SET_PROFILING( level)
1853  INTEGER, INTENT(IN) :: level
1854  END SUBROUTINE COM_SET_PROFILING
1855 
1856  SUBROUTINE COM_SET_PROFILING_BARRIER( hdl, comm)
1857  INTEGER, INTENT(IN) :: hdl, comm
1858  END SUBROUTINE COM_SET_PROFILING_BARRIER
1859 
1860  SUBROUTINE COM_PRINT_PROFILE( fname, header)
1861  CHARACTER(*), INTENT(IN) :: fname, header
1862  END SUBROUTINE COM_PRINT_PROFILE
1863 
1864  FUNCTION COM_GET_SIZEOF(TYPE, COUNT)
1865  INTEGER, INTENT(IN) :: TYPE, COUNT
1866  INTEGER :: COM_GET_SIZEOF
1867  END FUNCTION COM_GET_SIZEOF
1868 
1869  FUNCTION COM_GET_SIZEOF_F90POINTER()
1870  INTEGER :: COM_GET_SIZEOF_F90POINTER
1871  END FUNCTION COM_GET_SIZEOF_F90POINTER
1872 
1873  FUNCTION COM_GET_ERROR_CODE()
1874  INTEGER :: COM_GET_ERROR_CODE
1875  END FUNCTION COM_GET_ERROR_CODE
1876  END INTERFACE
1877 
1878  INTERFACE ! OBSOLETE
1879  SUBROUTINE COM_CREATE_WINDOW
1880  END SUBROUTINE COM_CREATE_WINDOW
1881 
1882  SUBROUTINE COM_INIT_MESH
1883  END SUBROUTINE COM_INIT_MESH
1884 
1885  SUBROUTINE COM_INIT_FUNCTION
1886  END SUBROUTINE COM_INIT_FUNCTION
1887 
1888  SUBROUTINE COM_INIT_MEMBER_FUNCTION
1889  END SUBROUTINE COM_INIT_MEMBER_FUNCTION
1890 
1891  SUBROUTINE COM_INIT_PROFILING
1892  END SUBROUTINE COM_INIT_PROFILING
1893 
1894  SUBROUTINE COM_INIT_PROFILING_BARRIER
1895  END SUBROUTINE COM_INIT_PROFILING_BARRIER
1896 
1897  SUBROUTINE COM_USE_MESH
1898  END SUBROUTINE COM_USE_MESH
1899 
1900  SUBROUTINE COM_CLONE_MESH
1901  END SUBROUTINE COM_CLONE_MESH
1902 
1903  SUBROUTINE COM_USE_MESH_SUB
1904  END SUBROUTINE COM_USE_MESH_SUB
1905 
1906  SUBROUTINE COM_CLONE_MESH_SUB
1907  END SUBROUTINE COM_CLONE_MESH_SUB
1908 
1909  SUBROUTINE COM_INIT_ATTRIBUTE
1910  END SUBROUTINE COM_INIT_ATTRIBUTE
1911 
1912  SUBROUTINE COM_INIT_ATTRIBUTE_SRIDED
1913  END SUBROUTINE COM_INIT_ATTRIBUTE_SRIDED
1914 
1915  SUBROUTINE COM_ALLOCATE_ATTRIBUTE
1916  END SUBROUTINE COM_ALLOCATE_ATTRIBUTE
1917 
1918  SUBROUTINE COM_GET_ATTRIBUTE_ADDR
1919  END SUBROUTINE COM_GET_ATTRIBUTE_ADDR
1920 
1921  SUBROUTINE COM_GET_ATTRIBUTE_INFO
1922  END SUBROUTINE COM_GET_ATTRIBUTE_INFO
1923 
1924  SUBROUTINE COM_GET_WINDOW_PANES
1925  END SUBROUTINE COM_GET_WINDOW_PANES
1926 
1927  SUBROUTINE COM_GET_WINDOW_NPANES
1928  END SUBROUTINE COM_GET_WINDOW_NPANES
1929 
1930  SUBROUTINE COM_GET_WINDOW_NNODES
1931  END SUBROUTINE COM_GET_WINDOW_NNODES
1932 
1933  SUBROUTINE COM_GET_WINDOW_NELEMS
1934  END SUBROUTINE COM_GET_WINDOW_NELEMS
1935 
1936  END INTERFACE
1937 
1938 !!$ ! The following function prototypes must be defined explicitly by
1939 !!$ ! the application code with specific data types
1940 !!$ INTERFACE
1941 !!$ SUBROUTINE COM_set_pointer( attr, ptr, asso)
1942 !!$ CHARACTER(*), INTENT(IN) :: attr
1943 !!$ TYPE(...), POINTER :: ptr
1944 !!$ EXTERNAL asso
1945 !!$ END SUBROUTINE COM_set_pointer
1946 !!$
1947 !!$ SUBROUTINE COM_get_pointer( attr, ptr, asso)
1948 !!$ CHARACTER(*), INTENT(IN) :: attr
1949 !!$ TYPE(...), POINTER :: ptr
1950 !!$ EXTERNAL asso
1951 !!$ END SUBROUTINE COM_get_pointer
1952 !!$
1953 !!$ SUBROUTINE COM_set_object( attr, ptr, asso)
1954 !!$ CHARACTER(*), INTENT(IN) :: attr
1955 !!$ TYPE(...), POINTER :: ptr
1956 !!$ EXTERNAL asso
1957 !!$ END SUBROUTINE COM_set_object
1958 !!$
1959 !!$ SUBROUTINE COM_get_object( attr, ptr, asso)
1960 !!$ CHARACTER(*), INTENT(IN) :: attr
1961 !!$ TYPE(...), POINTER :: ptr
1962 !!$ EXTERNAL asso
1963 !!$ END SUBROUTINE COM_get_object
1964 !!$ END INTERFACE
1965 
COM_LOGICAL
Definition: roccom_basic.h:133
charge
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of charge
Definition: roccomf90.h:7
by
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed by
Definition: roccomf90.h:7
provided
here we put it at the!beginning of the common block The point to point and collective!routines know about but MPI_TYPE_STRUCT as yet does not!MPI_STATUS_IGNORE and MPI_STATUSES_IGNORE are similar objects!Until the underlying MPI library implements the C version of these are declared as arrays of MPI_STATUS_SIZE!The types and are OPTIONAL!Their values are zero if they are not available Note that!using these reduces the portability of MPI_IO INTEGER MPI_BOTTOM INTEGER MPI_DOUBLE_PRECISION INTEGER MPI_LOGICAL INTEGER MPI_2REAL INTEGER MPI_2DOUBLE_COMPLEX INTEGER MPI_LB INTEGER MPI_WTIME_IS_GLOBAL INTEGER MPI_GROUP_EMPTY INTEGER MPI_BAND INTEGER MPI_MINLOC INTEGER MPI_MAXLOC INTEGER MPI_OP_NULL INTEGER MPI_ERRORS_RETURN!INTEGER MPI_ORDER_FORTRAN INTEGER MPI_DISTRIBUTE_CYCLIC INTEGER MPI_DISTRIBUTE_DFLT_DARG INTEGER MPI_MAX_INFO_VAL INTEGER MPI_INFO_NULL!Optional Fortran Types Configure attempts to determine these!INTEGER MPI_INTEGER8 INTEGER MPI_INTEGER16 INTEGER MPI_REAL16 INTEGER MPI_COMPLEX32!This is now handled with either the pointer extension or this same appended at the end!COMMON MPIPRIV MPI_STATUSES_IGNORE!C!C Without this some Fortran implementations may make the common!C dynamic!C!C For a Fortran90 we might replace MPIPRIV with a simple!C SAVE MPI_BOTTOM!C!SAVE MPIPRIV!INTEGER MPI_ANY_SOURCE INTEGER MPI_ANY_TAG!INTEGER MPI_SUBVERSION!There are additional MPI constants INTEGER MPI_OFFSET_KIND!All other MPI routines are subroutines!This may cause some Fortran compilers to complain about defined and!not used Such compilers should be improved!Some Fortran compilers will not link programs that contain!external statements to routines that are not provided
Definition: SourceIMP/utilities/RocfracPrep/mpif.h:107
code
here we put it at the!beginning of the common block The point to point and collective!routines know about but MPI_TYPE_STRUCT as yet does not!MPI_STATUS_IGNORE and MPI_STATUSES_IGNORE are similar objects!Until the underlying MPI library implements the C version of these are declared as arrays of MPI_STATUS_SIZE!The types and are OPTIONAL!Their values are zero if they are not available Note that!using these reduces the portability of code(though may enhance!portability between Crays and other systems)!INTEGER MPI_TAG_UB
COM_INTEGER
Definition: roccom_basic.h:133
REAL
double REAL
Definition: read.cpp:70
publish
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to publish
Definition: roccomf90.h:20
COM_MPI_COMMF
Definition: roccom_basic.h:136
Illinois
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of Illinois
Definition: roccomf90.h:20
COM_set_object
void COM_set_object(const char *wa_str, int pane_id, Type *addr)
Definition: roccom_c++.h:144
function
subroutine function
Definition: TEMPLATE.F90:43
use
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to use
Definition: roccomf90.h:20
IMPLIED
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR IMPLIED
Definition: roccomf90.h:20
IS
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS IS
Definition: roccomf90.h:20
COM_APPEND_ARRAY
#define COM_APPEND_ARRAY(func, FUNC, dim, type)
Definition: roccom_f.C:1162
COM_get_object
void COM_get_object(const char *wa_str, int pane_id, Type **addr)
Definition: roccom_c++.h:152
v
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **ARISING OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE v
Definition: roccomf90.h:20
with
systems whose!Fortran compilers support!instead of just C or *for comments can!globally replace a C in the first column with
Definition: SourceIMP/utilities/RocfracPrep/mpif.h:13
copy
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to ** copy
Definition: roccomf90.h:20
restriction
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without ** restriction
Definition: roccomf90.h:20
sublicense
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to sublicense
Definition: roccomf90.h:20
A
rational * A
Definition: vinci_lass.c:67
Rockets
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced ** Rockets
Definition: roccomf90.h:20
notice
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright notice
Definition: roccomf90.h:20
so
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do so
Definition: roccomf90.h:20
INTEGER
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE SUBROUTINE POINTER::global INTEGER
Definition: SplitQuadFace.h:27
COM_MPI_COMM
Definition: roccom_basic.h:136
LIABILITY
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER ** LIABILITY
Definition: roccomf90.h:20
form
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE SUBROUTINE form
Definition: RFLO_ReadDataFileInt.h:26
FROM
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **ARISING FROM
Definition: roccomf90.h:20
conditions
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following ** conditions
Definition: roccomf90.h:20
COM_METADATA
Definition: roccom_basic.h:138
KIND
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY KIND
Definition: roccomf90.h:20
CONTRACT
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF CONTRACT
Definition: roccomf90.h:20
COM_VOID
Definition: roccom_basic.h:138
COM_RAWDATA
Definition: roccom_basic.h:138
COM_DOUBLE_PRECISION
Definition: roccom_basic.h:134
COM_DOUBLE_COMPLEX
Definition: roccom_basic.h:134
distribute
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to distribute
Definition: roccomf90.h:20
OTHERWISE
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR OTHERWISE
Definition: roccomf90.h:20
MERCHANTABILITY
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF MERCHANTABILITY
Definition: roccomf90.h:20
COM_SET_BOUNDS
#define COM_SET_BOUNDS(func, FUNC)
Definition: roccom_f.C:702
COM_REAL
Definition: roccom_basic.h:133
License
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com **** License
Definition: AllocateMemoryWork.h:3
TYPE
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE SUBROUTINE POINTER::global TYPE(t_patch)
COM_COMPLEX
Definition: roccom_basic.h:134
COM_CHARACTER
Fortran Data types.
Definition: roccom_basic.h:133
merge
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to merge
Definition: roccomf90.h:20
COM_DOUBLE
Definition: roccom_basic.h:131
COM_STRING
Definition: roccom_basic.h:138
COM_GET_BOUNDS
#define COM_GET_BOUNDS(func, FUNC)
Definition: roccom_f.C:1181
files
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation ** files(the"Software")
COM_F90POINTER
Definition: roccom_basic.h:139
CLAIM
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the and to permit persons to whom the **Software is furnished to do subject to the following this list of conditions and the following disclaimers ****Redistributions in binary form must reproduce the above **copyright this list of conditions and the following **disclaimers in the documentation and or other materials **provided with the distribution ****Neither the names of the Center for Simulation of Advanced the University of nor the names of its **contributors may be used to endorse or promote products derived **from this Software without specific prior written permission ****THE SOFTWARE IS PROVIDED AS WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM
Definition: roccomf90.h:20
Software
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to and or **sell copies of the Software
Definition: roccomf90.h:20
Copyright
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License **** Copyright
Definition: roccomf90.h:7
modify
*********************************************************************Illinois Open Source License ****University of Illinois NCSA **Open Source License University of Illinois All rights reserved ****Developed free of to any person **obtaining a copy of this software and associated documentation to deal with the Software without including without limitation the rights to modify
Definition: roccomf90.h:20