DO WHILE ( fCnt.GT.prev_fCnt )
prev_fCnt = fCnt
IF ( fCnt.EQ.prev_fCnt ) THEN
fCnt = fCnt + 1
& .AND. fCnt.EQ.prev_fCnt ) THEN
IF ( fCnt.GT.prev_fCnt ) THEN
& 'set ', fCnt - prev_fCnt, ' /', nActiveFacets,
IF ( fCnt.LT.nActiveFacets ) THEN
& 'Only get', fCnt, ' /', nActiveFacets,' active facets done'
INTEGER fCnt, prev_fCnt
fCnt = 0
IF ( fCnt.EQ.0 ) THEN
fCnt = 1