Borland c++ v.3.1

double **alloc_m (int rows_m, int cols_m)
{
 int i;
 double **m;
 if (rows_m<1 || cols_m<1)
   return NULL;
 if (NULL==(m=(double**)malloc(rows_m*sizeof(double*))))
   return NULL;
 for (i=0; i<rows_m; i++)
  if ((m[i]=(double*)malloc(cols_m*sizeof(double)))==NULL)
    break;
 if (i!=rows_m){
   free_m(m, i-1);
   return NULL;
  }
 return m;
}
 
double **in_matr(FILE *f, int *rows_m, int *cols_m, int*err)
{
 double **m;
 int i, j;
 char str[STR_MAX],chr;
 if (err==NULL)
   return NULL;
 if (f==NULL || rows_m==NULL || cols_m==NULL)
   {
    *err=ER_VAL;
    return NULL;
   }
 if (fscanf (f, "%d", rows_m)!=1)
  {
   *err=ER_IO;
   return NULL;
  }
 if (*rows_m<1 || *cols_m<1)
  {
   *err=ER_VAL;
   return NULL;
  }
 m=alloc_m(*rows_m, *cols_m);
 if (m==NULL)
  {
   *err=ER_MEM;
   return NULL;
  }
 fgets (str, STR_MAX, f);
 fgets (str, STR_MAX, f);
 for (i=0; i<*rows_m; i++)
  {
   for (j=0; j<2; j++)
    if (fscanf(f, "%lf", &m[i][j])!=1)
      break;
    if (j!=2)
      break;
  }
 if (i!=*rows_m)
  {
   free_m(m, i-1);
   *err-ER_IO;
   return NULL;
  }
  *err=ER_OK;
  return m;
}

unsigned _stklen =30000; // или 60000