************************************************************************
*
*     EnableDampingFONLL.f:
*
*     This subroutine enables or disables the damping factor when
*     computing the FONLL structure functions.
*
************************************************************************
      subroutine EnableDampingFONLL(df)
*
      implicit none
*
      include "../commons/DampingFONLL.h"
*
      logical df
*
      DampingFONLL   = df
      InDampingFONLL = "done"
*
      return
      end