numHeffPreTh = diagNum
numMateTrPreTh = numHeffPreTh
INTEGER numArea,numAreaPreTh,numHeff,numHeffPreTh