Revision 1877 trunk/src/linad99/fvar_a10.cpp

fvar_a10.cpp (revision 1877)
45 45
const int MAX_FIELD_LENGTH = 500;
46 46
const int MAX_NUMBER_COLUMNS = 6550;
47 47
const int MAX_NUMBER_ROWS = 6550;
48
#if !defined(HUGE)
49
#define HUGE 1.e+100
50
#endif
51 48

  
52 49
/**
53 50
 * Description not yet available.
......
152 149
           << err_ptr[3] << "\n";
153 150
       ad_exit(1);
154 151
     }
155
#if defined(__SUN__) && !defined(__GNUDOS__)
156
     dvariable  cmp = elem(i);
157
     if (cmp == HUGE_VAL || cmp== -HUGE_VAL)
158
#elif defined( __GNU__) || defined( __GNUDOS__)
159
     if (elem(i)== HUGE ||elem(i)== -HUGE)
160
#else
161
     if (elem(i)== HUGE_VAL ||elem(i)== -HUGE_VAL)
162
#endif
152
     if (elem(i) == HUGE_VAL || elem(i) == -HUGE_VAL)
163 153
     {
164 154
       cerr << "Overflow Error decoding field "
165 155
           " in dmatrix::dmatrix(char * ) " << "\n";

Also available in: Unified diff