extern int otb_6s_discom_(
  otb_6s_integer *idatmp,
  otb_6s_integer *iaer,
  otb_6s_integer *iaer_prof__,
  otb_6s_doublereal *xmus,
  otb_6s_doublereal *xmuv,
  otb_6s_doublereal *phi,
  otb_6s_doublereal *taer55,
  otb_6s_doublereal *taer55p,
  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 *ftray,
  otb_6s_integer *ipol,
  otb_6s_doublereal *xlm1,
  otb_6s_doublereal *xlm2,
  otb_6s_doublereal *roatm_fi__,
  otb_6s_integer *nfi,
  otb_6s_integer *nfilut,
  otb_6s_doublereal *filut,
  otb_6s_doublereal *roluts,
  otb_6s_doublereal *rolutsq,
  otb_6s_doublereal *rolutsu
  );
