* -*-fortran-*- double precision PolarizationDIS character*4 InPolarizationDIS * common / PolarizationDISAPFEL / PolarizationDIS,InPolarizationDIS