5 int ExitProc(
int,
char *);
15 *r=(
int*)calloc(len,
sizeof(
int));
16 if (!(*r)){ ExitProc(OutOfSpc,info);
return 1;}
53 r=(
double*)calloc(len,
sizeof(
double));
54 if (!r){ ExitProc(OutOfSpc,info);
return 1;}
60 void dFree(
double **x)
73 int LvalAlloc(chfac *sf,
78 nnz=iSum(sf->nrow,sf->ujsze);
83 if (sf->uval) dFree(&sf->uval);
84 ierr=dAlloc(nnz,info,&sf->uval);
91 int CfcAlloc(
int maxrow,
98 r=(chfac*)calloc(1,
sizeof(chfac));
99 if (!r) ExitProc(OutOfSpc,info);
105 ierr=iAlloc(maxrow,info,&r->shead);
if(ierr)
return 1;
106 ierr=iAlloc(maxrow,info,&r->ssize);
if(ierr)
return 1;
108 ierr=dAlloc(maxrow,info,&r->diag);
if(ierr)
return 1;
109 ierr=dAlloc(maxrow,info,&r->sqrtdiag);
if(ierr)
return 1;
112 ierr=iAlloc(maxrow,info,&r->ujbeg);
if(ierr)
return 1;
113 ierr=iAlloc(maxrow,info,&r->uhead);
if(ierr)
return 1;
114 ierr=iAlloc(maxrow,info,&r->ujsze);
if(ierr)
return 1;
117 ierr=iAlloc(maxrow,info,&r->perm);
if(ierr)
return 1;
118 ierr=iAlloc(maxrow,info,&r->invp);
if(ierr)
return 1;
120 ierr=iAlloc(maxrow+1,info,&r->subg);
if(ierr)
return 1;
127 if (DSDPCACHESIZE>0){
128 r->cachesize = (int)DSDPCACHESIZE;
138 void CfcFree(chfac **sf)
173 char *info,
double ***rr)
182 r=(
double **)calloc(n,
sizeof(
double*));
184 ExitProc(OutOfSpc,info);
187 ierr=dAlloc(n*(n-1)/2,info,&r[0]);
196 void dPtFree(
double ***x)