/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* takeincl.h APL2 V1.0.0 **********************************************
* Included text for take subroutines.                                  *
***********************************************************************/
#if !defined(TAKEINCL_INCL)
#define TAKEINCL_INCL
struct takeparm {
     Aplcb pleft; /* left operand */
     Aplcb prite; /* right operand */
     Aplcb pout; /* output aplcb */
     Aplcb pilvl;	/* Count of input elements by dimension, e.g. for */
				/* input of shape 2 3 4, pilvl will point to a    */
				/* 4-element vector containing 1 4 12 24.         */
     Aplcb polvl; /* count of output elements by dimension */
     union apluptr datain; /* current input data ptr */
     union apluptr dataout; /* current output data ptr */
     union apluptr fillptr; /* ptr to fill element */
     int ptype; /* output data type */
     double dblfill; /* =0e0 */
     int    intfill; /* =0   */
     char   chrfill; /* =' ' */
     Aplcb aplfill; /* prototype of rite - see takefill(). */
};
#endif