c************
c  Description:	Definitions used by the M$AOP array operator facilities
c
c  Author:	JGS 8/95
c
c  $Revision: 1.1 $
c  $Modtime:   04/11/96 09:53:22  $
c
c************


	structure /AOPSTRUCT/
	  record /M_PTR/ func
	  byte	precedence
	  byte	class
	  byte	inplace
	  byte  outmap
	  character mode
	  character type
	  integer*2 inputs
	  integer*2 outputs
	  integer*2 index
	  integer*4 fill
	endstructure
c Be sure to update L_aopstruct if /AOPSTRUCT/ changes!!
	integer*4 L_aopstruct
	parameter (L_aopstruct = L_M_Ptr + 16)

	structure /AOPSTACK/
	  byte 		class
	  byte		offset
	  character	mode
	  character	type
	  integer*4	id
	  integer*4	nelem
	  integer*4	stride
	  record /M_PTR/ buf
	endstructure
c Be sure to update L_aopstack if /AOPSTACK/ changes!!
	integer*4 L_aopstack
	parameter (L_aopstack = 16 + L_M_Ptr)

	integer*4 P_AOP_VALID, P_AOP_INVALID, P_AOP_BADSTK
	parameter (P_AOP_VALID=1, P_AOP_INVALID=2, P_AOP_BADSTK=3)
	integer*4 P_AOP_BADMODE, P_AOP_BADTYPE
	parameter (P_AOP_BADMODE=4, P_AOP_BADTYPE=5)

	integer*4 P_OP,P_FILE,P_RSLT
	parameter (P_OP=1,P_FILE=2,P_RSLT=3)
