I scaleFact, power, arrType, nLevFrac,
IF ( nLevFrac.GE.0 ) thickFac = 0
useFract = nLevFrac.GT.0
sizF = nLevFrac
INTEGER nLevFrac