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); }