subroutine init_itv_147
!! <LI> (147) freinke : F-value for Reinke detachment criterion (constraint equation 78)
use numerics, only: lablxc, boundl, boundu
implicit none
lablxc(147) = 'freinke '
boundl(147) = 0.001D0
boundu(147) = 1.000D0
end subroutine init_itv_147