/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* innrprdd APL2 V1.0.0 ************************************************
* Called from innrprd to complete inner product processing when the    *
* arguments are character (APLCHAR).                                   *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb innrprdd(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;
char *ldata,*rdata;
int laxis,
	laxicnt,lbotcnt,ltopcnt,lincr,
	raxicnt,rbotcnt,rtopcnt,rincr;
{
	Errstop;
	int axicnt,i,j,k,m,n,p,r,wrk;
	char *ip,*jp,*kp,*mp,*np;

#include "innrprdi.h"
}