c All length units are in meters (m)
c All angles are in radians (r)

      real ssizefwhm,ssizerms,sdiverms
      common /sourcepars/ssizefwhm(2),ssizerms(2),sdiverms(2)

      integer idnt
      integer lunnt
      logical is_open
      character*80 nament, filent
      common /histograms/idnt,lunnt,is_open
      common /histofiles/nament,filent

      integer event
      real r0,dcos0
      real r1,dcos1
      common /thisevent/event,r0(2),dcos0(2),r1(2),dcos1(2)
      character*120 ntform
      common /ntvariables/ntform

      real dist_laser_lens1,lens1_thickness,lens1_radius,lens1_rcurve
      real dist_lens1_lens2,lens2_thickness,lens2_radius,lens2_rcurve
      real dist_lens2_lens3,lens3_thickness,lens3_radius,lens3_rcurve
      real dist_laser_sample
      real lens_ref_index
      common /opticsgeometry/dist_laser_lens1,lens1_thickness,
     &                       lens1_radius,lens1_rcurve,
     &                       dist_lens1_lens2,lens2_thickness,
     &                       lens2_radius,lens2_rcurve,
     &                       dist_lens2_lens3,lens3_thickness,
     &                       lens3_radius,lens3_rcurve,
     &                       lens_ref_index,dist_laser_sample

      logical plotrays
      common /options/plotrays