C2F(cha1).buf[len_str] = '\0';
/* search fun ptr of the comput func in the scilab func table */
ifun = C2F(funnum)(C2F(cha1).buf);
- if (ifun > 0) lfunpt = ifun;
+ if (ifun > 0)
+ {
+ lfunpt = ifun;
+ }
else
{
C2F(namstr)(id, &il_sim[6], &len_str, (j = 0, &j));
C2F(com).fin = 0;
C2F(funs)(id);
- if ((C2F(com).fun == -1) | (C2F(com).fun == -2)) lfunpt = -*Lstk(C2F(com).fin);
+ if ((C2F(com).fun == -1) | (C2F(com).fun == -2))
+ {
+ lfunpt = -*Lstk(C2F(com).fin);
+ }
else
{
lfunpt = 0;
Block.nin = mh * nh;
Block.insz = NULL;
Block.inptr = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
/* check value of in */
for (i = 0; i < Block.nin; i++)
Block.insz[i] = (int) * ((double *)(&ilh[4]) + i);
Block.insz[Block.nin + i] = (int) * ((double *)(&ilh2[4]) + i);
type = *((double *)(&ilh3[4]) + i);
- if (type == 1) Block.insz[2 * Block.nin + i] = 10;
- else if (type == 2) Block.insz[2 * Block.nin + i] = 11;
- else if (type == 3) Block.insz[2 * Block.nin + i] = 84;
- else if (type == 4) Block.insz[2 * Block.nin + i] = 82;
- else if (type == 5) Block.insz[2 * Block.nin + i] = 81;
- else if (type == 6) Block.insz[2 * Block.nin + i] = 814;
- else if (type == 7) Block.insz[2 * Block.nin + i] = 812;
- else if (type == 8) Block.insz[2 * Block.nin + i] = 811;
- else Block.insz[2 * Block.nin + i] = 10;
+ if (type == 1)
+ {
+ Block.insz[2 * Block.nin + i] = 10;
+ }
+ else if (type == 2)
+ {
+ Block.insz[2 * Block.nin + i] = 11;
+ }
+ else if (type == 3)
+ {
+ Block.insz[2 * Block.nin + i] = 84;
+ }
+ else if (type == 4)
+ {
+ Block.insz[2 * Block.nin + i] = 82;
+ }
+ else if (type == 5)
+ {
+ Block.insz[2 * Block.nin + i] = 81;
+ }
+ else if (type == 6)
+ {
+ Block.insz[2 * Block.nin + i] = 814;
+ }
+ else if (type == 7)
+ {
+ Block.insz[2 * Block.nin + i] = 812;
+ }
+ else if (type == 8)
+ {
+ Block.insz[2 * Block.nin + i] = 811;
+ }
+ else
+ {
+ Block.insz[2 * Block.nin + i] = 10;
+ }
}
}
else
case 10 :
if ((Block.inptr[i] = (double *) MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(double))) == NULL)
{
- for (j = 0; j < i; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.inptr[i] = (double *) \
MALLOC(2 * Block.insz[i] * Block.insz[Block.nin + i] * sizeof(double))) == NULL)
{
- for (j = 0; j < i; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.inptr[i] = (long *) \
MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(long))) == NULL)
{
- for (j = 0; j < i; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.inptr[i] = (short *) \
MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(short))) == NULL)
{
- for (j = 0; j < i; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.inptr[i] = (char *) \
MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(char))) == NULL)
{
- for (j = 0; j < i; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.inptr[i] = (unsigned long *) \
MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(unsigned long))) == NULL)
{
- for (j = 0; j < i; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.inptr[i] = (unsigned short *) \
MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(unsigned short))) == NULL)
{
- for (j = 0; j < i; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.inptr[i] = (unsigned char *) \
MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(unsigned char))) == NULL)
{
- for (j = 0; j < i; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
Block.nout = mh * nh;
Block.outsz = NULL;
Block.outptr = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
/* check value of out */
for (i = 0; i < Block.nout; i++)
{
Scierror(888, _("%s : Undetermined Size. out(%d)=%d. Please adjust your model.\n"), \
fname, i + 1, (int)(*((double *)(&ilh[4]) + i)));
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
return 0;
if ((Block.outsz = (int *) MALLOC(Block.nout * 3 * sizeof(int))) == NULL)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
return 0;
if ((Block.outptr = (void **) MALLOC(Block.nout * sizeof(void *))) == NULL)
{
FREE(Block.outsz);
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
Scierror(888, _("%s : Allocation error.\n"), fname);
{
Scierror(888, _("%s : Undetermined Size. out2(%d)=%d. Please adjust your model.\n"), \
fname, i + 1, (int)(*((double *)(&ilh2[4]) + i)));
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.insz);
FREE(Block.inptr);
FREE(Block.outptr);
Block.outsz[i] = (int) * ((double *)(&ilh[4]) + i);
Block.outsz[Block.nout + i] = (int) * ((double *)(&ilh2[4]) + i);
type = *((double *)(&ilh3[4]) + i);
- if (type == 1) Block.outsz[2 * Block.nout + i] = 10;
- else if (type == 2) Block.outsz[2 * Block.nout + i] = 11;
- else if (type == 3) Block.outsz[2 * Block.nout + i] = 84;
- else if (type == 4) Block.outsz[2 * Block.nout + i] = 82;
- else if (type == 5) Block.outsz[2 * Block.nout + i] = 81;
- else if (type == 6) Block.outsz[2 * Block.nout + i] = 814;
- else if (type == 7) Block.outsz[2 * Block.nout + i] = 812;
- else if (type == 8) Block.outsz[2 * Block.nout + i] = 811;
- else Block.outsz[2 * Block.nout + i] = 10;
+ if (type == 1)
+ {
+ Block.outsz[2 * Block.nout + i] = 10;
+ }
+ else if (type == 2)
+ {
+ Block.outsz[2 * Block.nout + i] = 11;
+ }
+ else if (type == 3)
+ {
+ Block.outsz[2 * Block.nout + i] = 84;
+ }
+ else if (type == 4)
+ {
+ Block.outsz[2 * Block.nout + i] = 82;
+ }
+ else if (type == 5)
+ {
+ Block.outsz[2 * Block.nout + i] = 81;
+ }
+ else if (type == 6)
+ {
+ Block.outsz[2 * Block.nout + i] = 814;
+ }
+ else if (type == 7)
+ {
+ Block.outsz[2 * Block.nout + i] = 812;
+ }
+ else if (type == 8)
+ {
+ Block.outsz[2 * Block.nout + i] = 811;
+ }
+ else
+ {
+ Block.outsz[2 * Block.nout + i] = 10;
+ }
}
}
else
if ((Block.outptr[i] = (double *) \
MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < i; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.outptr[i] = (double *) \
MALLOC(2 * Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < i; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.outptr[i] = (long *) \
MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(long))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < i; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.outptr[i] = (short *) \
MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(short))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < i; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.outptr[i] = (char *) \
MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(char))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < i; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.outptr[i] = (unsigned long *) \
MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(unsigned long))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < i; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.outptr[i] = (unsigned short *) \
MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(unsigned short))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < i; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.outptr[i] = (unsigned char *) \
MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(unsigned char))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < i; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
nh = ilh[2];
Block.nevout = mh * nh;
Block.evout = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
if ((Block.evout = (double *) MALLOC(Block.nevout * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
Scierror(888, _("%s : Allocation error.\n"), fname);
Block.xprop = NULL;
Block.xd = NULL;
Block.res = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
/* x */
if ((Block.x = (double *) MALLOC(Block.nx * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
/* xd */
if ((Block.xd = (double *) MALLOC(Block.nx * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
/* xprop */
if ((Block.xprop = (int *) MALLOC(Block.nx * sizeof(int))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
/*if (blktyp>10000) {*/
if ((Block.res = (double *) MALLOC(Block.nx * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
Block.nz = mh * nh;
Block.z = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
if ((Block.z = (double *) MALLOC(Block.nz * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
Block.ozsz = NULL;
Block.oztyp = NULL;
Block.ozptr = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
if ((Block.ozsz = (int *) MALLOC(2 * Block.noz * sizeof(int))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
if ((Block.oztyp = (int *) MALLOC(Block.noz * sizeof(int))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
if ((Block.ozptr = (void **) MALLOC(Block.noz * sizeof(void *))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
Block.oztyp[i] = 10;
if ((Block.ozptr[i] = (double *) MALLOC(mh2 * nh2 * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < i; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.oztyp[i] = 11;
if ((Block.ozptr[i] = (double *) MALLOC(2 * mh2 * nh2 * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < i; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.oztyp[i] = 84;
if ((Block.ozptr[i] = (long *) MALLOC(mh2 * nh2 * sizeof(long))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < i; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.oztyp[i] = 82;
if ((Block.ozptr[i] = (short *) MALLOC(mh2 * nh2 * sizeof(short))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < i; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.oztyp[i] = 81;
if ((Block.ozptr[i] = (char *) MALLOC(mh2 * nh2 * sizeof(char))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < i; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.oztyp[i] = 814;
if ((Block.ozptr[i] = (unsigned long *) MALLOC(mh2 * nh2 * sizeof(unsigned long))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < i; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.oztyp[i] = 812;
if ((Block.ozptr[i] = (unsigned short *) MALLOC(mh2 * nh2 * sizeof(unsigned short))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < i; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.oztyp[i] = 811;
if ((Block.ozptr[i] = (unsigned char *) MALLOC(mh2 * nh2 * sizeof(unsigned char))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < i; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
nh = ilh[2];
Block.nrpar = mh * nh;
Block.rpar = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
if ((Block.rpar = (double *) MALLOC(Block.nrpar * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
nh = ilh[2];
Block.nipar = mh * nh;
Block.ipar = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
if ((Block.ipar = (int *) MALLOC(Block.nipar * sizeof(int))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
Block.oparsz = NULL;
Block.opartyp = NULL;
Block.oparptr = NULL;
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
if ((Block.oparsz = (int *) MALLOC(2 * Block.nopar * sizeof(int))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
Scierror(888, _("%s : Allocation error.\n"), fname);
if ((Block.opartyp = (int *) MALLOC(Block.nopar * sizeof(int))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
if ((Block.oparptr = (void **) MALLOC(Block.nopar * sizeof(void *))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
Block.opartyp[i] = 10;
if ((Block.oparptr[i] = (double *) MALLOC(mh2 * nh2 * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < i; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.opartyp[i] = 11;
if ((Block.oparptr[i] = (double *) MALLOC(2 * mh2 * nh2 * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < i; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.opartyp[i] = 84;
if ((Block.oparptr[i] = (long *) MALLOC(mh2 * nh2 * sizeof(long))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < i; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.opartyp[i] = 82;
if ((Block.oparptr[i] = (short *) MALLOC(mh2 * nh2 * sizeof(short))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < i; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.opartyp[i] = 81;
if ((Block.oparptr[i] = (char *) MALLOC(mh2 * nh2 * sizeof(char))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < i; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.opartyp[i] = 814;
if ((Block.oparptr[i] = (unsigned long *) MALLOC(mh2 * nh2 * sizeof(unsigned long))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < i; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.opartyp[i] = 812;
if ((Block.oparptr[i] = (unsigned short *) MALLOC(mh2 * nh2 * sizeof(unsigned short))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < i; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
Block.opartyp[i] = 811;
if ((Block.oparptr[i] = (unsigned char *) MALLOC(mh2 * nh2 * sizeof(unsigned char))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < i; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < i; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
mh = ilh[1];
nh = ilh[2];
Block.label = "";
- if (mh*nh != 0)
+ if (mh * nh != 0)
{
len_str = ilh[5] - 1;
if (len_str != 0)
{
if ((Block.label = (char *) MALLOC((len_str + 1) * sizeof(char))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < Block.nopar; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < Block.nopar; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
{
if ((Block.g = (double *) MALLOC(Block.ng * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < Block.nopar; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < Block.nopar; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
FREE(Block.label);
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
if ((Block.jroot = (int *) MALLOC(Block.ng * sizeof(int))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < Block.nopar; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < Block.nopar; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
FREE(Block.label);
FREE(Block.g);
Scierror(888, _("%s : Allocation error.\n"), fname);
{
if ((Block.mode = (int *) MALLOC(Block.nmode * sizeof(double))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < Block.nopar; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < Block.nopar; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
FREE(Block.label);
FREE(Block.g);
FREE(Block.jroot);
/* work */
if ((Block.work = (void **) MALLOC(sizeof(void *))) == NULL)
{
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < Block.nopar; j++) FREE(Block.oparptr[j]);
+ for (j = 0; j < Block.nopar; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
FREE(Block.label);
FREE(Block.g);
FREE(Block.jroot);
ierr = createblklist(&Block, &ierr, -1, Block.type);
- for (j = 0; j < Block.nin; j++) FREE(Block.inptr[j]);
+ for (j = 0; j < Block.nin; j++)
+ {
+ FREE(Block.inptr[j]);
+ }
FREE(Block.inptr);
FREE(Block.insz);
- for (j = 0; j < Block.nout; j++) FREE(Block.outptr[j]);
+ for (j = 0; j < Block.nout; j++)
+ {
+ FREE(Block.outptr[j]);
+ }
FREE(Block.outptr);
FREE(Block.outsz);
FREE(Block.evout);
FREE(Block.z);
FREE(Block.ozsz);
FREE(Block.oztyp);
- for (j = 0; j < Block.noz; j++) FREE(Block.ozptr[j]);
+ for (j = 0; j < Block.noz; j++)
+ {
+ FREE(Block.ozptr[j]);
+ }
FREE(Block.rpar);
FREE(Block.ipar);
FREE(Block.oparsz);
FREE(Block.opartyp);
- for (j = 0; j < Block.nopar; j++) FREE(Block.oparptr[j]);
- if (len_str != 0) FREE(Block.label);
+ for (j = 0; j < Block.nopar; j++)
+ {
+ FREE(Block.oparptr[j]);
+ }
+ if (len_str != 0)
+ {
+ FREE(Block.label);
+ }
FREE(Block.g);
FREE(Block.jroot);
FREE(Block.mode);
return 0;
}
/*--------------------------------------------------------------------------*/
+