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