read_double.c

混沌分析的C语言程序的

/* 


   Reads doubles from an acsii file skiping lines commented with a # 
   Returns 1 if any comment lines were found otherwise 0

*/



int read_double(ptr,databit)
     FILE *ptr;
     double *databit;

{
  char data[256];
  int  return_value;

  if (fscanf(ptr,"%s",data)==EOF)
    return_value=2;
  else {
    *databit=atof(data);
    if (data[0]=='#'){
      while (getc(ptr)!='\n');
      read_double(ptr,databit);
      return_value=1;
    }  
    else return_value=0;
  }
  return(return_value);
}