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