init_itv_23 Subroutine

  subroutine init_itv_23
    !! <LI> (23) fcoolcp
    use numerics, only: lablxc, boundl, boundu
    implicit none
    lablxc(23) = 'fcoolcp       '
    boundl(23) = 0.100D0
    boundu(23) = 0.500D0
  end subroutine init_itv_23