30 spread_internal (gfc_array_char *ret, const gfc_array_char *source,  in spread_internal()  argument
54   size = GFC_DESCRIPTOR_SIZE(source);  in spread_internal()
56   srank = GFC_DESCRIPTOR_RANK(source);  in spread_internal()
90 	      extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);  in spread_internal()
91 	      sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);  in spread_internal()
137 		  extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);  in spread_internal()
147 		  sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);  in spread_internal()
164 		  extent[dim] = GFC_DESCRIPTOR_EXTENT(source,dim);  in spread_internal()
167 		  sstride[dim] = GFC_DESCRIPTOR_STRIDE_BYTES(source,dim);  in spread_internal()
183   sptr = source->base_addr;  in spread_internal()
229 spread_internal_scalar (gfc_array_char *ret, const char *source,  in spread_internal_scalar()  argument
261       memcpy (dest , source, size);  in spread_internal_scalar()
270 spread (gfc_array_char *ret, const gfc_array_char *source,  in spread()  argument
280       spread_i1 ((gfc_array_i1 *) ret, (gfc_array_i1 *) source,  in spread()
286       spread_i2 ((gfc_array_i2 *) ret, (gfc_array_i2 *) source,  in spread()
292       spread_i4 ((gfc_array_i4 *) ret, (gfc_array_i4 *) source,  in spread()
298       spread_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) source,  in spread()
305       spread_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) source,  in spread()
311       spread_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) source,  in spread()
316       spread_r8 ((gfc_array_r8 *) ret, (gfc_array_r8 *) source,  in spread()
329       spread_r10 ((gfc_array_r10 *) ret, (gfc_array_r10 *) source,  in spread()
336       spread_r16 ((gfc_array_r16 *) ret, (gfc_array_r16 *) source,  in spread()
343       spread_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) source,  in spread()
348       spread_c8 ((gfc_array_c8 *) ret, (gfc_array_c8 *) source,  in spread()
361       spread_c10 ((gfc_array_c10 *) ret, (gfc_array_c10 *) source,  in spread()
368       spread_c16 ((gfc_array_c16 *) ret, (gfc_array_c16 *) source,  in spread()
379       spread_i1 ((gfc_array_i1 *) ret, (gfc_array_i1 *) source,  in spread()
384       if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(source->base_addr))  in spread()
388 	  spread_i2 ((gfc_array_i2 *) ret, (gfc_array_i2 *) source,  in spread()
394       if (GFC_UNALIGNED_4(ret->base_addr) || GFC_UNALIGNED_4(source->base_addr))  in spread()
398 	  spread_i4 ((gfc_array_i4 *) ret, (gfc_array_i4 *) source,  in spread()
404       if (GFC_UNALIGNED_8(ret->base_addr) || GFC_UNALIGNED_8(source->base_addr))  in spread()
408 	  spread_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) source,  in spread()
415 	  || GFC_UNALIGNED_16(source->base_addr))  in spread()
419 	  spread_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) source,  in spread()
427   spread_internal (ret, source, along, pncopies);  in spread()
439 	     const gfc_array_char *source, const index_type *along,  in spread_char()  argument
443   spread_internal (ret, source, along, pncopies);  in spread_char()
455 	      const gfc_array_char *source, const index_type *along,  in spread_char4()  argument
459   spread_internal (ret, source, along, pncopies);  in spread_char4()
471 spread_scalar (gfc_array_char *ret, const char *source,  in spread_scalar()  argument
484       spread_scalar_i1 ((gfc_array_i1 *) ret, (GFC_INTEGER_1 *) source,  in spread_scalar()
490       spread_scalar_i2 ((gfc_array_i2 *) ret, (GFC_INTEGER_2 *) source,  in spread_scalar()
496       spread_scalar_i4 ((gfc_array_i4 *) ret, (GFC_INTEGER_4 *) source,  in spread_scalar()
502       spread_scalar_i8 ((gfc_array_i8 *) ret, (GFC_INTEGER_8 *) source,  in spread_scalar()
509       spread_scalar_i16 ((gfc_array_i16 *) ret, (GFC_INTEGER_16 *) source,  in spread_scalar()
515       spread_scalar_r4 ((gfc_array_r4 *) ret, (GFC_REAL_4 *) source,  in spread_scalar()
520       spread_scalar_r8 ((gfc_array_r8 *) ret, (GFC_REAL_8 *) source,  in spread_scalar()
533       spread_scalar_r10 ((gfc_array_r10 *) ret, (GFC_REAL_10 *) source,  in spread_scalar()
540       spread_scalar_r16 ((gfc_array_r16 *) ret, (GFC_REAL_16 *) source,  in spread_scalar()
547       spread_scalar_c4 ((gfc_array_c4 *) ret, (GFC_COMPLEX_4 *) source,  in spread_scalar()
552       spread_scalar_c8 ((gfc_array_c8 *) ret, (GFC_COMPLEX_8 *) source,  in spread_scalar()
565       spread_scalar_c10 ((gfc_array_c10 *) ret, (GFC_COMPLEX_10 *) source,  in spread_scalar()
572       spread_scalar_c16 ((gfc_array_c16 *) ret, (GFC_COMPLEX_16 *) source,  in spread_scalar()
583       spread_scalar_i1 ((gfc_array_i1 *) ret, (GFC_INTEGER_1 *) source,  in spread_scalar()
588       if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(source))  in spread_scalar()
592 	  spread_scalar_i2 ((gfc_array_i2 *) ret, (GFC_INTEGER_2 *) source,  in spread_scalar()
598       if (GFC_UNALIGNED_4(ret->base_addr) || GFC_UNALIGNED_4(source))  in spread_scalar()
602 	  spread_scalar_i4 ((gfc_array_i4 *) ret, (GFC_INTEGER_4 *) source,  in spread_scalar()
608       if (GFC_UNALIGNED_8(ret->base_addr) || GFC_UNALIGNED_8(source))  in spread_scalar()
612 	  spread_scalar_i8 ((gfc_array_i8 *) ret, (GFC_INTEGER_8 *) source,  in spread_scalar()
618       if (GFC_UNALIGNED_16(ret->base_addr) || GFC_UNALIGNED_16(source))  in spread_scalar()
622 	  spread_scalar_i16 ((gfc_array_i16 *) ret, (GFC_INTEGER_16 *) source,  in spread_scalar()
631   spread_internal_scalar (ret, source, along, pncopies);  in spread_scalar()
643 		    const char *source, const index_type *along,  in spread_char_scalar()  argument
649   spread_internal_scalar (ret, source, along, pncopies);  in spread_char_scalar()
661 		     const char *source, const index_type *along,  in spread_char4_scalar()  argument
667   spread_internal_scalar (ret, source, along, pncopies);  in spread_char4_scalar()