subroutine init_itv_41 !! <LI> (41) fcohbop use numerics, only: lablxc, boundl, boundu implicit none lablxc(41) = 'fcohbop ' boundl(41) = 0.001D0 boundu(41) = 1.000D0 end subroutine init_itv_41