Revision 1877

trunk/src/linad99/dvect10.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.
......
149 146
       ad_exit(1);
150 147
     }
151 148

  
152
     #ifdef __GNU__
153
       if (elem(i)== HUGE ||elem(i)== -HUGE)
154
     #else
155
       if (elem(i)== HUGE_VAL ||elem(i)== -HUGE_VAL)
156
     #endif
149
     if (elem(i)== HUGE_VAL ||elem(i)== -HUGE_VAL)
157 150
     {
158 151
       cerr << "Overflow Error decoding field "
159 152
           " in dvector::dvector(char * ) " << "\n";
trunk/src/linad99/dmat_io2.cpp (revision 1877)
73 73
   void ** m;
74 74
 };
75 75

  
76
#if !defined(HUGE)
77
#define HUGE 1.e+100
78
#endif
79

  
80 76
const int MAXROWS = 5050;
81 77

  
82 78
/**
......
321 317
         ad_exit(1);
322 318
       }
323 319

  
324
       #ifdef __GNU__
325
          if (elem(i,j)== HUGE ||elem(i,j)== -HUGE)
326
       #else
327
         if (elem(i,j)== HUGE_VAL ||elem(i,j)== -HUGE_VAL)
328
       #endif
320
       if (elem(i,j) == HUGE_VAL ||elem(i,j) == -HUGE_VAL)
329 321
       {
330 322
         cerr << "Overflow Error decoding field " << filename
331 323
                << " in dmatrix::dmatrix(char * filename) " << "\n";
trunk/src/linad99/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";
trunk/src/linad99/fvar_io2.cpp (revision 1877)
47 47
const int MAX_FIELD_LENGTH = 500;
48 48
const int MAX_NUMBER_COLUMNS = 6550;
49 49
const int MAX_NUMBER_ROWS = 6550;
50
#if !defined(HUGE)
51
#define HUGE 1.e+100
52
#endif
53 50

  
54 51
/**
55 52
 * Description not yet available.
......
189 186
           << err_ptr[3] << "\n";
... This diff was truncated because it exceeds the maximum size that can be displayed.

Also available in: Unified diff