& PTRACERS_AdamsBashGtr, PTRACERS_AdamsBash_Tr,
LOGICAL PTRACERS_AdamsBashGtr(PTRACERS_num)
CALL WRITE_0D_L( PTRACERS_AdamsBashGtr(iTracer), INDEX_NONE,
PTRACERS_AdamsBashGtr(iTracer) = .FALSE.
PTRACERS_AdamsBashGtr(iTracer) =
PTRACERS_AdamsBash_Tr(iTracer) = PTRACERS_AdamsBashGtr(iTracer)
IF ( PTRACERS_AdamsBashGtr(iTracer) )
& PTRACERS_AdamsBashGtr(iTracer) ) THEN
IF ( PTRACERS_AdamsBashGtr(iTracer) .OR.
IF ( j.LE.listDim .AND. PTRACERS_AdamsBashGtr(iTracer) )