Commit cd71abef authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

before clearing matches, check if valid scan

parent 1fdb62cc

sources/drspine.f90

+1 −0
Original line number Diff line number Diff line
@@ -1629,6 +1629,7 @@ CONTAINS 


!! >>TEST>>

    do i= 1, size(data_scan)

      if ( .not. is_valid_scan(data_scan(i))) cycle

      do j=1, data_scan(i)%number_of_points

          call clear_matches(data_scan(i)%scan_point(j)%matching_ref_arr)

          call clear_matches(data_scan(i)%scan_point(j)%matching_bgr_arr)