extern int otb_6s_mie_(
  otb_6s_integer *iaer,
  otb_6s_doublereal *wldis,
  otb_6s_doublereal *ex,
  otb_6s_doublereal *sc,
  otb_6s_doublereal *asy,
  otb_6s_integer *ipol
  );
extern int otb_6s_exscphase_(
  otb_6s_doublereal *x,
  otb_6s_doublereal *nr,
  otb_6s_doublereal *ni,
  otb_6s_doublereal *qext,
  otb_6s_doublereal *qsca,
  otb_6s_doublereal *p11,
  otb_6s_doublereal *q11,
  otb_6s_doublereal *u11,
  otb_6s_integer *ipol,
  otb_6s_doublereal *cgaus_s__,
  otb_6s_doublereal *pdgs_s__
  );
