subroutine init_itv_40
!! <LI> (40) fgamcd (f-value for equation 37)
use numerics, only: lablxc, boundl, boundu
implicit none
lablxc(40) = 'fgamcd '
boundl(40) = 0.001D0
boundu(40) = 1.000D0
end subroutine init_itv_40