IF ( nIter0.EQ.PTRACERS_Iter0 ) THEN
IF ( nIter0.EQ.PTRACERS_Iter0 .AND. useOBCSprescribe ) THEN
IF (nIter0.GT.PTRACERS_Iter0) THEN
INTEGER PTRACERS_Iter0
& PTRACERS_Iter0,
IF ( PTRACERS_Iter0.GE.nEndIter ) THEN
ELSEIF ( PTRACERS_Iter0.GT.nIter0 ) THEN
CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,
IF ( nIter0.GT.PTRACERS_Iter0 .OR.
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ')
PTRACERS_startAB(iTracer) = nIter0 - PTRACERS_Iter0
IF (nIter0.EQ.PTRACERS_Iter0) THEN
PTRACERS_Iter0 = 0
& - deltaTClock*PTRACERS_Iter0