subroutine init_itv_59 !! <LI> (59) fcutfsu use numerics, only: lablxc, boundl, boundu implicit none lablxc(59) = 'fcutfsu ' boundl(59) = 0.001D0 boundu(59) = 1.000D0 end subroutine init_itv_59