include file: GCCOM 35
*IF DEF,MPP GCCOM.2
CDIR$ FIXED GPB2F402.87
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC GPB2F402.88
C GPB2F402.89
C GC - General Communication primitives package. For use on GPB2F402.90
C multiprocessor shared memory and message passing systems. GPB2F402.91
C GPB2F402.92
C GPB2F402.93
C LICENSING TERMS GPB2F402.94
C GPB2F402.95
C GC is provided free of charge. Unless otherwise agreed with SINTEF, GPB2F402.96
C use and redistribution in source and binary forms are permitted GPB2F402.97
C provided that GPB2F402.98
C GPB2F402.99
C (1) source distributions retain all comments appearing within GPB2F402.100
C this file header, and GPB2F402.101
C GPB2F402.102
C (2) distributions including binaries display the following GPB2F402.103
C acknowledgement: GPB2F402.104
C GPB2F402.105
C "This product includes software developed by SINTEF.", GPB2F402.106
C GPB2F402.107
C in the documentation or other materials provided with the GPB2F402.108
C distribution and in all advertising materials mentioning GPB2F402.109
C features or use of this software. GPB2F402.110
C GPB2F402.111
C The name of SINTEF may not be used to endorse or promote products GPB2F402.112
C derived from this software without specific prior written GPB2F402.113
C permission. SINTEF disclaims any warranty that this software will GPB2F402.114
C be fit for any specific purposes. In no event shall SINTEF be liable GPB2F402.115
C for any loss of performance or for indirect or consequential damage GPB2F402.116
C or direct or indirect injury of any kind. In no case shall SINTEF GPB2F402.117
C be liable for any representation or warranty make to any third party GPB2F402.118
C by the users of this software. GPB2F402.119
C GPB2F402.120
C GPB2F402.121
C Fortran header file. PLEASE use the parameter variables in user GPB2F402.122
C routines calling GC and NOT the numeric values. The latter are GPB2F402.123
C subject to change without further notice. GPB2F402.124
C GPB2F402.125
C---------------------------------------------- ------------------------ GPB2F402.126
C $Id: gpb2f402,v 1.10 1996/11/28 20:36:24 t11pb Exp $ GPB2F402.127
C (C) Jorn Amundsen, Roar Skaalin, SINTEF Industrial Mathematics. GPB2F402.128
GBCAF404.1
C 4.4 30/09/97 Added code to permit the SHMEM/NAM timeout GBCAF404.2
C value to be set from a shell variable. GBCAF404.3
C Author: Bob Carruthers Cray Research. GBCAF404.4
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC GPB2F402.129
GPB2F402.130
GPB2F402.131
C GC general options GPB2F402.132
INTEGER GC_OK, GC_FAIL, GC_NONE, GC_ANY, GC_DONTCARE, GPB2F402.133
$ GC_SHM_DIR, GC_SHM_GET, GC_SHM_PUT, GC_USE_GET, GC_USE_PUT GPB2F402.134
& , GC_NAM_TIMEOUT, GC_SHM_SAFE GBCAF404.5
PARAMETER (GC_OK = 0) GPB2F402.135
PARAMETER (GC_FAIL = -1) GPB2F402.136
PARAMETER (GC_NONE = 0) GPB2F402.137
PARAMETER (GC_ANY = -1) GPB2F402.138
PARAMETER (GC_DONTCARE = -1) GPB2F402.139
PARAMETER (GC_SHM_DIR = 1) GPB2F402.140
PARAMETER (GC_SHM_SAFE = 2) GBCAF404.6
PARAMETER (GC_NAM_TIMEOUT= 4) GBCAF404.7
PARAMETER (GC_SHM_GET = -9999) GPB2F402.141
PARAMETER (GC_SHM_PUT = -9998) GPB2F402.142
PARAMETER (GC_USE_GET = -9999) GPB2F402.143
PARAMETER (GC_USE_PUT = -9998) GPB2F402.144
GPB2F402.145
C GC functions GPB2F402.146
INTEGER GC_COMLEN, GC_ISIZE, GC_RSIZE, GC_ME, GC_NPROC GPB2F402.147
GPB2F402.148
C GC groups (GCG) support GPB2F402.149
INTEGER GC_ALLGROUP, GCG_ALL GPB2F402.150
PARAMETER (GC_ALLGROUP = 0) GPB2F402.151
PARAMETER (GCG_ALL = GC_ALLGROUP) GPB2F402.152
GPB2F402.153
C GC groups (GCG) functions GPB2F402.154
INTEGER GCG_ME GPB2F402.155
GPB2F402.156
C GC reserved message tags GPB2F402.157
INTEGER GC_MTAG_LOW, GC_MTAG_HIGH GPB2F402.158
PARAMETER (GC_MTAG_LOW = 999999901) GPB2F402.159
PARAMETER (GC_MTAG_HIGH = 999999999) GPB2F402.160
GPB2F402.161
C GCG_RALLETOALLE index parameters GPB2F402.162
INTEGER S_DESTINATION_PE, S_BASE_ADDRESS_IN_SEND_ARRAY, GPB2F402.163
$ S_NUMBER_OF_ELEMENTS_IN_ITEM, S_STRIDE_IN_SEND_ARRAY, GPB2F402.164
$ S_ELEMENT_LENGTH, S_BASE_ADDRESS_IN_RECV_ARRAY, GPB2F402.165
$ S_STRIDE_IN_RECV_ARRAY GPB2F402.166
PARAMETER (S_DESTINATION_PE = 1) GPB2F402.167
PARAMETER (S_BASE_ADDRESS_IN_SEND_ARRAY = 2) GPB2F402.168
PARAMETER (S_NUMBER_OF_ELEMENTS_IN_ITEM = 3) GPB2F402.169
PARAMETER (S_STRIDE_IN_SEND_ARRAY = 4) GPB2F402.170
PARAMETER (S_ELEMENT_LENGTH = 5) GPB2F402.171
PARAMETER (S_BASE_ADDRESS_IN_RECV_ARRAY = 6) GPB2F402.172
PARAMETER (S_STRIDE_IN_RECV_ARRAY = 7) GPB2F402.173
GPB2F402.174
INTEGER R_SOURCE_PE, R_BASE_ADDRESS_IN_RECV_ARRAY, GPB2F402.175
$ R_NUMBER_OF_ELEMENTS_IN_ITEM, R_STRIDE_IN_RECV_ARRAY, GPB2F402.176
$ R_ELEMENT_LENGTH, R_BASE_ADDRESS_IN_SEND_ARRAY, GPB2F402.177
$ R_STRIDE_IN_SEND_ARRAY GPB2F402.178
PARAMETER (R_SOURCE_PE = 1) GPB2F402.179
PARAMETER (R_BASE_ADDRESS_IN_RECV_ARRAY = 2) GPB2F402.180
PARAMETER (R_NUMBER_OF_ELEMENTS_IN_ITEM = 3) GPB2F402.181
PARAMETER (R_STRIDE_IN_RECV_ARRAY = 4) GPB2F402.182
PARAMETER (R_ELEMENT_LENGTH = 5) GPB2F402.183
PARAMETER (R_BASE_ADDRESS_IN_SEND_ARRAY = 6) GPB2F402.184
PARAMETER (R_STRIDE_IN_SEND_ARRAY = 7) GPB2F402.185
*ENDIF GCCOM.67