& PTRACERS_pickup_write_mnc, PTRACERS_pickup_read_mnc
IF ( PTRACERS_pickup_write_mnc ) THEN
PTRACERS_pickup_write_mnc = pickup_write_mnc .AND. useMNC
PTRACERS_pickup_write_mnc = .FALSE.
PTRACERS_pickup_write_mnc =
& PTRACERS_pickup_write_mnc .AND. useMNC
PTRACERS_pickup_write_mdsio = (.NOT. PTRACERS_pickup_write_mnc)
CALL WRITE_0D_L( PTRACERS_pickup_write_mnc, INDEX_NONE,
& PTRACERS_pickup_write_mnc,