subroutine init_itv_94 !! <LI> (94) shldoth use numerics, only: lablxc, boundl, boundu implicit none lablxc(94) = 'shldoth ' boundl(94) = 0.001D0 boundu(94) = 10.00D0 end subroutine init_itv_94