subroutine init_itv_98 !! <LI> (98) li6enrich use numerics, only: lablxc, boundl, boundu implicit none lablxc(98) = 'li6enrich ' boundl(98) = 10.00D0 boundu(98) = 100.0D0 end subroutine init_itv_98