1 #include "f2c.h"
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5 
6 #ifdef KR_headers
r_dim(a,b)7 double r_dim(a,b) real *a, *b;
8 #else
9 double r_dim(real *a, real *b)
10 #endif
11 {
12 return( *a > *b ? *a - *b : 0);
13 }
14 #ifdef __cplusplus
15 }
16 #endif
17