gpview in gphys-1.5.3

- old
+ new

@@ -315,10 +315,11 @@
 #   2014/11/28  H Kashimura && S Takehiro (add option --diff, --tone bug fix)
 #   2014/11/28  Y O Takahashi && S Takehiro (add option --overplot_color, --Opc)
 #   2015/03/10  S Takehiro (History removes from the output of --help option)
 #   2015/09/05  Y O Takahashi && S Takehiro (add option --delay)
 #   2015/09/06  Y O Takahashi && S Takehiro (defalt wsn number changed)
+#   2017/06/07  S Takehiro (int option bug fix)
 #
 #################################################
 require "getoptlong"        # for option_parse
 require "numru/ggraph"      # ggraph library
 require "numru/gphys/gpcommon"
@@ -395,16 +396,26 @@
 
   # set options
   min_range,  max_range  = __split_range($OPT_range)
   min_crange, max_crange = __split_range($OPT_crange)
   min_srange, max_srange = __split_range($OPT_srange)
+  if ( $OPT_cint   || $OPT_interval || $OPT_int )
+    cont_interval = ( $OPT_cint   || $OPT_interval || $OPT_int ).to_f
+  else
+    cont_interval = nil
+  end
+  if ( $OPT_sint   || $OPT_interval || $OPT_int )
+    tone_interval =  ( $OPT_sint   || $OPT_interval || $OPT_int ).to_f
+  else
+    tone_interval = nil
+  end
   GGraph.set_linear_contour_options(
-                                    'int' => ( $OPT_cint   || $OPT_interval || $OPT_int ),
+                                    'int' => cont_interval, 
                                     'min' => ( min_crange  || min_range ),
                                     'max' => ( max_crange  || max_range )
                                     )
   GGraph.set_linear_tone_options(
-                                    'int' => ( $OPT_sint   || $OPT_interval || $OPT_int ),
+                                    'int' => tone_interval,
                                     'min' => ( min_srange  || min_range ),
                                     'max' => ( max_srange  || max_range )
                                  )
 
   if ( $OPT_clevels || $OPT_levels )