subroutine init_itv_15 !! <LI> (15) fvs (f-value for equation 12) use numerics, only: lablxc, boundl, boundu implicit none lablxc(15) = 'fvs ' boundl(15) = 0.001D0 boundu(15) = 10.000 end subroutine init_itv_15