Accept tiny error in radius check

Author: hiromatsui

src/programs/data_utilities/TIME_HISTORIES/compare_sph_picked_mode.f90

@@ -138,8 +138,7 @@ program compare_sph_picked_mode
 !
             diff = compare_data(picked_IO1%radius(ipick),               &
      &                          picked_IO2%radius(ipick))
-            if(picked_IO1%radius(ipick)                                 &
-                .ne. picked_IO2%radius(ipick)) then
+            if(abs(diff) .gt. 1.d-9) then
               write(*,*) 'Error in radius',                             &
      &                     picked_IO1%radius(ipick),                    &
      &                     picked_IO2%radius(ipick), diff