LOGICAL diag_pickup_read_mdsio, diag_pickup_write_mdsio
& diag_pickup_read_mdsio, diag_pickup_write_mdsio,
IF (diag_pickup_read_mdsio) THEN
diag_pickup_read_mdsio =