text: 
  /* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
  /*#include "f2c.h"*/
  #include "otb_6S_f2c.h"
  
  #ifdef KR_headers
  double floor();
  double d_int(x) doublereal *x;
  #else
  #undef abs
  #include "math.h"
  #ifdef __cplusplus
  extern "C" {
  #endif
  double d_int(doublereal *x)
  #endif
  {
  return( (*x>0) ? floor(*x) : -floor(- *x) );
  }
  #ifdef __cplusplus
  }
  #endif
  