INT BNDP_SaveBndP_Ext (BNDP *theBndP)
{
BP *p = (BP *)theBndP;
INT j;
int iList[3+MAX_SEGMENTS];
double dList[DIM];
iList[0] = p->id;
iList[1] = p->property;
iList[2] = p->n;
if (Bio_Write_mint(3,iList)) return (1);
for (j=0; j<p->n; j++)
iList[j] = p->segment[j];
if (Bio_Write_mint(p->n,iList)) return (1);
for (j=0; j<DIM; j++)
dList[j] = p->x[j];
if (Bio_Write_mdouble(DIM,dList)) return (1);
return(0);
}
int Write_DT_General (DIO_GENERAL *dio_general)
{
int i;
/* initialize basic i/o */
if (Bio_Initialize(stream,BIO_ASCII,'w')) return (1);
/* head always in ACSII */
if (Bio_Write_string(DIO_TITLE_LINE)) return (1);
intList[0] = dio_general->mode;
if (Bio_Write_mint(1,intList)) return (1);
/* re-initialize basic i/o */
if (Bio_Initialize(stream,dio_general->mode,'w')) return (1);
/* now special mode */
if (Bio_Write_string(dio_general->version)) return (1);
if (Bio_Write_string(dio_general->ident)) return (1);
if (Bio_Write_string(dio_general->mgfile)) return (1);
if (Bio_Write_mdouble(1,&(dio_general->time))) return (1);
if (Bio_Write_mdouble(1,&(dio_general->dt))) return (1);
if (Bio_Write_mdouble(1,&(dio_general->ndt))) return (1);
intList[0] = dio_general->nparfiles;
intList[1] = dio_general->me;
intList[2] = dio_general->magic_cookie;
intList[3] = dio_general->nVD;
if (Bio_Write_mint(4,intList)) return (1);
for (i=0; i<dio_general->nVD; i++)
{
if (Bio_Write_string(dio_general->VDname[i])) return (1);
if (Bio_Write_mint(1,dio_general->VDncomp+i)) return (1);
if (Bio_Write_mint(1,dio_general->VDtype+i)) return (1);
if (Bio_Write_string(dio_general->VDcompNames[i])) return (1);
}
intList[0] = dio_general->ndata;
if (Bio_Write_mint(1,intList)) return (1);
return (0);
}