spread_i1(int * rptr,int * sptr,int ncopies,int * extent,int rdelta,int m)1 void spread_i1 (int *rptr, int *sptr, int ncopies, int *extent, int rdelta, int m)
2 {
3   int *dest;
4   int n;
5 
6   while (m--)
7     {
8       dest = rptr;
9       for (n = 0; n < ncopies; n ++)
10 	{
11 	  *dest = *sptr;
12 	  dest += rdelta;
13 	}
14       if (extent [n])
15 	if (n)
16 	  rptr ++;
17     }
18 }
19 
main()20 int main() { return 0; }
21 
22