init_itv_115 Subroutine

  subroutine init_itv_115
    !! <LI> (115) fpoloidalpower: f-value for max rate of change of
    use numerics, only: lablxc, boundl, boundu
    implicit none
    !!            energy in poloidal field (f-value for equation 66)
    lablxc(115) = 'fpoloidalpower'
    boundl(115) = 0.001D0
    boundu(115) = 1.000D0
  end subroutine init_itv_115