subroutine init_itv_91 !! <LI> (91) blbuoth use numerics, only: lablxc, boundl, boundu implicit none lablxc(91) = 'blbuoth ' boundl(91) = 0.001D0 boundu(91) = 2.000D0 end subroutine init_itv_91