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)
& diag_pickup_read, diag_pickup_write,
LOGICAL diag_pickup_read, diag_pickup_write