*     -*-fortran-*-

      double precision kren
      character*4 InKren
*
      common / FactRenRatioAPFEL / kren,InKren