/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* innrprdb APL2 V1.0.0 ************************************************
* Called from innrprd to complete inner product processing when the    *
* arguments are double floating point (APLNUMB).                       *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb innrprdb(left,rite,opera,operb,identity,out,laxis,
	dataout,ldata,rdata,
	laxicnt,lbotcnt,ltopcnt,lincr,
	raxicnt,rbotcnt,rtopcnt,rincr)
Aplcb left,rite,out;
double (*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;
	double *ip,*jp,*kp,*mp,*np,wrk;

#include "innrprdi.h"
}