& expMatrixWriteCount, impMatrixWriteCount,
& impMatrixWriteCount
& impMatrixWriteCount, impMatrixCounter
impMatrixWriteCount=impMatrixWriteCount+1
DATA impMatrixWriteCount /0/
IF (impMatrixWriteCount.EQ.0) impMatrixWriteCount=1
iRec=impMatrixWriteCount