extern int otb_6s_ospol_(
  otb_6s_integer *iaer_prof__,
  otb_6s_doublereal *tamoy,
  otb_6s_doublereal *trmoy,
  otb_6s_doublereal *pizmoy,
  otb_6s_doublereal *tamoyp,
  otb_6s_doublereal *trmoyp,
  otb_6s_doublereal *palt,
  otb_6s_doublereal *phirad,
  otb_6s_integer *nt,
  otb_6s_integer *mu,
  otb_6s_integer *np,
  otb_6s_doublereal *rm,
  otb_6s_doublereal *gb,
  otb_6s_doublereal *rp,
  otb_6s_doublereal *xli,
  otb_6s_doublereal *xlq,
  otb_6s_doublereal *xlu,
  otb_6s_doublereal *xlphim,
  otb_6s_integer *nfi,
  otb_6s_integer *nfilut,
  otb_6s_doublereal *filut,
  otb_6s_doublereal *rolut,
  otb_6s_doublereal *rolutq,
  otb_6s_doublereal *rolutu
  );
