& mnc_cw_vgind, mnc_cw_vfmv, mnc_cw_vmvi, mnc_cw_vnat,
integer mnc_cw_vnat(3,MNC_MAX_ID)
DO i = 1,mnc_cw_vnat(1,j)
DO i = 1,mnc_cw_vnat(2,j)
DO i = 1,mnc_cw_vnat(3,j)
mnc_cw_vnat(i,indv) = 0
n = mnc_cw_vnat(1,indv) + 1
mnc_cw_vnat(1,indv) = n
n = mnc_cw_vnat(2,indv) + 1
mnc_cw_vnat(2,indv) = n
n = mnc_cw_vnat(3,indv) + 1
mnc_cw_vnat(3,indv) = n
mnc_cw_vnat(i,g) = 0