subroutine init_itv_79
!! <LI> (79) fbetap (f-value for equation 48)
use numerics, only: lablxc, boundl, boundu
implicit none
lablxc(79) = 'fbetap '
boundl(79) = 0.001D0
boundu(79) = 1.000D0
end subroutine init_itv_79