/* Copyright (C) 1996 by Thomas Glen Smith.  All Rights Reserved. */
/* convect APL2 V1.0.0 *************************************************
* Obtains an APLCB for an array of constants.                          *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb convect(pdata,cnt,typ)
int *pdata,    /* array address */
     cnt, /* data count    */
     typ; /* data type     */
{
     Dtacopy; Errinit; Errstop; Getcb;
     Aplcb out;
     int *ip;

     if (errinit())
          return(NULL);
     out=getcb(NULL,cnt,typ+APLTEMP,1,NULL);
     if (out->aplcount)
          ip = dtacopy(out->aplptr.aplint,pdata,cnt,1,typ);
     return(errstop(0,NULL,NULL,out));
}