& mnc_cw_fgud, mnc_cw_fgis, mnc_cw_fgig, mnc_cw_fgci,
integer mnc_cw_fgud(MNC_MAX_ID)
mnc_cw_fgud(i) = 0
nudim = mnc_cw_fgud(indfg)
mnc_cw_fgud(indfg) = 0
mnc_cw_fgud(indfg) = nudim
mnc_cw_fgud(indfg) = mnc_cw_fgud(indfg) + 1
mnc_cw_fgud(g) = 0