/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* eachalc APL2 V1.0.0 *************************************************
* called from eachdyaf, eachmona, to allocate the result variable.     *
* Note the argument is not freed.                                      *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb eachalc(big)
Aplcb big;
{
     Errstop; Getcb; Intcopy;
     extern int aplerr;
     Aplcb out=NULL;
     int *dimptr;

     out = getcb(NULL,big->aplcount,APLAPL+APLTEMP,big->aplrank,NULL);
     if (aplerr == 0 && out->aplrank > 1)
          dimptr=intcopy(out->apldim,big->apldim,out->aplrank,1);
     return(errstop(0,NULL,NULL,out));
}