subroutine init_itv_47 !! <LI> (47) feffcd use numerics, only: lablxc, boundl, boundu implicit none lablxc(47) = 'feffcd ' boundl(47) = 0.001D0 boundu(47) = 1.000D0 end subroutine init_itv_47