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