function get_det_radius,detector

   CASE STRCOMPRESS(detector,/REMOVE_ALL) OF
     'C1': BEGIN
            radius = 167.78 
           END
     'C2': BEGIN
            radius =  87.09
           END          
     'C3': BEGIN
            radius =  18.68
           END
   ELSE:  radius = 167.78 
   ENDCASE
 
return,radius
end