LOGICAL diag_pickup_read, diag_pickup_write
& diag_pickup_read, diag_pickup_write,
IF ( diag_pickup_read ) THEN
IF ( diag_pickup_read .OR. diag_pickup_write ) THEN
IF (diag_pickup_read) THEN
diag_pickup_read = .FALSE.
& diag_pickup_read .AND. (.NOT. diag_pickup_read_mnc)