Revision 1877 trunk/src/linad99/dvect9.cpp

dvect9.cpp (revision 1877)
49 49
const int MAX_FIELD_LENGTH = 500;
50 50
const int MAX_NUMBER_COLUMNS = 6550;
51 51
const int MAX_NUMBER_ROWS = 6550;
52
#if !defined(HUGE)
53
#define HUGE 1.e+100
54
#endif
55 52

  
56 53
/**
57 54
 * Description not yet available.
......
133 130
       ad_exit(1);
134 131
     }
135 132

  
136
     #ifdef __GNU__
137
       if (elem(i)== HUGE ||elem(i)== -HUGE)
138
     #else
139
       if (elem(i)== HUGE_VAL ||elem(i)== -HUGE_VAL)
140
     #endif
133
     if (elem(i)== HUGE_VAL ||elem(i)== -HUGE_VAL)
141 134
     {
142 135
       cerr << "Overflow Error decoding field "
143 136
           " in dvector::dvector(char * ) " << "\n";
......
237 230
       ad_exit(1);
238 231
     }
239 232

  
240
     #ifdef __GNU__
241
       if (elem(i)== HUGE ||elem(i)== -HUGE)
242
     #else
243
       if (elem(i)== HUGE_VAL ||elem(i)== -HUGE_VAL)
244
     #endif
233
     if (elem(i) == HUGE_VAL ||elem(i) == -HUGE_VAL)
245 234
     {
246 235
       cerr << "Overflow Error decoding field " << filename
247 236
           << " in dvector::dvector(char * filename) " << "\n";
......
342 331
       ad_exit(1);
343 332
     }
344 333

  
345
     #ifdef __GNU__
346
       if (elem(i)== HUGE ||elem(i)== -HUGE)
347
     #else
348
       if (elem(i)== HUGE_VAL ||elem(i)== -HUGE_VAL)
349
     #endif
334
     if (elem(i) == HUGE_VAL ||elem(i) == -HUGE_VAL)
350 335
     {
351 336
       cerr << "Overflow Error decoding field "
352 337
           " in dvector::dvector(char * ) " << "\n";
......
440 425
       ad_exit(1);
441 426
     }
442 427

  
443
     #ifdef __GNU__
444
       if (elem(i)== HUGE ||elem(i)== -HUGE)
445
     #else
446
       if (elem(i)== HUGE_VAL ||elem(i)== -HUGE_VAL)
447
     #endif
428
     if (elem(i) == HUGE_VAL ||elem(i) == -HUGE_VAL)
448 429
     {
449 430
       cerr << "Overflow Error decoding field " << filename
450 431
           << " in dvector::dvector(char * filename) " << "\n";

Also available in: Unified diff