function [prefix, quads, dipols, hcors, vcors, mons ] = cr()

prefix = 'CR';
  
amoni = 0;
adipo = 1;
aquad = 2;
ahcorr = 5;
avcorr = 6;


n=1;
device(n).name='BHF0205-S';      device(n).type=adipo;  device(n).madname='IBHF0205'; device(n).spos=-1.0  ;  device(n).isfesa  = 0; device(n).faulty = 0;  n=n+1;
device(n).name='WHA0350-A';      device(n).type=adipo;  device(n).madname='IWHA350A'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='WHA0350-B';      device(n).type=adipo;  device(n).madname='IWHA350B'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1; 

device(n).name='BPI0130';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPM0155';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPM0195';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0208';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0248';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0275';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0305';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0395';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0425';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0448';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0475';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPR0505';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0570';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0610';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPM0650';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPM0695';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0708';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0748';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0775';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0805';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0895';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0925';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0952';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI0992';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPM1025';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='BPI1070';        device(n).type=amoni;  device(n).madname=' '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;

device(n).name='QFG0120-S';      device(n).type=aquad;  device(n).madname='CR.IQFG0120'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QDG0140-S';      device(n).type=aquad;  device(n).madname='CR.IQDG0140'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QDF0160-S';      device(n).type=aquad;  device(n).madname='CR.IQDF0160'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFF0190-S';      device(n).type=aquad;  device(n).madname='CR.IQFF0190'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFJ0215-S';      device(n).type=aquad;  device(n).madname='CR.IQFJ0215'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QDJ0230-S';      device(n).type=aquad;  device(n).madname='CR.IQDJ0230'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFJ0245-S';      device(n).type=aquad;  device(n).madname='CR.IQFJ0245'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFJ0320-S';      device(n).type=aquad;  device(n).madname='CR.IQFJ0320'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QDH0340-S';      device(n).type=aquad;  device(n).madname='CR.IQDH0340'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFF0510-S';      device(n).type=aquad;  device(n).madname='CR.IQFF0510'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QDF0540-S';      device(n).type=aquad;  device(n).madname='CR.IQDF0540'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QDG0560-S';      device(n).type=aquad;  device(n).madname='CR.IQDG0560'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFG0580-S';      device(n).type=aquad;  device(n).madname='CR.IQFG0580'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QDJ0730-S';      device(n).type=aquad;  device(n).madname='CR.IQDJ0730'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFJ0715-S';      device(n).type=aquad;  device(n).madname='CR.IQFJ0715'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFJ0745-S';      device(n).type=aquad;  device(n).madname='CR.IQFJ0745'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QFJ0820-S';      device(n).type=aquad;  device(n).madname='CR.IQFJ0820'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='QDH0840-S';      device(n).type=aquad;  device(n).madname='CR.IQDH0840'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;

device(n).name='DHF0145-S';      device(n).type=ahcorr;  device(n).madname='CR.IDHF0145'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0200';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0200 '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0242';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0242'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0252';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0252'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0292';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0292 '; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0345';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0345'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0408';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0408'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0452';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0452'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0492';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0492'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0542';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0542'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0582';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0582'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0630';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0630'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0655';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0655'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0700';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0700'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0742';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0742'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0752';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0752'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0792';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0792'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0845';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0845'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0855';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0855'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0908';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0908'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0948';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0948'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF0958';        device(n).type=ahcorr;  device(n).madname='CR.IDHF0958'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF1000';        device(n).type=ahcorr;  device(n).madname='CR.IDHF1000'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DHF1055';        device(n).type=ahcorr;  device(n).madname='CR.IDHF1055'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;

device(n).name='DVF0145';        device(n).type=avcorr;  device(n).madname='CR.IDVF0145'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0200';        device(n).type=avcorr;  device(n).madname='CR.IDVF0200'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0242';        device(n).type=avcorr;  device(n).madname='CR.IDVF0242'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0252';        device(n).type=avcorr;  device(n).madname='CR.IDVF0252'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0292';        device(n).type=avcorr;  device(n).madname='CR.IDVF0292'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0345';        device(n).type=avcorr;  device(n).madname='CR.IDVF0345'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0408';        device(n).type=avcorr;  device(n).madname='CR.IDVF0408'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0452';        device(n).type=avcorr;  device(n).madname='CR.IDVF0452'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0492';        device(n).type=avcorr;  device(n).madname='CR.IDVF0492'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0542';        device(n).type=avcorr;  device(n).madname='CR.IDVF0542'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0582';        device(n).type=avcorr;  device(n).madname='CR.IDVF0582'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0630';        device(n).type=avcorr;  device(n).madname='CR.IDVF0630'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0655';        device(n).type=avcorr;  device(n).madname='CR.IDVF0655'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0700';        device(n).type=avcorr;  device(n).madname='CR.IDVF0700'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0742';        device(n).type=avcorr;  device(n).madname='CR.IDVF0742'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0752';        device(n).type=avcorr;  device(n).madname='CR.IDVF0752'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0792';        device(n).type=avcorr;  device(n).madname='CR.IDVF0792'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0845';        device(n).type=avcorr;  device(n).madname='CR.IDVF0845'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0855';        device(n).type=avcorr;  device(n).madname='CR.IDVF0855'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0908';        device(n).type=avcorr;  device(n).madname='CR.IDVF0908'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0948';        device(n).type=avcorr;  device(n).madname='CR.IDVF0948'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF0958';        device(n).type=avcorr;  device(n).madname='CR.IDVF0958'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF1000';        device(n).type=avcorr;  device(n).madname='CR.IDVF1000'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;
device(n).name='DVF1055';        device(n).type=avcorr;  device(n).madname='CR.IDVF1055'; device(n).spos=-1.0  ;  device(n).isfesa  = 1; device(n).faulty = 0;  n=n+1;


nd = length(device);

ndipols = 0;
nquads  = 0;
nhcorrs  = 0;
nvcorrs  = 0;
nmons   = 0;

for i=1:nd
  switch device(i).type
    case adipo
      ndipols = ndipols + 1;
      dipols(ndipols).name = device(i).name;
      dipols(ndipols).isfesa = device(i).isfesa;
      dipols(ndipols).spos = device(i).spos;
      dipols(ndipols).faulty = device(i).faulty;
      dipols(ndipols).madname = device(i).madname;
      
    case aquad
      nquads =  nquads + 1;
      quads(nquads).name = device(i).name;
      quads(nquads).isfesa = device(i).isfesa;
      quads(nquads).spos = device(i).spos;
      quads(nquads).faulty = device(i).faulty;
      quads(nquads).madname = device(i).madname;
      
    case ahcorr
      nhcorrs =  nhcorrs + 1;
      hcors(nhcorrs).name = device(i).name;
      hcors(nhcorrs).isfesa = device(i).isfesa;
      hcors(nhcorrs).spos = device(i).spos;
      hcors(nhcorrs).faulty = device(i).faulty;
      hcors(nhcorrs).madname = device(i).madname;

    case avcorr
      nvcorrs =  nvcorrs + 1;
      vcors(nvcorrs).name = device(i).name;
      vcors(nvcorrs).isfesa = device(i).isfesa;
      vcors(nvcorrs).spos = device(i).spos;
      vcors(nvcorrs).faulty = device(i).faulty;
      vcors(nvcorrs).madname = device(i).madname;
      
    case amoni
      nmons = nmons + 1;
      mons(nmons).name  = device(i).name;
      mons(nmons).isfesa = device(i).isfesa;
      mons(nmons).spos = device(i).spos;
      mons(nmons).faulty = device(i).faulty;
      mons(nmons).madname = device(i).madname;
      
  end
end  
