subroutine init_itv_61 !! <LI> (61) gapds use numerics, only: lablxc, boundl, boundu implicit none lablxc(61) = 'gapds ' boundl(61) = 0.001D0 boundu(61) = 10.00D0 end subroutine init_itv_61