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