fixed array bound check in monitors

      if (i>0) physics%sample_angle = &

           value_struct(VAL_NO_ERROR, deg2rad(technical%motor(i)%value), 0.0)

      i = size(config%monitors)

      physics%detector       = config%detector

      physics%monitors    = config%monitors

      physics%no_monitors = size(config%monitors)

      physics%monitors(1:i)  = config%monitors(1:i)

      physics%no_monitors    = i

      physics%lambda     = lambda