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  
      20  int main() { return 0; }
      21