/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* innrprdc APL2 V1.0.0 ************************************************
* Called from innrprd to complete inner product processing when the    *
* arguments are integer (APLINT).                                      *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb innrprdc(left,rite,opera,operb,identity,out,laxis,
	dataout,ldata,rdata,
	laxicnt,lbotcnt,ltopcnt,lincr,
	raxicnt,rbotcnt,rtopcnt,rincr)
Aplcb left,rite,out;
int (*opera)(),(*operb)(),*identity,*dataout,*ldata,*rdata;
int laxis,
	laxicnt,lbotcnt,ltopcnt,lincr,
	raxicnt,rbotcnt,rtopcnt,rincr;
{
	Errstop;
	int axicnt,i,j,k,m,n,p,r;
	int *ip,*jp,*kp,*mp,*np,wrk;

#include "innrprdi.h"
}