integer idN
      real lambda,apradius,sdistance,sradius
      common /huygensc/idN,lambda,apradius,sdistance,sradius
      real pi,clight
      parameter (pi=3.1415926)
      parameter (clight=299792458) ! m/s