Exemplo n.º 1
0
Arquivo: gen.c Projeto: dodwelltim/ug
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);
}
Exemplo n.º 2
0
Arquivo: dio.c Projeto: rolk/ug
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);
}