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