/* Copyright (C) 1992 by Thomas Glen Smith.  All Rights Reserved. */
/* outrprdb APL2 V1.0.0 ************************************************
* Called from outrprd to complete outer product processing when the    *
* arguments are double floating point (APLNUMB).                       *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
outrprdb(leftdata,ritedata,outdata,leftcnt,ritecnt,oper)
double *leftdata,*ritedata,*outdata,(*oper)();
int leftcnt,ritecnt;
{
	double *ap,*lp,*rp;
	int i,j;

#include "outrprdi.h"
}