diff --git a/tao/code/tao_input_struct.f90 b/tao/code/tao_input_struct.f90
index e1c6c1e25..1078a3f84 100644
--- a/tao/code/tao_input_struct.f90
+++ b/tao/code/tao_input_struct.f90
@@ -205,10 +205,10 @@ module tao_input_struct
   real(rp) :: floor_plan_text_scale  = 1.0  ! Scale used = floor_plan_text_scale * legend_text_scale
   real(rp) :: lat_layout_shape_scale = 1.0
   real(rp) :: lat_layout_text_scale  = 1.0  ! Scale used = lat_layout_text_scale * legend_text_scale
-  real(rp) :: curve_legend_line_len  = 30   ! Points
-  real(rp) :: curve_legend_text_offset = 6 ! Points
-  integer :: n_curve_pts = 401           ! Number of points for plotting a smooth curve
-  type (qp_rect_struct) :: border           ! Border around plots edge of page.
+  real(rp) :: curve_legend_line_len  = 30      ! Points
+  real(rp) :: curve_legend_text_offset = 6     ! Points
+  integer :: n_curve_pts = n_curve_pts_init$   ! Number of points for plotting a smooth curve
+  type (qp_rect_struct) :: border              ! Border around plots edge of page.
   logical :: delete_overlapping_plots = .true. ! Delete overlapping plots when a plot is placed?
   logical :: draw_graph_title_suffix = .true.
 end type
@@ -226,10 +226,10 @@ module tao_input_struct
   real(rp) :: key_table_text_scale   = 0.9  ! Relative to text_height
   real(rp) :: floor_plan_shape_scale = 1.0
   real(rp) :: lat_layout_shape_scale = 1.0
-  real(rp) :: curve_legend_line_len  = 30   ! Points
-  real(rp) :: curve_legend_text_offset = 6 ! Points
-  integer :: n_curve_pts = 401           ! Number of points for plotting a smooth curve
-  type (qp_rect_struct) :: border           ! Border around plots edge of page.
+  real(rp) :: curve_legend_line_len  = 30      ! Points
+  real(rp) :: curve_legend_text_offset = 6     ! Points
+  integer :: n_curve_pts = n_curve_pts_init$   ! Number of points for plotting a smooth curve
+  type (qp_rect_struct) :: border              ! Border around plots edge of page.
   logical :: delete_overlapping_plots = .true. ! Delete overlapping plots when a plot is placed?
   logical :: draw_graph_title_suffix = .true.
 end type
diff --git a/tao/code/tao_struct.f90 b/tao/code/tao_struct.f90
index e2187b129..a60c622a7 100644
--- a/tao/code/tao_struct.f90
+++ b/tao/code/tao_struct.f90
@@ -322,6 +322,8 @@ module tao_struct
   logical :: setup_done = .false.                    ! Used for plot bookkeeping.
 end type
 
+integer, parameter :: n_curve_pts_init$ = 4001
+
 ! The tao_plot_page_struct defines the whole plotting window. 
 ! Note that the qp_com structure of quick_plot also is used to hold 
 ! plot page info.
@@ -347,11 +349,11 @@ module tao_struct
   real(rp) :: curve_legend_line_len  = 30   ! Points
   real(rp) :: curve_legend_text_offset = 6  ! Points
   real(rp) :: floor_plan_shape_scale = 1.0
-  real(rp) :: floor_plan_text_scale  = 1.0  ! Scale used = floor_plan_text_scale * legend_text_scale
+  real(rp) :: floor_plan_text_scale  = 1.0     ! Scale used = floor_plan_text_scale * legend_text_scale
   real(rp) :: lat_layout_shape_scale = 1.0
-  real(rp) :: lat_layout_text_scale  = 1.0  ! Scale used = lat_layout_text_scale * legend_text_scale
-  integer :: n_curve_pts = 4001             ! Default number of points for plotting a smooth curve.
-  integer :: id_window = -1                 ! X window id number.
+  real(rp) :: lat_layout_text_scale  = 1.0     ! Scale used = lat_layout_text_scale * legend_text_scale
+  integer :: n_curve_pts = n_curve_pts_init$   ! Default number of points for plotting a smooth curve.
+  integer :: id_window = -1                    ! X window id number.
   logical :: delete_overlapping_plots = .true. ! Delete overlapping plots when a plot is placed?
   logical :: draw_graph_title_suffix = .true.  ! Draw the graph title suffix?
 end type