subroutine init_itv_30 !! <LI> (30) fmva (f-value for equation 19) use numerics, only: lablxc, boundl, boundu implicit none lablxc(30) = 'fmva ' boundl(30) = 0.010D0 boundu(30) = 1.000D0 end subroutine init_itv_30