25     ADIOI_Flatlist_node *flat, *prev=0;  in ADIOI_Flatten_datatype()  local
37     flat = ADIOI_Flatlist;  in ADIOI_Flatten_datatype()
38     while (flat) {  in ADIOI_Flatten_datatype()
39 	if (flat->type == datatype) {  in ADIOI_Flatten_datatype()
46 	    prev = flat;  in ADIOI_Flatten_datatype()
47 	    flat = flat->next;  in ADIOI_Flatten_datatype()
52     flat = prev;  in ADIOI_Flatten_datatype()
53     flat->next = (ADIOI_Flatlist_node *)ADIOI_Malloc(sizeof(ADIOI_Flatlist_node));  in ADIOI_Flatten_datatype()
54     flat = flat->next;  in ADIOI_Flatten_datatype()
56     flat->type = datatype;  in ADIOI_Flatten_datatype()
57     flat->next = NULL;  in ADIOI_Flatten_datatype()
58     flat->blocklens = NULL;  in ADIOI_Flatten_datatype()
59     flat->indices = NULL;  in ADIOI_Flatten_datatype()
61     flat->count = ADIOI_Count_contiguous_blocks(datatype, &curr_index);  in ADIOI_Flatten_datatype()
63 …  DBG_FPRINTF(stderr,"ADIOI_Flatten_datatype:: count %#X, cur_idx = %#X\n",flat->count,curr_index);  in ADIOI_Flatten_datatype()
67     if (flat->count) {  in ADIOI_Flatten_datatype()
68 	flat->blocklens = (ADIO_Offset *) ADIOI_Malloc(flat->count * sizeof(ADIO_Offset));  in ADIOI_Flatten_datatype()
69 	flat->indices = (ADIO_Offset *) ADIOI_Malloc(flat->count * sizeof(ADIO_Offset));  in ADIOI_Flatten_datatype()
74     flatten_idx = (MPI_Aint) flat->count;  in ADIOI_Flatten_datatype()
75     MPIR_Type_flatten(datatype, flat->indices, flat->blocklens, &flatten_idx);  in ADIOI_Flatten_datatype()
80     ADIOI_Flatten(datatype, flat, 0, &curr_index);  in ADIOI_Flatten_datatype()
85     ADIOI_Optimize_flattened(flat);  in ADIOI_Flatten_datatype()
91 	for (i=0; i<flat->count; i++)   in ADIOI_Flatten_datatype()
94               flat->blocklens[i],  in ADIOI_Flatten_datatype()
95               flat->indices[i]  in ADIOI_Flatten_datatype()
106 void ADIOI_Flatten(MPI_Datatype datatype, ADIOI_Flatlist_node *flat,   in ADIOI_Flatten()  argument
153             ADIOI_Flatten(types[0], flat, st_offset, curr_index);  in ADIOI_Flatten()
172 	    ADIOI_Flatten(stype, flat, st_offset, curr_index);  in ADIOI_Flatten()
198               0, flat->indices[0], 0, flat->blocklens[0], st_offset, *curr_index);  in ADIOI_Flatten()
200 	    ADIOI_Flatten(dtype, flat, st_offset, curr_index);  in ADIOI_Flatten()
203               0, flat->indices[0], 0, flat->blocklens[0], st_offset, *curr_index);  in ADIOI_Flatten()
220 	    ADIOI_Flatten(types[0], flat, st_offset, curr_index);  in ADIOI_Flatten()
225 	    flat->indices[j] = st_offset;  in ADIOI_Flatten()
227 	    flat->blocklens[j] = top_count * old_size;  in ADIOI_Flatten()
229 …mple flat->indices[%#X] %#llX, flat->blocklens[%#X] %#llX\n",j, flat->indices[j], j, flat->blockle…  in ADIOI_Flatten()
242 		    flat->indices[j] = flat->indices[j-num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
243 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
245 …ived flat->indices[%#X] %#llX, flat->blocklens[%#X] %#llX\n",j, flat->indices[j], j, flat->blockle…  in ADIOI_Flatten()
265 	    ADIOI_Flatten(types[0], flat, st_offset, curr_index);  in ADIOI_Flatten()
273 	    flat->indices[j] = st_offset;  in ADIOI_Flatten()
275 	    flat->blocklens[j] = blocklength * old_size;  in ADIOI_Flatten()
277 		flat->indices[i] = flat->indices[i-1] + stride * old_size;  in ADIOI_Flatten()
278 		flat->blocklens[i] = flat->blocklens[j];  in ADIOI_Flatten()
296 		    flat->indices[j] = flat->indices[j-num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
297 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
307 		   flat->indices[j] =  flat->indices[j-num] + stride * ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
308 		   flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
328 	    ADIOI_Flatten(types[0], flat, st_offset, curr_index);  in ADIOI_Flatten()
336 	    flat->indices[j] = st_offset;  in ADIOI_Flatten()
338 	    flat->blocklens[j] = blocklength * old_size;  in ADIOI_Flatten()
340 		flat->indices[i] = flat->indices[i-1] + adds[0];  in ADIOI_Flatten()
341 		flat->blocklens[i] = flat->blocklens[j];  in ADIOI_Flatten()
359 		    flat->indices[j] = flat->indices[j-num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
360 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
370 		   flat->indices[j] =  flat->indices[j-num] + adds[0];  in ADIOI_Flatten()
371 		   flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
395         ADIOI_Flatten(types[0], flat,  in ADIOI_Flatten()
406 		flat->indices[i] = st_offset + stride* ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
407 		flat->blocklens[i] = blocklength* ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
422 		    flat->indices[j] = flat->indices[j-num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
423 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
437 		    flat->indices[j] = flat->indices[j-num] + stride* ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
438 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
444 …              flat->indices[j] = flat->indices[j-basic_num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
445                         flat->blocklens[j] = flat->blocklens[j-basic_num];  in ADIOI_Flatten()
474         ADIOI_Flatten(types[0], flat,  in ADIOI_Flatten()
485 		flat->indices[i]   = st_offset + stride* ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
486 		flat->blocklens[i] = blocklength* ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
500 		    flat->indices[j]   = flat->indices[j-num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
501 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
514 		    flat->indices[j]   = flat->indices[j-num] + stride* ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
515 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
536         ADIOI_Flatten(types[0], flat, st_offset+adds[0], curr_index);   in ADIOI_Flatten()
547 		flat->indices[i] = st_offset + adds[i-j];  in ADIOI_Flatten()
548 		flat->blocklens[i] = blocklength*old_size;  in ADIOI_Flatten()
564 		    flat->indices[j] = flat->indices[j-num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
565 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
576 		    flat->indices[j] = flat->indices[j-num] + adds[i] - adds[i-1];  in ADIOI_Flatten()
577 		    flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
583 …              flat->indices[j] = flat->indices[j-basic_num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
584                         flat->blocklens[j] = flat->blocklens[j-basic_num];  in ADIOI_Flatten()
606 		ADIOI_Flatten(types[n], flat, st_offset+adds[n], curr_index);  in ADIOI_Flatten()
614 		flat->indices[j] = st_offset + adds[n];  in ADIOI_Flatten()
616 		flat->blocklens[j] = blocklength * old_size;  in ADIOI_Flatten()
618 …>indices[%#X] %#llX, flat->blocklens[%#X] %#llX\n",n,adds[n],j, flat->indices[j], j, flat->blockle…  in ADIOI_Flatten()
632 			flat->indices[j] = flat->indices[j-num] + ADIOI_AINT_CAST_TO_OFFSET old_extent;  in ADIOI_Flatten()
633 			flat->blocklens[j] = flat->blocklens[j-num];  in ADIOI_Flatten()
635 …indices[%#X] %#llX, flat->blocklens[%#X] %#llX\n",old_extent,j, flat->indices[j], j, flat->blockle…  in ADIOI_Flatten()
654 	flat->indices[j] = st_offset + adds[0];  in ADIOI_Flatten()
655 	flat->blocklens[j] = 0;  in ADIOI_Flatten()
658 …>indices[%#X] %#llX, flat->blocklens[%#X] %#llX\n",0,adds[0],j, flat->indices[j], j, flat->blockle…  in ADIOI_Flatten()
670 	    ADIOI_Flatten(types[0], flat, st_offset+adds[0], curr_index);  in ADIOI_Flatten()
675 	    flat->indices[j] = st_offset;  in ADIOI_Flatten()
677 	    flat->blocklens[j] = old_size;  in ADIOI_Flatten()
680 …>indices[%#X] %#llX, flat->blocklens[%#X] %#llX\n",0,adds[0],j, flat->indices[j], j, flat->blockle…  in ADIOI_Flatten()
688 	flat->indices[j] = st_offset + adds[0] + adds[1];  in ADIOI_Flatten()
689 	flat->blocklens[j] = 0;  in ADIOI_Flatten()
692 …>indices[%#X] %#llX, flat->blocklens[%#X] %#llX\n",1,adds[1],j, flat->indices[j], j, flat->blockle…  in ADIOI_Flatten()
1120     ADIOI_Flatlist_node *flat, *prev;  in ADIOI_Delete_flattened()  local
1122     prev = flat = ADIOI_Flatlist;  in ADIOI_Delete_flattened()
1123     while (flat && (flat->type != datatype)) {  in ADIOI_Delete_flattened()
1124 	prev = flat;  in ADIOI_Delete_flattened()
1125 	flat = flat->next;  in ADIOI_Delete_flattened()
1127     if (flat) {  in ADIOI_Delete_flattened()
1128 	prev->next = flat->next;  in ADIOI_Delete_flattened()
1129 	if (flat->blocklens) ADIOI_Free(flat->blocklens);  in ADIOI_Delete_flattened()
1130 	if (flat->indices) ADIOI_Free(flat->indices);  in ADIOI_Delete_flattened()
1131 	ADIOI_Free(flat);  in ADIOI_Delete_flattened()