/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* aplcomex APL2 V1.0.0 ************************************************
* Called by slashtrb.                                                  *
* Derived function routine to handle compress and expand.              *
***********************************************************************/
#define INCLUDES APLCHDEF+APLDERIV+APLCB
#include "includes.h"
Aplcb aplcomex(dp,left,rite)
Aplderiv dp; /* function describing derived function */
Aplcb left,rite; /* arguments */
{
     Errstop; Axisdft;
     Aplcb out=NULL;
     int axis;

     if (left)
          return(errstop(4,left,rite,NULL)); /* unexpected arg */
     axis = dp->deriv_axis_int;
     if (axis == -1) /* take default? */
          axis = axisdft((Codes *)(dp->deriv_op),rite);
     out = dp->deriv_left.func.wax(dp->deriv_left.cb,rite,axis);
     return(errstop(0,NULL,NULL,out));
}