subroutine init_itv_39
!! <LI> (39) fjohc0 (f-value for equation 27)
use numerics, only: lablxc, boundl, boundu
implicit none
lablxc(39) = 'fjohc0 '
boundl(39) = 0.001D0
boundu(39) = 1.000D0
end subroutine init_itv_39