for(i=0; i<Adim; ++i) A bounds[i]=va_arg(, int) if(A bounds]<O return(underflow) totalnum*= A bounds va_end(ap) A base=(ElemType*malloc(dim*sizeof(ElemType)); if(lA base exit(overflow) /*求映象函数的常,把结果存入 A const[i-1],i=1,…,Adim*/ A const=(int*malloc(dim*sizeof(int) if(lA. const) exit(overflow) A. const[Adim-1]=1;/*指针的增减以元素的大小为单位*/ for(i=Adim-2; i>=0, i-) A const i]=A bounds i+1*A const i+1 return OK.for(i=0;i<Adim;++i) { A.bounds[i]=va_arg(ap,int); if(A.bounds[i]<0) return (underflow); totalnum* = A.bounds[i]; } va_end(ap); A.base=(ElemType*)malloc(dim*sizeof(ElemType)); if(!A.base) exit(overflow); /*求映象函数的常，把结果存入A.const [i-1],i=1,…,Adim*/ A.const=(int*)malloc(dim*sizeof(int)); if(!A.const) exit(overflow); A.const [Adim-1]=1; /*指针的增减以元素的大小为单位*/ for(i=Adim-2;i>=0,i--) A.const [i]=A.bounds[i+1]*A.const [i+1]; return OK; }