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