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