subroutine init_itv_93 !! <LI> (93) shldith use numerics, only: lablxc, boundl, boundu implicit none lablxc(93) = 'shldith ' boundl(93) = 0.001D0 boundu(93) = 10.00D0 end subroutine init_itv_93