integer, parameter :: bpm_tot = 104
  character(7), parameter :: use_bpm(bpm_tot) = (/ &
"DET_01W",& 
"DET_02W",&
"DET_03W",&
"DET_04W",&
"DET_05W",&
"DET_06W",&
"DET_07W",&
"DET_08W",&
"DET_101",&
"DET_09W",&
"DET_10W",&
"DET_11W",&
"DET_12W",&
"DET_102",&
"DET_103",&
"DET_13W",&
"DET_14W",&
"DET_15W",&
"DET_16W",&
"DET_17W",&
"DET_18W",&
"DET_19W",&
"DET_20W",&
"DET_21W",&
"DET_22W",&
"DET_23W",&
"DET_105",&
"DET_24W",&
"DET_25W",&
"DET_26W",&
"DET_27W",&
"DET_28W",&
"DET_29W",&
"DET_30W",&
"DET_31W",&
"DET_32W",&
"DET_33W",&
"DET_34W",&
"DET_35W",&
"DET_106",&
"DET_36W",&
"DET_37W",&
"DET_38W",&
"DET_39W",&
"DET_40W",&
"DET_41W",&
"DET_42W",&
"DET_43W",&
"DET_107",&
"DET_44W",&
"DET_45W",&
"DET_46W",&
"DET_47W",&
"DET_108",&
"DET_48W",&
"DET_49E",&
"DET_48E",&
"DET_47E",&
"DET_46E",&
"DET_45E",&
"DET_44E",&
"DET_43E",&
"DET_42E",&
"DET_41E",&
"DET_40E",&
"DET_39E",&
"DET_38E",&
"DET_37E",&
"DET_36E",&
"DET_35E",&
"DET_33E",&
"DET_32E",&
"DET_31E",&
"DET_30E",&
"DET_29E",&
"DET_28E",&
"DET_27E",&
"DET_26E",&
"DET_25E",&
"DET_24E",&
"DET_23E",&
"DET_22E",&
"DET_21E",&
"DET_20E",&
"DET_19E",&
"DET_18E",&
"DET_17E",&
"DET_16E",&
"DET_15E",&
"DET_14E",&
"DET_13E",&
"DET_12E",&
"DET_11E",&
"DET_10E",&
"DET_09E",&
"DET_08E",&
"DET_07E",&
"DET_06E",&
"DET_05E",&
"DET_04E",&
"DET_03E",&
"DET_02E",&
"DET_01E",& 
"DET_00E"/)