Commit 145ffbd2 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

more verbose output for missing background point

parent 8542c56d

sources/reduce_data.f90

+2 −1
Original line number Diff line number Diff line
@@ -103,7 +103,8 @@ ds: do iscan=1, sig_data%number_of_points 
       if ( .not. associated(sig_point%matching_ref) ) cycle

       has_bgr = associated(sig_point%matching_bgr)

       if (bgr_flag>0 .and. .not.has_bgr) then

          call msg_warning('calculate_sqt_raw', point=cpoint(run=sig_data%id,tau=iscan), msg='no background data found')

          call msg_warning('calculate_sqt_raw', point=cpoint(run=sig_data%id,tau=iscan),&

                   msg='no background data found for point='//trim(cpoint(run=sig_data%id,tau=iscan)))

       end if

       res: associate(res_point => sig_point%matching_ref,&

                      bgr_point => sig_point%matching_bgr)