subroutine init_itv_31 !! <LI> (31) gapomin use numerics, only: lablxc, boundl, boundu implicit none lablxc(31) = 'gapomin ' boundl(31) = 0.001D0 boundu(31) = 1.000D1 end subroutine init_itv_31