12 int elemental_mult_c(CFI_cdesc_t * a_desc, CFI_cdesc_t * b_desc,  in elemental_mult_c()  argument
19   if (a_desc->rank == 0)  in elemental_mult_c()
21       err = *(int*)a_desc->base_addr;  in elemental_mult_c()
22       *(int*)a_desc->base_addr = 0;  in elemental_mult_c()
26   if (a_desc->type != CFI_type_int  in elemental_mult_c()
32   if (a_desc->rank != 2  in elemental_mult_c()
37   if (a_desc->attribute == CFI_attribute_other)  in elemental_mult_c()
39       assert (a_desc->dim[0].lower_bound == 0);  in elemental_mult_c()
40       assert (a_desc->dim[1].lower_bound == 0);  in elemental_mult_c()
41       for (idx[0] = 0; idx[0] < a_desc->dim[0].extent; idx[0]++)  in elemental_mult_c()
42 	for (idx[1] = 0; idx[1] < a_desc->dim[1].extent; idx[1]++)  in elemental_mult_c()
44 	    res_addr = CFI_address (a_desc, idx);  in elemental_mult_c()
51       assert (a_desc->attribute == CFI_attribute_allocatable  in elemental_mult_c()
52 	      || a_desc->attribute == CFI_attribute_pointer);  in elemental_mult_c()
53       for (idx[0] = a_desc->dim[0].lower_bound;  in elemental_mult_c()
54 	   idx[0] < a_desc->dim[0].extent + a_desc->dim[0].lower_bound;  in elemental_mult_c()
56 	for (idx[1] = a_desc->dim[1].lower_bound;  in elemental_mult_c()
57 	     idx[1] < a_desc->dim[1].extent + a_desc->dim[1].lower_bound;  in elemental_mult_c()
60 	    res_addr = CFI_address (a_desc, idx);  in elemental_mult_c()