/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* execaxiv APL2 V1.0.0 ************************************************
* Called from execdyaj and execmonj with axis Aplcb.                   *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
double execaxiv(Aplcb axcb)
{
     Value;
     extern int aplerr;
     double axis;
     int i;

     i = axcb->aplcount;
     axis = value(axcb); /* get axis, free axcb */
     if (aplerr == 0)
          if (i != 1) aplerr = 83;
          else if (axis < 0) aplerr = 9;
     return(axis);
}