/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* Copyright (C) 1992 by Thomas Glen Smith.  All Rights Reserved. */
/* aplgrouq APL2 V1.0.0 ************************************************
* Called from aplgroup to handle adding names from an existing group   *
* to the new group of names.                                           *
***********************************************************************/
#define INCLUDES APLCB+APLTOKEN
#include "includes.h"
void aplgrouq(pgrphdr,prows,pcols,namecb)
Apltoken *pgrphdr; /* fifo stack of new names */
int *prows; /* ptr to new row count */
int *pcols; /* ptr to new col count */
Aplcb namecb; /* existing name list */ 
{
	Aplgrour;
	int cplen,i,j;
	char *cp;

	i = *(namecb->apldim);
	cplen = *(namecb->apldim + 1);
	cp = namecb->aplptr.aplchar;
	while (i--) {
		aplgrour(pgrphdr,prows,pcols,cp,cplen);
		cp += cplen;
	}
}