mixBott = MOD(pCellMix_select,10)
IF ( mixBott.GE.1 ) THEN
IF ( mixBott.EQ.2 ) THEN
ELSEIF ( mixBott.EQ.3 ) THEN
ELSEIF ( mixBott.EQ.4 ) THEN
INTEGER km, mixSurf, mixBott