/* Copyright (C) 1993 by Thomas Glen Smith.	All Rights Reserved. */
/* nwiseb APL2 V1.0.0 **************************************************
* Called from nwisea, nwisec, and nwisec to allocate the output aplcb. *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb nwiseb(rite,datacnt,outype,axis,naxicnt)
Aplcb rite;
int datacnt,outype,axis,naxicnt;
{
	Getcb; Intcopy;
	Aplcb out=NULL;
	int *ip;
 
	out = getcb(NULL,datacnt,outype+APLTEMP,rite->aplrank,NULL);
	if (out == NULL) return(out);
	if (out->aplrank > 1) {
		ip = intcopy(out->apldim,rite->apldim,out->aplrank,1);
		*(out->apldim + axis - 1) = naxicnt;
	}
     return(out);
}