source: MML/trunk/machine/SOLEIL/StorageRing/bpm/measbpmresp4FOFB.m @ 4

function [R0 FileName] = measbpmresp4FOFB(varargin)
% MEASBPMRESP4FOFB - Measures the BPM to fast corrector response matrix
%
%
%
%
%  OUPUTS
%  1. R0 - Response matrix
%  2. FileName - saved filenamed if Archive flag is asked
%
%  NOTES
%  1. Mainly an alias to measbpmresp
%
%  See Also getidbpmlist, measbpmresp

%
%% Written by Laurent S. Nadolski

% Default
BPMtype = 'AllBPM'; % 'IDBPMonly';

for k = length(varargin):-1:1
    if strcmpi(varargin{k},'IDBPMonly')
        BPMtype = 'IDBPMonly';
        varargin(k) = [];
    elseif strcmpi(varargin{k},'AllBPM')
        BPMtype = 'AllBPM';
        varargin(k) = [];
    end
end

switch BPMtype
    case 'IDBPMonly'
        IDBPM = getidbpmlist;
    case 'AllBPM';
        IDBPM = family2dev('BPMx');
end

[R0 FileName] = measbpmresp('BPMx',IDBPM, 'BPMz', IDBPM, 'FHCOR', 'FVCOR',varargin{:});