LOGICAL diag_pickup_read_mnc, diag_pickup_write_mnc
& diag_pickup_read_mnc, diag_pickup_write_mnc
IF (diag_pickup_read_mnc) THEN
& diag_pickup_read_mnc, diag_pickup_write_mnc,
diag_pickup_read_mnc = .FALSE.
diag_pickup_read_mnc = diag_pickup_read_mnc .AND. diag_mnc
& diag_pickup_read .AND. (.NOT. diag_pickup_read_mnc)