@<Determine the number of stages, |n|, needed by |funit[j]|@>;

  funit[j].k=n;

  funit[j].co=(coroutine*)calloc(n,sizeof(coroutine));

  if (!funit[j].co) panic(errprint1("Can't allocate coroutine %d",j));

  for (i=0;i<n;i++) {

    funit[j].co[i].name=funit[j].name;

    funit[j].co[i].stage=i+1;