rsl_lite.h
References to this file elsewhere.
1 #ifndef CRAY
2 # ifdef NOUNDERSCORE
3 # define RSL_LITE_ERROR_DUP1 rsl_error_dup1
4 # define BYTE_BCAST byte_bcast
5 # define RSL_LITE_INIT_EXCH rsl_lite_init_exch
6 # define RSL_LITE_EXCH_Y rsl_lite_exch_y
7 # define RSL_LITE_EXCH_X rsl_lite_exch_x
8 # define RSL_LITE_PACK rsl_lite_pack
9 # define RSL_LITE_BCAST_MSGS rsl_lite_bcast_msgs
10 # define RSL_LITE_TO_CHILD_MSG rsl_lite_to_child_msg
11 # define RSL_LITE_TO_CHILD_INFO rsl_lite_to_child_info
12 # define RSL_LITE_FROM_PARENT_MSG rsl_lite_from_parent_msg
13 # define RSL_LITE_FROM_PARENT_INFO rsl_lite_from_parent_info
14 # define RSL_LITE_MERGE_MSGS rsl_lite_merge_msgs
15 # define RSL_LITE_TO_PARENT_MSG rsl_lite_to_parent_msg
16 # define RSL_LITE_TO_PARENT_INFO rsl_lite_to_parent_info
17 # define RSL_LITE_FROM_CHILD_MSG rsl_lite_from_child_msg
18 # define RSL_LITE_FROM_CHILD_INFO rsl_lite_from_child_info
19 # define RSL_INTERNAL_MILLICLOCK rsl_internal_milliclock
20 # define RSL_INTERNAL_MICROCLOCK rsl_internal_microclock
21 # define TASK_FOR_POINT task_for_point
22 # define RSL_LITE_INIT_PERIOD rsl_lite_init_period
23 # define RSL_LITE_EXCH_PERIOD_Y rsl_lite_exch_period_y
24 # define RSL_LITE_EXCH_PERIOD_X rsl_lite_exch_period_x
25 # define RSL_LITE_PACK_PERIOD rsl_lite_pack_period
26 # define RSL_LITE_INIT_SWAP rsl_lite_init_swap
27 # define RSL_LITE_SWAP rsl_lite_swap
28 # define RSL_LITE_PACK_SWAP rsl_lite_pack_swap
29 # define RSL_LITE_INIT_CYCLE rsl_lite_init_cycle
30 # define RSL_LITE_CYCLE rsl_lite_cycle
31 # define RSL_LITE_PACK_CYCLE rsl_lite_pack_cycle
32 # define F_PACK_LINT f_pack_lint
33 # define F_PACK_INT f_pack_int
34 # define F_UNPACK_LINT f_unpack_lint
35 # define F_UNPACK_INT f_unpack_int
36 # else
37 # ifdef F2CSTYLE
38 # define RSL_LITE_ERROR_DUP1 rsl_error_dup1__
39 # define BYTE_BCAST byte_bcast__
40 # define RSL_LITE_INIT_EXCH rsl_lite_init_exch__
41 # define RSL_LITE_EXCH_Y rsl_lite_exch_y__
42 # define RSL_LITE_EXCH_X rsl_lite_exch_x__
43 # define RSL_LITE_PACK rsl_lite_pack__
44 # define RSL_LITE_BCAST_MSGS rsl_lite_bcast_msgs__
45 # define RSL_LITE_TO_CHILD_MSG rsl_lite_to_child_msg__
46 # define RSL_LITE_TO_CHILD_INFO rsl_lite_to_child_info__
47 # define RSL_LITE_FROM_PARENT_MSG rsl_lite_from_parent_msg__
48 # define RSL_LITE_FROM_PARENT_INFO rsl_lite_from_parent_info__
49 # define RSL_LITE_MERGE_MSGS rsl_lite_merge_msgs__
50 # define RSL_LITE_TO_PARENT_MSG rsl_lite_to_parent_msg__
51 # define RSL_LITE_TO_PARENT_INFO rsl_lite_to_parent_info__
52 # define RSL_LITE_FROM_CHILD_MSG rsl_lite_from_child_msg__
53 # define RSL_LITE_FROM_CHILD_INFO rsl_lite_from_child_info__
54 # define RSL_INTERNAL_MILLICLOCK rsl_internal_milliclock__
55 # define RSL_INTERNAL_MICROCLOCK rsl_internal_microclock__
56 # define TASK_FOR_POINT task_for_point__
57 # define RSL_LITE_INIT_PERIOD rsl_lite_init_period__
58 # define RSL_LITE_EXCH_PERIOD_Y rsl_lite_exch_period_y__
59 # define RSL_LITE_EXCH_PERIOD_X rsl_lite_exch_period_x__
60 # define RSL_LITE_PACK_PERIOD rsl_lite_pack_period__
61 # define RSL_LITE_INIT_SWAP rsl_lite_init_swap__
62 # define RSL_LITE_SWAP rsl_lite_swap__
63 # define RSL_LITE_PACK_SWAP rsl_lite_pack_swap__
64 # define RSL_LITE_INIT_CYCLE rsl_lite_init_cycle__
65 # define RSL_LITE_CYCLE rsl_lite_cycle__
66 # define RSL_LITE_PACK_CYCLE rsl_lite_pack_cycle__
67 # define F_PACK_LINT f_pack_lint__
68 # define F_PACK_INT f_pack_int__
69 # define F_UNPACK_LINT f_unpack_lint__
70 # define F_UNPACK_INT f_unpack_int__
71 # else
72 # define RSL_LITE_ERROR_DUP1 rsl_error_dup1_
73 # define BYTE_BCAST byte_bcast_
74 # define RSL_LITE_INIT_EXCH rsl_lite_init_exch_
75 # define RSL_LITE_EXCH_Y rsl_lite_exch_y_
76 # define RSL_LITE_EXCH_X rsl_lite_exch_x_
77 # define RSL_LITE_PACK rsl_lite_pack_
78 # define RSL_LITE_BCAST_MSGS rsl_lite_bcast_msgs_
79 # define RSL_LITE_TO_CHILD_MSG rsl_lite_to_child_msg_
80 # define RSL_LITE_TO_CHILD_INFO rsl_lite_to_child_info_
81 # define RSL_LITE_FROM_PARENT_MSG rsl_lite_from_parent_msg_
82 # define RSL_LITE_FROM_PARENT_INFO rsl_lite_from_parent_info_
83 # define RSL_LITE_MERGE_MSGS rsl_lite_merge_msgs_
84 # define RSL_LITE_TO_PARENT_MSG rsl_lite_to_parent_msg_
85 # define RSL_LITE_TO_PARENT_INFO rsl_lite_to_parent_info_
86 # define RSL_LITE_FROM_CHILD_MSG rsl_lite_from_child_msg_
87 # define RSL_LITE_FROM_CHILD_INFO rsl_lite_from_child_info_
88 # define RSL_INTERNAL_MILLICLOCK rsl_internal_milliclock_
89 # define RSL_INTERNAL_MICROCLOCK rsl_internal_microclock_
90 # define TASK_FOR_POINT task_for_point_
91 # define RSL_LITE_INIT_PERIOD rsl_lite_init_period_
92 # define RSL_LITE_EXCH_PERIOD_Y rsl_lite_exch_period_y_
93 # define RSL_LITE_EXCH_PERIOD_X rsl_lite_exch_period_x_
94 # define RSL_LITE_PACK_PERIOD rsl_lite_pack_period_
95 # define RSL_LITE_INIT_SWAP rsl_lite_init_swap_
96 # define RSL_LITE_SWAP rsl_lite_swap_
97 # define RSL_LITE_PACK_SWAP rsl_lite_pack_swap_
98 # define RSL_LITE_INIT_CYCLE rsl_lite_init_cycle_
99 # define RSL_LITE_CYCLE rsl_lite_cycle_
100 # define RSL_LITE_PACK_CYCLE rsl_lite_pack_cycle_
101 # define F_PACK_LINT f_pack_lint_
102 # define F_PACK_INT f_pack_int_
103 # define F_UNPACK_LINT f_unpack_lint_
104 # define F_UNPACK_INT f_unpack_int_
105 # endif
106 # endif
107 #endif
108
109 #define RSL_SENDBUF 0
110 #define RSL_RECVBUF 1
111 #define RSL_FREEBUF 3
112 #define RSL_MAXPROC 10000
113 #define RSL_INVALID -1
114
115 /* this must be the same as defined in frame/module_driver_constants.F */
116 #define DATA_ORDER_XYZ 1
117 #define DATA_ORDER_YXZ 2
118 #define DATA_ORDER_ZXY 3
119 #define DATA_ORDER_ZYX 4
120 #define DATA_ORDER_XZY 5
121 #define DATA_ORDER_YZX 6
122
123
124 #define RSL_MALLOC(T,N) (T *)rsl_malloc(__FILE__,__LINE__,(sizeof(T))*(N))
125 #define RSL_FREE(P) rsl_free(P)
126
127 char * buffer_for_proc ( int P, int size, int code ) ;
128 void * rsl_malloc( char * f, int l, int s ) ;
129 typedef int * int_p ;
130
131 #define INDEX_2(A,B,NB) ( (B) + (A)*(NB) )
132 #define INDEX_3(A,B,NB,C,NC) INDEX_2( (A), INDEX_2( (B), (C), (NC) ), (NB)*(NC) )
133
134 #define RSL_FATAL(N) MPI_Abort(MPI_COMM_WORLD, 9)
135 #ifndef MS_SUA
136 # define RSL_TEST_ERR(T,M) {if(T){fprintf(stderr,"rsl_lite error (\"%s\":%d) %s\n",__FILE__,__LINE__,M);RSL_FATAL(5);}}
137 #else
138 # define RSL_TEST_ERR(T,M) {if(T){RSL_FATAL(5);}}
139 #endif
140
141 #ifndef MPI2_SUPPORT
142 typedef int MPI_Fint;
143 # define MPI_Comm_c2f(comm) (MPI_Fint)(comm)
144 # define MPI_Comm_f2c(comm) (MPI_Comm)(comm)
145 #endif
146
147 typedef struct rsl_list {
148 struct rsl_list * next ;
149 void * data ; /* pointer to some node */
150 #ifdef crayx1
151 int info1 ; /* blank info field */
152 int info2 ; /* blank info field */
153 #else
154 short info1 ; /* blank info field */
155 short info2 ; /* blank info field */
156 #endif
157 } rsl_list_t ;
158