INTEGER expMatrixCounter, impMatrixCounter, expMatrixWriteCount,
COMMON /MATRIX_PARAMS/ expMatrixCounter, impMatrixCounter,
expMatrixCounter=0
expMatrixCounter = expMatrixCounter + 1
& (1. _d 0)/(expMatrixCounter*dTtracerLev(1))
& expMatrixWriteCount, expMatrixCounter