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