Lines Matching defs:pad
34 parray *pad, shape_type *order, index_type size)
54 /* p.* indicates the pad array. */
115 if (pad)
117 pdim = GFC_DESCRIPTOR_RANK (pad);
123 pstride[n] = GFC_DESCRIPTOR_STRIDE(pad,n);
124 pextent[n] = GFC_DESCRIPTOR_EXTENT(pad,n);
136 pptr = pad->base_addr;
175 if (rs > source_extent && (!pad || pempty))
258 pad ? pad->base_addr : NULL, psize);
271 /* Pretend we are using the pad array the first time around, too. */
286 /* Select between the source and pad arrays. */
331 if (sptr && pad)
333 /* Switch to the pad array. */
344 /* We now start again from the beginning of the pad array. */
361 reshape (parray *ret, parray *source, shape_type *shape, parray *pad,
364 reshape_internal (ret, source, shape, pad, order,
376 parray *source, shape_type *shape, parray *pad,
380 reshape_internal (ret, source, shape, pad, order, source_length);
391 parray *source, shape_type *shape, parray *pad,
395 reshape_internal (ret, source, shape, pad, order,