modified to read tango device sr/d-bpmlibera/all states and exclude bpms not On

qem/qempanelset.m

@@ -119,6 +119,15 @@ if ~isfield(qemres,'bhrot'), qemres.bhrot=ones(nbpm,1); end
 if ~isfield(qemres,'bvrot'), qemres.bvrot=ones(nbpm,1); end
 qemres.brot=0.5*(qemres.bhrot+qemres.bvrot);
 
+% store wrong BPMS
+try
+    bpms_dev = tango.Device('sr/d-bpmlibera/all');
+    qemres.wrongbpms = find(bpms_dev.All_Status.read~=0); % index of BPMS that are not green in libera manager.
+catch err
+    disp(err);
+    warning('tango not available');
+end
+
 elist=sort(selcor(qemres.skcode));
 qemres.skewidx=qemres.sextidx(elist);
 qemres.skewl=qemres.sxl(elist);