subroutine init_itv_123
!! <LI> (123) foh_stress : f-value for CS coil Tresca yield criterion (f-value for eq. 72)
use numerics, only: lablxc, boundl, boundu
implicit none
lablxc(123) = 'foh_stress '
boundl(123) = 0.001D0
boundu(123) = 1.000D0
end subroutine init_itv_123