|
Lines 157-163
Link Here
|
| 157 |
}; |
157 |
}; |
| 158 |
typedef struct Namelist Namelist; |
158 |
typedef struct Namelist Namelist; |
| 159 |
|
159 |
|
| 160 |
#define abs(x) ((x) >= 0 ? (x) : -(x)) |
|
|
| 161 |
#define dabs(x) (doublereal)abs(x) |
160 |
#define dabs(x) (doublereal)abs(x) |
| 162 |
#define min(a,b) ((a) <= (b) ? (a) : (b)) |
161 |
#define min(a,b) ((a) <= (b) ? (a) : (b)) |
| 163 |
#define max(a,b) ((a) >= (b) ? (a) : (b)) |
162 |
#define max(a,b) ((a) >= (b) ? (a) : (b)) |
