subroutine init_itv_12 !! <LI> (12) oacdcp use numerics, only: lablxc, boundl, boundu implicit none lablxc(12) = 'oacdcp ' boundl(12) = 1.000D5 boundu(12) = 1.500D8 end subroutine init_itv_12