& mnc_cw_cit
integer mnc_cw_cit(3,MNC_MAX_INFO)
mnc_cw_cit(1,igroup) = iflag
IF ( mnc_cw_cit(2,igroup) .NE. ival_curr ) THEN
mnc_cw_cit(2,igroup) = ival_curr
mnc_cw_cit(3,igroup) = ival_next
iflag = mnc_cw_cit(1,igroup)
ival_curr = mnc_cw_cit(2,igroup)
ival_next = mnc_cw_cit(3,igroup)
mnc_cw_cit(1,1) = 1
mnc_cw_cit(2,1) = nIter0
mnc_cw_cit(1,2) = -1
mnc_cw_cit(2,2) = -1
mnc_cw_cit(1,3) = 3
mnc_cw_cit(2,3) = nIter0
mnc_cw_cit(1,i) = 0
mnc_cw_cit(2,i) = 0
mnc_cw_cit(3,i) = -1