/* 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" }