/* Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved. */
/* formata APL2 V1.0.0 *************************************************
* Called from form and formdft when rite is empty.  Empty is returned. *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb formata(left,rite)
Aplcb left,rite;
{
	Errstop; Formatc; Formatd; Getcb; Imin; Intcopy;
	int *ip;
	Aplcb out;

	out=getcb(NULL,0,APLCHAR+APLTEMP,imin(1,rite->aplrank),NULL);
	if (out->aplrank > 1) /* copy dimensions? */
		ip=intcopy(out->apldim,rite->apldim,out->aplrank,1);
	return(errstop(0,left,rite,out));
}