CALL WRITE_0D_R8(PTRACERS_dumpFreq, INDEX_NONE,
& PTRACERS_dumpFreq,
PTRACERS_dumpFreq = dumpFreq
IF ( DIFFERENT_MULTIPLE( PTRACERS_dumpFreq, myTime, deltaTClock )
& / PTRACERS_dumpFreq + 1.5 )
_RL PTRACERS_dumpFreq