LOGICAL PTRACERS_addSrelax2EmP
& PTRACERS_addSrelax2EmP,
CALL WRITE_0D_L( PTRACERS_addSrelax2EmP, INDEX_NONE,
IF ( PTRACERS_addSrelax2EmP ) THEN
PTRACERS_addSrelax2EmP = .FALSE.