extern int otb_6s_enviro_(
  otb_6s_doublereal *difr,
  otb_6s_doublereal *difa,
  otb_6s_doublereal *r__,
  otb_6s_doublereal *palt,
  otb_6s_doublereal *xmuv,
  otb_6s_doublereal *fra,
  otb_6s_doublereal *fae,
  otb_6s_doublereal *fr
  );
