/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* getcbi APL2 V1.0.0 **************************************************
* Called by enclose and enclosf.                                       *
* Differs from getcb in that it initializes the dimensions of the      *
* result, without freeing the vector pointed to by the fifth arg.      *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb getcbi(dataptr,datacnt,datatyp,rank,dimptr)
void *dataptr; /* data address */
int  datacnt, datatyp, rank, *dimptr /* dimensions */;
{
     Getcb; Intcopy;
     extern int aplerr;
     Aplcb out;
	int *ip;

	out = getcb(dataptr,datacnt,datatyp,rank,NULL);
	if (out != NULL && rank > 1)
		ip = intcopy(out->apldim,dimptr,rank,1);
	return(out);
}