subroutine init_itv_3 !! <LI> ( 3) rmajor use numerics, only: lablxc, boundl, boundu implicit none lablxc(3) = 'rmajor ' boundl(3) = 0.100D0 boundu(3) = 50.00D0 end subroutine init_itv_3