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