diff --git a/CMakeLists.txt b/CMakeLists.txt
index 3074a008..854b1266 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -3,7 +3,7 @@ cmake_minimum_required(VERSION 3.24)
 project(
     fplot 
     LANGUAGES Fortran
-    VERSION 1.10.0
+    VERSION 1.11.0
 )
 
 
diff --git a/README.md b/README.md
index b2376a4a..4bc3331c 100644
--- a/README.md
+++ b/README.md
@@ -74,7 +74,6 @@ The [examples](examples) directory contains complete programs for 2D and 3D plot
 The FPLOT library depends upon the following libraries.
 - [COLLECTIONS](https://github.com/jchristopherson/collections)
 - [FSTRING](https://github.com/jchristopherson/fstring)
-- [GEOMPACK](https://github.com/jchristopherson/geompack)
 - [FORCOLORMAP](https://github.com/vmagnin/forcolormap)
 
 ## Example 1
diff --git a/configure/template.cmake b/configure/template.cmake
index 8473c872..bdb440ad 100644
--- a/configure/template.cmake
+++ b/configure/template.cmake
@@ -2,7 +2,6 @@
 
 include(CMakeFindDependencyMacro)
 find_dependency(collections QUIET)
-find_dependency(geompack QUIET)
 find_dependency(fstring QUIET)
 
 if(NOT TARGET "@PROJECT_NAME@::@PROJECT_NAME@")
diff --git a/doc/index.html b/doc/index.html
index e4597e14..f4e42160 100644
--- a/doc/index.html
+++ b/doc/index.html
@@ -86,7 +86,7 @@ <h4 class="card-text">Jason Christopherson</h4>
           <div class="col-xs-6 col-sm-3">
             <div>
               <h3>Source Files</h3>
-              <ul><li><a href='sourcefile\fplot_arrow.f90.html'>fplot_arrow.f90</a></li><li><a href='sourcefile\fplot_colormap.f90.html'>fplot_colormap.f90</a></li><li><a href='sourcefile\fplot_colors.f90.html'>fplot_colors.f90</a></li><li><a href='sourcefile\fplot_constants.f90.html'>fplot_constants.f90</a></li><li><a href='sourcefile\fplot_core.f90.html'>fplot_core.f90</a></li><li><a href='sourcefile\fplot_core_routines.f90.html'>fplot_core_routines.f90</a></li><li><a href='sourcefile\fplot_delaunay_tri_surface.f90.html'>fplot_delaunay_tri_surface.f90</a></li><li><a href='sourcefile\fplot_errors.f90.html'>fplot_errors.f90</a></li><li><a href='sourcefile\fplot_filled_plot_data.f90.html'>fplot_filled_plot_data.f90</a></li><li><a href='sourcefile\fplot_label.f90.html'>fplot_label.f90</a></li></ul>
+              <ul><li><a href='sourcefile\delaunay.f90.html'>delaunay.f90</a></li><li><a href='sourcefile\fplot_arrow.f90.html'>fplot_arrow.f90</a></li><li><a href='sourcefile\fplot_colormap.f90.html'>fplot_colormap.f90</a></li><li><a href='sourcefile\fplot_colors.f90.html'>fplot_colors.f90</a></li><li><a href='sourcefile\fplot_constants.f90.html'>fplot_constants.f90</a></li><li><a href='sourcefile\fplot_core.f90.html'>fplot_core.f90</a></li><li><a href='sourcefile\fplot_core_routines.f90.html'>fplot_core_routines.f90</a></li><li><a href='sourcefile\fplot_delaunay_tri_surface.f90.html'>fplot_delaunay_tri_surface.f90</a></li><li><a href='sourcefile\fplot_errors.f90.html'>fplot_errors.f90</a></li><li><a href='sourcefile\fplot_filled_plot_data.f90.html'>fplot_filled_plot_data.f90</a></li></ul>
             </div>
             <div>
               <ul>
@@ -97,7 +97,7 @@ <h3>Source Files</h3>
           <div class="col-xs-6 col-sm-3">
             <div>
               <h3>Modules</h3>
-              <ul><li><a href='module\fplot_arrow.html'>fplot_arrow</a></li><li><a href='module\fplot_colormap.html'>fplot_colormap</a></li><li><a href='module\fplot_colors.html'>fplot_colors</a></li><li><a href='module\fplot_constants.html'>fplot_constants</a></li><li><a href='module\fplot_core.html'>fplot_core</a></li><li><a href='module\fplot_core_routines.html'>fplot_core_routines</a></li><li><a href='module\fplot_delaunay_tri_surface.html'>fplot_delaunay_tri_surface</a></li><li><a href='module\fplot_errors.html'>fplot_errors</a></li><li><a href='module\fplot_filled_plot_data.html'>fplot_filled_plot_data</a></li><li><a href='module\fplot_label.html'>fplot_label</a></li></ul>
+              <ul><li><a href='module\delaunay.html'>delaunay</a></li><li><a href='module\fplot_arrow.html'>fplot_arrow</a></li><li><a href='module\fplot_colormap.html'>fplot_colormap</a></li><li><a href='module\fplot_colors.html'>fplot_colors</a></li><li><a href='module\fplot_constants.html'>fplot_constants</a></li><li><a href='module\fplot_core.html'>fplot_core</a></li><li><a href='module\fplot_core_routines.html'>fplot_core_routines</a></li><li><a href='module\fplot_delaunay_tri_surface.html'>fplot_delaunay_tri_surface</a></li><li><a href='module\fplot_errors.html'>fplot_errors</a></li><li><a href='module\fplot_filled_plot_data.html'>fplot_filled_plot_data</a></li></ul>
             </div>
             <div>
               <ul>
@@ -140,7 +140,7 @@ <h3>Derived Types</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/cm_get_string_result.html b/doc/interface/cm_get_string_result.html
index b1b45f0f..e774e93f 100644
--- a/doc/interface/cm_get_string_result.html
+++ b/doc/interface/cm_get_string_result.html
@@ -74,7 +74,7 @@ <h1>cm_get_string_result
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.8% of total for procedures.">7 statements</a>
+                 title=" 1.3% of total for procedures.">7 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~331"></span>
+              <span class="anchor" id="variable-this~407"></span>
               class(<a href='..\type\colormap.html'>colormap</a>),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
     </tbody>
   </table>
 
-      <h3>Return Value <span class="anchor" id="variable-x~257"></span><small>character(len=:),allocatable</small></h3>
+      <h3>Return Value <span class="anchor" id="variable-x~294"></span><small>character(len=:),allocatable</small></h3>
     <p>The string.</p>
     <h3>Description</h3>
     <p>Retrieves a string result from a colormap object.</p>
@@ -190,7 +190,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/get_string_result.html b/doc/interface/get_string_result.html
index cbd988ae..94e21c96 100644
--- a/doc/interface/get_string_result.html
+++ b/doc/interface/get_string_result.html
@@ -74,7 +74,7 @@ <h1>get_string_result
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.8% of total for procedures.">7 statements</a>
+                 title=" 1.3% of total for procedures.">7 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~313"></span>
+              <span class="anchor" id="variable-this~103"></span>
               class(<a href='..\type\plot_object.html'>plot_object</a>),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
     </tbody>
   </table>
 
-      <h3>Return Value <span class="anchor" id="variable-x~242"></span><small>character(len=:),allocatable</small></h3>
+      <h3>Return Value <span class="anchor" id="variable-x~67"></span><small>character(len=:),allocatable</small></h3>
     <p>The result string.</p>
     <h3>Description</h3>
     <p>Returns a string from a plot_object.</p>
@@ -190,7 +190,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/operator(==).html b/doc/interface/operator(==).html
index bfd2f4bd..0053a42f 100644
--- a/doc/interface/operator(==).html
+++ b/doc/interface/operator(==).html
@@ -74,7 +74,7 @@ <h1>operator(==)
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.8% of total for procedures.</p>Including implementation: 11 statements,  2.8% of total for procedures.">3 statements</a>
+                 title="<p> 0.6% of total for procedures.</p>Including implementation: 11 statements,  2.1% of total for procedures.">3 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~172"></span>
+              <span class="anchor" id="variable-x~264"></span>
               type(<a href='..\type\color.html'>color</a>),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~9"></span>
+              <span class="anchor" id="variable-y~24"></span>
               type(<a href='..\type\color.html'>color</a>),
             </td>
 <td>intent(in)</td>
@@ -223,7 +223,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/operator(SLASH=).html b/doc/interface/operator(SLASH=).html
index 4870eca7..8ef3ccb7 100644
--- a/doc/interface/operator(SLASH=).html
+++ b/doc/interface/operator(SLASH=).html
@@ -74,7 +74,7 @@ <h1>operator(/=)
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.8% of total for procedures.</p>Including implementation: 8 statements,  2.1% of total for procedures.">3 statements</a>
+                 title="<p> 0.6% of total for procedures.</p>Including implementation: 8 statements,  1.5% of total for procedures.">3 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -169,7 +169,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~173"></span>
+              <span class="anchor" id="variable-x~265"></span>
               type(<a href='..\type\color.html'>color</a>),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~10"></span>
+              <span class="anchor" id="variable-y~25"></span>
               type(<a href='..\type\color.html'>color</a>),
             </td>
 <td>intent(in)</td>
@@ -223,7 +223,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/pa_get_string_result.html b/doc/interface/pa_get_string_result.html
index 9751b6a9..40cefcfa 100644
--- a/doc/interface/pa_get_string_result.html
+++ b/doc/interface/pa_get_string_result.html
@@ -74,7 +74,7 @@ <h1>pa_get_string_result
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.8% of total for procedures.">7 statements</a>
+                 title=" 1.3% of total for procedures.">7 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~234"></span>
+              <span class="anchor" id="variable-this~213"></span>
               class(<a href='..\type\plot_axis.html'>plot_axis</a>),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
     </tbody>
   </table>
 
-      <h3>Return Value <span class="anchor" id="variable-x~174"></span><small>character(len=:),allocatable</small></h3>
+      <h3>Return Value <span class="anchor" id="variable-x~154"></span><small>character(len=:),allocatable</small></h3>
     <p>The string.</p>
     <h3>Description</h3>
     <p>Retrieves a string from a plot_axis.</p>
@@ -190,7 +190,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/pd_clear_action.html b/doc/interface/pd_clear_action.html
index 8559fbc4..47a21ea7 100644
--- a/doc/interface/pd_clear_action.html
+++ b/doc/interface/pd_clear_action.html
@@ -74,7 +74,7 @@ <h1>pd_clear_action
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.8% of total for procedures.">11 statements</a>
+                 title=" 2.1% of total for procedures.">11 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~508"></span>
+              <span class="anchor" id="variable-this~170"></span>
               class(<a href='..\type\plot_data.html'>plot_data</a>),
             </td>
 <td>intent(inout)</td>
@@ -188,7 +188,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/pd_get_string_result.html b/doc/interface/pd_get_string_result.html
index 0fb37da8..a829ef0b 100644
--- a/doc/interface/pd_get_string_result.html
+++ b/doc/interface/pd_get_string_result.html
@@ -74,7 +74,7 @@ <h1>pd_get_string_result
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.8% of total for procedures.">11 statements</a>
+                 title=" 2.1% of total for procedures.">11 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~507"></span>
+              <span class="anchor" id="variable-this~169"></span>
               class(<a href='..\type\plot_data.html'>plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
     </tbody>
   </table>
 
-      <h3>Return Value <span class="anchor" id="variable-x~378"></span><small>character(len=:),allocatable</small></h3>
+      <h3>Return Value <span class="anchor" id="variable-x~120"></span><small>character(len=:),allocatable</small></h3>
     <p>The string.</p>
     <h3>Description</h3>
     <p>Retrieves a string from a plot_data object.</p>
@@ -190,7 +190,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/simplify_polyline.html b/doc/interface/simplify_polyline.html
index 5fa82e17..caf9658d 100644
--- a/doc/interface/simplify_polyline.html
+++ b/doc/interface/simplify_polyline.html
@@ -74,7 +74,7 @@ <h1>simplify_polyline
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.3% of total for procedures.</p>Including implementation: 86 statements, 22.2% of total for procedures.">5 statements</a>
+                 title="<p> 0.9% of total for procedures.</p>Including implementation: 86 statements, 16.2% of total for procedures.">5 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -172,7 +172,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~325"></span>
+              <span class="anchor" id="variable-x~71"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -188,7 +188,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~28"></span>
+              <span class="anchor" id="variable-y~7"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -204,7 +204,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-tol~3"></span>
+              <span class="anchor" id="variable-tol~4"></span>
               real(kind=real64),
             </td>
 <td>intent(in)</td>
@@ -220,7 +220,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~37"></span>
+              <span class="anchor" id="variable-err~8"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout),</td>
@@ -267,7 +267,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~326"></span>
+              <span class="anchor" id="variable-x~72"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -283,7 +283,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~29"></span>
+              <span class="anchor" id="variable-y~8"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -299,7 +299,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-z~10"></span>
+              <span class="anchor" id="variable-z~6"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -315,7 +315,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-tol~4"></span>
+              <span class="anchor" id="variable-tol~5"></span>
               real(kind=real64),
             </td>
 <td>intent(in)</td>
@@ -331,7 +331,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~38"></span>
+              <span class="anchor" id="variable-err~9"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout),</td>
@@ -379,7 +379,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-xy~2"></span>
+              <span class="anchor" id="variable-xy"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -394,7 +394,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-tol~5"></span>
+              <span class="anchor" id="variable-tol~6"></span>
               real(kind=real64),
             </td>
 <td>intent(in)</td>
@@ -410,7 +410,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~39"></span>
+              <span class="anchor" id="variable-err~10"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout),</td>
@@ -452,7 +452,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/spd_get_int_value.html b/doc/interface/spd_get_int_value.html
index e1378249..6e1f9119 100644
--- a/doc/interface/spd_get_int_value.html
+++ b/doc/interface/spd_get_int_value.html
@@ -74,7 +74,7 @@ <h1>spd_get_int_value
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 7.0% of total for procedures.">27 statements</a>
+                 title=" 5.1% of total for procedures.">27 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~511"></span>
+              <span class="anchor" id="variable-this~173"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
     </tbody>
   </table>
 
-      <h3>Return Value <span class="anchor" id="variable-x~381"></span><small>integer(kind=int32)</small></h3>
+      <h3>Return Value <span class="anchor" id="variable-x~123"></span><small>integer(kind=int32)</small></h3>
     <p>The value.</p>
     <h3>Description</h3>
     <p>Gets an integer value from the scatter_plot_data object.</p>
@@ -190,7 +190,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/spd_get_string_result.html b/doc/interface/spd_get_string_result.html
index d1fec103..e29c9aa3 100644
--- a/doc/interface/spd_get_string_result.html
+++ b/doc/interface/spd_get_string_result.html
@@ -74,7 +74,7 @@ <h1>spd_get_string_result
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 7.0% of total for procedures.">27 statements</a>
+                 title=" 5.1% of total for procedures.">27 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~512"></span>
+              <span class="anchor" id="variable-this~174"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
     </tbody>
   </table>
 
-      <h3>Return Value <span class="anchor" id="variable-x~382"></span><small>character(len=:),allocatable</small></h3>
+      <h3>Return Value <span class="anchor" id="variable-x~124"></span><small>character(len=:),allocatable</small></h3>
     <p>The string.</p>
     <h3>Description</h3>
     <p>Gets a string value from the scatter_plot_data object.</p>
@@ -190,7 +190,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/spd_get_value.html b/doc/interface/spd_get_value.html
index adb95274..b66bbe50 100644
--- a/doc/interface/spd_get_value.html
+++ b/doc/interface/spd_get_value.html
@@ -74,7 +74,7 @@ <h1>spd_get_value
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 7.0% of total for procedures.">27 statements</a>
+                 title=" 5.1% of total for procedures.">27 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~509"></span>
+              <span class="anchor" id="variable-this~171"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -168,7 +168,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-index~11"></span>
+              <span class="anchor" id="variable-index"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -184,7 +184,7 @@ <h3>Arguments</h3>
     </tbody>
   </table>
 
-      <h3>Return Value <span class="anchor" id="variable-x~379"></span><small>real(kind=real64)</small></h3>
+      <h3>Return Value <span class="anchor" id="variable-x~121"></span><small>real(kind=real64)</small></h3>
     <p>The value.</p>
     <h3>Description</h3>
     <p>Gets an indexed value from the scatter_plot_data object.</p>
@@ -205,7 +205,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/spd_set_value.html b/doc/interface/spd_set_value.html
index f3388518..3d79243f 100644
--- a/doc/interface/spd_set_value.html
+++ b/doc/interface/spd_set_value.html
@@ -74,7 +74,7 @@ <h1>spd_set_value
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 7.0% of total for procedures.">27 statements</a>
+                 title=" 5.1% of total for procedures.">27 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~510"></span>
+              <span class="anchor" id="variable-this~172"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(inout)</td>
@@ -168,7 +168,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-index~12"></span>
+              <span class="anchor" id="variable-index~2"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -183,7 +183,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~380"></span>
+              <span class="anchor" id="variable-x~122"></span>
               real(kind=real64),
             </td>
 <td>intent(in)</td>
@@ -218,7 +218,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/interface/term_get_string_result.html b/doc/interface/term_get_string_result.html
index 9424f27f..f90bc5c8 100644
--- a/doc/interface/term_get_string_result.html
+++ b/doc/interface/term_get_string_result.html
@@ -74,7 +74,7 @@ <h1>term_get_string_result
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.8% of total for procedures.">7 statements</a>
+                 title=" 1.3% of total for procedures.">7 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~490"></span>
+              <span class="anchor" id="variable-this~304"></span>
               class(<a href='..\type\terminal.html'>terminal</a>),
             </td>
 <td>intent(in)</td>
@@ -169,7 +169,7 @@ <h3>Arguments</h3>
     </tbody>
   </table>
 
-      <h3>Return Value <span class="anchor" id="variable-x~369"></span><small>character(len=:),allocatable</small></h3>
+      <h3>Return Value <span class="anchor" id="variable-x~226"></span><small>character(len=:),allocatable</small></h3>
     <p>The string.</p>
     <h3>Description</h3>
     <p>Retrieves a string from a terminal.</p>
@@ -190,7 +190,7 @@ <h3>Description</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/lists/files.html b/doc/lists/files.html
index 74456a1e..997e3621 100644
--- a/doc/lists/files.html
+++ b/doc/lists/files.html
@@ -69,6 +69,10 @@ <h1>Source Files</h1>
 			 <thead><tr><th>File</th><th>Description</th></tr></thead>
 			 <tbody>
 			   <tr>
+                 <td><a href='..\sourcefile\delaunay.f90.html'>delaunay.f90</a></td>
+                 <td></td>
+               </tr>
+			   <tr>
                  <td><a href='..\sourcefile\fplot_arrow.f90.html'>fplot_arrow.f90</a></td>
                  <td></td>
                </tr>
@@ -256,7 +260,7 @@ <h1>Source Files</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/lists/modules.html b/doc/lists/modules.html
index cc29060f..0664d9bb 100644
--- a/doc/lists/modules.html
+++ b/doc/lists/modules.html
@@ -69,26 +69,33 @@ <h1>Modules</h1>
 			 <thead><tr><th>Module</th><th>Source File</th><th>Description</th></tr></thead>
 			 <tbody>
 			   <tr class="active">
+                 <td><a href='..\module\delaunay.html'>delaunay</a></td>
+                 <td><a href='..\sourcefile\delaunay.f90.html'>delaunay.f90</a></td>
+                 <td><p>Provides a minimal, in-house implementation of the subset of the
+GEOMPACK library used by FPLOT to construct 2D Delaunay
+triangulations.</p><a href="../module/delaunay.html" class="pull-right"><emph>Read more&hellip;</emph></a></td>
+               </tr>
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_arrow.html'>fplot_arrow</a></td>
                  <td><a href='..\sourcefile\fplot_arrow.f90.html'>fplot_arrow.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_colormap.html'>fplot_colormap</a></td>
                  <td><a href='..\sourcefile\fplot_colormap.f90.html'>fplot_colormap.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_colors.html'>fplot_colors</a></td>
                  <td><a href='..\sourcefile\fplot_colors.f90.html'>fplot_colors.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_constants.html'>fplot_constants</a></td>
                  <td><a href='..\sourcefile\fplot_constants.f90.html'>fplot_constants.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_core.html'>fplot_core</a></td>
                  <td><a href='..\sourcefile\fplot_core.f90.html'>fplot_core.f90</a></td>
                  <td><p>FPLOT is a Fortran library providing a means of interacting with
@@ -98,197 +105,197 @@ <h1>Modules</h1>
 Additionally, it is expected that Gnuplot is installed on the system 
 path.  For full functionallity, a minimum of GNUPLOT v5.2 is expected.</p></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_core_routines.html'>fplot_core_routines</a></td>
                  <td><a href='..\sourcefile\fplot_core_routines.f90.html'>fplot_core_routines.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_delaunay_tri_surface.html'>fplot_delaunay_tri_surface</a></td>
                  <td><a href='..\sourcefile\fplot_delaunay_tri_surface.f90.html'>fplot_delaunay_tri_surface.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_errors.html'>fplot_errors</a></td>
                  <td><a href='..\sourcefile\fplot_errors.f90.html'>fplot_errors.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_filled_plot_data.html'>fplot_filled_plot_data</a></td>
                  <td><a href='..\sourcefile\fplot_filled_plot_data.f90.html'>fplot_filled_plot_data.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_label.html'>fplot_label</a></td>
                  <td><a href='..\sourcefile\fplot_label.f90.html'>fplot_label.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_latex_terminal.html'>fplot_latex_terminal</a></td>
                  <td><a href='..\sourcefile\fplot_latex_terminal.f90.html'>fplot_latex_terminal.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_legend.html'>fplot_legend</a></td>
                  <td><a href='..\sourcefile\fplot_legend.f90.html'>fplot_legend.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_multiplot.html'>fplot_multiplot</a></td>
                  <td><a href='..\sourcefile\fplot_multiplot.f90.html'>fplot_multiplot.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_pdf_terminal.html'>fplot_pdf_terminal</a></td>
                  <td><a href='..\sourcefile\fplot_pdf_terminal.f90.html'>fplot_pdf_terminal.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_plot.html'>fplot_plot</a></td>
                  <td><a href='..\sourcefile\fplot_plot.f90.html'>fplot_plot.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_plot_2d.html'>fplot_plot_2d</a></td>
                  <td><a href='..\sourcefile\fplot_plot_2d.f90.html'>fplot_plot_2d.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_plot_3d.html'>fplot_plot_3d</a></td>
                  <td><a href='..\sourcefile\fplot_plot_3d.f90.html'>fplot_plot_3d.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_plot_axis.html'>fplot_plot_axis</a></td>
                  <td><a href='..\sourcefile\fplot_plot_axis.f90.html'>fplot_plot_axis.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_plot_bar.html'>fplot_plot_bar</a></td>
                  <td><a href='..\sourcefile\fplot_plot_bar.f90.html'>fplot_plot_bar.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_plot_data.html'>fplot_plot_data</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data.f90.html'>fplot_plot_data.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_plot_data_2d.html'>fplot_plot_data_2d</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data_2d.f90.html'>fplot_plot_data_2d.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_plot_data_3d.html'>fplot_plot_data_3d</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data_3d.f90.html'>fplot_plot_data_3d.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_plot_data_bar.html'>fplot_plot_data_bar</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data_bar.f90.html'>fplot_plot_data_bar.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_plot_data_box_whisker.html'>fplot_plot_data_box_whisker</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data_box_whisker.f90.html'>fplot_plot_data_box_whisker.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_plot_data_error_bars.html'>fplot_plot_data_error_bars</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data_error_bars.f90.html'>fplot_plot_data_error_bars.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_plot_data_function.html'>fplot_plot_data_function</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data_function.f90.html'>fplot_plot_data_function.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_plot_data_histogram.html'>fplot_plot_data_histogram</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data_histogram.f90.html'>fplot_plot_data_histogram.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_plot_data_tri_2d.html'>fplot_plot_data_tri_2d</a></td>
                  <td><a href='..\sourcefile\fplot_plot_data_tri_2d.f90.html'>fplot_plot_data_tri_2d.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_plot_object.html'>fplot_plot_object</a></td>
                  <td><a href='..\sourcefile\fplot_plot_object.f90.html'>fplot_plot_object.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_plot_polar.html'>fplot_plot_polar</a></td>
                  <td><a href='..\sourcefile\fplot_plot_polar.f90.html'>fplot_plot_polar.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_png_terminal.html'>fplot_png_terminal</a></td>
                  <td><a href='..\sourcefile\fplot_png_terminal.f90.html'>fplot_png_terminal.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_qt_terminal.html'>fplot_qt_terminal</a></td>
                  <td><a href='..\sourcefile\fplot_qt_terminal.f90.html'>fplot_qt_terminal.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_simplify.html'>fplot_simplify</a></td>
                  <td><a href='..\sourcefile\fplot_simplify.f90.html'>fplot_simplify.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_stats_plots.html'>fplot_stats_plots</a></td>
                  <td><a href='..\sourcefile\fplot_stats_plots.f90.html'>fplot_stats_plots.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_surface_plot.html'>fplot_surface_plot</a></td>
                  <td><a href='..\sourcefile\fplot_surface_plot.f90.html'>fplot_surface_plot.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_surface_plot_data.html'>fplot_surface_plot_data</a></td>
                  <td><a href='..\sourcefile\fplot_surface_plot_data.f90.html'>fplot_surface_plot_data.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_svg_terminal.html'>fplot_svg_terminal</a></td>
                  <td><a href='..\sourcefile\fplot_svg_terminal.f90.html'>fplot_svg_terminal.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_terminal.html'>fplot_terminal</a></td>
                  <td><a href='..\sourcefile\fplot_terminal.f90.html'>fplot_terminal.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_tri_surface_plot_data.html'>fplot_tri_surface_plot_data</a></td>
                  <td><a href='..\sourcefile\fplot_tri_surface_plot_data.f90.html'>fplot_tri_surface_plot_data.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_triangulations_delaunay_2d.html'>fplot_triangulations_delaunay_2d</a></td>
                  <td><a href='..\sourcefile\fplot_triangulations_delaunay_2d.f90.html'>fplot_triangulations_delaunay_2d.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_vector_field_plot_data.html'>fplot_vector_field_plot_data</a></td>
                  <td><a href='..\sourcefile\fplot_vector_field_plot_data.f90.html'>fplot_vector_field_plot_data.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			   <tr class="">
+<!---->			   <tr class="active">
                  <td><a href='..\module\fplot_windows_terminal.html'>fplot_windows_terminal</a></td>
                  <td><a href='..\sourcefile\fplot_windows_terminal.f90.html'>fplot_windows_terminal.f90</a></td>
                  <td></td>
                </tr>
-<!---->			   <tr class="active">
+<!--active-->			   <tr class="">
                  <td><a href='..\module\fplot_wxt_terminal.html'>fplot_wxt_terminal</a></td>
                  <td><a href='..\sourcefile\fplot_wxt_terminal.f90.html'>fplot_wxt_terminal.f90</a></td>
                  <td></td>
                </tr>
-<!--active-->			 </tbody></table>
+<!---->			 </tbody></table>
              
         </div>
       </div>
@@ -304,7 +311,7 @@ <h1>Modules</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/lists/procedures.html b/doc/lists/procedures.html
index ade76145..c5119d0f 100644
--- a/doc/lists/procedures.html
+++ b/doc/lists/procedures.html
@@ -141,6 +141,12 @@ <h1>Procedures</h1>
                  <td><a href='..\module\fplot_plot_data.html'>fplot_plot_data</a></td>
                  <td>Interface</td>
                  <td></td>
+               </tr>
+			   <tr>
+                 <td><a href='..\proc\r8tris2.html'>r8tris2</a></td>
+                 <td><a href='..\module\delaunay.html'>delaunay</a></td>
+                 <td>Subroutine</td>
+                 <td><p>Constructs a Delaunay triangulation of 2D vertices.</p><a href="../proc/r8tris2.html" class="pull-right"><emph>Read more&hellip;</emph></a></td>
                </tr>
 			   <tr>
                  <td><a href='..\proc\report_array_size_mismatch_error.html'>report_array_size_mismatch_error</a></td>
@@ -231,7 +237,7 @@ <h1>Procedures</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/lists/types.html b/doc/lists/types.html
index ceb0d826..ed681e6c 100644
--- a/doc/lists/types.html
+++ b/doc/lists/types.html
@@ -329,6 +329,13 @@ <h1>Derived Types</h1>
                  <td><a href='..\module\fplot_plot_data.html'>fplot_plot_data</a></td>
                  <td><a href='..\type\line_plot_data.html'>line_plot_data</a></td>
                  <td><p>A plot_data object for describing scatter plot data sets.</p></td>
+               </tr>
+			   <tr>
+                 <td><a href='..\type\spectral_colormap.html'>spectral_colormap</a></td>
+                 <td><a href='..\module\fplot_colormap.html'>fplot_colormap</a></td>
+                 <td><a href='..\type\colormap.html'>colormap</a></td>
+                 <td><p>Defines the spectral colormap available at 
+https://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal.</p></td>
                </tr>
 			   <tr>
                  <td><a href='..\type\surface_plot.html'>surface_plot</a></td>
@@ -419,7 +426,7 @@ <h1>Derived Types</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/delaunay.html b/doc/module/delaunay.html
new file mode 100644
index 00000000..4c9e415b
--- /dev/null
+++ b/doc/module/delaunay.html
@@ -0,0 +1,337 @@
+<!-- -*- mode: jinja2 -*- -->
+
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+      <meta name="description" content="FPLOT is a Fortran library providing a convenient interface for plotting with GNUPLOT.">
+    <meta name="author" content="Jason Christopherson" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>delaunay &ndash; FPLOT</title>
+
+    <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/css/bootstrap.min.css" rel="stylesheet"
+          integrity="sha384-1BmE4kWBq78iYhFldvKuhfTAU6auU8tT94WrHftjDbrCEXSU1oBoqyl2QvZ6jIW3" crossorigin="anonymous">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+      <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <script src="https://code.jquery.com/jquery-3.7.1.min.js" integrity="sha256-/JqT3SQfawRcv/BIHPThkBvs0OEvtFFmqPF/lYI/Cxo=" crossorigin="anonymous"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <div class="container-fluid mb-sm-4 mb-xl-2">
+      <nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top">
+        <div class="container">
+          <a class="navbar-brand" href="../index.html">FPLOT </a>
+          <button type="button" class="navbar-toggler" data-bs-toggle="collapse" data-bs-target="#navbar"
+                  aria-expanded="false" aria-controls="navbar" aria-label="Toggle navigation">
+                  <span class="navbar-toggler-icon">
+          </button>
+
+          <div id="navbar" class="navbar-collapse collapse">
+            <ul class="navbar-nav">
+                  <li class="nav-item">
+                    <a class="nav-link" href="../lists/files.html">Source Files</a>
+                  </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/modules.html">Modules</a>
+                </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/procedures.html">Procedures</a>
+                </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/types.html">Derived Types</a>
+                </li>
+            </ul>
+              <div class="d-flex align-items-end flex-grow-1">
+                <form action="../search.html" role="search" class="ms-auto">
+                  <input type="text" class="form-control" aria-label="Search" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+                </form>
+              </div>
+          </div><!--/.nav-collapse -->
+        </div>
+      </nav>
+    </div>
+
+    <div class="container">
+  <div class="row">
+    <h1>delaunay
+      <small>Module</small>
+      
+    </h1>
+      <div class="container p-2 mb-4 bg-light border rounded-3">
+    <div class="row align-items-center justify-content-between" id="info-bar">
+      <div class="col">
+        <ul class="list-inline" style="margin-bottom:0px;display:inline">
+
+            <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
+              <a data-bs-toggle="tooltip"
+                 data-bs-placement="bottom" data-html="true"
+                 title=" 5.6% of total for modules and submodules.">547 statements</a>
+            </li>
+
+            <li class="list-inline-item" id="source-file">
+              <i class="fa fa-code"></i>
+              <a href="../src/delaunay.f90"> Source File</a>
+            </li>
+        </ul>
+      </div>
+      <div class="col">
+        <nav aria-label="breadcrumb">
+          <ol class="breadcrumb justify-content-end mb-0">
+                <li class="breadcrumb-item"><a href='..\sourcefile\delaunay.f90.html'>delaunay.f90</a></li>
+            <li class="breadcrumb-item active" aria-current="page">delaunay</li>
+          </ol>
+        </nav>
+      </div>
+    </div>
+  </div>
+  <script>
+    $(function () {
+    $('[data-bs-toggle="tooltip"]').tooltip()
+    })
+  </script>
+
+  </div>
+
+  <div class="row">
+    <div class="col-md-3">
+        <div id="sidebar">
+      <h3>Contents</h3>
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+      <div class="card mb-4">
+      <a data-bs-toggle="collapse" href="#subs-0"
+         aria-expanded="false" aria-controls="subs-0">
+         <h4 class="card-header bg-primary text-white">Subroutines</h4>
+      </a>
+      <div id="subs-0" class="collapse">
+        <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../module/delaunay.html#proc-r8tris2">r8tris2</a>
+        </div>
+      </div>
+    </div>
+
+  
+  
+  
+  
+  
+  
+  
+
+
+  </div>
+
+    </div>
+
+    <div class="col-md-9" id='text'>
+      <p>Provides a minimal, in-house implementation of the subset of the
+GEOMPACK library used by FPLOT to construct 2D Delaunay
+triangulations.</p>
+<p>Original FORTRAN77 version by Barry Joe.  FORTRAN90 version by
+John Burkardt.  Reference: Barry Joe, GEOMPACK - a software
+package for the generation of meshes using geometric algorithms,
+Advances in Engineering Software, Volume 13, pages 325-331, 1991.</p>
+<br>          <div class="card mb-4">
+      <h3 class="card-header card-title bg-light">Uses</h3>
+      <div class="card-body">
+        <ul class="list-group list-group-flush">
+            <li class="list-group-item">
+              <ul class="list-inline">
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
+              </ul>
+            </li>
+        </ul>
+      </div>
+    </div>
+
+      
+      <br>
+
+
+
+
+
+
+
+
+        <section>
+          <h2>Subroutines</h2>
+              <div class="card">
+    <div class="card-header codesum"><span class="anchor" id="proc-r8tris2"></span> <h3>public  subroutine <a href='..\proc\r8tris2.html'>r8tris2</a>(node_num, node_xy, triangle_num, triangle_node, triangle_neighbor)  
+</h3></div>
+    <div class="card-body">
+          
+  <p>Constructs a Delaunay triangulation of 2D vertices.</p><a href="../proc/r8tris2.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-node_num"></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>node_num</strong></td>
+            <td>
+<p>The number of vertices.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-node_xy"></span>
+              real(kind=real64),
+            </td>
+<td>intent(inout),</td>
+              <td></td>            <td>
+              dimension(2, node_num)
+            </td>
+            <td>::</td>
+            <td><strong>node_xy</strong></td>
+            <td>
+<p>The coordinates of the vertices.  On output, the vertices
+have been sorted into dictionary order.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-triangle_num"></span>
+              integer(kind=int32),
+            </td>
+<td>intent(out)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>triangle_num</strong></td>
+            <td>
+<p>The number of triangles in the triangulation;
+TRIANGLE_NUM is equal to 2*NODE_NUM - NB - 2, where NB is
+the number of boundary vertices.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-triangle_node"></span>
+              integer(kind=int32),
+            </td>
+<td>intent(out),</td>
+              <td></td>            <td>
+              dimension(3, 2 * node_num)
+            </td>
+            <td>::</td>
+            <td><strong>triangle_node</strong></td>
+            <td>
+<p>The nodes that make up each triangle.  The elements are
+indices of the vertex array.  The vertices of the
+triangles are in counter clockwise order.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-triangle_neighbor"></span>
+              integer(kind=int32),
+            </td>
+<td>intent(out),</td>
+              <td></td>            <td>
+              dimension(3, 2 * node_num)
+            </td>
+            <td>::</td>
+            <td><strong>triangle_neighbor</strong></td>
+            <td>
+<p>The triangle neighbor list.  Positive elements are
+indices of TRIANGLE_NODE; negative elements are used for
+links of a counter clockwise linked list of boundary
+edges; LINK = -(3*I + J-1) where I, J = triangle, edge
+index; TRIANGLE_NEIGHBOR(J,I) refers to the neighbor
+along the edge from vertex J to J+1 (mod 3).</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+    </div>
+  </div>
+
+        </section>
+        <br>
+
+
+
+    </div>
+  </div>
+
+      <hr>
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+        <div class="row justify-content-between">
+          <div class="col"><p>FPLOT was developed by Jason Christopherson<br>&copy; 2026 
+</p>
+          </div>
+          <div class="col">
+            <p class="text-end">
+              Documentation generated by
+              <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+ on 2026-10-01 05:57              </p>
+          </div>
+        </div>
+        <br>
+      </div> <!-- /container -->
+    </footer>
+
+    <!-- Bootstrap core JavaScript -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script src="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/js/bootstrap.bundle.min.js"
+            integrity="sha384-ka7Sk0Gln4gmtz2MlQnikT1wXgYsOg+OMhuP+IlRH9sENBO0LRn5q+8nbTov4+1p" crossorigin="anonymous"></script>    
+
+    <!-- MathJax JavaScript
+             ================================================== -->
+             <!-- Placed at the end of the document so the pages load faster -->
+        <script type="text/x-mathjax-config">
+          MathJax.Hub.Config({
+          TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+          jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+          extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+          });
+        </script>
+        <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+
+          <script src="../tipuesearch/tipuesearch_content.js"></script>
+          <script src="../tipuesearch/tipuesearch_set.js"></script>
+          <script src="../tipuesearch/tipuesearch.js"></script>
+
+  </body>
+</html>
\ No newline at end of file
diff --git a/doc/module/fplot_arrow.html b/doc/module/fplot_arrow.html
index d8803a89..03be08d0 100644
--- a/doc/module/fplot_arrow.html
+++ b/doc/module/fplot_arrow.html
@@ -74,7 +74,7 @@ <h1>fplot_arrow
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.3% of total for modules and submodules.">296 statements</a>
+                 title=" 3.0% of total for modules and submodules.">296 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
-                  <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -196,7 +196,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_arrow.html#boundprocedure-get_command_string~15'>get_command_string</a></strong> => par_get_cmd</td>
+  <strong><a href='..\type\plot_arrow.html#boundprocedure-get_command_string~20'>get_command_string</a></strong> => par_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -231,17 +231,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_arrow.html#boundprocedure-get_is_visible~3'>get_is_visible</a></strong> => par_get_is_visible</td>
+  <strong><a href='..\type\plot_arrow.html#boundprocedure-get_is_visible~2'>get_is_visible</a></strong> => par_get_is_visible</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_arrow.html#boundprocedure-get_line_style'>get_line_style</a></strong> => par_get_line_style</td>
+  <strong><a href='..\type\plot_arrow.html#boundprocedure-get_line_style~3'>get_line_style</a></strong> => par_get_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_arrow.html#boundprocedure-get_line_width~2'>get_line_width</a></strong> => par_get_line_width</td>
+  <strong><a href='..\type\plot_arrow.html#boundprocedure-get_line_width~4'>get_line_width</a></strong> => par_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -296,17 +296,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_arrow.html#boundprocedure-set_is_visible~3'>set_is_visible</a></strong> => par_set_is_visible</td>
+  <strong><a href='..\type\plot_arrow.html#boundprocedure-set_is_visible~2'>set_is_visible</a></strong> => par_set_is_visible</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_arrow.html#boundprocedure-set_line_style'>set_line_style</a></strong> => par_set_line_style</td>
+  <strong><a href='..\type\plot_arrow.html#boundprocedure-set_line_style~3'>set_line_style</a></strong> => par_set_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_arrow.html#boundprocedure-set_line_width~2'>set_line_width</a></strong> => par_set_line_width</td>
+  <strong><a href='..\type\plot_arrow.html#boundprocedure-set_line_width~4'>set_line_width</a></strong> => par_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -351,7 +351,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_colormap.html b/doc/module/fplot_colormap.html
index 9683a658..8ab0fe67 100644
--- a/doc/module/fplot_colormap.html
+++ b/doc/module/fplot_colormap.html
@@ -74,7 +74,7 @@ <h1>fplot_colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.1% of total for modules and submodules.">283 statements</a>
+                 title=" 4.0% of total for modules and submodules.">390 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -141,6 +141,7 @@ <h4 class="card-header bg-primary text-white">Derived Types</h4>
             <a class="list-group-item" href="../module/fplot_colormap.html#type-hot_colormap">hot_colormap</a>
             <a class="list-group-item" href="../module/fplot_colormap.html#type-parula_colormap">parula_colormap</a>
             <a class="list-group-item" href="../module/fplot_colormap.html#type-rainbow_colormap">rainbow_colormap</a>
+            <a class="list-group-item" href="../module/fplot_colormap.html#type-spectral_colormap">spectral_colormap</a>
         </div>
       </div>
     </div>
@@ -168,12 +169,12 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item">forcolormap</li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
-                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -215,7 +216,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~331"></span>
+              <span class="anchor" id="variable-this~407"></span>
               class(<a href='..\type\colormap.html'>colormap</a>),
             </td>
 <td>intent(in)</td>
@@ -265,6 +266,16 @@ <h3>
         <h4>Type-Bound Procedures</h4>
         <table class="table table-striped varlist">
           <tbody>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\cm_get_string_result.html'>cm_get_string_result</a>), public, deferred ::
   <strong><a href='..\type\colormap.html#boundprocedure-get_color_string'>get_color_string</a></strong></td>
@@ -272,12 +283,22 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => cm_get_cmd</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => cm_get_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -287,7 +308,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_label~2'>get_label</a></strong> => cm_get_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -297,7 +318,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => cm_set_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -307,7 +348,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_label~2'>set_label</a></strong> => cm_set_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -340,17 +381,37 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\cool_colormap.html#boundprocedure-get_color_string~4'>get_color_string</a></strong> => ccm_get_clr</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => cm_get_cmd</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => cm_get_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -360,7 +421,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_label~2'>get_label</a></strong> => cm_get_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -370,7 +431,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => cm_set_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -380,7 +461,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_label~2'>set_label</a></strong> => cm_set_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -423,22 +504,42 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\custom_colormap.html#boundprocedure-get_color_string~8'>get_color_string</a></strong> => custom_get_clr</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\custom_colormap.html#boundprocedure-get_colormap~2'>get_colormap</a></strong> => custom_get</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\custom_colormap.html#boundprocedure-get_colormap'>get_colormap</a></strong> => custom_get</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => cm_get_cmd</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => cm_get_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -448,7 +549,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_label~2'>get_label</a></strong> => cm_get_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -458,12 +559,32 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\custom_colormap.html#boundprocedure-set_colormap~2'>set_colormap</a></strong> => custom_set</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\custom_colormap.html#boundprocedure-set_colormap'>set_colormap</a></strong> => custom_set</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => cm_set_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -473,7 +594,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_label~2'>set_label</a></strong> => cm_set_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -506,17 +627,37 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\earth_colormap.html#boundprocedure-get_color_string~7'>get_color_string</a></strong> => ecm_get_clr</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => cm_get_cmd</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => cm_get_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -526,7 +667,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_label~2'>get_label</a></strong> => cm_get_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -536,7 +677,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => cm_set_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -546,7 +707,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_label~2'>set_label</a></strong> => cm_set_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -579,17 +740,37 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\grey_colormap.html#boundprocedure-get_color_string~6'>get_color_string</a></strong> => gcm_get_clr</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => cm_get_cmd</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => cm_get_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -599,7 +780,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_label~2'>get_label</a></strong> => cm_get_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -609,7 +790,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => cm_set_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -619,7 +820,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_label~2'>set_label</a></strong> => cm_set_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -652,17 +853,37 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\hot_colormap.html#boundprocedure-get_color_string~3'>get_color_string</a></strong> => hcm_get_clr</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => cm_get_cmd</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => cm_get_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -672,7 +893,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_label~2'>get_label</a></strong> => cm_get_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -682,7 +903,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => cm_set_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -692,7 +933,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_label~2'>set_label</a></strong> => cm_set_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -725,17 +966,37 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\parula_colormap.html#boundprocedure-get_color_string~5'>get_color_string</a></strong> => pcm_get_clr</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => cm_get_cmd</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => cm_get_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -745,7 +1006,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_label~2'>get_label</a></strong> => cm_get_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -755,7 +1016,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => cm_set_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -765,7 +1046,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_label~2'>set_label</a></strong> => cm_set_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -798,17 +1079,151 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\rainbow_colormap.html#boundprocedure-get_color_string~2'>get_color_string</a></strong> => rcm_get_clr</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => cm_get_cmd</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_horizontal'>get_horizontal</a></strong> => cm_get_horizontal</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_show_tics'>get_show_tics</a></strong> => cm_get_show_tics</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => cm_get_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_horizontal'>set_horizontal</a></strong> => cm_set_horizontal</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_show_tics'>set_show_tics</a></strong> => cm_set_show_tics</td>
+                <td></td>
+              </tr>
+          </tbody>
+        </table>
+    </div>
+  </div>
+
+              <div class="card">
+    <div class="card-header codesum">
+      <span class="anchor" id="type-spectral_colormap"></span>
+      <h3>
+        type, public, extends(<a href='..\type\colormap.html'>colormap</a>)&nbsp;::&nbsp;
+        <a href='..\type\spectral_colormap.html'>spectral_colormap</a>
+        
+      </h3>
+    </div>
+    <div class="card-body">
+      <p>Defines the spectral colormap available at 
+https://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal.</p>
+
+
+
+
+        <h4>Type-Bound Procedures</h4>
+        <table class="table table-striped varlist">
+          <tbody>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_origin'>get_axes_origin</a></strong> => cm_get_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_axes_size'>get_axes_size</a></strong> => cm_get_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\spectral_colormap.html#boundprocedure-get_color_string~9'>get_color_string</a></strong> => spcm_get_clr</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_length'>get_colorbar_length</a></strong> => cm_get_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_colorbar_thickness'>get_colorbar_thickness</a></strong> => cm_get_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => cm_get_cmd</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => cm_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -818,7 +1233,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-get_label~2'>get_label</a></strong> => cm_get_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-get_label'>get_label</a></strong> => cm_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -828,7 +1243,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => cm_set_draw_border</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_origin'>set_axes_origin</a></strong> => cm_set_axes_origin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_axes_size'>set_axes_size</a></strong> => cm_set_axes_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_length'>set_colorbar_length</a></strong> => cm_set_colorbar_length</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_colorbar_thickness'>set_colorbar_thickness</a></strong> => cm_set_colorbar_thickness</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\colormap.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => cm_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -838,7 +1273,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\colormap.html#boundprocedure-set_label~2'>set_label</a></strong> => cm_set_label</td>
+  <strong><a href='..\type\colormap.html#boundprocedure-set_label'>set_label</a></strong> => cm_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -873,7 +1308,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_colors.html b/doc/module/fplot_colors.html
index b804ddb1..b411722c 100644
--- a/doc/module/fplot_colors.html
+++ b/doc/module/fplot_colors.html
@@ -74,7 +74,7 @@ <h1>fplot_colors
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.6% of total for modules and submodules.">144 statements</a>
+                 title=" 1.5% of total for modules and submodules.">144 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -555,7 +555,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~173"></span>
+              <span class="anchor" id="variable-x~265"></span>
               type(<a href='..\type\color.html'>color</a>),
             </td>
 <td>intent(in)</td>
@@ -570,7 +570,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~10"></span>
+              <span class="anchor" id="variable-y~25"></span>
               type(<a href='..\type\color.html'>color</a>),
             </td>
 <td>intent(in)</td>
@@ -623,7 +623,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~172"></span>
+              <span class="anchor" id="variable-x~264"></span>
               type(<a href='..\type\color.html'>color</a>),
             </td>
 <td>intent(in)</td>
@@ -638,7 +638,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~9"></span>
+              <span class="anchor" id="variable-y~24"></span>
               type(<a href='..\type\color.html'>color</a>),
             </td>
 <td>intent(in)</td>
@@ -813,7 +813,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_constants.html b/doc/module/fplot_constants.html
index a738ccc0..22b01772 100644
--- a/doc/module/fplot_constants.html
+++ b/doc/module/fplot_constants.html
@@ -1319,7 +1319,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_core.html b/doc/module/fplot_core.html
index 5ae7fcad..ea377949 100644
--- a/doc/module/fplot_core.html
+++ b/doc/module/fplot_core.html
@@ -74,7 +74,7 @@ <h1>fplot_core
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.5% of total for modules and submodules.">44 statements</a>
+                 title=" 0.4% of total for modules and submodules.">44 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -145,47 +145,47 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_tri_surface_plot_data.html'>fplot_tri_surface_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_label.html'>fplot_label</a></li>
-                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_3d.html'>fplot_plot_data_3d</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_bar.html'>fplot_plot_bar</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_triangulations_delaunay_2d.html'>fplot_triangulations_delaunay_2d</a></li>
-                  <li class="list-inline-item"><a href='fplot_vector_field_plot_data.html'>fplot_vector_field_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_axis.html'>fplot_plot_axis</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_2d.html'>fplot_plot_data_2d</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_histogram.html'>fplot_plot_data_histogram</a></li>
-                  <li class="list-inline-item"><a href='fplot_png_terminal.html'>fplot_png_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
-                  <li class="list-inline-item"><a href='fplot_svg_terminal.html'>fplot_svg_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_core_routines.html'>fplot_core_routines</a></li>
-                  <li class="list-inline-item"><a href='fplot_qt_terminal.html'>fplot_qt_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_3d.html'>fplot_plot_3d</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_function.html'>fplot_plot_data_function</a></li>
-                  <li class="list-inline-item"><a href='fplot_stats_plots.html'>fplot_stats_plots</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_polar.html'>fplot_plot_polar</a></li>
-                  <li class="list-inline-item"><a href='fplot_pdf_terminal.html'>fplot_pdf_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_arrow.html'>fplot_arrow</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_2d.html'>fplot_plot_2d</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_axis.html'>fplot_plot_axis</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_histogram.html'>fplot_plot_data_histogram</a></li>
                   <li class="list-inline-item"><a href='fplot_windows_terminal.html'>fplot_windows_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_surface_plot.html'>fplot_surface_plot</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_error_bars.html'>fplot_plot_data_error_bars</a></li>
-                  <li class="list-inline-item"><a href='fplot_delaunay_tri_surface.html'>fplot_delaunay_tri_surface</a></li>
+                  <li class="list-inline-item"><a href='fplot_qt_terminal.html'>fplot_qt_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_svg_terminal.html'>fplot_svg_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
                   <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_multiplot.html'>fplot_multiplot</a></li>
-                  <li class="list-inline-item"><a href='fplot_latex_terminal.html'>fplot_latex_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_label.html'>fplot_label</a></li>
                   <li class="list-inline-item"><a href='fplot_wxt_terminal.html'>fplot_wxt_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_surface_plot_data.html'>fplot_surface_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_tri_2d.html'>fplot_plot_data_tri_2d</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='fplot_tri_surface_plot_data.html'>fplot_tri_surface_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_png_terminal.html'>fplot_png_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_delaunay_tri_surface.html'>fplot_delaunay_tri_surface</a></li>
                   <li class="list-inline-item"><a href='fplot_colormap.html'>fplot_colormap</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_box_whisker.html'>fplot_plot_data_box_whisker</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
+                  <li class="list-inline-item"><a href='fplot_surface_plot_data.html'>fplot_surface_plot_data</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_data_bar.html'>fplot_plot_data_bar</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_function.html'>fplot_plot_data_function</a></li>
+                  <li class="list-inline-item"><a href='fplot_surface_plot.html'>fplot_surface_plot</a></li>
+                  <li class="list-inline-item"><a href='fplot_latex_terminal.html'>fplot_latex_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_box_whisker.html'>fplot_plot_data_box_whisker</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_tri_2d.html'>fplot_plot_data_tri_2d</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_2d.html'>fplot_plot_data_2d</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
+                  <li class="list-inline-item"><a href='fplot_pdf_terminal.html'>fplot_pdf_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_filled_plot_data.html'>fplot_filled_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_polar.html'>fplot_plot_polar</a></li>
+                  <li class="list-inline-item"><a href='fplot_vector_field_plot_data.html'>fplot_vector_field_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
+                  <li class="list-inline-item"><a href='fplot_stats_plots.html'>fplot_stats_plots</a></li>
+                  <li class="list-inline-item"><a href='fplot_core_routines.html'>fplot_core_routines</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_3d.html'>fplot_plot_data_3d</a></li>
+                  <li class="list-inline-item"><a href='fplot_triangulations_delaunay_2d.html'>fplot_triangulations_delaunay_2d</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_error_bars.html'>fplot_plot_data_error_bars</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_3d.html'>fplot_plot_3d</a></li>
+                  <li class="list-inline-item"><a href='fplot_multiplot.html'>fplot_multiplot</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_bar.html'>fplot_plot_bar</a></li>
+                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
+                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
               </ul>
             </li>
         </ul>
@@ -220,7 +220,7 @@ <h3 class="card-header card-title bg-light">Uses</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_core_routines.html b/doc/module/fplot_core_routines.html
index a71a59cb..515504b3 100644
--- a/doc/module/fplot_core_routines.html
+++ b/doc/module/fplot_core_routines.html
@@ -74,7 +74,7 @@ <h1>fplot_core_routines
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.6% of total for modules and submodules.">53 statements</a>
+                 title=" 0.5% of total for modules and submodules.">53 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -340,7 +340,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~241"></span>
+              <span class="anchor" id="variable-x~211"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -355,7 +355,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~12"></span>
+              <span class="anchor" id="variable-y~19"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -402,7 +402,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_delaunay_tri_surface.html b/doc/module/fplot_delaunay_tri_surface.html
index f1f5cf88..38a41835 100644
--- a/doc/module/fplot_delaunay_tri_surface.html
+++ b/doc/module/fplot_delaunay_tri_surface.html
@@ -74,7 +74,7 @@ <h1>fplot_delaunay_tri_surface
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.5% of total for modules and submodules.">133 statements</a>
+                 title=" 1.4% of total for modules and submodules.">133 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,10 +150,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_triangulations_delaunay_2d.html'>fplot_triangulations_delaunay_2d</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_triangulations_delaunay_2d.html'>fplot_triangulations_delaunay_2d</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/ieee_arithmetic'>ieee_arithmetic</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -265,7 +265,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_errors.html b/doc/module/fplot_errors.html
index dd8843f9..95407993 100644
--- a/doc/module/fplot_errors.html
+++ b/doc/module/fplot_errors.html
@@ -354,7 +354,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~17"></span>
+              <span class="anchor" id="variable-err~6"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -384,7 +384,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-name~4"></span>
+              <span class="anchor" id="variable-name~3"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -454,7 +454,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~213"></span>
+              <span class="anchor" id="variable-this~108"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -539,7 +539,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~16"></span>
+              <span class="anchor" id="variable-err~5"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -569,7 +569,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-fname~7"></span>
+              <span class="anchor" id="variable-fname~3"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -584,7 +584,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-flag~12"></span>
+              <span class="anchor" id="variable-flag~5"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -624,7 +624,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~18"></span>
+              <span class="anchor" id="variable-err~7"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -654,7 +654,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-name~5"></span>
+              <span class="anchor" id="variable-name~4"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -754,7 +754,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~15"></span>
+              <span class="anchor" id="variable-err~4"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -784,7 +784,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-flag~11"></span>
+              <span class="anchor" id="variable-flag~4"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -824,7 +824,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_filled_plot_data.html b/doc/module/fplot_filled_plot_data.html
index b394aebd..ed83658c 100644
--- a/doc/module/fplot_filled_plot_data.html
+++ b/doc/module/fplot_filled_plot_data.html
@@ -74,7 +74,7 @@ <h1>fplot_filled_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.4% of total for modules and submodules.">129 statements</a>
+                 title=" 1.3% of total for modules and submodules.">129 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\filled_plot_data.html#boundprocedure-clear_data~7'>clear_data</a></strong> => fpd_clear_data</td>
+  <strong><a href='..\type\filled_plot_data.html#boundprocedure-clear_data~9'>clear_data</a></strong> => fpd_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,7 +206,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\filled_plot_data.html#boundprocedure-define_data~6'>define_data</a></strong> => fpd_define_data</td>
+  <strong><a href='..\type\filled_plot_data.html#boundprocedure-define_data~8'>define_data</a></strong> => fpd_define_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -221,12 +221,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\filled_plot_data.html#boundprocedure-get_command_string~17'>get_command_string</a></strong> => fpd_get_cmd</td>
+  <strong><a href='..\type\filled_plot_data.html#boundprocedure-get_command_string~22'>get_command_string</a></strong> => fpd_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\filled_plot_data.html#boundprocedure-get_data_string~7'>get_data_string</a></strong> => fpd_get_data_cmd</td>
+  <strong><a href='..\type\filled_plot_data.html#boundprocedure-get_data_string~9'>get_data_string</a></strong> => fpd_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -301,7 +301,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_label.html b/doc/module/fplot_label.html
index 0640f486..6d745494 100644
--- a/doc/module/fplot_label.html
+++ b/doc/module/fplot_label.html
@@ -74,7 +74,7 @@ <h1>fplot_label
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.0% of total for modules and submodules.">91 statements</a>
+                 title=" 0.9% of total for modules and submodules.">91 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,10 +150,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
               </ul>
             </li>
         </ul>
@@ -195,12 +195,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_label.html#boundprocedure-get_command_string~4'>get_command_string</a></strong> => lbl_get_cmd</td>
+  <strong><a href='..\type\plot_label.html#boundprocedure-get_command_string~25'>get_command_string</a></strong> => lbl_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_label.html#boundprocedure-get_is_visible'>get_is_visible</a></strong> => lbl_get_is_visible</td>
+  <strong><a href='..\type\plot_label.html#boundprocedure-get_is_visible~3'>get_is_visible</a></strong> => lbl_get_is_visible</td>
                 <td></td>
               </tr>
               <tr>
@@ -220,7 +220,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_label.html#boundprocedure-set_is_visible'>set_is_visible</a></strong> => lbl_set_is_visible</td>
+  <strong><a href='..\type\plot_label.html#boundprocedure-set_is_visible~3'>set_is_visible</a></strong> => lbl_set_is_visible</td>
                 <td></td>
               </tr>
               <tr>
@@ -260,7 +260,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_latex_terminal.html b/doc/module/fplot_latex_terminal.html
index 288bb586..9e7da380 100644
--- a/doc/module/fplot_latex_terminal.html
+++ b/doc/module/fplot_latex_terminal.html
@@ -74,7 +74,7 @@ <h1>fplot_latex_terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.3% of total for modules and submodules.">23 statements</a>
+                 title=" 0.2% of total for modules and submodules.">23 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,10 +150,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
               </ul>
             </li>
         </ul>
@@ -190,7 +190,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\file_terminal.html#boundprocedure-get_command_string~24'>get_command_string</a></strong> => fterm_get_command_string</td>
+  <strong><a href='..\type\file_terminal.html#boundprocedure-get_command_string~17'>get_command_string</a></strong> => fterm_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -200,17 +200,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\latex_terminal.html#boundprocedure-get_id_string~2'>get_id_string</a></strong> => tex_get_term_string</td>
+  <strong><a href='..\type\latex_terminal.html#boundprocedure-get_id_string~10'>get_id_string</a></strong> => tex_get_term_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -220,7 +220,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -240,12 +240,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -255,7 +255,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -295,7 +295,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_legend.html b/doc/module/fplot_legend.html
index 0c322dfb..9fcb207c 100644
--- a/doc/module/fplot_legend.html
+++ b/doc/module/fplot_legend.html
@@ -74,7 +74,7 @@ <h1>fplot_legend
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.7% of total for modules and submodules.">151 statements</a>
+                 title=" 1.5% of total for modules and submodules.">151 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,10 +150,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
               </ul>
             </li>
         </ul>
@@ -190,12 +190,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\legend.html#boundprocedure-get_command_string~7'>get_command_string</a></strong> => leg_get_command_txt</td>
+  <strong><a href='..\type\legend.html#boundprocedure-get_command_string~2'>get_command_string</a></strong> => leg_get_command_txt</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\legend.html#boundprocedure-get_draw_border~2'>get_draw_border</a></strong> => leg_get_box</td>
+  <strong><a href='..\type\legend.html#boundprocedure-get_draw_border'>get_draw_border</a></strong> => leg_get_box</td>
                 <td></td>
               </tr>
               <tr>
@@ -215,7 +215,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\legend.html#boundprocedure-get_is_visible~2'>get_is_visible</a></strong> => leg_get_visible</td>
+  <strong><a href='..\type\legend.html#boundprocedure-get_is_visible'>get_is_visible</a></strong> => leg_get_visible</td>
                 <td></td>
               </tr>
               <tr>
@@ -230,7 +230,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\legend.html#boundprocedure-set_draw_border~2'>set_draw_border</a></strong> => leg_set_box</td>
+  <strong><a href='..\type\legend.html#boundprocedure-set_draw_border'>set_draw_border</a></strong> => leg_set_box</td>
                 <td></td>
               </tr>
               <tr>
@@ -250,7 +250,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\legend.html#boundprocedure-set_is_visible~2'>set_is_visible</a></strong> => leg_set_visible</td>
+  <strong><a href='..\type\legend.html#boundprocedure-set_is_visible'>set_is_visible</a></strong> => leg_set_visible</td>
                 <td></td>
               </tr>
               <tr>
@@ -290,7 +290,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_multiplot.html b/doc/module/fplot_multiplot.html
index b3017221..53cea784 100644
--- a/doc/module/fplot_multiplot.html
+++ b/doc/module/fplot_multiplot.html
@@ -74,7 +74,7 @@ <h1>fplot_multiplot
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.6% of total for modules and submodules.">328 statements</a>
+                 title=" 4.8% of total for modules and submodules.">469 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,21 +150,21 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
                   <li class="list-inline-item"><a href='fplot_windows_terminal.html'>fplot_windows_terminal</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_latex_terminal.html'>fplot_latex_terminal</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_wxt_terminal.html'>fplot_wxt_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
-                  <li class="list-inline-item"><a href='fplot_png_terminal.html'>fplot_png_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_svg_terminal.html'>fplot_svg_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_qt_terminal.html'>fplot_qt_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
-                  <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_wxt_terminal.html'>fplot_wxt_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_pdf_terminal.html'>fplot_pdf_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
-                  <li class="list-inline-item">collections</li>
+                  <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
+                  <li class="list-inline-item"><a href='fplot_svg_terminal.html'>fplot_svg_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_png_terminal.html'>fplot_png_terminal</a></li>
+                  <li class="list-inline-item">collections</li>
+                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -206,7 +206,7 @@ <h4>Components</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m_terminal~2"></span>
+              <span class="anchor" id="variable-m_terminal"></span>
               class(<a href='..\type\terminal.html'>terminal</a>),
             </td>
               <td>public,</td>
@@ -241,12 +241,17 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-draw~2'>draw</a></strong> => mp_draw</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-draw'>draw</a></strong> => mp_draw</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-get'>get</a></strong> => mp_get</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-get~3'>get</a></strong> => mp_get</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_bottom_margin'>get_bottom_margin</a></strong> => mp_get_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -256,17 +261,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-get_command_string~11'>get_command_string</a></strong> => mp_get_command</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_command_string~8'>get_command_string</a></strong> => mp_get_command</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-get_font_name~2'>get_font_name</a></strong> => mp_get_font</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_font_name'>get_font_name</a></strong> => mp_get_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-get_font_size~2'>get_font_size</a></strong> => mp_get_font_size</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_font_size'>get_font_size</a></strong> => mp_get_font_size</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_horizontal_spacing'>get_horizontal_spacing</a></strong> => mp_get_horizontal_spacing</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_left_margin'>get_left_margin</a></strong> => mp_get_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -276,57 +291,112 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_right_margin'>get_right_margin</a></strong> => mp_get_right_margin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\multiplot.html#boundprocedure-get_row_count'>get_row_count</a></strong> => mp_get_rows</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-get_terminal~2'>get_terminal</a></strong> => mp_get_term</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_terminal'>get_terminal</a></strong> => mp_get_term</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_title'>get_title</a></strong> => mp_get_title</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_top_margin'>get_top_margin</a></strong> => mp_get_top_margin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_use_auto_generated_margins'>get_use_auto_generated_margins</a></strong> => mp_get_use_auto_generated_margins</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-get_vertical_spacing'>get_vertical_spacing</a></strong> => mp_get_vertical_spacing</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-initialize~2'>initialize</a></strong> => mp_init</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-is_title_defined'>is_title_defined</a></strong> => mp_has_title</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-save_file'>save_file</a></strong> => mp_save</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-set'>set</a></strong> => mp_set</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_bottom_margin'>set_bottom_margin</a></strong> => mp_set_bottom_margin</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_font_name'>set_font_name</a></strong> => mp_set_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-get_title~3'>get_title</a></strong> => mp_get_title</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_font_size'>set_font_size</a></strong> => mp_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-initialize~5'>initialize</a></strong> => mp_init</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_horizontal_spacing'>set_horizontal_spacing</a></strong> => mp_set_horizontal_spacing</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-is_title_defined~3'>is_title_defined</a></strong> => mp_has_title</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_left_margin'>set_left_margin</a></strong> => mp_set_left_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-save_file~2'>save_file</a></strong> => mp_save</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_right_margin'>set_right_margin</a></strong> => mp_set_right_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-set~2'>set</a></strong> => mp_set</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_title'>set_title</a></strong> => mp_set_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-set_font_name~2'>set_font_name</a></strong> => mp_set_font</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_top_margin'>set_top_margin</a></strong> => mp_set_top_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-set_font_size~2'>set_font_size</a></strong> => mp_set_font_size</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_use_auto_generated_margins'>set_use_auto_generated_margins</a></strong> => mp_set_use_auto_generated_margins</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-set_title~3'>set_title</a></strong> => mp_set_title</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_vertical_spacing'>set_vertical_spacing</a></strong> => mp_set_vertical_spacing</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\multiplot.html#boundprocedure-set_window_size~2'>set_window_size</a></strong> => mp_set_window_size</td>
+  <strong><a href='..\type\multiplot.html#boundprocedure-set_window_size'>set_window_size</a></strong> => mp_set_window_size</td>
                 <td></td>
               </tr>
           </tbody>
@@ -356,7 +426,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_pdf_terminal.html b/doc/module/fplot_pdf_terminal.html
index a5e58411..f67aad33 100644
--- a/doc/module/fplot_pdf_terminal.html
+++ b/doc/module/fplot_pdf_terminal.html
@@ -150,9 +150,9 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
               </ul>
             </li>
         </ul>
@@ -189,7 +189,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\pdf_terminal.html#boundprocedure-get_command_string~28'>get_command_string</a></strong> => pdf_get_command_string</td>
+  <strong><a href='..\type\pdf_terminal.html#boundprocedure-get_command_string~23'>get_command_string</a></strong> => pdf_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -199,12 +199,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -224,7 +224,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -244,12 +244,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -264,7 +264,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -304,7 +304,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot.html b/doc/module/fplot_plot.html
index 2c4eafbb..be314858 100644
--- a/doc/module/fplot_plot.html
+++ b/doc/module/fplot_plot.html
@@ -74,7 +74,7 @@ <h1>fplot_plot
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 9.2% of total for modules and submodules.">833 statements</a>
+                 title=" 8.5% of total for modules and submodules.">833 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -161,27 +161,27 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_label.html'>fplot_label</a></li>
-                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_png_terminal.html'>fplot_png_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_svg_terminal.html'>fplot_svg_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
-                  <li class="list-inline-item"><a href='fplot_qt_terminal.html'>fplot_qt_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_function.html'>fplot_plot_data_function</a></li>
-                  <li class="list-inline-item"><a href='fplot_pdf_terminal.html'>fplot_pdf_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_arrow.html'>fplot_arrow</a></li>
-                  <li class="list-inline-item">collections</li>
                   <li class="list-inline-item"><a href='fplot_windows_terminal.html'>fplot_windows_terminal</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_qt_terminal.html'>fplot_qt_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_svg_terminal.html'>fplot_svg_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
-                  <li class="list-inline-item"><a href='fplot_latex_terminal.html'>fplot_latex_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_wxt_terminal.html'>fplot_wxt_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_label.html'>fplot_label</a></li>
+                  <li class="list-inline-item"><a href='fplot_wxt_terminal.html'>fplot_wxt_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_png_terminal.html'>fplot_png_terminal</a></li>
+                  <li class="list-inline-item">collections</li>
                   <li class="list-inline-item"><a href='fplot_colormap.html'>fplot_colormap</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_function.html'>fplot_plot_data_function</a></li>
+                  <li class="list-inline-item"><a href='fplot_latex_terminal.html'>fplot_latex_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
+                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_pdf_terminal.html'>fplot_pdf_terminal</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
+                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
               </ul>
             </li>
         </ul>
@@ -218,7 +218,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-clear_all'>clear_all</a></strong> => plt_clear_all</td>
+  <strong><a href='..\type\plot.html#boundprocedure-clear_all~2'>clear_all</a></strong> => plt_clear_all</td>
                 <td></td>
               </tr>
               <tr>
@@ -233,7 +233,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-draw'>draw</a></strong> => plt_draw</td>
+  <strong><a href='..\type\plot.html#boundprocedure-draw~3'>draw</a></strong> => plt_draw</td>
                 <td></td>
               </tr>
               <tr>
@@ -243,7 +243,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get'>get</a></strong> => plt_get</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get~5'>get</a></strong> => plt_get</td>
                 <td></td>
               </tr>
               <tr>
@@ -268,42 +268,42 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin~2'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_colormap'>get_colormap</a></strong> => plt_get_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_colormap~2'>get_colormap</a></strong> => plt_get_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_command_string~3'>get_command_string</a></strong> => plt_get_cmd</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_command_string~27'>get_command_string</a></strong> => plt_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_count~3'>get_count</a></strong> => plt_get_count</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_count~5'>get_count</a></strong> => plt_get_count</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border'>get_draw_border</a></strong> => plt_get_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => plt_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_name'>get_font_name</a></strong> => plt_get_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => plt_get_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_size'>get_font_size</a></strong> => plt_get_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => plt_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_label'>get_label</a></strong> => plt_get_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_label~3'>get_label</a></strong> => plt_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -313,7 +313,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin'>get_left_margin</a></strong> => plt_get_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin~2'>get_left_margin</a></strong> => plt_get_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -323,7 +323,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin'>get_right_margin</a></strong> => plt_get_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin~2'>get_right_margin</a></strong> => plt_get_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -358,7 +358,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_terminal'>get_terminal</a></strong> => plt_get_term</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_terminal~3'>get_terminal</a></strong> => plt_get_term</td>
                 <td></td>
               </tr>
               <tr>
@@ -368,12 +368,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_title'>get_title</a></strong> => plt_get_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_title~4'>get_title</a></strong> => plt_get_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin'>get_top_margin</a></strong> => plt_get_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin~2'>get_top_margin</a></strong> => plt_get_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -438,12 +438,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-initialize~3'>initialize</a></strong> => plt_init</td>
+  <strong><a href='..\type\plot.html#boundprocedure-initialize~7'>initialize</a></strong> => plt_init</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined'>is_title_defined</a></strong> => plt_has_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined~3'>is_title_defined</a></strong> => plt_has_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -468,7 +468,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  generic, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-push~3'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a></td>
+  <strong><a href='..\type\plot.html#boundprocedure-push~5'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a></td>
                 <td></td>
               </tr>
               <tr>
@@ -483,12 +483,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-save_file'>save_file</a></strong> => plt_save</td>
+  <strong><a href='..\type\plot.html#boundprocedure-save_file~3'>save_file</a></strong> => plt_save</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set'>set</a></strong> => plt_set</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set~3'>set</a></strong> => plt_set</td>
                 <td></td>
               </tr>
               <tr>
@@ -508,42 +508,42 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin~2'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_colormap'>set_colormap</a></strong> => plt_set_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_colormap~2'>set_colormap</a></strong> => plt_set_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border'>set_draw_border</a></strong> => plt_set_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => plt_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_name'>set_font_name</a></strong> => plt_set_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => plt_set_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_size'>set_font_size</a></strong> => plt_set_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => plt_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_label'>set_label</a></strong> => plt_set_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_label~3'>set_label</a></strong> => plt_set_label</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin'>set_left_margin</a></strong> => plt_set_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin~2'>set_left_margin</a></strong> => plt_set_left_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin'>set_right_margin</a></strong> => plt_set_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin~2'>set_right_margin</a></strong> => plt_set_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -583,17 +583,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_title'>set_title</a></strong> => plt_set_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_title~4'>set_title</a></strong> => plt_set_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin'>set_top_margin</a></strong> => plt_set_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin~2'>set_top_margin</a></strong> => plt_set_top_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_window_size'>set_window_size</a></strong> => plt_set_window_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_window_size~2'>set_window_size</a></strong> => plt_set_window_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -692,7 +692,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~49"></span>
+              <span class="anchor" id="variable-x~371"></span>
               class(<a href='..\type\plot_data.html'>plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -738,7 +738,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_2d.html b/doc/module/fplot_plot_2d.html
index a55b7b62..3cc2779e 100644
--- a/doc/module/fplot_plot_2d.html
+++ b/doc/module/fplot_plot_2d.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_2d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 4.5% of total for modules and submodules.">408 statements</a>
+                 title=" 4.1% of total for modules and submodules.">408 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,15 +150,15 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_plot_axis.html'>fplot_plot_axis</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_2d.html'>fplot_plot_data_2d</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_axis.html'>fplot_plot_axis</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_2d.html'>fplot_plot_data_2d</a></li>
+                  <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
                   <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
-                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -204,7 +204,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-clear_all'>clear_all</a></strong> => plt_clear_all</td>
+  <strong><a href='..\type\plot.html#boundprocedure-clear_all~2'>clear_all</a></strong> => plt_clear_all</td>
                 <td></td>
               </tr>
               <tr>
@@ -219,7 +219,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-draw'>draw</a></strong> => plt_draw</td>
+  <strong><a href='..\type\plot.html#boundprocedure-draw~3'>draw</a></strong> => plt_draw</td>
                 <td></td>
               </tr>
               <tr>
@@ -229,7 +229,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get'>get</a></strong> => plt_get</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get~5'>get</a></strong> => plt_get</td>
                 <td></td>
               </tr>
               <tr>
@@ -254,37 +254,37 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin~2'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_colormap'>get_colormap</a></strong> => plt_get_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_colormap~2'>get_colormap</a></strong> => plt_get_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-get_command_string~2'>get_command_string</a></strong> => p2d_get_cmd</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-get_command_string~14'>get_command_string</a></strong> => p2d_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_count~3'>get_count</a></strong> => plt_get_count</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_count~5'>get_count</a></strong> => plt_get_count</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border'>get_draw_border</a></strong> => plt_get_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => plt_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_name'>get_font_name</a></strong> => plt_get_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => plt_get_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_size'>get_font_size</a></strong> => plt_get_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => plt_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -299,7 +299,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_label'>get_label</a></strong> => plt_get_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_label~3'>get_label</a></strong> => plt_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -309,7 +309,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin'>get_left_margin</a></strong> => plt_get_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin~2'>get_left_margin</a></strong> => plt_get_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -319,7 +319,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin'>get_right_margin</a></strong> => plt_get_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin~2'>get_right_margin</a></strong> => plt_get_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -359,7 +359,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_terminal'>get_terminal</a></strong> => plt_get_term</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_terminal~3'>get_terminal</a></strong> => plt_get_term</td>
                 <td></td>
               </tr>
               <tr>
@@ -369,12 +369,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_title'>get_title</a></strong> => plt_get_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_title~4'>get_title</a></strong> => plt_get_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin'>get_top_margin</a></strong> => plt_get_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin~2'>get_top_margin</a></strong> => plt_get_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -389,7 +389,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-get_x_axis'>get_x_axis</a></strong> => p2d_get_x_axis</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-get_x_axis~2'>get_x_axis</a></strong> => p2d_get_x_axis</td>
                 <td></td>
               </tr>
               <tr>
@@ -429,7 +429,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-get_y_axis'>get_y_axis</a></strong> => p2d_get_y_axis</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-get_y_axis~2'>get_y_axis</a></strong> => p2d_get_y_axis</td>
                 <td></td>
               </tr>
               <tr>
@@ -464,12 +464,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-initialize~2'>initialize</a></strong> => p2d_init</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-initialize~4'>initialize</a></strong> => p2d_init</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined'>is_title_defined</a></strong> => plt_has_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined~3'>is_title_defined</a></strong> => plt_has_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -499,7 +499,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  generic, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-push~2'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_2d.html#boundprocedure-p2d_push_data'>p2d_push_data</a></td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-push~3'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_2d.html#boundprocedure-p2d_push_data'>p2d_push_data</a></td>
                 <td></td>
               </tr>
               <tr>
@@ -514,12 +514,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-save_file'>save_file</a></strong> => plt_save</td>
+  <strong><a href='..\type\plot.html#boundprocedure-save_file~3'>save_file</a></strong> => plt_save</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set'>set</a></strong> => plt_set</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set~3'>set</a></strong> => plt_set</td>
                 <td></td>
               </tr>
               <tr>
@@ -539,27 +539,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin~2'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_colormap'>set_colormap</a></strong> => plt_set_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_colormap~2'>set_colormap</a></strong> => plt_set_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border'>set_draw_border</a></strong> => plt_set_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => plt_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_name'>set_font_name</a></strong> => plt_set_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => plt_set_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_size'>set_font_size</a></strong> => plt_set_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => plt_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -574,17 +574,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_label'>set_label</a></strong> => plt_set_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_label~3'>set_label</a></strong> => plt_set_label</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin'>set_left_margin</a></strong> => plt_set_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin~2'>set_left_margin</a></strong> => plt_set_left_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin'>set_right_margin</a></strong> => plt_set_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin~2'>set_right_margin</a></strong> => plt_set_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -629,12 +629,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_title'>set_title</a></strong> => plt_set_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_title~4'>set_title</a></strong> => plt_set_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin'>set_top_margin</a></strong> => plt_set_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin~2'>set_top_margin</a></strong> => plt_set_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -649,12 +649,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_window_size'>set_window_size</a></strong> => plt_set_window_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_window_size~2'>set_window_size</a></strong> => plt_set_window_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-set_x_axis_title'>set_x_axis_title</a></strong> => p2d_set_x_axis_title</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-set_x_axis_title~2'>set_x_axis_title</a></strong> => p2d_set_x_axis_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -694,7 +694,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-set_y_axis_title'>set_y_axis_title</a></strong> => p2d_set_y_axis_title</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-set_y_axis_title~2'>set_y_axis_title</a></strong> => p2d_set_y_axis_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -759,7 +759,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_3d.html b/doc/module/fplot_plot_3d.html
index 9369d5f3..e70756dc 100644
--- a/doc/module/fplot_plot_3d.html
+++ b/doc/module/fplot_plot_3d.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_3d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 6.0% of total for modules and submodules.">545 statements</a>
+                 title=" 5.5% of total for modules and submodules.">545 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,16 +150,16 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
+                  <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_axis.html'>fplot_plot_axis</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_data_3d.html'>fplot_plot_data_3d</a></li>
                   <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -205,7 +205,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-clear_all'>clear_all</a></strong> => plt_clear_all</td>
+  <strong><a href='..\type\plot.html#boundprocedure-clear_all~2'>clear_all</a></strong> => plt_clear_all</td>
                 <td></td>
               </tr>
               <tr>
@@ -220,7 +220,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-draw'>draw</a></strong> => plt_draw</td>
+  <strong><a href='..\type\plot.html#boundprocedure-draw~3'>draw</a></strong> => plt_draw</td>
                 <td></td>
               </tr>
               <tr>
@@ -230,7 +230,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get'>get</a></strong> => plt_get</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get~5'>get</a></strong> => plt_get</td>
                 <td></td>
               </tr>
               <tr>
@@ -260,17 +260,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin~2'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_colormap'>get_colormap</a></strong> => plt_get_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_colormap~2'>get_colormap</a></strong> => plt_get_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-get_command_string~22'>get_command_string</a></strong> => p3d_get_cmd</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-get_command_string~5'>get_command_string</a></strong> => p3d_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -280,12 +280,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_count~3'>get_count</a></strong> => plt_get_count</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_count~5'>get_count</a></strong> => plt_get_count</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border'>get_draw_border</a></strong> => plt_get_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => plt_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -295,17 +295,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_name'>get_font_name</a></strong> => plt_get_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => plt_get_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_size'>get_font_size</a></strong> => plt_get_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => plt_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_label'>get_label</a></strong> => plt_get_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_label~3'>get_label</a></strong> => plt_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -315,7 +315,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin'>get_left_margin</a></strong> => plt_get_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin~2'>get_left_margin</a></strong> => plt_get_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -325,7 +325,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin'>get_right_margin</a></strong> => plt_get_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin~2'>get_right_margin</a></strong> => plt_get_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -370,7 +370,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_terminal'>get_terminal</a></strong> => plt_get_term</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_terminal~3'>get_terminal</a></strong> => plt_get_term</td>
                 <td></td>
               </tr>
               <tr>
@@ -380,12 +380,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_title'>get_title</a></strong> => plt_get_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_title~4'>get_title</a></strong> => plt_get_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin'>get_top_margin</a></strong> => plt_get_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin~2'>get_top_margin</a></strong> => plt_get_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -395,7 +395,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-get_x_axis~2'>get_x_axis</a></strong> => p3d_get_x_axis</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-get_x_axis'>get_x_axis</a></strong> => p3d_get_x_axis</td>
                 <td></td>
               </tr>
               <tr>
@@ -430,7 +430,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-get_y_axis~2'>get_y_axis</a></strong> => p3d_get_y_axis</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-get_y_axis'>get_y_axis</a></strong> => p3d_get_y_axis</td>
                 <td></td>
               </tr>
               <tr>
@@ -505,12 +505,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-initialize~7'>initialize</a></strong> => p3d_init</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-initialize'>initialize</a></strong> => p3d_init</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined'>is_title_defined</a></strong> => plt_has_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined~3'>is_title_defined</a></strong> => plt_has_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -540,7 +540,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  generic, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-push~5'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_3d.html#boundprocedure-p3d_push_data'>p3d_push_data</a></td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-push'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_3d.html#boundprocedure-p3d_push_data'>p3d_push_data</a></td>
                 <td></td>
               </tr>
               <tr>
@@ -555,12 +555,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-save_file'>save_file</a></strong> => plt_save</td>
+  <strong><a href='..\type\plot.html#boundprocedure-save_file~3'>save_file</a></strong> => plt_save</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set'>set</a></strong> => plt_set</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set~3'>set</a></strong> => plt_set</td>
                 <td></td>
               </tr>
               <tr>
@@ -585,12 +585,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin~2'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_colormap'>set_colormap</a></strong> => plt_set_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_colormap~2'>set_colormap</a></strong> => plt_set_colormap</td>
                 <td></td>
               </tr>
               <tr>
@@ -600,7 +600,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border'>set_draw_border</a></strong> => plt_set_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => plt_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -610,27 +610,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_name'>set_font_name</a></strong> => plt_set_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => plt_set_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_size'>set_font_size</a></strong> => plt_set_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => plt_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_label'>set_label</a></strong> => plt_set_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_label~3'>set_label</a></strong> => plt_set_label</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin'>set_left_margin</a></strong> => plt_set_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin~2'>set_left_margin</a></strong> => plt_set_left_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin'>set_right_margin</a></strong> => plt_set_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin~2'>set_right_margin</a></strong> => plt_set_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -680,12 +680,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_title'>set_title</a></strong> => plt_set_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_title~4'>set_title</a></strong> => plt_set_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin'>set_top_margin</a></strong> => plt_set_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin~2'>set_top_margin</a></strong> => plt_set_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -695,12 +695,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_window_size'>set_window_size</a></strong> => plt_set_window_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_window_size~2'>set_window_size</a></strong> => plt_set_window_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-set_x_axis_title~2'>set_x_axis_title</a></strong> => p3d_set_x_axis_title</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-set_x_axis_title'>set_x_axis_title</a></strong> => p3d_set_x_axis_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -735,7 +735,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-set_y_axis_title~2'>set_y_axis_title</a></strong> => p3d_set_y_axis_title</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-set_y_axis_title'>set_y_axis_title</a></strong> => p3d_set_y_axis_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -840,7 +840,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_axis.html b/doc/module/fplot_plot_axis.html
index 8638d530..9859ee19 100644
--- a/doc/module/fplot_plot_axis.html
+++ b/doc/module/fplot_plot_axis.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_axis
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 5.2% of total for modules and submodules.">470 statements</a>
+                 title=" 5.1% of total for modules and submodules.">501 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -166,10 +166,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
               </ul>
             </li>
         </ul>
@@ -211,7 +211,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~234"></span>
+              <span class="anchor" id="variable-this~213"></span>
               class(<a href='..\type\plot_axis.html'>plot_axis</a>),
             </td>
 <td>intent(in)</td>
@@ -268,7 +268,7 @@ <h4>Components</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-name~6"></span>
+              <span class="anchor" id="variable-name~5"></span>
               character(len=:),
             </td>
               <td>public,</td>
@@ -329,12 +329,17 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale~2'>get_autoscale</a></strong> => pa_get_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_auto_calculate_title_angle'>get_auto_calculate_title_angle</a></strong> => pa_get_auto_calc_title_angle</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~9'>get_command_string</a></strong> => pa_get_cmd_string</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale'>get_autoscale</a></strong> => pa_get_autoscale</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~13'>get_command_string</a></strong> => pa_get_cmd_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -404,6 +409,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_angle'>get_title_angle</a></strong> => pa_get_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_x_offset'>get_title_x_offset</a></strong> => pa_get_title_x_offset</td>
                 <td></td>
               </tr>
@@ -439,7 +449,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale~2'>set_autoscale</a></strong> => pa_set_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_auto_calculate_title_angle'>set_auto_calculate_title_angle</a></strong> => pa_set_auto_calc_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale'>set_autoscale</a></strong> => pa_set_autoscale</td>
                 <td></td>
               </tr>
               <tr>
@@ -504,6 +519,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_angle'>set_title_angle</a></strong> => pa_set_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_x_offset'>set_title_x_offset</a></strong> => pa_set_title_x_offset</td>
                 <td></td>
               </tr>
@@ -557,12 +577,17 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale~2'>get_autoscale</a></strong> => pa_get_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_auto_calculate_title_angle'>get_auto_calculate_title_angle</a></strong> => pa_get_auto_calc_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale'>get_autoscale</a></strong> => pa_get_autoscale</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~9'>get_command_string</a></strong> => pa_get_cmd_string</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~13'>get_command_string</a></strong> => pa_get_cmd_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -632,6 +657,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_angle'>get_title_angle</a></strong> => pa_get_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_x_offset'>get_title_x_offset</a></strong> => pa_get_title_x_offset</td>
                 <td></td>
               </tr>
@@ -667,7 +697,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale~2'>set_autoscale</a></strong> => pa_set_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_auto_calculate_title_angle'>set_auto_calculate_title_angle</a></strong> => pa_set_auto_calc_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale'>set_autoscale</a></strong> => pa_set_autoscale</td>
                 <td></td>
               </tr>
               <tr>
@@ -732,6 +767,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_angle'>set_title_angle</a></strong> => pa_set_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_x_offset'>set_title_x_offset</a></strong> => pa_set_title_x_offset</td>
                 <td></td>
               </tr>
@@ -785,12 +825,17 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale~2'>get_autoscale</a></strong> => pa_get_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_auto_calculate_title_angle'>get_auto_calculate_title_angle</a></strong> => pa_get_auto_calc_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale'>get_autoscale</a></strong> => pa_get_autoscale</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~9'>get_command_string</a></strong> => pa_get_cmd_string</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~13'>get_command_string</a></strong> => pa_get_cmd_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -860,6 +905,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_angle'>get_title_angle</a></strong> => pa_get_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_x_offset'>get_title_x_offset</a></strong> => pa_get_title_x_offset</td>
                 <td></td>
               </tr>
@@ -895,7 +945,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale~2'>set_autoscale</a></strong> => pa_set_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_auto_calculate_title_angle'>set_auto_calculate_title_angle</a></strong> => pa_set_auto_calc_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale'>set_autoscale</a></strong> => pa_set_autoscale</td>
                 <td></td>
               </tr>
               <tr>
@@ -960,6 +1015,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_angle'>set_title_angle</a></strong> => pa_set_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_x_offset'>set_title_x_offset</a></strong> => pa_set_title_x_offset</td>
                 <td></td>
               </tr>
@@ -1013,12 +1073,17 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale~2'>get_autoscale</a></strong> => pa_get_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_auto_calculate_title_angle'>get_auto_calculate_title_angle</a></strong> => pa_get_auto_calc_title_angle</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~9'>get_command_string</a></strong> => pa_get_cmd_string</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale'>get_autoscale</a></strong> => pa_get_autoscale</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~13'>get_command_string</a></strong> => pa_get_cmd_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -1088,6 +1153,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_angle'>get_title_angle</a></strong> => pa_get_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_x_offset'>get_title_x_offset</a></strong> => pa_get_title_x_offset</td>
                 <td></td>
               </tr>
@@ -1123,7 +1193,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale~2'>set_autoscale</a></strong> => pa_set_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_auto_calculate_title_angle'>set_auto_calculate_title_angle</a></strong> => pa_set_auto_calc_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale'>set_autoscale</a></strong> => pa_set_autoscale</td>
                 <td></td>
               </tr>
               <tr>
@@ -1188,6 +1263,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_angle'>set_title_angle</a></strong> => pa_set_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_x_offset'>set_title_x_offset</a></strong> => pa_set_title_x_offset</td>
                 <td></td>
               </tr>
@@ -1241,12 +1321,17 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale~2'>get_autoscale</a></strong> => pa_get_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_auto_calculate_title_angle'>get_auto_calculate_title_angle</a></strong> => pa_get_auto_calc_title_angle</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~9'>get_command_string</a></strong> => pa_get_cmd_string</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_autoscale'>get_autoscale</a></strong> => pa_get_autoscale</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_command_string~13'>get_command_string</a></strong> => pa_get_cmd_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -1316,6 +1401,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_angle'>get_title_angle</a></strong> => pa_get_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-get_title_x_offset'>get_title_x_offset</a></strong> => pa_get_title_x_offset</td>
                 <td></td>
               </tr>
@@ -1351,7 +1441,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale~2'>set_autoscale</a></strong> => pa_set_autoscale</td>
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_auto_calculate_title_angle'>set_auto_calculate_title_angle</a></strong> => pa_set_auto_calc_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_autoscale'>set_autoscale</a></strong> => pa_set_autoscale</td>
                 <td></td>
               </tr>
               <tr>
@@ -1416,6 +1511,11 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
+  <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_angle'>set_title_angle</a></strong> => pa_set_title_angle</td>
+                <td></td>
+              </tr>
+              <tr>
+                <td>  procedure, public ::
   <strong><a href='..\type\plot_axis.html#boundprocedure-set_title_x_offset'>set_title_x_offset</a></strong> => pa_set_title_x_offset</td>
                 <td></td>
               </tr>
@@ -1471,7 +1571,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_bar.html b/doc/module/fplot_plot_bar.html
index 74201529..9a17b8f2 100644
--- a/doc/module/fplot_plot_bar.html
+++ b/doc/module/fplot_plot_bar.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_bar
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.9% of total for modules and submodules.">80 statements</a>
+                 title=" 0.8% of total for modules and submodules.">80 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,9 +150,9 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_2d.html'>fplot_plot_2d</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -189,7 +189,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-clear_all'>clear_all</a></strong> => plt_clear_all</td>
+  <strong><a href='..\type\plot.html#boundprocedure-clear_all~2'>clear_all</a></strong> => plt_clear_all</td>
                 <td></td>
               </tr>
               <tr>
@@ -204,7 +204,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-draw'>draw</a></strong> => plt_draw</td>
+  <strong><a href='..\type\plot.html#boundprocedure-draw~3'>draw</a></strong> => plt_draw</td>
                 <td></td>
               </tr>
               <tr>
@@ -214,7 +214,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get'>get</a></strong> => plt_get</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get~5'>get</a></strong> => plt_get</td>
                 <td></td>
               </tr>
               <tr>
@@ -244,37 +244,37 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin~2'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_colormap'>get_colormap</a></strong> => plt_get_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_colormap~2'>get_colormap</a></strong> => plt_get_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_bar.html#boundprocedure-get_command_string~18'>get_command_string</a></strong> => pb_get_cmd</td>
+  <strong><a href='..\type\plot_bar.html#boundprocedure-get_command_string~19'>get_command_string</a></strong> => pb_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_count~3'>get_count</a></strong> => plt_get_count</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_count~5'>get_count</a></strong> => plt_get_count</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border'>get_draw_border</a></strong> => plt_get_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => plt_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_name'>get_font_name</a></strong> => plt_get_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => plt_get_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_size'>get_font_size</a></strong> => plt_get_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => plt_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -289,7 +289,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_label'>get_label</a></strong> => plt_get_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_label~3'>get_label</a></strong> => plt_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -299,7 +299,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin'>get_left_margin</a></strong> => plt_get_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin~2'>get_left_margin</a></strong> => plt_get_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -309,7 +309,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin'>get_right_margin</a></strong> => plt_get_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin~2'>get_right_margin</a></strong> => plt_get_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -359,7 +359,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_terminal'>get_terminal</a></strong> => plt_get_term</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_terminal~3'>get_terminal</a></strong> => plt_get_term</td>
                 <td></td>
               </tr>
               <tr>
@@ -369,12 +369,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_title'>get_title</a></strong> => plt_get_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_title~4'>get_title</a></strong> => plt_get_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin'>get_top_margin</a></strong> => plt_get_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin~2'>get_top_margin</a></strong> => plt_get_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -389,7 +389,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-get_x_axis'>get_x_axis</a></strong> => p2d_get_x_axis</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-get_x_axis~2'>get_x_axis</a></strong> => p2d_get_x_axis</td>
                 <td></td>
               </tr>
               <tr>
@@ -429,7 +429,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-get_y_axis'>get_y_axis</a></strong> => p2d_get_y_axis</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-get_y_axis~2'>get_y_axis</a></strong> => p2d_get_y_axis</td>
                 <td></td>
               </tr>
               <tr>
@@ -464,12 +464,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-initialize~2'>initialize</a></strong> => p2d_init</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-initialize~4'>initialize</a></strong> => p2d_init</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined'>is_title_defined</a></strong> => plt_has_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined~3'>is_title_defined</a></strong> => plt_has_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -514,12 +514,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-save_file'>save_file</a></strong> => plt_save</td>
+  <strong><a href='..\type\plot.html#boundprocedure-save_file~3'>save_file</a></strong> => plt_save</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set'>set</a></strong> => plt_set</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set~3'>set</a></strong> => plt_set</td>
                 <td></td>
               </tr>
               <tr>
@@ -544,27 +544,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin~2'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_colormap'>set_colormap</a></strong> => plt_set_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_colormap~2'>set_colormap</a></strong> => plt_set_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border'>set_draw_border</a></strong> => plt_set_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => plt_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_name'>set_font_name</a></strong> => plt_set_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => plt_set_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_size'>set_font_size</a></strong> => plt_set_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => plt_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -579,17 +579,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_label'>set_label</a></strong> => plt_set_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_label~3'>set_label</a></strong> => plt_set_label</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin'>set_left_margin</a></strong> => plt_set_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin~2'>set_left_margin</a></strong> => plt_set_left_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin'>set_right_margin</a></strong> => plt_set_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin~2'>set_right_margin</a></strong> => plt_set_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -644,12 +644,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_title'>set_title</a></strong> => plt_set_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_title~4'>set_title</a></strong> => plt_set_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin'>set_top_margin</a></strong> => plt_set_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin~2'>set_top_margin</a></strong> => plt_set_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -664,12 +664,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_window_size'>set_window_size</a></strong> => plt_set_window_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_window_size~2'>set_window_size</a></strong> => plt_set_window_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-set_x_axis_title'>set_x_axis_title</a></strong> => p2d_set_x_axis_title</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-set_x_axis_title~2'>set_x_axis_title</a></strong> => p2d_set_x_axis_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -709,7 +709,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_2d.html#boundprocedure-set_y_axis_title'>set_y_axis_title</a></strong> => p2d_set_y_axis_title</td>
+  <strong><a href='..\type\plot_2d.html#boundprocedure-set_y_axis_title~2'>set_y_axis_title</a></strong> => p2d_set_y_axis_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -774,7 +774,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data.html b/doc/module/fplot_plot_data.html
index 87664e7e..d576c7e3 100644
--- a/doc/module/fplot_plot_data.html
+++ b/doc/module/fplot_plot_data.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 5.1% of total for modules and submodules.">459 statements</a>
+                 title=" 4.7% of total for modules and submodules.">459 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -181,12 +181,12 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
-                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -228,7 +228,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~508"></span>
+              <span class="anchor" id="variable-this~170"></span>
               class(<a href='..\type\plot_data.html'>plot_data</a>),
             </td>
 <td>intent(inout)</td>
@@ -276,7 +276,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~507"></span>
+              <span class="anchor" id="variable-this~169"></span>
               class(<a href='..\type\plot_data.html'>plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -329,7 +329,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~511"></span>
+              <span class="anchor" id="variable-this~173"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -382,7 +382,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~512"></span>
+              <span class="anchor" id="variable-this~174"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -435,7 +435,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~509"></span>
+              <span class="anchor" id="variable-this~171"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -450,7 +450,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-index~11"></span>
+              <span class="anchor" id="variable-index"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -503,7 +503,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~510"></span>
+              <span class="anchor" id="variable-this~172"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(inout)</td>
@@ -518,7 +518,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-index~12"></span>
+              <span class="anchor" id="variable-index~2"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -533,7 +533,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~380"></span>
+              <span class="anchor" id="variable-x~122"></span>
               real(kind=real64),
             </td>
 <td>intent(in)</td>
@@ -580,12 +580,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\pd_clear_action.html'>pd_clear_action</a>), public, deferred ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_data~11'>clear_data</a></strong></td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_data~6'>clear_data</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -600,12 +600,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_command_string~25'>get_command_string</a></strong> => <a href='D:\Code\fplot\doc\proc\lpd_get_cmd.html'>lpd_get_cmd</a></td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_command_string~11'>get_command_string</a></strong> => <a href='D:\Code\fplot\doc\proc\lpd_get_cmd.html'>lpd_get_cmd</a></td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\pd_get_string_result.html'>pd_get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-get_data_string~11'>get_data_string</a></strong></td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-get_data_string~6'>get_data_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -635,12 +635,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~3'>get_line_style</a></strong> => lpd_get_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~2'>get_line_style</a></strong> => lpd_get_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~5'>get_line_width</a></strong> => lpd_get_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~3'>get_line_width</a></strong> => lpd_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -695,12 +695,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~3'>set_line_style</a></strong> => lpd_set_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~2'>set_line_style</a></strong> => lpd_set_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~5'>set_line_width</a></strong> => lpd_set_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~3'>set_line_width</a></strong> => lpd_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -748,12 +748,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\pd_clear_action.html'>pd_clear_action</a>), public, deferred ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_data~11'>clear_data</a></strong></td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_data~6'>clear_data</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -763,12 +763,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\get_string_result.html'>get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\plot_object.html#boundprocedure-get_command_string~12'>get_command_string</a></strong></td>
+  <strong><a href='..\type\plot_object.html#boundprocedure-get_command_string~7'>get_command_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\pd_get_string_result.html'>pd_get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-get_data_string~11'>get_data_string</a></strong></td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-get_data_string~6'>get_data_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -816,12 +816,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\pd_clear_action.html'>pd_clear_action</a>), public, deferred ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_data~11'>clear_data</a></strong></td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_data~6'>clear_data</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -836,12 +836,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\get_string_result.html'>get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\plot_object.html#boundprocedure-get_command_string~12'>get_command_string</a></strong></td>
+  <strong><a href='..\type\plot_object.html#boundprocedure-get_command_string~7'>get_command_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\pd_get_string_result.html'>pd_get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-get_data_string~11'>get_data_string</a></strong></td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-get_data_string~6'>get_data_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -904,12 +904,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\pd_clear_action.html'>pd_clear_action</a>), public, deferred ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_data~11'>clear_data</a></strong></td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_data~6'>clear_data</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -919,7 +919,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\spd_get_string_result.html'>spd_get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_axes_string~5'>get_axes_string</a></strong></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_axes_string'>get_axes_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -929,17 +929,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_command_string~26'>get_command_string</a></strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_command_string~12'>get_command_string</a></strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a></td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\spd_get_int_value.html'>spd_get_int_value</a>), public, deferred ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_count~5'>get_count</a></strong></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_count'>get_count</a></strong></td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\pd_get_string_result.html'>pd_get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-get_data_string~11'>get_data_string</a></strong></td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-get_data_string~6'>get_data_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -974,12 +974,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~3'>get_line_style</a></strong> => lpd_get_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~2'>get_line_style</a></strong> => lpd_get_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~5'>get_line_width</a></strong> => lpd_get_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~3'>get_line_width</a></strong> => lpd_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -1024,12 +1024,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\spd_get_value.html'>spd_get_value</a>), public, deferred ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_x~4'>get_x</a></strong></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_x'>get_x</a></strong></td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\spd_get_value.html'>spd_get_value</a>), public, deferred ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_y~4'>get_y</a></strong></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_y'>get_y</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -1069,12 +1069,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~3'>set_line_style</a></strong> => lpd_set_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~2'>set_line_style</a></strong> => lpd_set_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~5'>set_line_width</a></strong> => lpd_set_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~3'>set_line_width</a></strong> => lpd_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -1119,12 +1119,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\spd_set_value.html'>spd_set_value</a>), public, deferred ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-set_x~4'>set_x</a></strong></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-set_x'>set_x</a></strong></td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\spd_set_value.html'>spd_set_value</a>), public, deferred ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-set_y~4'>set_y</a></strong></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-set_y'>set_y</a></strong></td>
                 <td></td>
               </tr>
           </tbody>
@@ -1158,7 +1158,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~539"></span>
+              <span class="anchor" id="variable-this~201"></span>
               class(<a href='..\type\line_plot_data.html'>line_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -1204,7 +1204,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~540"></span>
+              <span class="anchor" id="variable-this~202"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -1250,7 +1250,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data_2d.html b/doc/module/fplot_plot_data_2d.html
index a5acc88a..302973c7 100644
--- a/doc/module/fplot_plot_data_2d.html
+++ b/doc/module/fplot_plot_data_2d.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_2d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.5% of total for modules and submodules.">315 statements</a>
+                 title=" 3.2% of total for modules and submodules.">315 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_simplify.html'>fplot_simplify</a></li>
                   <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_simplify.html'>fplot_simplify</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-clear_data~2'>clear_data</a></strong> => pd2d_clear_data</td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-clear_data~7'>clear_data</a></strong> => pd2d_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,7 +206,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  generic, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-define_data~2'>define_data</a></strong> => <a href='D:\Code\fplot\doc\type\plot_data_2d.html#boundprocedure-pd2d_set_data_1'>pd2d_set_data_1</a>, <a href='D:\Code\fplot\doc\type\plot_data_2d.html#boundprocedure-pd2d_set_data_2'>pd2d_set_data_2</a></td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-define_data~6'>define_data</a></strong> => <a href='D:\Code\fplot\doc\type\plot_data_2d.html#boundprocedure-pd2d_set_data_1'>pd2d_set_data_1</a>, <a href='D:\Code\fplot\doc\type\plot_data_2d.html#boundprocedure-pd2d_set_data_2'>pd2d_set_data_2</a></td>
                 <td></td>
               </tr>
               <tr>
@@ -216,7 +216,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_color_data~2'>get_color_data</a></strong> => pd2d_get_c_array</td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_color_data'>get_color_data</a></strong> => pd2d_get_c_array</td>
                 <td></td>
               </tr>
               <tr>
@@ -226,7 +226,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_command_string~26'>get_command_string</a></strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_command_string~12'>get_command_string</a></strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a></td>
                 <td></td>
               </tr>
               <tr>
@@ -236,7 +236,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_data_string~2'>get_data_string</a></strong> => pd2d_get_data_cmd</td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_data_string~7'>get_data_string</a></strong> => pd2d_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -246,7 +246,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_draw_against_y2'>get_draw_against_y2</a></strong> => pd2d_get_draw_against_y2</td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_draw_against_y2~2'>get_draw_against_y2</a></strong> => pd2d_get_draw_against_y2</td>
                 <td></td>
               </tr>
               <tr>
@@ -276,12 +276,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~3'>get_line_style</a></strong> => lpd_get_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~2'>get_line_style</a></strong> => lpd_get_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~5'>get_line_width</a></strong> => lpd_get_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~3'>get_line_width</a></strong> => lpd_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -306,7 +306,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_point_size_data~2'>get_point_size_data</a></strong> => pd2d_get_ps_array</td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_point_size_data'>get_point_size_data</a></strong> => pd2d_get_ps_array</td>
                 <td></td>
               </tr>
               <tr>
@@ -336,7 +336,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_x_data~2'>get_x_data</a></strong> => pd2d_get_x_array</td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_x_data'>get_x_data</a></strong> => pd2d_get_x_array</td>
                 <td></td>
               </tr>
               <tr>
@@ -346,7 +346,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_y_data~2'>get_y_data</a></strong> => pd2d_get_y_array</td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-get_y_data'>get_y_data</a></strong> => pd2d_get_y_array</td>
                 <td></td>
               </tr>
               <tr>
@@ -371,7 +371,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_2d.html#boundprocedure-set_draw_against_y2'>set_draw_against_y2</a></strong> => pd2d_set_draw_against_y2</td>
+  <strong><a href='..\type\plot_data_2d.html#boundprocedure-set_draw_against_y2~2'>set_draw_against_y2</a></strong> => pd2d_set_draw_against_y2</td>
                 <td></td>
               </tr>
               <tr>
@@ -401,12 +401,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~3'>set_line_style</a></strong> => lpd_set_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~2'>set_line_style</a></strong> => lpd_set_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~5'>set_line_width</a></strong> => lpd_set_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~3'>set_line_width</a></strong> => lpd_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -486,7 +486,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data_3d.html b/doc/module/fplot_plot_data_3d.html
index dc31c436..87dcb9bb 100644
--- a/doc/module/fplot_plot_data_3d.html
+++ b/doc/module/fplot_plot_data_3d.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_3d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.5% of total for modules and submodules.">316 statements</a>
+                 title=" 3.2% of total for modules and submodules.">316 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_simplify.html'>fplot_simplify</a></li>
                   <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_simplify.html'>fplot_simplify</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-clear_data'>clear_data</a></strong> => pd3d_clear_data</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-clear_data~8'>clear_data</a></strong> => pd3d_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,17 +206,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-define_data'>define_data</a></strong> => pd3d_set_data_1</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-define_data~7'>define_data</a></strong> => pd3d_set_data_1</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_axes_string'>get_axes_string</a></strong> => pd3d_get_axes_cmd</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_axes_string~3'>get_axes_string</a></strong> => pd3d_get_axes_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_color_data'>get_color_data</a></strong> => pd3d_get_c_array</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_color_data~2'>get_color_data</a></strong> => pd3d_get_c_array</td>
                 <td></td>
               </tr>
               <tr>
@@ -226,17 +226,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_command_string~26'>get_command_string</a></strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a></td>
+  <strong><a href='..\type\scatter_plot_data.html#boundprocedure-get_command_string~12'>get_command_string</a></strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a></td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_count'>get_count</a></strong> => pd3d_get_data_count</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_count~3'>get_count</a></strong> => pd3d_get_data_count</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_data_string'>get_data_string</a></strong> => pd3d_get_data_cmd</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_data_string~8'>get_data_string</a></strong> => pd3d_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -271,12 +271,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~3'>get_line_style</a></strong> => lpd_get_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~2'>get_line_style</a></strong> => lpd_get_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~5'>get_line_width</a></strong> => lpd_get_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~3'>get_line_width</a></strong> => lpd_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -301,7 +301,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_point_size_data'>get_point_size_data</a></strong> => pd3d_get_c_array</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_point_size_data~2'>get_point_size_data</a></strong> => pd3d_get_c_array</td>
                 <td></td>
               </tr>
               <tr>
@@ -326,22 +326,22 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_x'>get_x</a></strong> => pd3d_get_x_data</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_x~3'>get_x</a></strong> => pd3d_get_x_data</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_x_data'>get_x_data</a></strong> => pd3d_get_x_array</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_x_data~2'>get_x_data</a></strong> => pd3d_get_x_array</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_y'>get_y</a></strong> => pd3d_get_y_data</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_y~3'>get_y</a></strong> => pd3d_get_y_data</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_y_data'>get_y_data</a></strong> => pd3d_get_y_array</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-get_y_data~2'>get_y_data</a></strong> => pd3d_get_y_array</td>
                 <td></td>
               </tr>
               <tr>
@@ -391,12 +391,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~3'>set_line_style</a></strong> => lpd_set_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~2'>set_line_style</a></strong> => lpd_set_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~5'>set_line_width</a></strong> => lpd_set_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~3'>set_line_width</a></strong> => lpd_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -441,12 +441,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-set_x'>set_x</a></strong> => pd3d_set_x_data</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-set_x~3'>set_x</a></strong> => pd3d_set_x_data</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_3d.html#boundprocedure-set_y'>set_y</a></strong> => pd3d_set_y_data</td>
+  <strong><a href='..\type\plot_data_3d.html#boundprocedure-set_y~3'>set_y</a></strong> => pd3d_set_y_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -481,7 +481,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data_bar.html b/doc/module/fplot_plot_data_bar.html
index 249cc0e9..a7cefd6e 100644
--- a/doc/module/fplot_plot_data_bar.html
+++ b/doc/module/fplot_plot_data_bar.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_bar
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 6.3% of total for modules and submodules.">570 statements</a>
+                 title=" 5.8% of total for modules and submodules.">570 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-clear_data~12'>clear_data</a></strong> => pdb_clear_data</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-clear_data~10'>clear_data</a></strong> => pdb_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,17 +206,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  generic, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-define_data~10'>define_data</a></strong> => pdb_set_data_1, pdb_set_data_2, pdb_set_data_3, pdb_set_data_4, pdb_set_data_5, pdb_set_data_6</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-define_data~9'>define_data</a></strong> => pdb_set_data_1, pdb_set_data_2, pdb_set_data_3, pdb_set_data_4, pdb_set_data_5, pdb_set_data_6</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get~5'>get</a></strong> => pdb_get_data</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get~3'>get</a></strong> => pdb_get_data</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_axes_string~6'>get_axes_string</a></strong> => pdb_get_axes_cmd</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_axes_string~5'>get_axes_string</a></strong> => pdb_get_axes_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -236,12 +236,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_command_string~27'>get_command_string</a></strong> => pdb_get_cmd</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_command_string~24'>get_command_string</a></strong> => pdb_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_count~6'>get_count</a></strong> => pdb_get_count</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_count~4'>get_count</a></strong> => pdb_get_count</td>
                 <td></td>
               </tr>
               <tr>
@@ -251,7 +251,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_data_string~12'>get_data_string</a></strong> => pdb_get_data_cmd</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_data_string~10'>get_data_string</a></strong> => pdb_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -261,17 +261,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_draw_against_y2~5'>get_draw_against_y2</a></strong> => pdb_get_use_y2</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_draw_against_y2~4'>get_draw_against_y2</a></strong> => pdb_get_use_y2</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_is_filled~2'>get_is_filled</a></strong> => pdb_get_is_filled</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_is_filled'>get_is_filled</a></strong> => pdb_get_is_filled</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_label~3'>get_label</a></strong> => pdb_get_label</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-get_label~2'>get_label</a></strong> => pdb_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -301,7 +301,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-set~3'>set</a></strong> => pdb_set_data</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-set~2'>set</a></strong> => pdb_set_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -351,17 +351,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-set_draw_against_y2~5'>set_draw_against_y2</a></strong> => pdb_set_use_y2</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-set_draw_against_y2~4'>set_draw_against_y2</a></strong> => pdb_set_use_y2</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-set_is_filled~2'>set_is_filled</a></strong> => pdb_set_is_filled</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-set_is_filled'>set_is_filled</a></strong> => pdb_set_is_filled</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_bar.html#boundprocedure-set_label~3'>set_label</a></strong> => pdb_set_label</td>
+  <strong><a href='..\type\plot_data_bar.html#boundprocedure-set_label~2'>set_label</a></strong> => pdb_set_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -416,7 +416,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data_box_whisker.html b/doc/module/fplot_plot_data_box_whisker.html
index 23cc0267..78f46bc0 100644
--- a/doc/module/fplot_plot_data_box_whisker.html
+++ b/doc/module/fplot_plot_data_box_whisker.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_box_whisker
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.1% of total for modules and submodules.">282 statements</a>
+                 title=" 2.9% of total for modules and submodules.">282 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-clear_data~8'>clear_data</a></strong> => pdbw_clear_data</td>
+  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-clear_data~4'>clear_data</a></strong> => pdbw_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,7 +206,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-define_data~7'>define_data</a></strong> => pdbw_define_data_xstring</td>
+  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-define_data~4'>define_data</a></strong> => pdbw_define_data_xstring</td>
                 <td></td>
               </tr>
               <tr>
@@ -226,12 +226,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-get_command_string~19'>get_command_string</a></strong> => pdbw_get_cmd</td>
+  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-get_command_string~6'>get_command_string</a></strong> => pdbw_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-get_data_string~8'>get_data_string</a></strong> => pdbw_get_data_cmd</td>
+  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-get_data_string~4'>get_data_string</a></strong> => pdbw_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -241,7 +241,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-get_draw_against_y2~4'>get_draw_against_y2</a></strong> => pdbw_get_use_y2</td>
+  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-get_draw_against_y2'>get_draw_against_y2</a></strong> => pdbw_get_use_y2</td>
                 <td></td>
               </tr>
               <tr>
@@ -256,7 +256,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-get_line_width~3'>get_line_width</a></strong> => pdbw_get_line_width</td>
+  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-get_line_width~2'>get_line_width</a></strong> => pdbw_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -306,7 +306,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-set_draw_against_y2~4'>set_draw_against_y2</a></strong> => pdbw_set_use_y2</td>
+  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-set_draw_against_y2'>set_draw_against_y2</a></strong> => pdbw_set_use_y2</td>
                 <td></td>
               </tr>
               <tr>
@@ -321,7 +321,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-set_line_width~3'>set_line_width</a></strong> => pdbw_set_line_width</td>
+  <strong><a href='..\type\plot_data_box_whisker.html#boundprocedure-set_line_width~2'>set_line_width</a></strong> => pdbw_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -376,7 +376,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data_error_bars.html b/doc/module/fplot_plot_data_error_bars.html
index c5eeb4aa..2e83773c 100644
--- a/doc/module/fplot_plot_data_error_bars.html
+++ b/doc/module/fplot_plot_data_error_bars.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_error_bars
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 5.4% of total for modules and submodules.">483 statements</a>
+                 title=" 4.9% of total for modules and submodules.">483 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-clear_data~6'>clear_data</a></strong> => pde_clear_data</td>
+  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-clear_data~13'>clear_data</a></strong> => pde_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -226,17 +226,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-get_command_string~13'>get_command_string</a></strong> => pde_get_cmd</td>
+  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-get_command_string~29'>get_command_string</a></strong> => pde_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-get_count~4'>get_count</a></strong> => pde_get_count</td>
+  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-get_count~6'>get_count</a></strong> => pde_get_count</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-get_data_string~6'>get_data_string</a></strong> => pde_get_data_cmd</td>
+  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-get_data_string~13'>get_data_string</a></strong> => pde_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -251,7 +251,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-get_line_width'>get_line_width</a></strong> => pde_get_line_width</td>
+  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-get_line_width~5'>get_line_width</a></strong> => pde_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -326,7 +326,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-set_line_width'>set_line_width</a></strong> => pde_set_line_width</td>
+  <strong><a href='..\type\plot_data_error_bars.html#boundprocedure-set_line_width~5'>set_line_width</a></strong> => pde_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -366,7 +366,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data_function.html b/doc/module/fplot_plot_data_function.html
index e398bafb..e330ff31 100644
--- a/doc/module/fplot_plot_data_function.html
+++ b/doc/module/fplot_plot_data_function.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_function
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.6% of total for modules and submodules.">143 statements</a>
+                 title=" 1.5% of total for modules and submodules.">143 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_function.html#boundprocedure-clear_data~4'>clear_data</a></strong> => pdf_clear_data</td>
+  <strong><a href='..\type\plot_data_function.html#boundprocedure-clear_data~2'>clear_data</a></strong> => pdf_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,7 +206,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_function.html#boundprocedure-define_data~4'>define_data</a></strong> => pdf_define_data</td>
+  <strong><a href='..\type\plot_data_function.html#boundprocedure-define_data~2'>define_data</a></strong> => pdf_define_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -216,12 +216,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_function.html#boundprocedure-get_command_string~6'>get_command_string</a></strong> => pdf_get_cmd</td>
+  <strong><a href='..\type\plot_data_function.html#boundprocedure-get_command_string~3'>get_command_string</a></strong> => pdf_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_function.html#boundprocedure-get_data_string~4'>get_data_string</a></strong> => pdf_get_data_cmd</td>
+  <strong><a href='..\type\plot_data_function.html#boundprocedure-get_data_string~2'>get_data_string</a></strong> => pdf_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -261,12 +261,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~3'>get_line_style</a></strong> => lpd_get_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_style~2'>get_line_style</a></strong> => lpd_get_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~5'>get_line_width</a></strong> => lpd_get_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-get_line_width~3'>get_line_width</a></strong> => lpd_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -336,12 +336,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~3'>set_line_style</a></strong> => lpd_set_line_style</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_style~2'>set_line_style</a></strong> => lpd_set_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~5'>set_line_width</a></strong> => lpd_set_line_width</td>
+  <strong><a href='..\type\line_plot_data.html#boundprocedure-set_line_width~3'>set_line_width</a></strong> => lpd_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -406,7 +406,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data_histogram.html b/doc/module/fplot_plot_data_histogram.html
index f33b0b14..f54e3e51 100644
--- a/doc/module/fplot_plot_data_histogram.html
+++ b/doc/module/fplot_plot_data_histogram.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_histogram
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.1% of total for modules and submodules.">188 statements</a>
+                 title=" 1.9% of total for modules and submodules.">188 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-clear_data~3'>clear_data</a></strong> => pdh_clear_data</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-clear_data~11'>clear_data</a></strong> => pdh_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,17 +206,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-define_data~3'>define_data</a></strong> => pdh_define_data</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-define_data~10'>define_data</a></strong> => pdh_define_data</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get~2'>get</a></strong> => pdh_get_bin_data</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get~4'>get</a></strong> => pdh_get_bin_data</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_axes_string~3'>get_axes_string</a></strong> => pdh_get_axes_cmd</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_axes_string~6'>get_axes_string</a></strong> => pdh_get_axes_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -231,12 +231,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_command_string~5'>get_command_string</a></strong> => pdh_get_cmd</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_command_string~26'>get_command_string</a></strong> => pdh_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_data_string~3'>get_data_string</a></strong> => pdh_get_data_cmd</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_data_string~11'>get_data_string</a></strong> => pdh_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -246,12 +246,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_draw_against_y2~2'>get_draw_against_y2</a></strong> => pdh_get_use_y2</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_draw_against_y2~5'>get_draw_against_y2</a></strong> => pdh_get_use_y2</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_is_filled'>get_is_filled</a></strong> => pdh_get_is_filled</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-get_is_filled~2'>get_is_filled</a></strong> => pdh_get_is_filled</td>
                 <td></td>
               </tr>
               <tr>
@@ -291,12 +291,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-set_draw_against_y2~2'>set_draw_against_y2</a></strong> => pdh_set_use_y2</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-set_draw_against_y2~5'>set_draw_against_y2</a></strong> => pdh_set_use_y2</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-set_is_filled'>set_is_filled</a></strong> => pdh_set_is_filled</td>
+  <strong><a href='..\type\plot_data_histogram.html#boundprocedure-set_is_filled~2'>set_is_filled</a></strong> => pdh_set_is_filled</td>
                 <td></td>
               </tr>
               <tr>
@@ -336,7 +336,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_data_tri_2d.html b/doc/module/fplot_plot_data_tri_2d.html
index ceb22f7f..c572eaab 100644
--- a/doc/module/fplot_plot_data_tri_2d.html
+++ b/doc/module/fplot_plot_data_tri_2d.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_tri_2d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.9% of total for modules and submodules.">167 statements</a>
+                 title=" 1.7% of total for modules and submodules.">167 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,12 +150,12 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
+                  <li class="list-inline-item"><a href='fplot_triangulations_delaunay_2d.html'>fplot_triangulations_delaunay_2d</a></li>
                   <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_triangulations_delaunay_2d.html'>fplot_triangulations_delaunay_2d</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -192,12 +192,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-clear_data~9'>clear_data</a></strong> => pdt2d_clear_data</td>
+  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-clear_data~3'>clear_data</a></strong> => pdt2d_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -207,7 +207,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-define_data~8'>define_data</a></strong> => pdt2d_define_data</td>
+  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-define_data~3'>define_data</a></strong> => pdt2d_define_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -217,12 +217,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-get_command_string~20'>get_command_string</a></strong> => pdt2d_get_cmd</td>
+  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-get_command_string~4'>get_command_string</a></strong> => pdt2d_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-get_data_string~9'>get_data_string</a></strong> => pdt2d_get_data_cmd</td>
+  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-get_data_string~3'>get_data_string</a></strong> => pdt2d_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -237,12 +237,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-get_line_style~2'>get_line_style</a></strong> => pdt2d_get_line_style</td>
+  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-get_line_style'>get_line_style</a></strong> => pdt2d_get_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-get_line_width~4'>get_line_width</a></strong> => pdt2d_get_line_width</td>
+  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-get_line_width'>get_line_width</a></strong> => pdt2d_get_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -267,12 +267,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-set_line_style~2'>set_line_style</a></strong> => pdt2d_set_line_style</td>
+  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-set_line_style'>set_line_style</a></strong> => pdt2d_set_line_style</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-set_line_width~4'>set_line_width</a></strong> => pdt2d_set_line_width</td>
+  <strong><a href='..\type\plot_data_tri_2d.html#boundprocedure-set_line_width'>set_line_width</a></strong> => pdt2d_set_line_width</td>
                 <td></td>
               </tr>
               <tr>
@@ -307,7 +307,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_object.html b/doc/module/fplot_plot_object.html
index dd1e52ac..18bbf324 100644
--- a/doc/module/fplot_plot_object.html
+++ b/doc/module/fplot_plot_object.html
@@ -203,7 +203,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~313"></span>
+              <span class="anchor" id="variable-this~103"></span>
               class(<a href='..\type\plot_object.html'>plot_object</a>),
             </td>
 <td>intent(in)</td>
@@ -255,7 +255,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure(<a href='..\interface\get_string_result.html'>get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\plot_object.html#boundprocedure-get_command_string~12'>get_command_string</a></strong></td>
+  <strong><a href='..\type\plot_object.html#boundprocedure-get_command_string~7'>get_command_string</a></strong></td>
                 <td></td>
               </tr>
           </tbody>
@@ -285,7 +285,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_plot_polar.html b/doc/module/fplot_plot_polar.html
index 7690afdb..9ea16e6c 100644
--- a/doc/module/fplot_plot_polar.html
+++ b/doc/module/fplot_plot_polar.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_polar
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.7% of total for modules and submodules.">240 statements</a>
+                 title=" 2.4% of total for modules and submodules.">240 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,16 +150,16 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_2d.html'>fplot_plot_data_2d</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
-                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
+                  <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_2d.html'>fplot_plot_data_2d</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
+                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -205,7 +205,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-clear_all'>clear_all</a></strong> => plt_clear_all</td>
+  <strong><a href='..\type\plot.html#boundprocedure-clear_all~2'>clear_all</a></strong> => plt_clear_all</td>
                 <td></td>
               </tr>
               <tr>
@@ -220,7 +220,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-draw'>draw</a></strong> => plt_draw</td>
+  <strong><a href='..\type\plot.html#boundprocedure-draw~3'>draw</a></strong> => plt_draw</td>
                 <td></td>
               </tr>
               <tr>
@@ -230,7 +230,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get'>get</a></strong> => plt_get</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get~5'>get</a></strong> => plt_get</td>
                 <td></td>
               </tr>
               <tr>
@@ -245,7 +245,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_polar.html#boundprocedure-get_autoscale'>get_autoscale</a></strong> => plr_get_autoscale</td>
+  <strong><a href='..\type\plot_polar.html#boundprocedure-get_autoscale~2'>get_autoscale</a></strong> => plr_get_autoscale</td>
                 <td></td>
               </tr>
               <tr>
@@ -260,42 +260,42 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin~2'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_colormap'>get_colormap</a></strong> => plt_get_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_colormap~2'>get_colormap</a></strong> => plt_get_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_polar.html#boundprocedure-get_command_string'>get_command_string</a></strong> => plr_get_cmd</td>
+  <strong><a href='..\type\plot_polar.html#boundprocedure-get_command_string~18'>get_command_string</a></strong> => plr_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_count~3'>get_count</a></strong> => plt_get_count</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_count~5'>get_count</a></strong> => plt_get_count</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border'>get_draw_border</a></strong> => plt_get_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => plt_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_name'>get_font_name</a></strong> => plt_get_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => plt_get_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_size'>get_font_size</a></strong> => plt_get_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => plt_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_label'>get_label</a></strong> => plt_get_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_label~3'>get_label</a></strong> => plt_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -305,7 +305,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin'>get_left_margin</a></strong> => plt_get_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin~2'>get_left_margin</a></strong> => plt_get_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -320,7 +320,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin'>get_right_margin</a></strong> => plt_get_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin~2'>get_right_margin</a></strong> => plt_get_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -355,7 +355,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_terminal'>get_terminal</a></strong> => plt_get_term</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_terminal~3'>get_terminal</a></strong> => plt_get_term</td>
                 <td></td>
               </tr>
               <tr>
@@ -375,12 +375,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_title'>get_title</a></strong> => plt_get_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_title~4'>get_title</a></strong> => plt_get_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin'>get_top_margin</a></strong> => plt_get_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin~2'>get_top_margin</a></strong> => plt_get_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -445,12 +445,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_polar.html#boundprocedure-initialize'>initialize</a></strong> => plr_init</td>
+  <strong><a href='..\type\plot_polar.html#boundprocedure-initialize~6'>initialize</a></strong> => plr_init</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined'>is_title_defined</a></strong> => plt_has_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined~3'>is_title_defined</a></strong> => plt_has_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -480,7 +480,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  generic, public ::
-  <strong><a href='..\type\plot_polar.html#boundprocedure-push'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_polar.html#boundprocedure-plr_push_data'>plr_push_data</a></td>
+  <strong><a href='..\type\plot_polar.html#boundprocedure-push~4'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_polar.html#boundprocedure-plr_push_data'>plr_push_data</a></td>
                 <td></td>
               </tr>
               <tr>
@@ -495,12 +495,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-save_file'>save_file</a></strong> => plt_save</td>
+  <strong><a href='..\type\plot.html#boundprocedure-save_file~3'>save_file</a></strong> => plt_save</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set'>set</a></strong> => plt_set</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set~3'>set</a></strong> => plt_set</td>
                 <td></td>
               </tr>
               <tr>
@@ -510,7 +510,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_polar.html#boundprocedure-set_autoscale'>set_autoscale</a></strong> => plr_set_autoscale</td>
+  <strong><a href='..\type\plot_polar.html#boundprocedure-set_autoscale~2'>set_autoscale</a></strong> => plr_set_autoscale</td>
                 <td></td>
               </tr>
               <tr>
@@ -525,37 +525,37 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin~2'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_colormap'>set_colormap</a></strong> => plt_set_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_colormap~2'>set_colormap</a></strong> => plt_set_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border'>set_draw_border</a></strong> => plt_set_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => plt_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_name'>set_font_name</a></strong> => plt_set_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => plt_set_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_size'>set_font_size</a></strong> => plt_set_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => plt_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_label'>set_label</a></strong> => plt_set_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_label~3'>set_label</a></strong> => plt_set_label</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin'>set_left_margin</a></strong> => plt_set_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin~2'>set_left_margin</a></strong> => plt_set_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -565,7 +565,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin'>set_right_margin</a></strong> => plt_set_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin~2'>set_right_margin</a></strong> => plt_set_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -615,17 +615,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_title'>set_title</a></strong> => plt_set_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_title~4'>set_title</a></strong> => plt_set_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin'>set_top_margin</a></strong> => plt_set_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin~2'>set_top_margin</a></strong> => plt_set_top_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_window_size'>set_window_size</a></strong> => plt_set_window_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_window_size~2'>set_window_size</a></strong> => plt_set_window_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -720,7 +720,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_png_terminal.html b/doc/module/fplot_png_terminal.html
index 0298dbae..c7e360d3 100644
--- a/doc/module/fplot_png_terminal.html
+++ b/doc/module/fplot_png_terminal.html
@@ -74,7 +74,7 @@ <h1>fplot_png_terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.3% of total for modules and submodules.">23 statements</a>
+                 title=" 0.2% of total for modules and submodules.">23 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,10 +150,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
               </ul>
             </li>
         </ul>
@@ -190,7 +190,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\file_terminal.html#boundprocedure-get_command_string~24'>get_command_string</a></strong> => fterm_get_command_string</td>
+  <strong><a href='..\type\file_terminal.html#boundprocedure-get_command_string~17'>get_command_string</a></strong> => fterm_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -200,17 +200,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\png_terminal.html#boundprocedure-get_id_string~3'>get_id_string</a></strong> => png_get_term_string</td>
+  <strong><a href='..\type\png_terminal.html#boundprocedure-get_id_string~12'>get_id_string</a></strong> => png_get_term_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -220,7 +220,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -240,12 +240,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -255,7 +255,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -295,7 +295,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_qt_terminal.html b/doc/module/fplot_qt_terminal.html
index 98007da1..20874f93 100644
--- a/doc/module/fplot_qt_terminal.html
+++ b/doc/module/fplot_qt_terminal.html
@@ -188,22 +188,22 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_command_string~23'>get_command_string</a></strong> => term_get_command_string</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_command_string~16'>get_command_string</a></strong> => term_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\qt_terminal.html#boundprocedure-get_id_string~9'>get_id_string</a></strong> => qt_get_term_string</td>
+  <strong><a href='..\type\qt_terminal.html#boundprocedure-get_id_string~3'>get_id_string</a></strong> => qt_get_term_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -213,7 +213,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -228,12 +228,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -243,7 +243,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -283,7 +283,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_simplify.html b/doc/module/fplot_simplify.html
index 5cbe9b32..aa762dfd 100644
--- a/doc/module/fplot_simplify.html
+++ b/doc/module/fplot_simplify.html
@@ -74,7 +74,7 @@ <h1>fplot_simplify
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.4% of total for modules and submodules.">218 statements</a>
+                 title=" 2.2% of total for modules and submodules.">218 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,8 +150,8 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -194,7 +194,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~325"></span>
+              <span class="anchor" id="variable-x~71"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -210,7 +210,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~28"></span>
+              <span class="anchor" id="variable-y~7"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -226,7 +226,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-tol~3"></span>
+              <span class="anchor" id="variable-tol~4"></span>
               real(kind=real64),
             </td>
 <td>intent(in)</td>
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~37"></span>
+              <span class="anchor" id="variable-err~8"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout),</td>
@@ -288,7 +288,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~326"></span>
+              <span class="anchor" id="variable-x~72"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -304,7 +304,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~29"></span>
+              <span class="anchor" id="variable-y~8"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -320,7 +320,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-z~10"></span>
+              <span class="anchor" id="variable-z~6"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -336,7 +336,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-tol~4"></span>
+              <span class="anchor" id="variable-tol~5"></span>
               real(kind=real64),
             </td>
 <td>intent(in)</td>
@@ -352,7 +352,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~38"></span>
+              <span class="anchor" id="variable-err~9"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout),</td>
@@ -399,7 +399,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-xy~2"></span>
+              <span class="anchor" id="variable-xy"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -414,7 +414,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-tol~5"></span>
+              <span class="anchor" id="variable-tol~6"></span>
               real(kind=real64),
             </td>
 <td>intent(in)</td>
@@ -430,7 +430,7 @@ <h4>Arguments</h4>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~39"></span>
+              <span class="anchor" id="variable-err~10"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout),</td>
@@ -483,7 +483,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_stats_plots.html b/doc/module/fplot_stats_plots.html
index f47f82e4..5520bbe3 100644
--- a/doc/module/fplot_stats_plots.html
+++ b/doc/module/fplot_stats_plots.html
@@ -74,7 +74,7 @@ <h1>fplot_stats_plots
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.3% of total for modules and submodules.">203 statements</a>
+                 title=" 2.1% of total for modules and submodules.">203 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,20 +150,20 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_data_2d.html'>fplot_plot_data_2d</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_2d.html'>fplot_plot_2d</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_axis.html'>fplot_plot_axis</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_data_histogram.html'>fplot_plot_data_histogram</a></li>
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data_2d.html'>fplot_plot_data_2d</a></li>
                   <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
-                  <li class="list-inline-item"><a href='fplot_multiplot.html'>fplot_multiplot</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
-                  <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_plot.html'>fplot_plot</a></li>
+                  <li class="list-inline-item"><a href='fplot_multiplot.html'>fplot_multiplot</a></li>
                   <li class="list-inline-item">collections</li>
-                  <li class="list-inline-item"><a href='fplot_plot_2d.html'>fplot_plot_2d</a></li>
+                  <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -201,12 +201,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-draw~3'>draw</a></strong> => cp_draw</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-draw~2'>draw</a></strong> => cp_draw</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-get~4'>get</a></strong> => cp_get</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-get~2'>get</a></strong> => cp_get</td>
                 <td></td>
               </tr>
               <tr>
@@ -216,17 +216,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-get_command_string~16'>get_command_string</a></strong> => cp_get_command</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-get_command_string~15'>get_command_string</a></strong> => cp_get_command</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => cp_get_font</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-get_font_name~2'>get_font_name</a></strong> => cp_get_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => cp_get_font_size</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-get_font_size~2'>get_font_size</a></strong> => cp_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -241,27 +241,27 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-get_terminal~3'>get_terminal</a></strong> => cp_get_term</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-get_terminal~2'>get_terminal</a></strong> => cp_get_term</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-initialize~6'>initialize</a></strong> => cp_init</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-initialize~5'>initialize</a></strong> => cp_init</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-save_file~3'>save_file</a></strong> => cp_save</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-save_file~2'>save_file</a></strong> => cp_save</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => cp_set_font</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-set_font_name~2'>set_font_name</a></strong> => cp_set_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\correlation_plot.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => cp_set_font_size</td>
+  <strong><a href='..\type\correlation_plot.html#boundprocedure-set_font_size~2'>set_font_size</a></strong> => cp_set_font_size</td>
                 <td></td>
               </tr>
           </tbody>
@@ -291,7 +291,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_surface_plot.html b/doc/module/fplot_surface_plot.html
index acdc1388..2895ed71 100644
--- a/doc/module/fplot_surface_plot.html
+++ b/doc/module/fplot_surface_plot.html
@@ -74,7 +74,7 @@ <h1>fplot_surface_plot
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.0% of total for modules and submodules.">183 statements</a>
+                 title=" 1.9% of total for modules and submodules.">183 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,12 +150,12 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item"><a href='fplot_surface_plot_data.html'>fplot_surface_plot_data</a></li>
-                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
-                  <li class="list-inline-item"><a href='fplot_plot_3d.html'>fplot_plot_3d</a></li>
                   <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_plot_3d.html'>fplot_plot_3d</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_legend.html'>fplot_legend</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -192,7 +192,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-clear_all'>clear_all</a></strong> => plt_clear_all</td>
+  <strong><a href='..\type\plot.html#boundprocedure-clear_all~2'>clear_all</a></strong> => plt_clear_all</td>
                 <td></td>
               </tr>
               <tr>
@@ -207,7 +207,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-draw'>draw</a></strong> => plt_draw</td>
+  <strong><a href='..\type\plot.html#boundprocedure-draw~3'>draw</a></strong> => plt_draw</td>
                 <td></td>
               </tr>
               <tr>
@@ -217,7 +217,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get'>get</a></strong> => plt_get</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get~5'>get</a></strong> => plt_get</td>
                 <td></td>
               </tr>
               <tr>
@@ -252,17 +252,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_bottom_margin~2'>get_bottom_margin</a></strong> => plt_get_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_colormap'>get_colormap</a></strong> => plt_get_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_colormap~2'>get_colormap</a></strong> => plt_get_colormap</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot.html#boundprocedure-get_command_string~8'>get_command_string</a></strong> => surf_get_cmd</td>
+  <strong><a href='..\type\surface_plot.html#boundprocedure-get_command_string~10'>get_command_string</a></strong> => surf_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -272,12 +272,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_count~3'>get_count</a></strong> => plt_get_count</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_count~5'>get_count</a></strong> => plt_get_count</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border'>get_draw_border</a></strong> => plt_get_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_draw_border~3'>get_draw_border</a></strong> => plt_get_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -287,17 +287,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_name'>get_font_name</a></strong> => plt_get_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => plt_get_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_font_size'>get_font_size</a></strong> => plt_get_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => plt_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_label'>get_label</a></strong> => plt_get_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_label~3'>get_label</a></strong> => plt_get_label</td>
                 <td></td>
               </tr>
               <tr>
@@ -307,7 +307,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin'>get_left_margin</a></strong> => plt_get_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_left_margin~2'>get_left_margin</a></strong> => plt_get_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -322,7 +322,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin'>get_right_margin</a></strong> => plt_get_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_right_margin~2'>get_right_margin</a></strong> => plt_get_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -382,7 +382,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_terminal'>get_terminal</a></strong> => plt_get_term</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_terminal~3'>get_terminal</a></strong> => plt_get_term</td>
                 <td></td>
               </tr>
               <tr>
@@ -392,12 +392,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_title'>get_title</a></strong> => plt_get_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_title~4'>get_title</a></strong> => plt_get_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin'>get_top_margin</a></strong> => plt_get_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-get_top_margin~2'>get_top_margin</a></strong> => plt_get_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -417,7 +417,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-get_x_axis~2'>get_x_axis</a></strong> => p3d_get_x_axis</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-get_x_axis'>get_x_axis</a></strong> => p3d_get_x_axis</td>
                 <td></td>
               </tr>
               <tr>
@@ -452,7 +452,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-get_y_axis~2'>get_y_axis</a></strong> => p3d_get_y_axis</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-get_y_axis'>get_y_axis</a></strong> => p3d_get_y_axis</td>
                 <td></td>
               </tr>
               <tr>
@@ -527,12 +527,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot.html#boundprocedure-initialize~4'>initialize</a></strong> => surf_init</td>
+  <strong><a href='..\type\surface_plot.html#boundprocedure-initialize~3'>initialize</a></strong> => surf_init</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined'>is_title_defined</a></strong> => plt_has_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-is_title_defined~3'>is_title_defined</a></strong> => plt_has_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -562,7 +562,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  generic, public ::
-  <strong><a href='..\type\surface_plot.html#boundprocedure-push~4'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_3d.html#boundprocedure-p3d_push_data'>p3d_push_data</a>, <a href='D:\Code\fplot\doc\type\surface_plot.html#boundprocedure-surf_push_data'>surf_push_data</a></td>
+  <strong><a href='..\type\surface_plot.html#boundprocedure-push~2'>push</a></strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_3d.html#boundprocedure-p3d_push_data'>p3d_push_data</a>, <a href='D:\Code\fplot\doc\type\surface_plot.html#boundprocedure-surf_push_data'>surf_push_data</a></td>
                 <td></td>
               </tr>
               <tr>
@@ -577,12 +577,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-save_file'>save_file</a></strong> => plt_save</td>
+  <strong><a href='..\type\plot.html#boundprocedure-save_file~3'>save_file</a></strong> => plt_save</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set'>set</a></strong> => plt_set</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set~3'>set</a></strong> => plt_set</td>
                 <td></td>
               </tr>
               <tr>
@@ -612,12 +612,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_bottom_margin~2'>set_bottom_margin</a></strong> => plt_set_bottom_margin</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_colormap'>set_colormap</a></strong> => plt_set_colormap</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_colormap~2'>set_colormap</a></strong> => plt_set_colormap</td>
                 <td></td>
               </tr>
               <tr>
@@ -627,7 +627,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border'>set_draw_border</a></strong> => plt_set_draw_border</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_draw_border~3'>set_draw_border</a></strong> => plt_set_draw_border</td>
                 <td></td>
               </tr>
               <tr>
@@ -637,22 +637,22 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_name'>set_font_name</a></strong> => plt_set_font</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => plt_set_font</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_font_size'>set_font_size</a></strong> => plt_set_font_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => plt_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_label'>set_label</a></strong> => plt_set_label</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_label~3'>set_label</a></strong> => plt_set_label</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin'>set_left_margin</a></strong> => plt_set_left_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_left_margin~2'>set_left_margin</a></strong> => plt_set_left_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -662,7 +662,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin'>set_right_margin</a></strong> => plt_set_right_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_right_margin~2'>set_right_margin</a></strong> => plt_set_right_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -727,12 +727,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_title'>set_title</a></strong> => plt_set_title</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_title~4'>set_title</a></strong> => plt_set_title</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin'>set_top_margin</a></strong> => plt_set_top_margin</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_top_margin~2'>set_top_margin</a></strong> => plt_set_top_margin</td>
                 <td></td>
               </tr>
               <tr>
@@ -752,12 +752,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot.html#boundprocedure-set_window_size'>set_window_size</a></strong> => plt_set_window_size</td>
+  <strong><a href='..\type\plot.html#boundprocedure-set_window_size~2'>set_window_size</a></strong> => plt_set_window_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-set_x_axis_title~2'>set_x_axis_title</a></strong> => p3d_set_x_axis_title</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-set_x_axis_title'>set_x_axis_title</a></strong> => p3d_set_x_axis_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -792,7 +792,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_3d.html#boundprocedure-set_y_axis_title~2'>set_y_axis_title</a></strong> => p3d_set_y_axis_title</td>
+  <strong><a href='..\type\plot_3d.html#boundprocedure-set_y_axis_title'>set_y_axis_title</a></strong> => p3d_set_y_axis_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -902,7 +902,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_surface_plot_data.html b/doc/module/fplot_surface_plot_data.html
index 69541c5c..9971afd4 100644
--- a/doc/module/fplot_surface_plot_data.html
+++ b/doc/module/fplot_surface_plot_data.html
@@ -74,7 +74,7 @@ <h1>fplot_surface_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.3% of total for modules and submodules.">208 statements</a>
+                 title=" 2.1% of total for modules and submodules.">208 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,10 +150,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
+                  <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
               </ul>
             </li>
         </ul>
@@ -190,12 +190,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-clear_data~5'>clear_data</a></strong> => surfd_clear_data</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-clear_data~12'>clear_data</a></strong> => surfd_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -205,17 +205,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-define_data~5'>define_data</a></strong> => surfd_set_data_1</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-define_data~11'>define_data</a></strong> => surfd_set_data_1</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_command_string~10'>get_command_string</a></strong> => surfd_get_cmd</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_command_string~28'>get_command_string</a></strong> => surfd_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_data_string~5'>get_data_string</a></strong> => surfd_get_data_cmd</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_data_string~12'>get_data_string</a></strong> => surfd_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -235,17 +235,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_use_wireframe'>get_use_wireframe</a></strong> => surfd_get_wireframe</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_use_wireframe~2'>get_use_wireframe</a></strong> => surfd_get_wireframe</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_x~3'>get_x</a></strong> => surfd_get_x</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_x~4'>get_x</a></strong> => surfd_get_x</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_y~3'>get_y</a></strong> => surfd_get_y</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-get_y~4'>get_y</a></strong> => surfd_get_y</td>
                 <td></td>
               </tr>
               <tr>
@@ -265,17 +265,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-set_use_wireframe'>set_use_wireframe</a></strong> => surfd_set_wireframe</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-set_use_wireframe~2'>set_use_wireframe</a></strong> => surfd_set_wireframe</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-set_x~3'>set_x</a></strong> => surfd_set_x</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-set_x~4'>set_x</a></strong> => surfd_set_x</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\surface_plot_data.html#boundprocedure-set_y~3'>set_y</a></strong> => surfd_set_y</td>
+  <strong><a href='..\type\surface_plot_data.html#boundprocedure-set_y~4'>set_y</a></strong> => surfd_set_y</td>
                 <td></td>
               </tr>
               <tr>
@@ -310,7 +310,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_svg_terminal.html b/doc/module/fplot_svg_terminal.html
index 0182ab8d..54834ba4 100644
--- a/doc/module/fplot_svg_terminal.html
+++ b/doc/module/fplot_svg_terminal.html
@@ -74,7 +74,7 @@ <h1>fplot_svg_terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.3% of total for modules and submodules.">23 statements</a>
+                 title=" 0.2% of total for modules and submodules.">23 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,10 +150,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_terminal.html'>fplot_terminal</a></li>
                   <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
               </ul>
             </li>
         </ul>
@@ -190,7 +190,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\file_terminal.html#boundprocedure-get_command_string~24'>get_command_string</a></strong> => fterm_get_command_string</td>
+  <strong><a href='..\type\file_terminal.html#boundprocedure-get_command_string~17'>get_command_string</a></strong> => fterm_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -200,17 +200,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\svg_terminal.html#boundprocedure-get_id_string~11'>get_id_string</a></strong> => svg_get_term_string</td>
+  <strong><a href='..\type\svg_terminal.html#boundprocedure-get_id_string~2'>get_id_string</a></strong> => svg_get_term_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -220,7 +220,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -240,12 +240,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -255,7 +255,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -295,7 +295,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_terminal.html b/doc/module/fplot_terminal.html
index b127b2ed..87f7f3d5 100644
--- a/doc/module/fplot_terminal.html
+++ b/doc/module/fplot_terminal.html
@@ -74,7 +74,7 @@ <h1>fplot_terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.4% of total for modules and submodules.">214 statements</a>
+                 title=" 2.2% of total for modules and submodules.">214 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -162,10 +162,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
+                  <li class="list-inline-item">strings</li>
                   <li class="list-inline-item"><a href='fplot_plot_object.html'>fplot_plot_object</a></li>
+                  <li class="list-inline-item"><a href='fplot_constants.html'>fplot_constants</a></li>
                   <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item">strings</li>
               </ul>
             </li>
         </ul>
@@ -207,7 +207,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~490"></span>
+              <span class="anchor" id="variable-this~304"></span>
               class(<a href='..\type\terminal.html'>terminal</a>),
             </td>
 <td>intent(in)</td>
@@ -260,7 +260,7 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\file_terminal.html#boundprocedure-get_command_string~24'>get_command_string</a></strong> => fterm_get_command_string</td>
+  <strong><a href='..\type\file_terminal.html#boundprocedure-get_command_string~17'>get_command_string</a></strong> => fterm_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -270,17 +270,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\term_get_string_result.html'>term_get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_id_string~12'>get_id_string</a></strong></td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_id_string~11'>get_id_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -290,7 +290,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -310,12 +310,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -325,7 +325,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -363,22 +363,22 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_command_string~23'>get_command_string</a></strong> => term_get_command_string</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_command_string~16'>get_command_string</a></strong> => term_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure(<a href='..\interface\term_get_string_result.html'>term_get_string_result</a>), public, deferred ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_id_string~12'>get_id_string</a></strong></td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_id_string~11'>get_id_string</a></strong></td>
                 <td></td>
               </tr>
               <tr>
@@ -388,7 +388,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -403,12 +403,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -418,7 +418,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -458,7 +458,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_tri_surface_plot_data.html b/doc/module/fplot_tri_surface_plot_data.html
index f3c9f80f..ecad17d4 100644
--- a/doc/module/fplot_tri_surface_plot_data.html
+++ b/doc/module/fplot_tri_surface_plot_data.html
@@ -74,7 +74,7 @@ <h1>fplot_tri_surface_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.6% of total for modules and submodules.">145 statements</a>
+                 title=" 1.5% of total for modules and submodules.">145 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,10 +150,10 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item"><a href='fplot_delaunay_tri_surface.html'>fplot_delaunay_tri_surface</a></li>
                   <li class="list-inline-item">strings</li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-clear_data~13'>clear_data</a></strong> => tspd_clear_data</td>
+  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-clear_data'>clear_data</a></strong> => tspd_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,17 +206,17 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-define_data~11'>define_data</a></strong> => tspd_define_data</td>
+  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-define_data'>define_data</a></strong> => tspd_define_data</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-get_command_string~29'>get_command_string</a></strong> => tspd_get_cmd</td>
+  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-get_command_string'>get_command_string</a></strong> => tspd_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-get_data_string~13'>get_data_string</a></strong> => tspd_get_data_cmd</td>
+  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-get_data_string'>get_data_string</a></strong> => tspd_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -231,7 +231,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-get_use_wireframe~2'>get_use_wireframe</a></strong> => tspd_get_wireframe</td>
+  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-get_use_wireframe'>get_use_wireframe</a></strong> => tspd_get_wireframe</td>
                 <td></td>
               </tr>
               <tr>
@@ -246,7 +246,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-set_use_wireframe~2'>set_use_wireframe</a></strong> => tspd_set_wireframe</td>
+  <strong><a href='..\type\tri_surface_plot_data.html#boundprocedure-set_use_wireframe'>set_use_wireframe</a></strong> => tspd_set_wireframe</td>
                 <td></td>
               </tr>
           </tbody>
@@ -276,7 +276,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_triangulations_delaunay_2d.html b/doc/module/fplot_triangulations_delaunay_2d.html
index e6760525..c1fd7984 100644
--- a/doc/module/fplot_triangulations_delaunay_2d.html
+++ b/doc/module/fplot_triangulations_delaunay_2d.html
@@ -74,7 +74,7 @@ <h1>fplot_triangulations_delaunay_2d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.6% of total for modules and submodules.">148 statements</a>
+                 title=" 1.5% of total for modules and submodules.">148 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,9 +150,9 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item">geompack</li>
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='delaunay.html'>delaunay</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -249,7 +249,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_vector_field_plot_data.html b/doc/module/fplot_vector_field_plot_data.html
index 5285b128..6d71096c 100644
--- a/doc/module/fplot_vector_field_plot_data.html
+++ b/doc/module/fplot_vector_field_plot_data.html
@@ -74,7 +74,7 @@ <h1>fplot_vector_field_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.3% of total for modules and submodules.">208 statements</a>
+                 title=" 2.1% of total for modules and submodules.">208 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -150,11 +150,11 @@ <h3 class="card-header card-title bg-light">Uses</h3>
         <ul class="list-group list-group-flush">
             <li class="list-group-item">
               <ul class="list-inline">
-                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
-                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item">strings</li>
-                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='fplot_colors.html'>fplot_colors</a></li>
                   <li class="list-inline-item"><a href='fplot_errors.html'>fplot_errors</a></li>
+                  <li class="list-inline-item"><a href='fplot_plot_data.html'>fplot_plot_data</a></li>
+                  <li class="list-inline-item"><a href='http://fortranwiki.org/fortran/show/iso_fortran_env'>iso_fortran_env</a></li>
               </ul>
             </li>
         </ul>
@@ -191,12 +191,12 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all~2'>clear_all</a></strong> => pd_clear</td>
+  <strong><a href='..\type\plot_data.html#boundprocedure-clear_all'>clear_all</a></strong> => pd_clear</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\vector_field_plot_data.html#boundprocedure-clear_data~10'>clear_data</a></strong> => vfpd_clear_data</td>
+  <strong><a href='..\type\vector_field_plot_data.html#boundprocedure-clear_data~5'>clear_data</a></strong> => vfpd_clear_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -206,7 +206,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\vector_field_plot_data.html#boundprocedure-define_data~9'>define_data</a></strong> => vfpd_define_data</td>
+  <strong><a href='..\type\vector_field_plot_data.html#boundprocedure-define_data~5'>define_data</a></strong> => vfpd_define_data</td>
                 <td></td>
               </tr>
               <tr>
@@ -221,12 +221,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\vector_field_plot_data.html#boundprocedure-get_command_string~21'>get_command_string</a></strong> => vfpd_get_cmd</td>
+  <strong><a href='..\type\vector_field_plot_data.html#boundprocedure-get_command_string~9'>get_command_string</a></strong> => vfpd_get_cmd</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\vector_field_plot_data.html#boundprocedure-get_data_string~10'>get_data_string</a></strong> => vfpd_get_data_cmd</td>
+  <strong><a href='..\type\vector_field_plot_data.html#boundprocedure-get_data_string~5'>get_data_string</a></strong> => vfpd_get_data_cmd</td>
                 <td></td>
               </tr>
               <tr>
@@ -311,7 +311,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_windows_terminal.html b/doc/module/fplot_windows_terminal.html
index 112efd32..9ebadb82 100644
--- a/doc/module/fplot_windows_terminal.html
+++ b/doc/module/fplot_windows_terminal.html
@@ -188,17 +188,17 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_command_string~23'>get_command_string</a></strong> => term_get_command_string</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_command_string~16'>get_command_string</a></strong> => term_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -213,7 +213,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -228,12 +228,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -243,7 +243,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -283,7 +283,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/module/fplot_wxt_terminal.html b/doc/module/fplot_wxt_terminal.html
index f25bef8a..cfefd75a 100644
--- a/doc/module/fplot_wxt_terminal.html
+++ b/doc/module/fplot_wxt_terminal.html
@@ -188,22 +188,22 @@ <h4>Type-Bound Procedures</h4>
           <tbody>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_command_string~23'>get_command_string</a></strong> => term_get_command_string</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_command_string~16'>get_command_string</a></strong> => term_get_command_string</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~4'>get_font_name</a></strong> => term_get_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_name~3'>get_font_name</a></strong> => term_get_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~4'>get_font_size</a></strong> => term_get_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_font_size~3'>get_font_size</a></strong> => term_get_font_size</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\wxt_terminal.html#boundprocedure-get_id_string~10'>get_id_string</a></strong> => wxt_get_term_string</td>
+  <strong><a href='..\type\wxt_terminal.html#boundprocedure-get_id_string~9'>get_id_string</a></strong> => wxt_get_term_string</td>
                 <td></td>
               </tr>
               <tr>
@@ -213,7 +213,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-get_title~4'>get_title</a></strong> => term_get_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-get_title~3'>get_title</a></strong> => term_get_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -228,12 +228,12 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~4'>set_font_name</a></strong> => term_set_font_name</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_name~3'>set_font_name</a></strong> => term_set_font_name</td>
                 <td></td>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~4'>set_font_size</a></strong> => term_set_font_size</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_font_size~3'>set_font_size</a></strong> => term_set_font_size</td>
                 <td></td>
               </tr>
               <tr>
@@ -243,7 +243,7 @@ <h4>Type-Bound Procedures</h4>
               </tr>
               <tr>
                 <td>  procedure, public ::
-  <strong><a href='..\type\terminal.html#boundprocedure-set_title~4'>set_title</a></strong> => term_set_title</td>
+  <strong><a href='..\type\terminal.html#boundprocedure-set_title~3'>set_title</a></strong> => term_set_title</td>
                 <td></td>
               </tr>
               <tr>
@@ -283,7 +283,7 @@ <h4>Type-Bound Procedures</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/is_plot_data_function.html b/doc/proc/is_plot_data_function.html
index 3d988901..d49843cf 100644
--- a/doc/proc/is_plot_data_function.html
+++ b/doc/proc/is_plot_data_function.html
@@ -74,7 +74,7 @@ <h1>is_plot_data_function
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.6% of total for procedures.">10 statements</a>
+                 title=" 1.9% of total for procedures.">10 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~49"></span>
+              <span class="anchor" id="variable-x~371"></span>
               class(<a href='..\type\plot_data.html'>plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -172,7 +172,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-rst~9"></span>
+          <span class="anchor" id="variable-rst~97"></span>
           logical
         </small>
       </h3>
@@ -205,7 +205,7 @@ <h3>Return Value
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/linspace.html b/doc/proc/linspace.html
index 131af021..8a2e9f93 100644
--- a/doc/proc/linspace.html
+++ b/doc/proc/linspace.html
@@ -74,7 +74,7 @@ <h1>linspace
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.6% of total for procedures.">14 statements</a>
+                 title=" 2.6% of total for procedures.">14 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -201,7 +201,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-x~239"></span>
+          <span class="anchor" id="variable-x~209"></span>
           real(kind=real64), allocatable, dimension(:)
         </small>
       </h3>
@@ -234,7 +234,7 @@ <h3>Return Value
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/logspace.html b/doc/proc/logspace.html
index a0e26d1c..0e132a9b 100644
--- a/doc/proc/logspace.html
+++ b/doc/proc/logspace.html
@@ -74,7 +74,7 @@ <h1>logspace
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.9% of total for procedures.">15 statements</a>
+                 title=" 2.8% of total for procedures.">15 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -201,7 +201,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-x~240"></span>
+          <span class="anchor" id="variable-x~210"></span>
           real(kind=real64), allocatable, dimension(:)
         </small>
       </h3>
@@ -234,7 +234,7 @@ <h3>Return Value
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/lpd_get_cmd.html b/doc/proc/lpd_get_cmd.html
index f0fbffcb..42365d33 100644
--- a/doc/proc/lpd_get_cmd.html
+++ b/doc/proc/lpd_get_cmd.html
@@ -74,7 +74,7 @@ <h1>lpd_get_cmd
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="12.9% of total for procedures.">50 statements</a>
+                 title=" 9.4% of total for procedures.">50 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -156,7 +156,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~539"></span>
+              <span class="anchor" id="variable-this~201"></span>
               class(<a href='..\type\line_plot_data.html'>line_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -174,7 +174,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-rst~81"></span>
+          <span class="anchor" id="variable-rst~42"></span>
           character(len=:), allocatable
         </small>
       </h3>
@@ -207,7 +207,7 @@ <h3>Return Value
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/meshgrid.html b/doc/proc/meshgrid.html
index e899dbcb..ac10bb02 100644
--- a/doc/proc/meshgrid.html
+++ b/doc/proc/meshgrid.html
@@ -74,7 +74,7 @@ <h1>meshgrid
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.9% of total for procedures.">15 statements</a>
+                 title=" 2.8% of total for procedures.">15 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-x~241"></span>
+              <span class="anchor" id="variable-x~211"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -168,7 +168,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-y~12"></span>
+              <span class="anchor" id="variable-y~19"></span>
               real(kind=real64),
             </td>
 <td>intent(in),</td>
@@ -186,7 +186,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-xy"></span>
+          <span class="anchor" id="variable-xy~2"></span>
           real(kind=real64), allocatable, dimension(:,:,:)
         </small>
       </h3>
@@ -220,7 +220,7 @@ <h3>Return Value
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/r8tris2.html b/doc/proc/r8tris2.html
new file mode 100644
index 00000000..576c9b3b
--- /dev/null
+++ b/doc/proc/r8tris2.html
@@ -0,0 +1,304 @@
+<!-- -*- mode: jinja2 -*- -->
+
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+      <meta name="description" content="FPLOT is a Fortran library providing a convenient interface for plotting with GNUPLOT.">
+    <meta name="author" content="Jason Christopherson" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>r8tris2 &ndash; FPLOT</title>
+
+    <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/css/bootstrap.min.css" rel="stylesheet"
+          integrity="sha384-1BmE4kWBq78iYhFldvKuhfTAU6auU8tT94WrHftjDbrCEXSU1oBoqyl2QvZ6jIW3" crossorigin="anonymous">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+      <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <script src="https://code.jquery.com/jquery-3.7.1.min.js" integrity="sha256-/JqT3SQfawRcv/BIHPThkBvs0OEvtFFmqPF/lYI/Cxo=" crossorigin="anonymous"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <div class="container-fluid mb-sm-4 mb-xl-2">
+      <nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top">
+        <div class="container">
+          <a class="navbar-brand" href="../index.html">FPLOT </a>
+          <button type="button" class="navbar-toggler" data-bs-toggle="collapse" data-bs-target="#navbar"
+                  aria-expanded="false" aria-controls="navbar" aria-label="Toggle navigation">
+                  <span class="navbar-toggler-icon">
+          </button>
+
+          <div id="navbar" class="navbar-collapse collapse">
+            <ul class="navbar-nav">
+                  <li class="nav-item">
+                    <a class="nav-link" href="../lists/files.html">Source Files</a>
+                  </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/modules.html">Modules</a>
+                </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/procedures.html">Procedures</a>
+                </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/types.html">Derived Types</a>
+                </li>
+            </ul>
+              <div class="d-flex align-items-end flex-grow-1">
+                <form action="../search.html" role="search" class="ms-auto">
+                  <input type="text" class="form-control" aria-label="Search" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+                </form>
+              </div>
+          </div><!--/.nav-collapse -->
+        </div>
+      </nav>
+    </div>
+
+    <div class="container">
+  <div class="row">
+    <h1>r8tris2
+      <small>Subroutine</small>
+      
+    </h1>
+      <div class="container p-2 mb-4 bg-light border rounded-3">
+    <div class="row align-items-center justify-content-between" id="info-bar">
+      <div class="col">
+        <ul class="list-inline" style="margin-bottom:0px;display:inline">
+
+            <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
+              <a data-bs-toggle="tooltip"
+                 data-bs-placement="bottom" data-html="true"
+                 title="26.8% of total for procedures.">142 statements</a>
+            </li>
+
+            <li class="list-inline-item" id="source-file">
+              <i class="fa fa-code"></i>
+              <a href="../src/delaunay.f90"> Source File</a>
+            </li>
+        </ul>
+      </div>
+      <div class="col">
+        <nav aria-label="breadcrumb">
+          <ol class="breadcrumb justify-content-end mb-0">
+                <li class="breadcrumb-item"><a href='..\sourcefile\delaunay.f90.html'>delaunay.f90</a></li>
+                <li class="breadcrumb-item"><a href='..\module\delaunay.html'>delaunay</a></li>
+            <li class="breadcrumb-item active" aria-current="page">r8tris2</li>
+          </ol>
+        </nav>
+      </div>
+    </div>
+  </div>
+  <script>
+    $(function () {
+    $('[data-bs-toggle="tooltip"]').tooltip()
+    })
+  </script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+      <div id="sidebar">
+      <h3>Contents</h3>
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+
+
+  </div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <h2>public  subroutine r8tris2(node_num, node_xy, triangle_num, triangle_node, triangle_neighbor)  
+</h2>
+    
+
+    <p>Constructs a Delaunay triangulation of 2D vertices.</p>
+<p>The routine constructs the Delaunay triangulation of a set of
+2D vertices using an incremental approach and diagonal edge
+swaps.  Vertices are first sorted in lexicographically
+increasing (X,Y) order, and then are inserted one at a time
+from outside the convex hull.</p>
+
+
+    <h3>Arguments</h3>
+        <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-node_num"></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>node_num</strong></td>
+            <td>
+                <p>The number of vertices.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-node_xy"></span>
+              real(kind=real64),
+            </td>
+<td>intent(inout),</td>
+              <td></td>            <td>
+              dimension(2, node_num)
+            </td>
+            <td>::</td>
+            <td><strong>node_xy</strong></td>
+            <td>
+                <p>The coordinates of the vertices.  On output, the vertices
+have been sorted into dictionary order.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-triangle_num"></span>
+              integer(kind=int32),
+            </td>
+<td>intent(out)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>triangle_num</strong></td>
+            <td>
+                <p>The number of triangles in the triangulation;
+TRIANGLE_NUM is equal to 2*NODE_NUM - NB - 2, where NB is
+the number of boundary vertices.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-triangle_node"></span>
+              integer(kind=int32),
+            </td>
+<td>intent(out),</td>
+              <td></td>            <td>
+              dimension(3, 2 * node_num)
+            </td>
+            <td>::</td>
+            <td><strong>triangle_node</strong></td>
+            <td>
+                <p>The nodes that make up each triangle.  The elements are
+indices of the vertex array.  The vertices of the
+triangles are in counter clockwise order.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" id="variable-triangle_neighbor"></span>
+              integer(kind=int32),
+            </td>
+<td>intent(out),</td>
+              <td></td>            <td>
+              dimension(3, 2 * node_num)
+            </td>
+            <td>::</td>
+            <td><strong>triangle_neighbor</strong></td>
+            <td>
+                <p>The triangle neighbor list.  Positive elements are
+indices of TRIANGLE_NODE; negative elements are used for
+links of a counter clockwise linked list of boundary
+edges; LINK = -(3*I + J-1) where I, J = triangle, edge
+index; TRIANGLE_NEIGHBOR(J,I) refers to the neighbor
+along the edge from vertex J to J+1 (mod 3).</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <br>
+
+
+    
+    
+
+    
+    
+
+
+
+    
+    
+    </div>
+  </div>
+
+      <hr>
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+        <div class="row justify-content-between">
+          <div class="col"><p>FPLOT was developed by Jason Christopherson<br>&copy; 2026 
+</p>
+          </div>
+          <div class="col">
+            <p class="text-end">
+              Documentation generated by
+              <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+ on 2026-10-01 05:57              </p>
+          </div>
+        </div>
+        <br>
+      </div> <!-- /container -->
+    </footer>
+
+    <!-- Bootstrap core JavaScript -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script src="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/js/bootstrap.bundle.min.js"
+            integrity="sha384-ka7Sk0Gln4gmtz2MlQnikT1wXgYsOg+OMhuP+IlRH9sENBO0LRn5q+8nbTov4+1p" crossorigin="anonymous"></script>    
+
+    <!-- MathJax JavaScript
+             ================================================== -->
+             <!-- Placed at the end of the document so the pages load faster -->
+        <script type="text/x-mathjax-config">
+          MathJax.Hub.Config({
+          TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+          jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+          extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+          });
+        </script>
+        <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+
+          <script src="../tipuesearch/tipuesearch_content.js"></script>
+          <script src="../tipuesearch/tipuesearch_set.js"></script>
+          <script src="../tipuesearch/tipuesearch.js"></script>
+
+  </body>
+</html>
\ No newline at end of file
diff --git a/doc/proc/report_array_size_mismatch_error.html b/doc/proc/report_array_size_mismatch_error.html
index 8ca1c8e5..ec1affdd 100644
--- a/doc/proc/report_array_size_mismatch_error.html
+++ b/doc/proc/report_array_size_mismatch_error.html
@@ -74,7 +74,7 @@ <h1>report_array_size_mismatch_error
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.8% of total for procedures.">11 statements</a>
+                 title=" 2.1% of total for procedures.">11 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~17"></span>
+              <span class="anchor" id="variable-err~6"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -194,7 +194,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-name~4"></span>
+              <span class="anchor" id="variable-name~3"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -302,7 +302,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/report_error.html b/doc/proc/report_error.html
index 73e4e828..e138850c 100644
--- a/doc/proc/report_error.html
+++ b/doc/proc/report_error.html
@@ -74,7 +74,7 @@ <h1>report_error
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.1% of total for procedures.">8 statements</a>
+                 title=" 1.5% of total for procedures.">8 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -154,7 +154,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~213"></span>
+              <span class="anchor" id="variable-this~108"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -243,7 +243,7 @@ <h3>Arguments</h3>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/report_file_create_error.html b/doc/proc/report_file_create_error.html
index f6a6209e..b6e56874 100644
--- a/doc/proc/report_file_create_error.html
+++ b/doc/proc/report_file_create_error.html
@@ -74,7 +74,7 @@ <h1>report_file_create_error
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.6% of total for procedures.">10 statements</a>
+                 title=" 1.9% of total for procedures.">10 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~16"></span>
+              <span class="anchor" id="variable-err~5"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -194,7 +194,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-fname~7"></span>
+              <span class="anchor" id="variable-fname~3"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -209,7 +209,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-flag~12"></span>
+              <span class="anchor" id="variable-flag~5"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -287,7 +287,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/report_matrix_size_mismatch_error.html b/doc/proc/report_matrix_size_mismatch_error.html
index 43561b77..4614049b 100644
--- a/doc/proc/report_matrix_size_mismatch_error.html
+++ b/doc/proc/report_matrix_size_mismatch_error.html
@@ -74,7 +74,7 @@ <h1>report_matrix_size_mismatch_error
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.4% of total for procedures.">13 statements</a>
+                 title=" 2.5% of total for procedures.">13 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~18"></span>
+              <span class="anchor" id="variable-err~7"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -194,7 +194,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-name~5"></span>
+              <span class="anchor" id="variable-name~4"></span>
               character(len=*),
             </td>
 <td>intent(in)</td>
@@ -332,7 +332,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/report_memory_error.html b/doc/proc/report_memory_error.html
index 4ca41403..263ccbf2 100644
--- a/doc/proc/report_memory_error.html
+++ b/doc/proc/report_memory_error.html
@@ -74,7 +74,7 @@ <h1>report_memory_error
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.3% of total for procedures.">9 statements</a>
+                 title=" 1.7% of total for procedures.">9 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -164,7 +164,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-err~15"></span>
+              <span class="anchor" id="variable-err~4"></span>
               class(<a href='..\type\errors.html'>errors</a>),
             </td>
 <td>intent(inout)</td>
@@ -194,7 +194,7 @@ <h3>Arguments</h3>
         </tr>
         <tr>
             <td>
-              <span class="anchor" id="variable-flag~11"></span>
+              <span class="anchor" id="variable-flag~4"></span>
               integer(kind=int32),
             </td>
 <td>intent(in)</td>
@@ -272,7 +272,7 @@ <h2>Variables</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/proc/spd_get_cmd.html b/doc/proc/spd_get_cmd.html
index f5827aba..ee847727 100644
--- a/doc/proc/spd_get_cmd.html
+++ b/doc/proc/spd_get_cmd.html
@@ -74,7 +74,7 @@ <h1>spd_get_cmd
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="16.5% of total for procedures.">64 statements</a>
+                 title="12.1% of total for procedures.">64 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -156,7 +156,7 @@ <h3>Arguments</h3>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~540"></span>
+              <span class="anchor" id="variable-this~202"></span>
               class(<a href='..\type\scatter_plot_data.html'>scatter_plot_data</a>),
             </td>
 <td>intent(in)</td>
@@ -174,7 +174,7 @@ <h3>Arguments</h3>
 
       <h3>Return Value
         <small>
-          <span class="anchor" id="variable-x~404"></span>
+          <span class="anchor" id="variable-x~146"></span>
           character(len=:), allocatable
         </small>
       </h3>
@@ -207,7 +207,7 @@ <h3>Return Value
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/search.html b/doc/search.html
index 75a14aa5..c16b7dfd 100644
--- a/doc/search.html
+++ b/doc/search.html
@@ -95,7 +95,7 @@ <h1>Search Results</h1>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/delaunay.f90.html b/doc/sourcefile/delaunay.f90.html
new file mode 100644
index 00000000..6b4ff790
--- /dev/null
+++ b/doc/sourcefile/delaunay.f90.html
@@ -0,0 +1,1085 @@
+<!-- -*- mode: jinja2 -*- -->
+
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+      <meta name="description" content="FPLOT is a Fortran library providing a convenient interface for plotting with GNUPLOT.">
+    <meta name="author" content="Jason Christopherson" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>delaunay.f90 &ndash; FPLOT</title>
+
+    <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/css/bootstrap.min.css" rel="stylesheet"
+          integrity="sha384-1BmE4kWBq78iYhFldvKuhfTAU6auU8tT94WrHftjDbrCEXSU1oBoqyl2QvZ6jIW3" crossorigin="anonymous">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+      <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <script src="https://code.jquery.com/jquery-3.7.1.min.js" integrity="sha256-/JqT3SQfawRcv/BIHPThkBvs0OEvtFFmqPF/lYI/Cxo=" crossorigin="anonymous"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <div class="container-fluid mb-sm-4 mb-xl-2">
+      <nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top">
+        <div class="container">
+          <a class="navbar-brand" href="../index.html">FPLOT </a>
+          <button type="button" class="navbar-toggler" data-bs-toggle="collapse" data-bs-target="#navbar"
+                  aria-expanded="false" aria-controls="navbar" aria-label="Toggle navigation">
+                  <span class="navbar-toggler-icon">
+          </button>
+
+          <div id="navbar" class="navbar-collapse collapse">
+            <ul class="navbar-nav">
+                  <li class="nav-item">
+                    <a class="nav-link" href="../lists/files.html">Source Files</a>
+                  </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/modules.html">Modules</a>
+                </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/procedures.html">Procedures</a>
+                </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/types.html">Derived Types</a>
+                </li>
+            </ul>
+              <div class="d-flex align-items-end flex-grow-1">
+                <form action="../search.html" role="search" class="ms-auto">
+                  <input type="text" class="form-control" aria-label="Search" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+                </form>
+              </div>
+          </div><!--/.nav-collapse -->
+        </div>
+      </nav>
+    </div>
+
+    <div class="container">
+  <div class="row">
+    <h1>delaunay.f90
+      <small>Source File</small>
+      
+    </h1>
+      <div class="container p-2 mb-4 bg-light border rounded-3">
+    <div class="row align-items-center justify-content-between" id="info-bar">
+      <div class="col">
+        <ul class="list-inline" style="margin-bottom:0px;display:inline">
+
+            <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
+              <a data-bs-toggle="tooltip"
+                 data-bs-placement="bottom" data-html="true"
+                 title=" 5.6% of total for source files.">547 statements</a>
+            </li>
+
+            <li class="list-inline-item" id="source-file">
+              <i class="fa fa-code"></i>
+              <a href="../src/delaunay.f90"> Source File</a>
+            </li>
+        </ul>
+      </div>
+      <div class="col">
+        <nav aria-label="breadcrumb">
+          <ol class="breadcrumb justify-content-end mb-0">
+            <li class="breadcrumb-item active" aria-current="page">delaunay.f90</li>
+          </ol>
+        </nav>
+      </div>
+    </div>
+  </div>
+  <script>
+    $(function () {
+    $('[data-bs-toggle="tooltip"]').tooltip()
+    })
+  </script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+        <div id="sidebar">
+      <h3>Contents</h3>
+  
+  
+  
+  
+  
+      <div class="card mb-4">
+      <a data-bs-toggle="collapse" href="#mods-0"
+         aria-expanded="false" aria-controls="mods-0">
+         <h4 class="card-header bg-primary text-white">Modules</h4>
+      </a>
+      <div id="mods-0" class="collapse">
+        <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../module/delaunay.html">delaunay</a>
+        </div>
+      </div>
+    </div>
+
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+    <div class="card card-primary">
+      <div class="card-header text-left"><h3 class="card-title">Source Code</h3></div>
+      <div class="list-group">
+        <a class="list-group-item" href="../sourcefile/delaunay.f90.html#src">delaunay.f90</a>
+      </div>
+    </div>
+
+
+  </div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+
+      <section>
+        <h2><span class="anchor" id="src"></span>Source Code</h2>
+        <div class="hl codehilite"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="k">module </span><span class="n">delaunay</span>
+<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="w">    </span><span class="c">!! Provides a minimal, in-house implementation of the subset of the</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="w">    </span><span class="c">!! GEOMPACK library used by FPLOT to construct 2D Delaunay</span>
+<a id="ln-4" name="ln-4" href="#ln-4"></a><span class="w">    </span><span class="c">!! triangulations.</span>
+<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="w">    </span><span class="c">!!</span>
+<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="w">    </span><span class="c">!! Original FORTRAN77 version by Barry Joe.  FORTRAN90 version by</span>
+<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="w">    </span><span class="c">!! John Burkardt.  Reference: Barry Joe, GEOMPACK - a software</span>
+<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="w">    </span><span class="c">!! package for the generation of meshes using geometric algorithms,</span>
+<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="w">    </span><span class="c">!! Advances in Engineering Software, Volume 13, pages 325-331, 1991.</span>
+<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="w">    </span><span class="k">use </span><span class="n">iso_fortran_env</span><span class="p">,</span><span class="w"> </span><span class="k">only</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">int32</span><span class="p">,</span><span class="w"> </span><span class="n">real64</span>
+<a id="ln-11" name="ln-11" href="#ln-11"></a><span class="w">    </span><span class="k">implicit none</span>
+<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="k">    private</span>
+<a id="ln-13" name="ln-13" href="#ln-13"></a><span class="k">    public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">r8tris2</span>
+<a id="ln-14" name="ln-14" href="#ln-14"></a>
+<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="k">contains</span>
+<a id="ln-16" name="ln-16" href="#ln-16"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">r8tris2</span><span class="p">(</span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="w">            </span><span class="n">triangle_neighbor</span><span class="p">)</span>
+<a id="ln-19" name="ln-19" href="#ln-19"></a><span class="w">        </span><span class="c">!! Constructs a Delaunay triangulation of 2D vertices.</span>
+<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="w">        </span><span class="c">!!</span>
+<a id="ln-21" name="ln-21" href="#ln-21"></a><span class="w">        </span><span class="c">!! The routine constructs the Delaunay triangulation of a set of</span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="w">        </span><span class="c">!! 2D vertices using an incremental approach and diagonal edge</span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="w">        </span><span class="c">!! swaps.  Vertices are first sorted in lexicographically</span>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="w">        </span><span class="c">!! increasing (X,Y) order, and then are inserted one at a time</span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="w">        </span><span class="c">!! from outside the convex hull.</span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">node_num</span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="w">            </span><span class="c">!! The number of vertices.</span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">node_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">node_xy</span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w">            </span><span class="c">!! The coordinates of the vertices.  On output, the vertices</span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w">            </span><span class="c">!! have been sorted into dictionary order.</span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="w">            </span><span class="c">!! The number of triangles in the triangulation;</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="w">            </span><span class="c">!! TRIANGLE_NUM is equal to 2*NODE_NUM - NB - 2, where NB is</span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="w">            </span><span class="c">!! the number of boundary vertices.</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">node_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">            </span><span class="n">triangle_node</span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">            </span><span class="c">!! The nodes that make up each triangle.  The elements are</span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="w">            </span><span class="c">!! indices of the vertex array.  The vertices of the</span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">            </span><span class="c">!! triangles are in counter clockwise order.</span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">node_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">            </span><span class="n">triangle_neighbor</span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">            </span><span class="c">!! The triangle neighbor list.  Positive elements are</span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">            </span><span class="c">!! indices of TRIANGLE_NODE; negative elements are used for</span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">            </span><span class="c">!! links of a counter clockwise linked list of boundary</span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="w">            </span><span class="c">!! edges; LINK = -(3*I + J-1) where I, J = triangle, edge</span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">            </span><span class="c">!! index; TRIANGLE_NEIGHBOR(J,I) refers to the neighbor</span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="w">            </span><span class="c">!! along the edge from vertex J to J+1 (mod 3).</span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">cmax</span><span class="p">,</span><span class="w"> </span><span class="n">tol</span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">k</span><span class="p">,</span><span class="w"> </span><span class="n">l</span><span class="p">,</span><span class="w"> </span><span class="n">ledg</span><span class="p">,</span><span class="w"> </span><span class="n">lr</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">,</span><span class="w"> </span><span class="n">m1</span><span class="p">,</span><span class="w"> </span><span class="n">m2</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">            </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">redg</span><span class="p">,</span><span class="w"> </span><span class="n">rtri</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">,</span><span class="w"> </span><span class="n">top</span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">node_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">indx</span><span class="p">,</span><span class="w"> </span><span class="n">stack</span>
+<a id="ln-54" name="ln-54" href="#ln-54"></a>
+<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">        </span><span class="c">! Initialization</span>
+<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">        </span><span class="n">tol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">10</span><span class="mf">0.0d0</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="nb">epsilon</span><span class="p">(</span><span class="n">tol</span><span class="p">)</span>
+<a id="ln-57" name="ln-57" href="#ln-57"></a>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">        </span><span class="c">! Sort the vertices by increasing (x,y)</span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">        </span><span class="k">call </span><span class="n">r82vec_sort_heap_index_a</span><span class="p">(</span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">)</span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="w">        </span><span class="k">call </span><span class="n">r82vec_permute</span><span class="p">(</span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">)</span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a>
+<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">        </span><span class="c">! Make sure that the data points are &quot;reasonably&quot; distinct</span>
+<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="w">        </span><span class="n">m1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">        </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">node_num</span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">            </span><span class="n">m</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m1</span>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">            </span><span class="n">m1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="w">            </span><span class="n">k</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">            </span><span class="k">do </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="w">                </span><span class="n">cmax</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">node_xy</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">)),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">node_xy</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">m1</span><span class="p">)))</span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">tol</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="p">(</span><span class="n">cmax</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mf">1.0d0</span><span class="p">)</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">                        </span><span class="nb">abs</span><span class="p">(</span><span class="n">node_xy</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">)</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">m1</span><span class="p">)))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="k">                    </span><span class="n">k</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">j</span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">                    </span><span class="k">exit</span>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="k">                end if</span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="k">            end do</span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="k">            if</span><span class="w"> </span><span class="p">(</span><span class="n">k</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="k">                error stop</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">                    </span><span class="s2">&quot;R8TRIS2 - Fatal error!  Two points are too close together.&quot;</span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="k">        end do</span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">        </span><span class="c">! Starting from points M1 and M2, search for a third point M that</span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="w">        </span><span class="c">! makes a &quot;healthy&quot; triangle (M1,M2,M)</span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">        </span><span class="n">m1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">        </span><span class="n">m2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">        </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">        </span><span class="k">do</span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="k">            if</span><span class="w"> </span><span class="p">(</span><span class="n">node_num</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">j</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="k">                error stop</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">                    </span><span class="s2">&quot;R8TRIS2 - Fatal error!  Could not find a non-collinear point.&quot;</span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="k">            </span><span class="n">m</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">j</span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">            </span><span class="n">lr</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">lrline</span><span class="p">(</span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m1</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">                </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">m1</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m2</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">m2</span><span class="p">),</span><span class="w"> </span><span class="mf">0.0d0</span><span class="p">)</span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">lr</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">exit</span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="k">            </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">j</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">        </span><span class="c">! Set up the triangle information for (M1,M2,M), and for any</span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">        </span><span class="c">! other triangles created because points were collinear with M1,</span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">        </span><span class="c">! M2</span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">        </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">j</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">lr</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="o">-</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="k">            </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m1</span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">            </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m2</span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">            </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m</span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">3</span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">            </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">                </span><span class="n">m1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m2</span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">                </span><span class="n">m2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m1</span>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m2</span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">            </span><span class="k">end do</span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="k">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">5</span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">            </span><span class="n">ledg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">            </span><span class="n">ltri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="k">            </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m2</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">            </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m1</span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">            </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">4</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">            </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">                </span><span class="n">m1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m2</span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">                </span><span class="n">m2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m2</span>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m1</span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m</span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">            </span><span class="k">end do</span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="k">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">            </span><span class="n">ledg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">            </span><span class="n">ltri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">        </span><span class="c">! Insert the vertices one at a time from outside the convex</span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">        </span><span class="c">! hull, determine visible boundary edges, and apply diagonal</span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">        </span><span class="c">! edge swaps until the Delaunay triangulation of the vertices</span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">        </span><span class="c">! (so far) is obtained</span>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">        </span><span class="n">top</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="w">        </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">j</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">node_num</span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a><span class="w">            </span><span class="n">m</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">            </span><span class="n">m1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">ledg</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">)</span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a>
+<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">ledg</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="k">                </span><span class="n">m2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">ledg</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">)</span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">            </span><span class="k">else</span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="k">                </span><span class="n">m2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">)</span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-164" name="ln-164" href="#ln-164"></a>
+<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="k">            </span><span class="n">lr</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">lrline</span><span class="p">(</span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m1</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">                </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">m1</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m2</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">m2</span><span class="p">),</span><span class="w"> </span><span class="mf">0.0d0</span><span class="p">)</span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">lr</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="k">                </span><span class="n">rtri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ltri</span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">                </span><span class="n">redg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ledg</span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">                </span><span class="n">ltri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">            </span><span class="k">else</span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="k">                </span><span class="n">l</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ledg</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">)</span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">                </span><span class="n">rtri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">l</span><span class="w"> </span><span class="o">/</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">                </span><span class="n">redg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">mod</span><span class="p">(</span><span class="n">l</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="k">            call </span><span class="n">vbedg</span><span class="p">(</span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">),</span><span class="w"> </span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">                </span><span class="n">triangle_num</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">                </span><span class="n">ledg</span><span class="p">,</span><span class="w"> </span><span class="n">rtri</span><span class="p">,</span><span class="w"> </span><span class="n">redg</span><span class="p">)</span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a>
+<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">            </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">            </span><span class="n">l</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ledg</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">)</span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">            </span><span class="k">do</span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="k">                </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">l</span><span class="w"> </span><span class="o">/</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="w">                </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">mod</span><span class="p">(</span><span class="n">l</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">                </span><span class="n">l</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">                </span><span class="n">m2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">e</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="k">                    </span><span class="n">m1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">e</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">                </span><span class="k">else</span>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="k">                    </span><span class="n">m1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">                </span><span class="k">end if</span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a>
+<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="k">                </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m1</span>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m2</span>
+<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m</span>
+<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">                </span><span class="n">top</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">top</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-206" name="ln-206" href="#ln-206"></a>
+<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">node_num</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">top</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="k">                    error stop</span><span class="w"> </span><span class="s2">&quot;R8TRIS2 - Fatal error!  Stack overflow.&quot;</span>
+<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="w">                </span><span class="k">end if</span>
+<a id="ln-210" name="ln-210" href="#ln-210"></a>
+<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="k">                </span><span class="n">stack</span><span class="p">(</span><span class="n">top</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-212" name="ln-212" href="#ln-212"></a>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">t</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">rtri</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">e</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">redg</span><span class="p">)</span><span class="w"> </span><span class="k">exit</span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="k">            end do</span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a>
+<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="k">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ledg</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">n</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">triangle_num</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">            </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">l</span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">            </span><span class="n">ltri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">            </span><span class="n">ledg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a>
+<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="w">            </span><span class="k">call </span><span class="n">swapec</span><span class="p">(</span><span class="n">m</span><span class="p">,</span><span class="w"> </span><span class="n">top</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">,</span><span class="w"> </span><span class="n">ledg</span><span class="p">,</span><span class="w"> </span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">                </span><span class="n">triangle_num</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">,</span><span class="w"> </span><span class="n">stack</span><span class="p">)</span>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">        </span><span class="c">! Now account for the sorting that was done</span>
+<a id="ln-227" name="ln-227" href="#ln-227"></a><span class="w">        </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">            </span><span class="k">do </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">))</span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">            </span><span class="k">end do</span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="k">        end do</span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a>
+<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="k">        call </span><span class="n">perm_inverse</span><span class="p">(</span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">)</span>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="w">        </span><span class="k">call </span><span class="n">r82vec_permute</span><span class="p">(</span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">)</span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">    </span><span class="k">pure subroutine </span><span class="n">r82vec_sort_heap_index_a</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">)</span>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">        </span><span class="c">!! Computes an indexed heap ascending sort of an R82VEC.</span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">        </span><span class="c">!!</span>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">        </span><span class="c">!! The sorting is not actually carried out.  Rather an index</span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">        </span><span class="c">!! array is created which defines the sorting.</span>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="w">            </span><span class="c">!! The number of entries in the array.</span>
+<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">a</span>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">            </span><span class="c">!! The array to be index-sorted.</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">indx</span>
+<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">            </span><span class="c">!! The sort index.  The I-th element of the sorted array is</span>
+<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">            </span><span class="c">!! A(1:2,INDX(I)).</span>
+<a id="ln-250" name="ln-250" href="#ln-250"></a>
+<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">aval</span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">indxt</span><span class="p">,</span><span class="w"> </span><span class="n">ir</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">l</span>
+<a id="ln-254" name="ln-254" href="#ln-254"></a>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">n</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a>
+<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="k">        do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">            </span><span class="n">indx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-260" name="ln-260" href="#ln-260"></a>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="n">n</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="k">        </span><span class="n">l</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span><span class="w"> </span><span class="o">/</span><span class="w"> </span><span class="mi">2</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="w">        </span><span class="n">ir</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-265" name="ln-265" href="#ln-265"></a>
+<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="w">        </span><span class="k">do</span>
+<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="k">            if</span><span class="w"> </span><span class="p">(</span><span class="mi">1</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">l</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="k">                </span><span class="n">l</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">l</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">                </span><span class="n">indxt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">l</span><span class="p">)</span>
+<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="w">                </span><span class="n">aval</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">a</span><span class="p">(:,</span><span class="w"> </span><span class="n">indxt</span><span class="p">)</span>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">            </span><span class="k">else</span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="k">                </span><span class="n">indxt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">ir</span><span class="p">)</span>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">                </span><span class="n">aval</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">a</span><span class="p">(:,</span><span class="w"> </span><span class="n">indxt</span><span class="p">)</span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">                </span><span class="n">indx</span><span class="p">(</span><span class="n">ir</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="w">                </span><span class="n">ir</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ir</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">ir</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="k">                    </span><span class="n">indx</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">indxt</span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">                    </span><span class="k">exit</span>
+<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="k">                end if</span>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="k">            end if</span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="k">            </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">l</span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">            </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">l</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">l</span>
+<a id="ln-284" name="ln-284" href="#ln-284"></a>
+<a id="ln-285" name="ln-285" href="#ln-285"></a><span class="w">            </span><span class="k">do while</span><span class="w"> </span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="n">ir</span><span class="p">)</span>
+<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">ir</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="k">                    if</span><span class="w"> </span><span class="p">(</span><span class="n">a</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="p">))</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">a</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">))</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">                            </span><span class="p">(</span><span class="n">a</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="p">))</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">a</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">))</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">                            </span><span class="n">a</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="p">))</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">a</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">))))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="k">                        </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">j</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">                    </span><span class="k">end if</span>
+<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="k">                end if</span>
+<a id="ln-293" name="ln-293" href="#ln-293"></a>
+<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="k">                if</span><span class="w"> </span><span class="p">(</span><span class="n">aval</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">a</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="p">))</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="w">                        </span><span class="p">(</span><span class="n">aval</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">a</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="p">))</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="w">                        </span><span class="n">aval</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">a</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="p">))))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="k">                    </span><span class="n">indx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">indx</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">                    </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">j</span>
+<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">                    </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">j</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">j</span>
+<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">                </span><span class="k">else</span>
+<a id="ln-301" name="ln-301" href="#ln-301"></a><span class="k">                    </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ir</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">                </span><span class="k">end if</span>
+<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="k">            end do</span>
+<a id="ln-304" name="ln-304" href="#ln-304"></a>
+<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="k">            </span><span class="n">indx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">indxt</span>
+<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="k">    end subroutine</span>
+<a id="ln-308" name="ln-308" href="#ln-308"></a>
+<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">r82vec_permute</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">,</span><span class="w"> </span><span class="n">p</span><span class="p">)</span>
+<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">        </span><span class="c">!! Permutes an R82VEC in place, according to a given permutation.</span>
+<a id="ln-312" name="ln-312" href="#ln-312"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">            </span><span class="c">!! The number of objects.</span>
+<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">a</span>
+<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">            </span><span class="c">!! The array to be permuted.</span>
+<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">p</span>
+<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">            </span><span class="c">!! The permutation.  P(I) = J means that the I-th element of</span>
+<a id="ln-318" name="ln-318" href="#ln-318"></a><span class="w">            </span><span class="c">!! the output array should be the J-th element of the input</span>
+<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="w">            </span><span class="c">!! array.</span>
+<a id="ln-320" name="ln-320" href="#ln-320"></a>
+<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">a_temp</span>
+<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ierror</span><span class="p">,</span><span class="w"> </span><span class="n">iget</span><span class="p">,</span><span class="w"> </span><span class="n">iput</span><span class="p">,</span><span class="w"> </span><span class="n">istart</span>
+<a id="ln-324" name="ln-324" href="#ln-324"></a>
+<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">        </span><span class="k">call </span><span class="n">perm_check</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="n">ierror</span><span class="p">)</span>
+<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">ierror</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="k">            error stop</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="w">                </span><span class="s2">&quot;R82VEC_PERMUTE - Fatal error!  P does not represent a permutation.&quot;</span>
+<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-330" name="ln-330" href="#ln-330"></a>
+<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="k">        do </span><span class="n">istart</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">p</span><span class="p">(</span><span class="n">istart</span><span class="p">)</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="k">                cycle</span>
+<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="k">            else if</span><span class="w"> </span><span class="p">(</span><span class="n">p</span><span class="p">(</span><span class="n">istart</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">istart</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="k">                </span><span class="n">p</span><span class="p">(</span><span class="n">istart</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">p</span><span class="p">(</span><span class="n">istart</span><span class="p">)</span>
+<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">                </span><span class="k">cycle</span>
+<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="k">            else</span>
+<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="k">                </span><span class="n">a_temp</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">a</span><span class="p">(:,</span><span class="w"> </span><span class="n">istart</span><span class="p">)</span>
+<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">                </span><span class="n">iget</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">istart</span>
+<a id="ln-340" name="ln-340" href="#ln-340"></a>
+<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">                </span><span class="k">do</span>
+<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="k">                    </span><span class="n">iput</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">iget</span>
+<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">                    </span><span class="n">iget</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">p</span><span class="p">(</span><span class="n">iget</span><span class="p">)</span>
+<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="w">                    </span><span class="n">p</span><span class="p">(</span><span class="n">iput</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">p</span><span class="p">(</span><span class="n">iput</span><span class="p">)</span>
+<a id="ln-345" name="ln-345" href="#ln-345"></a>
+<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="w">                    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">iget</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">1</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="n">n</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">iget</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="k">                        error stop</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">                            </span><span class="s2">&quot;R82VEC_PERMUTE - Fatal error!  Invalid permutation entry.&quot;</span>
+<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="w">                    </span><span class="k">end if</span>
+<a id="ln-350" name="ln-350" href="#ln-350"></a>
+<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="k">                    if</span><span class="w"> </span><span class="p">(</span><span class="n">iget</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">istart</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="k">                        </span><span class="n">a</span><span class="p">(:,</span><span class="w"> </span><span class="n">iput</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">a_temp</span>
+<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">                        </span><span class="k">exit</span>
+<a id="ln-354" name="ln-354" href="#ln-354"></a><span class="k">                    end if</span>
+<a id="ln-355" name="ln-355" href="#ln-355"></a>
+<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="k">                    </span><span class="n">a</span><span class="p">(:,</span><span class="w"> </span><span class="n">iput</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">a</span><span class="p">(:,</span><span class="w"> </span><span class="n">iget</span><span class="p">)</span>
+<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">                </span><span class="k">end do</span>
+<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="k">            end if</span>
+<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="k">        end do</span>
+<a id="ln-360" name="ln-360" href="#ln-360"></a>
+<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="k">        </span><span class="n">p</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">p</span>
+<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-363" name="ln-363" href="#ln-363"></a>
+<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">    </span><span class="k">pure subroutine </span><span class="n">perm_check</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="n">ierror</span><span class="p">)</span>
+<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="w">        </span><span class="c">!! Checks that a vector represents a permutation.</span>
+<a id="ln-367" name="ln-367" href="#ln-367"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">            </span><span class="c">!! The number of entries.</span>
+<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">p</span>
+<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="w">            </span><span class="c">!! The array to check.</span>
+<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ierror</span>
+<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">            </span><span class="c">!! 0 if the array represents a permutation; otherwise, the</span>
+<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">            </span><span class="c">!! smallest missing value.</span>
+<a id="ln-374" name="ln-374" href="#ln-374"></a>
+<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ifind</span><span class="p">,</span><span class="w"> </span><span class="n">iseek</span>
+<a id="ln-377" name="ln-377" href="#ln-377"></a>
+<a id="ln-378" name="ln-378" href="#ln-378"></a><span class="w">        </span><span class="n">ierror</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
+<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="w">        </span><span class="k">do </span><span class="n">iseek</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="w">            </span><span class="n">ierror</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">iseek</span>
+<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="w">            </span><span class="k">do </span><span class="n">ifind</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-382" name="ln-382" href="#ln-382"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">p</span><span class="p">(</span><span class="n">ifind</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">iseek</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="k">                    </span><span class="n">ierror</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
+<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">                    </span><span class="k">exit</span>
+<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="k">                end if</span>
+<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="k">            end do</span>
+<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="k">            if</span><span class="w"> </span><span class="p">(</span><span class="n">ierror</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="k">        end do</span>
+<a id="ln-389" name="ln-389" href="#ln-389"></a><span class="k">    end subroutine</span>
+<a id="ln-390" name="ln-390" href="#ln-390"></a>
+<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">perm_inverse</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">p</span><span class="p">)</span>
+<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">        </span><span class="c">!! Inverts a permutation in-place.</span>
+<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">            </span><span class="c">!! The number of objects being permuted.</span>
+<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">p</span>
+<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="w">            </span><span class="c">!! The permutation, in standard index form.  On output, P</span>
+<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="w">            </span><span class="c">!! describes the inverse permutation.</span>
+<a id="ln-399" name="ln-399" href="#ln-399"></a>
+<a id="ln-400" name="ln-400" href="#ln-400"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">i0</span><span class="p">,</span><span class="w"> </span><span class="n">i1</span><span class="p">,</span><span class="w"> </span><span class="n">i2</span><span class="p">,</span><span class="w"> </span><span class="n">ierror</span><span class="p">,</span><span class="w"> </span><span class="k">is</span>
+<a id="ln-402" name="ln-402" href="#ln-402"></a>
+<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="n">n</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="k">            error stop</span><span class="w"> </span><span class="s2">&quot;PERM_INVERSE - Fatal error!  N &lt;= 0.&quot;</span>
+<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-406" name="ln-406" href="#ln-406"></a>
+<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="k">        call </span><span class="n">perm_check</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">p</span><span class="p">,</span><span class="w"> </span><span class="n">ierror</span><span class="p">)</span>
+<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">ierror</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="k">            error stop</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-410" name="ln-410" href="#ln-410"></a><span class="w">                </span><span class="s2">&quot;PERM_INVERSE - Fatal error!  P does not represent a permutation.&quot;</span>
+<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-412" name="ln-412" href="#ln-412"></a>
+<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="k">        is</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-414" name="ln-414" href="#ln-414"></a><span class="w">        </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-415" name="ln-415" href="#ln-415"></a><span class="w">            </span><span class="n">i1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">p</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a id="ln-416" name="ln-416" href="#ln-416"></a><span class="w">            </span><span class="k">do while</span><span class="w"> </span><span class="p">(</span><span class="n">i</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">i1</span><span class="p">)</span>
+<a id="ln-417" name="ln-417" href="#ln-417"></a><span class="w">                </span><span class="n">i2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">p</span><span class="p">(</span><span class="n">i1</span><span class="p">)</span>
+<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="w">                </span><span class="n">p</span><span class="p">(</span><span class="n">i1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">i2</span>
+<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="w">                </span><span class="n">i1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i2</span>
+<a id="ln-420" name="ln-420" href="#ln-420"></a><span class="w">            </span><span class="k">end do</span>
+<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="k">            is</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="nb">sign</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">p</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a id="ln-422" name="ln-422" href="#ln-422"></a><span class="w">            </span><span class="n">p</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">sign</span><span class="p">(</span><span class="n">p</span><span class="p">(</span><span class="n">i</span><span class="p">),</span><span class="w"> </span><span class="k">is</span><span class="p">)</span>
+<a id="ln-423" name="ln-423" href="#ln-423"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-424" name="ln-424" href="#ln-424"></a>
+<a id="ln-425" name="ln-425" href="#ln-425"></a><span class="k">        do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">            </span><span class="n">i1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">p</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a id="ln-427" name="ln-427" href="#ln-427"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="n">i1</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="k">                </span><span class="n">i0</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-429" name="ln-429" href="#ln-429"></a><span class="w">                </span><span class="k">do</span>
+<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="k">                    </span><span class="n">i2</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">p</span><span class="p">(</span><span class="n">i1</span><span class="p">)</span>
+<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="w">                    </span><span class="n">p</span><span class="p">(</span><span class="n">i1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i0</span>
+<a id="ln-432" name="ln-432" href="#ln-432"></a><span class="w">                    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">i2</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">exit</span>
+<a id="ln-433" name="ln-433" href="#ln-433"></a><span class="k">                    </span><span class="n">i0</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i1</span>
+<a id="ln-434" name="ln-434" href="#ln-434"></a><span class="w">                    </span><span class="n">i1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i2</span>
+<a id="ln-435" name="ln-435" href="#ln-435"></a><span class="w">                </span><span class="k">end do</span>
+<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="k">            end if</span>
+<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="k">        end do</span>
+<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="k">    end subroutine</span>
+<a id="ln-439" name="ln-439" href="#ln-439"></a>
+<a id="ln-440" name="ln-440" href="#ln-440"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-441" name="ln-441" href="#ln-441"></a><span class="w">    </span><span class="k">pure function </span><span class="n">lrline</span><span class="p">(</span><span class="n">xu</span><span class="p">,</span><span class="w"> </span><span class="n">yu</span><span class="p">,</span><span class="w"> </span><span class="n">xv1</span><span class="p">,</span><span class="w"> </span><span class="n">yv1</span><span class="p">,</span><span class="w"> </span><span class="n">xv2</span><span class="p">,</span><span class="w"> </span><span class="n">yv2</span><span class="p">,</span><span class="w"> </span><span class="n">dv</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-442" name="ln-442" href="#ln-442"></a><span class="w">        </span><span class="c">!! Determines if a point is left of, right of, or on a directed</span>
+<a id="ln-443" name="ln-443" href="#ln-443"></a><span class="w">        </span><span class="c">!! line.</span>
+<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">        </span><span class="c">!!</span>
+<a id="ln-445" name="ln-445" href="#ln-445"></a><span class="w">        </span><span class="c">!! The directed line is parallel to, and at a signed distance DV</span>
+<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="w">        </span><span class="c">!! from a directed base line from (XV1,YV1) to (XV2,YV2).</span>
+<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">xu</span>
+<a id="ln-448" name="ln-448" href="#ln-448"></a><span class="w">            </span><span class="c">!! The x-coordinate of the point whose position relative to</span>
+<a id="ln-449" name="ln-449" href="#ln-449"></a><span class="w">            </span><span class="c">!! the directed line is to be determined.</span>
+<a id="ln-450" name="ln-450" href="#ln-450"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">yu</span>
+<a id="ln-451" name="ln-451" href="#ln-451"></a><span class="w">            </span><span class="c">!! The y-coordinate of the point whose position relative to</span>
+<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="w">            </span><span class="c">!! the directed line is to be determined.</span>
+<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">xv1</span>
+<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="w">            </span><span class="c">!! The x-coordinate of the first point defining the base</span>
+<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="w">            </span><span class="c">!! line.</span>
+<a id="ln-456" name="ln-456" href="#ln-456"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">yv1</span>
+<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="w">            </span><span class="c">!! The y-coordinate of the first point defining the base</span>
+<a id="ln-458" name="ln-458" href="#ln-458"></a><span class="w">            </span><span class="c">!! line.</span>
+<a id="ln-459" name="ln-459" href="#ln-459"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">xv2</span>
+<a id="ln-460" name="ln-460" href="#ln-460"></a><span class="w">            </span><span class="c">!! The x-coordinate of the second point defining the base</span>
+<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="w">            </span><span class="c">!! line.</span>
+<a id="ln-462" name="ln-462" href="#ln-462"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">yv2</span>
+<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="w">            </span><span class="c">!! The y-coordinate of the second point defining the base</span>
+<a id="ln-464" name="ln-464" href="#ln-464"></a><span class="w">            </span><span class="c">!! line.</span>
+<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">dv</span>
+<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="w">            </span><span class="c">!! The signed distance of the directed line from the</span>
+<a id="ln-467" name="ln-467" href="#ln-467"></a><span class="w">            </span><span class="c">!! directed base line.  DV is positive for a line to the</span>
+<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="w">            </span><span class="c">!! left of the base line.</span>
+<a id="ln-469" name="ln-469" href="#ln-469"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="w">            </span><span class="c">!! +1 if the point is to the right of the directed line; 0 if</span>
+<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">            </span><span class="c">!! the point is on the directed line; -1 if the point is to</span>
+<a id="ln-472" name="ln-472" href="#ln-472"></a><span class="w">            </span><span class="c">!! the left of the directed line.</span>
+<a id="ln-473" name="ln-473" href="#ln-473"></a>
+<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-475" name="ln-475" href="#ln-475"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">dx</span><span class="p">,</span><span class="w"> </span><span class="n">dxu</span><span class="p">,</span><span class="w"> </span><span class="n">dy</span><span class="p">,</span><span class="w"> </span><span class="n">dyu</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">,</span><span class="w"> </span><span class="n">tol</span><span class="p">,</span><span class="w"> </span><span class="n">tolabs</span>
+<a id="ln-476" name="ln-476" href="#ln-476"></a>
+<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">        </span><span class="n">tol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">10</span><span class="mf">0.0d0</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="nb">epsilon</span><span class="p">(</span><span class="n">tol</span><span class="p">)</span>
+<a id="ln-478" name="ln-478" href="#ln-478"></a>
+<a id="ln-479" name="ln-479" href="#ln-479"></a><span class="w">        </span><span class="n">dx</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">xv2</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">xv1</span>
+<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="w">        </span><span class="n">dy</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">yv2</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">yv1</span>
+<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="w">        </span><span class="n">dxu</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">xu</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">xv1</span>
+<a id="ln-482" name="ln-482" href="#ln-482"></a><span class="w">        </span><span class="n">dyu</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">yu</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">yv1</span>
+<a id="ln-483" name="ln-483" href="#ln-483"></a>
+<a id="ln-484" name="ln-484" href="#ln-484"></a><span class="w">        </span><span class="n">tolabs</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">tol</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dx</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dy</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dxu</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dyu</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dv</span><span class="p">))</span>
+<a id="ln-485" name="ln-485" href="#ln-485"></a>
+<a id="ln-486" name="ln-486" href="#ln-486"></a><span class="w">        </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">dy</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dxu</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">dx</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dyu</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">dv</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="nb">sqrt</span><span class="p">(</span><span class="n">dx</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dx</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">dy</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dy</span><span class="p">)</span>
+<a id="ln-487" name="ln-487" href="#ln-487"></a>
+<a id="ln-488" name="ln-488" href="#ln-488"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">tolabs</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-489" name="ln-489" href="#ln-489"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-490" name="ln-490" href="#ln-490"></a><span class="w">        </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="o">-</span><span class="n">tolabs</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-491" name="ln-491" href="#ln-491"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
+<a id="ln-492" name="ln-492" href="#ln-492"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-493" name="ln-493" href="#ln-493"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">1</span>
+<a id="ln-494" name="ln-494" href="#ln-494"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-495" name="ln-495" href="#ln-495"></a><span class="k">    end function</span>
+<a id="ln-496" name="ln-496" href="#ln-496"></a>
+<a id="ln-497" name="ln-497" href="#ln-497"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-498" name="ln-498" href="#ln-498"></a><span class="w">    </span><span class="k">pure function </span><span class="n">diaedg</span><span class="p">(</span><span class="n">x0</span><span class="p">,</span><span class="w"> </span><span class="n">y0</span><span class="p">,</span><span class="w"> </span><span class="n">x1</span><span class="p">,</span><span class="w"> </span><span class="n">y1</span><span class="p">,</span><span class="w"> </span><span class="n">x2</span><span class="p">,</span><span class="w"> </span><span class="n">y2</span><span class="p">,</span><span class="w"> </span><span class="n">x3</span><span class="p">,</span><span class="w"> </span><span class="n">y3</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-499" name="ln-499" href="#ln-499"></a><span class="w">        </span><span class="c">!! Chooses a diagonal edge.</span>
+<a id="ln-500" name="ln-500" href="#ln-500"></a><span class="w">        </span><span class="c">!!</span>
+<a id="ln-501" name="ln-501" href="#ln-501"></a><span class="w">        </span><span class="c">!! The routine determines whether 0--2 or 1--3 is the diagonal</span>
+<a id="ln-502" name="ln-502" href="#ln-502"></a><span class="w">        </span><span class="c">!! edge that should be chosen, based on the circumcircle</span>
+<a id="ln-503" name="ln-503" href="#ln-503"></a><span class="w">        </span><span class="c">!! criterion, where (X0,Y0), (X1,Y1), (X2,Y2), (X3,Y3) are the</span>
+<a id="ln-504" name="ln-504" href="#ln-504"></a><span class="w">        </span><span class="c">!! vertices of a simple quadrilateral in counterclockwise order.</span>
+<a id="ln-505" name="ln-505" href="#ln-505"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x0</span><span class="p">,</span><span class="w"> </span><span class="n">y0</span><span class="p">,</span><span class="w"> </span><span class="n">x1</span><span class="p">,</span><span class="w"> </span><span class="n">y1</span><span class="p">,</span><span class="w"> </span><span class="n">x2</span><span class="p">,</span><span class="w"> </span><span class="n">y2</span><span class="p">,</span><span class="w"> </span><span class="n">x3</span><span class="p">,</span><span class="w"> </span><span class="n">y3</span>
+<a id="ln-506" name="ln-506" href="#ln-506"></a><span class="w">            </span><span class="c">!! The coordinates of the vertices of the quadrilateral.</span>
+<a id="ln-507" name="ln-507" href="#ln-507"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-508" name="ln-508" href="#ln-508"></a><span class="w">            </span><span class="c">!! +1 if diagonal edge 02 is chosen; -1 if diagonal edge 13</span>
+<a id="ln-509" name="ln-509" href="#ln-509"></a><span class="w">            </span><span class="c">!! is chosen; 0 if the four vertices are cocircular.</span>
+<a id="ln-510" name="ln-510" href="#ln-510"></a>
+<a id="ln-511" name="ln-511" href="#ln-511"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-512" name="ln-512" href="#ln-512"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ca</span><span class="p">,</span><span class="w"> </span><span class="n">cb</span><span class="p">,</span><span class="w"> </span><span class="n">dx10</span><span class="p">,</span><span class="w"> </span><span class="n">dx12</span><span class="p">,</span><span class="w"> </span><span class="n">dx30</span><span class="p">,</span><span class="w"> </span><span class="n">dx32</span><span class="p">,</span><span class="w"> </span><span class="n">dy10</span><span class="p">,</span><span class="w"> </span><span class="n">dy12</span><span class="p">,</span><span class="w"> </span><span class="n">dy30</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-513" name="ln-513" href="#ln-513"></a><span class="w">            </span><span class="n">dy32</span><span class="p">,</span><span class="w"> </span><span class="n">s</span><span class="p">,</span><span class="w"> </span><span class="n">tol</span><span class="p">,</span><span class="w"> </span><span class="n">tola</span><span class="p">,</span><span class="w"> </span><span class="n">tolb</span>
+<a id="ln-514" name="ln-514" href="#ln-514"></a>
+<a id="ln-515" name="ln-515" href="#ln-515"></a><span class="w">        </span><span class="n">tol</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">10</span><span class="mf">0.0d0</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="nb">epsilon</span><span class="p">(</span><span class="n">tol</span><span class="p">)</span>
+<a id="ln-516" name="ln-516" href="#ln-516"></a>
+<a id="ln-517" name="ln-517" href="#ln-517"></a><span class="w">        </span><span class="n">dx10</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x1</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">x0</span>
+<a id="ln-518" name="ln-518" href="#ln-518"></a><span class="w">        </span><span class="n">dy10</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">y1</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">y0</span>
+<a id="ln-519" name="ln-519" href="#ln-519"></a><span class="w">        </span><span class="n">dx12</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x1</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">x2</span>
+<a id="ln-520" name="ln-520" href="#ln-520"></a><span class="w">        </span><span class="n">dy12</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">y1</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">y2</span>
+<a id="ln-521" name="ln-521" href="#ln-521"></a><span class="w">        </span><span class="n">dx30</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x3</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">x0</span>
+<a id="ln-522" name="ln-522" href="#ln-522"></a><span class="w">        </span><span class="n">dy30</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">y3</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">y0</span>
+<a id="ln-523" name="ln-523" href="#ln-523"></a><span class="w">        </span><span class="n">dx32</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x3</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">x2</span>
+<a id="ln-524" name="ln-524" href="#ln-524"></a><span class="w">        </span><span class="n">dy32</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">y3</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">y2</span>
+<a id="ln-525" name="ln-525" href="#ln-525"></a>
+<a id="ln-526" name="ln-526" href="#ln-526"></a><span class="w">        </span><span class="n">tola</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">tol</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dx10</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dy10</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dx30</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dy30</span><span class="p">))</span>
+<a id="ln-527" name="ln-527" href="#ln-527"></a><span class="w">        </span><span class="n">tolb</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">tol</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dx12</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dy12</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dx32</span><span class="p">),</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">dy32</span><span class="p">))</span>
+<a id="ln-528" name="ln-528" href="#ln-528"></a>
+<a id="ln-529" name="ln-529" href="#ln-529"></a><span class="w">        </span><span class="n">ca</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">dx10</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dx30</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">dy10</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dy30</span>
+<a id="ln-530" name="ln-530" href="#ln-530"></a><span class="w">        </span><span class="n">cb</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">dx12</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dx32</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">dy12</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dy32</span>
+<a id="ln-531" name="ln-531" href="#ln-531"></a>
+<a id="ln-532" name="ln-532" href="#ln-532"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">tola</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">ca</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">tolb</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">cb</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-533" name="ln-533" href="#ln-533"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">1</span>
+<a id="ln-534" name="ln-534" href="#ln-534"></a><span class="w">        </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">ca</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="o">-</span><span class="n">tola</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">cb</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="o">-</span><span class="n">tolb</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-535" name="ln-535" href="#ln-535"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-536" name="ln-536" href="#ln-536"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-537" name="ln-537" href="#ln-537"></a><span class="k">            </span><span class="n">tola</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="n">tola</span><span class="p">,</span><span class="w"> </span><span class="n">tolb</span><span class="p">)</span>
+<a id="ln-538" name="ln-538" href="#ln-538"></a><span class="w">            </span><span class="n">s</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">(</span><span class="n">dx10</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dy30</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">dx30</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dy10</span><span class="p">)</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">cb</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-539" name="ln-539" href="#ln-539"></a><span class="w">                </span><span class="p">(</span><span class="n">dx32</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dy12</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">dx12</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">dy32</span><span class="p">)</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">ca</span>
+<a id="ln-540" name="ln-540" href="#ln-540"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">tola</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-541" name="ln-541" href="#ln-541"></a><span class="k">                </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="mi">1</span>
+<a id="ln-542" name="ln-542" href="#ln-542"></a><span class="w">            </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">s</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="o">-</span><span class="n">tola</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-543" name="ln-543" href="#ln-543"></a><span class="k">                </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-544" name="ln-544" href="#ln-544"></a><span class="w">            </span><span class="k">else</span>
+<a id="ln-545" name="ln-545" href="#ln-545"></a><span class="k">                </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
+<a id="ln-546" name="ln-546" href="#ln-546"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-547" name="ln-547" href="#ln-547"></a><span class="k">        end if</span>
+<a id="ln-548" name="ln-548" href="#ln-548"></a><span class="k">    end function</span>
+<a id="ln-549" name="ln-549" href="#ln-549"></a>
+<a id="ln-550" name="ln-550" href="#ln-550"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-551" name="ln-551" href="#ln-551"></a><span class="w">    </span><span class="k">pure function </span><span class="n">i4_modp</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-552" name="ln-552" href="#ln-552"></a><span class="w">        </span><span class="c">!! Returns the nonnegative remainder of I4 division.</span>
+<a id="ln-553" name="ln-553" href="#ln-553"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-554" name="ln-554" href="#ln-554"></a><span class="w">            </span><span class="c">!! The number to be divided.</span>
+<a id="ln-555" name="ln-555" href="#ln-555"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">j</span>
+<a id="ln-556" name="ln-556" href="#ln-556"></a><span class="w">            </span><span class="c">!! The number that divides I.</span>
+<a id="ln-557" name="ln-557" href="#ln-557"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-558" name="ln-558" href="#ln-558"></a><span class="w">            </span><span class="c">!! The nonnegative remainder when I is divided by J.</span>
+<a id="ln-559" name="ln-559" href="#ln-559"></a>
+<a id="ln-560" name="ln-560" href="#ln-560"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">mod</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">)</span>
+<a id="ln-561" name="ln-561" href="#ln-561"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">rst</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">rst</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="nb">abs</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a id="ln-562" name="ln-562" href="#ln-562"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-563" name="ln-563" href="#ln-563"></a>
+<a id="ln-564" name="ln-564" href="#ln-564"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-565" name="ln-565" href="#ln-565"></a><span class="w">    </span><span class="k">pure function </span><span class="n">i4_wrap</span><span class="p">(</span><span class="n">ival</span><span class="p">,</span><span class="w"> </span><span class="n">ilo</span><span class="p">,</span><span class="w"> </span><span class="n">ihi</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-566" name="ln-566" href="#ln-566"></a><span class="w">        </span><span class="c">!! Forces an I4 to lie between given limits by wrapping.</span>
+<a id="ln-567" name="ln-567" href="#ln-567"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ival</span>
+<a id="ln-568" name="ln-568" href="#ln-568"></a><span class="w">            </span><span class="c">!! The value to wrap.</span>
+<a id="ln-569" name="ln-569" href="#ln-569"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ilo</span>
+<a id="ln-570" name="ln-570" href="#ln-570"></a><span class="w">            </span><span class="c">!! The lower bound.</span>
+<a id="ln-571" name="ln-571" href="#ln-571"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ihi</span>
+<a id="ln-572" name="ln-572" href="#ln-572"></a><span class="w">            </span><span class="c">!! The upper bound.</span>
+<a id="ln-573" name="ln-573" href="#ln-573"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-574" name="ln-574" href="#ln-574"></a><span class="w">            </span><span class="c">!! A &quot;wrapped&quot; version of IVAL.</span>
+<a id="ln-575" name="ln-575" href="#ln-575"></a>
+<a id="ln-576" name="ln-576" href="#ln-576"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-577" name="ln-577" href="#ln-577"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">jhi</span><span class="p">,</span><span class="w"> </span><span class="n">jlo</span><span class="p">,</span><span class="w"> </span><span class="n">wide</span>
+<a id="ln-578" name="ln-578" href="#ln-578"></a>
+<a id="ln-579" name="ln-579" href="#ln-579"></a><span class="w">        </span><span class="n">jlo</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="n">ilo</span><span class="p">,</span><span class="w"> </span><span class="n">ihi</span><span class="p">)</span>
+<a id="ln-580" name="ln-580" href="#ln-580"></a><span class="w">        </span><span class="n">jhi</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="n">ilo</span><span class="p">,</span><span class="w"> </span><span class="n">ihi</span><span class="p">)</span>
+<a id="ln-581" name="ln-581" href="#ln-581"></a><span class="w">        </span><span class="n">wide</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">jhi</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">jlo</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-582" name="ln-582" href="#ln-582"></a>
+<a id="ln-583" name="ln-583" href="#ln-583"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">wide</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-584" name="ln-584" href="#ln-584"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">jlo</span>
+<a id="ln-585" name="ln-585" href="#ln-585"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-586" name="ln-586" href="#ln-586"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">jlo</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">i4_modp</span><span class="p">(</span><span class="n">ival</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="n">jlo</span><span class="p">,</span><span class="w"> </span><span class="n">wide</span><span class="p">)</span>
+<a id="ln-587" name="ln-587" href="#ln-587"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-588" name="ln-588" href="#ln-588"></a><span class="k">    end function</span>
+<a id="ln-589" name="ln-589" href="#ln-589"></a>
+<a id="ln-590" name="ln-590" href="#ln-590"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-591" name="ln-591" href="#ln-591"></a><span class="w">    </span><span class="k">pure subroutine </span><span class="n">vbedg</span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="w"> </span><span class="n">y</span><span class="p">,</span><span class="w"> </span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-592" name="ln-592" href="#ln-592"></a><span class="w">            </span><span class="n">triangle_node</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">,</span><span class="w"> </span><span class="n">ltri</span><span class="p">,</span><span class="w"> </span><span class="n">ledg</span><span class="p">,</span><span class="w"> </span><span class="n">rtri</span><span class="p">,</span><span class="w"> </span><span class="n">redg</span><span class="p">)</span>
+<a id="ln-593" name="ln-593" href="#ln-593"></a><span class="w">        </span><span class="c">!! Determines which boundary edges are visible to a point.</span>
+<a id="ln-594" name="ln-594" href="#ln-594"></a><span class="w">        </span><span class="c">!!</span>
+<a id="ln-595" name="ln-595" href="#ln-595"></a><span class="w">        </span><span class="c">!! The point (X,Y) is assumed to be outside the convex hull of</span>
+<a id="ln-596" name="ln-596" href="#ln-596"></a><span class="w">        </span><span class="c">!! the region covered by the 2D triangulation.</span>
+<a id="ln-597" name="ln-597" href="#ln-597"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-598" name="ln-598" href="#ln-598"></a><span class="w">            </span><span class="c">!! The x-coordinate of a point outside the convex hull of</span>
+<a id="ln-599" name="ln-599" href="#ln-599"></a><span class="w">            </span><span class="c">!! the current triangulation.</span>
+<a id="ln-600" name="ln-600" href="#ln-600"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">y</span>
+<a id="ln-601" name="ln-601" href="#ln-601"></a><span class="w">            </span><span class="c">!! The y-coordinate of a point outside the convex hull of</span>
+<a id="ln-602" name="ln-602" href="#ln-602"></a><span class="w">            </span><span class="c">!! the current triangulation.</span>
+<a id="ln-603" name="ln-603" href="#ln-603"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">node_num</span>
+<a id="ln-604" name="ln-604" href="#ln-604"></a><span class="w">            </span><span class="c">!! The number of points.</span>
+<a id="ln-605" name="ln-605" href="#ln-605"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">node_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">node_xy</span>
+<a id="ln-606" name="ln-606" href="#ln-606"></a><span class="w">            </span><span class="c">!! The coordinates of the vertices.</span>
+<a id="ln-607" name="ln-607" href="#ln-607"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-608" name="ln-608" href="#ln-608"></a><span class="w">            </span><span class="c">!! The number of triangles.</span>
+<a id="ln-609" name="ln-609" href="#ln-609"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-610" name="ln-610" href="#ln-610"></a><span class="w">            </span><span class="n">triangle_node</span>
+<a id="ln-611" name="ln-611" href="#ln-611"></a><span class="w">            </span><span class="c">!! The triangle incidence list.</span>
+<a id="ln-612" name="ln-612" href="#ln-612"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-613" name="ln-613" href="#ln-613"></a><span class="w">            </span><span class="n">triangle_neighbor</span>
+<a id="ln-614" name="ln-614" href="#ln-614"></a><span class="w">            </span><span class="c">!! The triangle neighbor list; negative values are used for</span>
+<a id="ln-615" name="ln-615" href="#ln-615"></a><span class="w">            </span><span class="c">!! links of a counterclockwise linked list of boundary</span>
+<a id="ln-616" name="ln-616" href="#ln-616"></a><span class="w">            </span><span class="c">!! edges; LINK = -(3*I + J-1) where I, J = triangle, edge</span>
+<a id="ln-617" name="ln-617" href="#ln-617"></a><span class="w">            </span><span class="c">!! index.</span>
+<a id="ln-618" name="ln-618" href="#ln-618"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ltri</span>
+<a id="ln-619" name="ln-619" href="#ln-619"></a><span class="w">            </span><span class="c">!! If LTRI /= 0 then this value is assumed to be already</span>
+<a id="ln-620" name="ln-620" href="#ln-620"></a><span class="w">            </span><span class="c">!! computed and is not changed, else it is updated.  On</span>
+<a id="ln-621" name="ln-621" href="#ln-621"></a><span class="w">            </span><span class="c">!! output, LTRI is the index of the boundary triangle to the</span>
+<a id="ln-622" name="ln-622" href="#ln-622"></a><span class="w">            </span><span class="c">!! left of the leftmost boundary triangle visible from</span>
+<a id="ln-623" name="ln-623" href="#ln-623"></a><span class="w">            </span><span class="c">!! (X,Y).</span>
+<a id="ln-624" name="ln-624" href="#ln-624"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ledg</span>
+<a id="ln-625" name="ln-625" href="#ln-625"></a><span class="w">            </span><span class="c">!! The boundary edge of triangle LTRI to the left of the</span>
+<a id="ln-626" name="ln-626" href="#ln-626"></a><span class="w">            </span><span class="c">!! leftmost boundary edge visible from (X,Y).  1 &lt;= LEDG &lt;=</span>
+<a id="ln-627" name="ln-627" href="#ln-627"></a><span class="w">            </span><span class="c">!! 3.</span>
+<a id="ln-628" name="ln-628" href="#ln-628"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rtri</span>
+<a id="ln-629" name="ln-629" href="#ln-629"></a><span class="w">            </span><span class="c">!! On input, the index of the boundary triangle to begin the</span>
+<a id="ln-630" name="ln-630" href="#ln-630"></a><span class="w">            </span><span class="c">!! search at.  On output, the index of the rightmost</span>
+<a id="ln-631" name="ln-631" href="#ln-631"></a><span class="w">            </span><span class="c">!! boundary triangle visible from (X,Y).</span>
+<a id="ln-632" name="ln-632" href="#ln-632"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">redg</span>
+<a id="ln-633" name="ln-633" href="#ln-633"></a><span class="w">            </span><span class="c">!! The edge of triangle RTRI that is visible from (X,Y).</span>
+<a id="ln-634" name="ln-634" href="#ln-634"></a><span class="w">            </span><span class="c">!! 1 &lt;= REDG &lt;= 3.</span>
+<a id="ln-635" name="ln-635" href="#ln-635"></a>
+<a id="ln-636" name="ln-636" href="#ln-636"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-637" name="ln-637" href="#ln-637"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">a</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">,</span><span class="w"> </span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">l</span><span class="p">,</span><span class="w"> </span><span class="n">lr</span><span class="p">,</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-638" name="ln-638" href="#ln-638"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ldone</span>
+<a id="ln-639" name="ln-639" href="#ln-639"></a>
+<a id="ln-640" name="ln-640" href="#ln-640"></a><span class="w">        </span><span class="c">! Find the rightmost visible boundary edge using links, then</span>
+<a id="ln-641" name="ln-641" href="#ln-641"></a><span class="w">        </span><span class="c">! possibly the leftmost visible boundary edge using triangle</span>
+<a id="ln-642" name="ln-642" href="#ln-642"></a><span class="w">        </span><span class="c">! neighbor information</span>
+<a id="ln-643" name="ln-643" href="#ln-643"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">ltri</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-644" name="ln-644" href="#ln-644"></a><span class="k">            </span><span class="n">ldone</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-645" name="ln-645" href="#ln-645"></a><span class="w">            </span><span class="n">ltri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">rtri</span>
+<a id="ln-646" name="ln-646" href="#ln-646"></a><span class="w">            </span><span class="n">ledg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">redg</span>
+<a id="ln-647" name="ln-647" href="#ln-647"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-648" name="ln-648" href="#ln-648"></a><span class="k">            </span><span class="n">ldone</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a id="ln-649" name="ln-649" href="#ln-649"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-650" name="ln-650" href="#ln-650"></a>
+<a id="ln-651" name="ln-651" href="#ln-651"></a><span class="k">        do</span>
+<a id="ln-652" name="ln-652" href="#ln-652"></a><span class="k">            </span><span class="n">l</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">redg</span><span class="p">,</span><span class="w"> </span><span class="n">rtri</span><span class="p">)</span>
+<a id="ln-653" name="ln-653" href="#ln-653"></a><span class="w">            </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">l</span><span class="w"> </span><span class="o">/</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-654" name="ln-654" href="#ln-654"></a><span class="w">            </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">mod</span><span class="p">(</span><span class="n">l</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-655" name="ln-655" href="#ln-655"></a><span class="w">            </span><span class="n">a</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-656" name="ln-656" href="#ln-656"></a>
+<a id="ln-657" name="ln-657" href="#ln-657"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">e</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-658" name="ln-658" href="#ln-658"></a><span class="k">                </span><span class="n">b</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">e</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-659" name="ln-659" href="#ln-659"></a><span class="w">            </span><span class="k">else</span>
+<a id="ln-660" name="ln-660" href="#ln-660"></a><span class="k">                </span><span class="n">b</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-661" name="ln-661" href="#ln-661"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-662" name="ln-662" href="#ln-662"></a>
+<a id="ln-663" name="ln-663" href="#ln-663"></a><span class="k">            </span><span class="n">lr</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">lrline</span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="w"> </span><span class="n">y</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-664" name="ln-664" href="#ln-664"></a><span class="w">                </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">),</span><span class="w"> </span><span class="mf">0.0d0</span><span class="p">)</span>
+<a id="ln-665" name="ln-665" href="#ln-665"></a>
+<a id="ln-666" name="ln-666" href="#ln-666"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">lr</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">exit</span>
+<a id="ln-667" name="ln-667" href="#ln-667"></a>
+<a id="ln-668" name="ln-668" href="#ln-668"></a><span class="k">            </span><span class="n">rtri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-669" name="ln-669" href="#ln-669"></a><span class="w">            </span><span class="n">redg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">e</span>
+<a id="ln-670" name="ln-670" href="#ln-670"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-671" name="ln-671" href="#ln-671"></a>
+<a id="ln-672" name="ln-672" href="#ln-672"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="n">ldone</span><span class="p">)</span><span class="w"> </span><span class="k">return</span>
+<a id="ln-673" name="ln-673" href="#ln-673"></a>
+<a id="ln-674" name="ln-674" href="#ln-674"></a><span class="k">        </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ltri</span>
+<a id="ln-675" name="ln-675" href="#ln-675"></a><span class="w">        </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">ledg</span>
+<a id="ln-676" name="ln-676" href="#ln-676"></a>
+<a id="ln-677" name="ln-677" href="#ln-677"></a><span class="w">        </span><span class="k">do</span>
+<a id="ln-678" name="ln-678" href="#ln-678"></a><span class="k">            </span><span class="n">b</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-679" name="ln-679" href="#ln-679"></a><span class="w">            </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i4_wrap</span><span class="p">(</span><span class="n">e</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span>
+<a id="ln-680" name="ln-680" href="#ln-680"></a>
+<a id="ln-681" name="ln-681" href="#ln-681"></a><span class="w">            </span><span class="k">do while</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">))</span>
+<a id="ln-682" name="ln-682" href="#ln-682"></a><span class="w">                </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-683" name="ln-683" href="#ln-683"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">b</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-684" name="ln-684" href="#ln-684"></a><span class="k">                    </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-685" name="ln-685" href="#ln-685"></a><span class="w">                </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">b</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-686" name="ln-686" href="#ln-686"></a><span class="k">                    </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-687" name="ln-687" href="#ln-687"></a><span class="w">                </span><span class="k">else</span>
+<a id="ln-688" name="ln-688" href="#ln-688"></a><span class="k">                    </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-689" name="ln-689" href="#ln-689"></a><span class="w">                </span><span class="k">end if</span>
+<a id="ln-690" name="ln-690" href="#ln-690"></a><span class="k">            end do</span>
+<a id="ln-691" name="ln-691" href="#ln-691"></a>
+<a id="ln-692" name="ln-692" href="#ln-692"></a><span class="k">            </span><span class="n">a</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-693" name="ln-693" href="#ln-693"></a>
+<a id="ln-694" name="ln-694" href="#ln-694"></a><span class="w">            </span><span class="n">lr</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">lrline</span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="w"> </span><span class="n">y</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-695" name="ln-695" href="#ln-695"></a><span class="w">                </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">),</span><span class="w"> </span><span class="mf">0.0d0</span><span class="p">)</span>
+<a id="ln-696" name="ln-696" href="#ln-696"></a>
+<a id="ln-697" name="ln-697" href="#ln-697"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">lr</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">exit</span>
+<a id="ln-698" name="ln-698" href="#ln-698"></a><span class="k">        end do</span>
+<a id="ln-699" name="ln-699" href="#ln-699"></a>
+<a id="ln-700" name="ln-700" href="#ln-700"></a><span class="k">        </span><span class="n">ltri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-701" name="ln-701" href="#ln-701"></a><span class="w">        </span><span class="n">ledg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">e</span>
+<a id="ln-702" name="ln-702" href="#ln-702"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-703" name="ln-703" href="#ln-703"></a>
+<a id="ln-704" name="ln-704" href="#ln-704"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-705" name="ln-705" href="#ln-705"></a><span class="w">    </span><span class="k">pure subroutine </span><span class="n">swapec</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">top</span><span class="p">,</span><span class="w"> </span><span class="n">btri</span><span class="p">,</span><span class="w"> </span><span class="n">bedg</span><span class="p">,</span><span class="w"> </span><span class="n">node_num</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-706" name="ln-706" href="#ln-706"></a><span class="w">            </span><span class="n">triangle_num</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">,</span><span class="w"> </span><span class="n">stack</span><span class="p">)</span>
+<a id="ln-707" name="ln-707" href="#ln-707"></a><span class="w">        </span><span class="c">!! Swaps diagonal edges until all triangles are Delaunay.</span>
+<a id="ln-708" name="ln-708" href="#ln-708"></a><span class="w">        </span><span class="c">!!</span>
+<a id="ln-709" name="ln-709" href="#ln-709"></a><span class="w">        </span><span class="c">!! The routine swaps diagonal edges in a 2D triangulation, based</span>
+<a id="ln-710" name="ln-710" href="#ln-710"></a><span class="w">        </span><span class="c">!! on the empty circumcircle criterion, until all triangles are</span>
+<a id="ln-711" name="ln-711" href="#ln-711"></a><span class="w">        </span><span class="c">!! Delaunay, given that I is the index of the new vertex added</span>
+<a id="ln-712" name="ln-712" href="#ln-712"></a><span class="w">        </span><span class="c">!! to the triangulation.</span>
+<a id="ln-713" name="ln-713" href="#ln-713"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-714" name="ln-714" href="#ln-714"></a><span class="w">            </span><span class="c">!! The index of the new vertex.</span>
+<a id="ln-715" name="ln-715" href="#ln-715"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">top</span>
+<a id="ln-716" name="ln-716" href="#ln-716"></a><span class="w">            </span><span class="c">!! The index of the top of the stack.  On output, TOP is</span>
+<a id="ln-717" name="ln-717" href="#ln-717"></a><span class="w">            </span><span class="c">!! zero.</span>
+<a id="ln-718" name="ln-718" href="#ln-718"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">btri</span>
+<a id="ln-719" name="ln-719" href="#ln-719"></a><span class="w">            </span><span class="c">!! On input, if positive, the triangle index of a boundary</span>
+<a id="ln-720" name="ln-720" href="#ln-720"></a><span class="w">            </span><span class="c">!! edge whose updated index must be recorded.  On output,</span>
+<a id="ln-721" name="ln-721" href="#ln-721"></a><span class="w">            </span><span class="c">!! this may be updated because of swaps.</span>
+<a id="ln-722" name="ln-722" href="#ln-722"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">bedg</span>
+<a id="ln-723" name="ln-723" href="#ln-723"></a><span class="w">            </span><span class="c">!! On input, if positive, the edge index of a boundary edge</span>
+<a id="ln-724" name="ln-724" href="#ln-724"></a><span class="w">            </span><span class="c">!! whose updated index must be recorded.  On output, this</span>
+<a id="ln-725" name="ln-725" href="#ln-725"></a><span class="w">            </span><span class="c">!! may be updated because of swaps.</span>
+<a id="ln-726" name="ln-726" href="#ln-726"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">node_num</span>
+<a id="ln-727" name="ln-727" href="#ln-727"></a><span class="w">            </span><span class="c">!! The number of points.</span>
+<a id="ln-728" name="ln-728" href="#ln-728"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">node_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">node_xy</span>
+<a id="ln-729" name="ln-729" href="#ln-729"></a><span class="w">            </span><span class="c">!! The coordinates of the points.</span>
+<a id="ln-730" name="ln-730" href="#ln-730"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">triangle_num</span>
+<a id="ln-731" name="ln-731" href="#ln-731"></a><span class="w">            </span><span class="c">!! The number of triangles.</span>
+<a id="ln-732" name="ln-732" href="#ln-732"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-733" name="ln-733" href="#ln-733"></a><span class="w">            </span><span class="n">triangle_node</span>
+<a id="ln-734" name="ln-734" href="#ln-734"></a><span class="w">            </span><span class="c">!! The triangle incidence list.  May be updated on output</span>
+<a id="ln-735" name="ln-735" href="#ln-735"></a><span class="w">            </span><span class="c">!! because of swaps.</span>
+<a id="ln-736" name="ln-736" href="#ln-736"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">triangle_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-737" name="ln-737" href="#ln-737"></a><span class="w">            </span><span class="n">triangle_neighbor</span>
+<a id="ln-738" name="ln-738" href="#ln-738"></a><span class="w">            </span><span class="c">!! The triangle neighbor list; negative values are used for</span>
+<a id="ln-739" name="ln-739" href="#ln-739"></a><span class="w">            </span><span class="c">!! links of the counter-clockwise linked list of boundary</span>
+<a id="ln-740" name="ln-740" href="#ln-740"></a><span class="w">            </span><span class="c">!! edges.  May be updated on output because of swaps.</span>
+<a id="ln-741" name="ln-741" href="#ln-741"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="n">node_num</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">stack</span>
+<a id="ln-742" name="ln-742" href="#ln-742"></a><span class="w">            </span><span class="c">!! On input, entries 1 through TOP contain the indices of</span>
+<a id="ln-743" name="ln-743" href="#ln-743"></a><span class="w">            </span><span class="c">!! initial triangles (involving vertex I) put in the stack;</span>
+<a id="ln-744" name="ln-744" href="#ln-744"></a><span class="w">            </span><span class="c">!! the edges opposite I should be in the interior; entries</span>
+<a id="ln-745" name="ln-745" href="#ln-745"></a><span class="w">            </span><span class="c">!! TOP+1 through NODE_NUM are used as a stack.</span>
+<a id="ln-746" name="ln-746" href="#ln-746"></a>
+<a id="ln-747" name="ln-747" href="#ln-747"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-748" name="ln-748" href="#ln-748"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">a</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">,</span><span class="w"> </span><span class="n">c</span><span class="p">,</span><span class="w"> </span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">ee</span><span class="p">,</span><span class="w"> </span><span class="n">em1</span><span class="p">,</span><span class="w"> </span><span class="n">ep1</span><span class="p">,</span><span class="w"> </span><span class="n">f</span><span class="p">,</span><span class="w"> </span><span class="n">fm1</span><span class="p">,</span><span class="w"> </span><span class="n">fp1</span><span class="p">,</span><span class="w"> </span><span class="n">l</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">,</span><span class="w"> </span><span class="n">s</span><span class="p">,</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-749" name="ln-749" href="#ln-749"></a><span class="w">            </span><span class="n">swap</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">,</span><span class="w"> </span><span class="n">u</span>
+<a id="ln-750" name="ln-750" href="#ln-750"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span><span class="p">,</span><span class="w"> </span><span class="n">y</span>
+<a id="ln-751" name="ln-751" href="#ln-751"></a>
+<a id="ln-752" name="ln-752" href="#ln-752"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span>
+<a id="ln-753" name="ln-753" href="#ln-753"></a><span class="w">        </span><span class="n">y</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">)</span>
+<a id="ln-754" name="ln-754" href="#ln-754"></a>
+<a id="ln-755" name="ln-755" href="#ln-755"></a><span class="w">        </span><span class="k">do</span>
+<a id="ln-756" name="ln-756" href="#ln-756"></a><span class="k">            if</span><span class="w"> </span><span class="p">(</span><span class="n">top</span><span class="w"> </span><span class="o">&lt;=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">exit</span>
+<a id="ln-757" name="ln-757" href="#ln-757"></a>
+<a id="ln-758" name="ln-758" href="#ln-758"></a><span class="k">            </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">stack</span><span class="p">(</span><span class="n">top</span><span class="p">)</span>
+<a id="ln-759" name="ln-759" href="#ln-759"></a><span class="w">            </span><span class="n">top</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">top</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-760" name="ln-760" href="#ln-760"></a>
+<a id="ln-761" name="ln-761" href="#ln-761"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-762" name="ln-762" href="#ln-762"></a><span class="k">                </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-763" name="ln-763" href="#ln-763"></a><span class="w">                </span><span class="n">b</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-764" name="ln-764" href="#ln-764"></a><span class="w">            </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">i</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-765" name="ln-765" href="#ln-765"></a><span class="k">                </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-766" name="ln-766" href="#ln-766"></a><span class="w">                </span><span class="n">b</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-767" name="ln-767" href="#ln-767"></a><span class="w">            </span><span class="k">else</span>
+<a id="ln-768" name="ln-768" href="#ln-768"></a><span class="k">                </span><span class="n">e</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-769" name="ln-769" href="#ln-769"></a><span class="w">                </span><span class="n">b</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-770" name="ln-770" href="#ln-770"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-771" name="ln-771" href="#ln-771"></a>
+<a id="ln-772" name="ln-772" href="#ln-772"></a><span class="k">            </span><span class="n">a</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-773" name="ln-773" href="#ln-773"></a><span class="w">            </span><span class="n">u</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-774" name="ln-774" href="#ln-774"></a>
+<a id="ln-775" name="ln-775" href="#ln-775"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-776" name="ln-776" href="#ln-776"></a><span class="k">                </span><span class="n">f</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-777" name="ln-777" href="#ln-777"></a><span class="w">                </span><span class="n">c</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span>
+<a id="ln-778" name="ln-778" href="#ln-778"></a><span class="w">            </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-779" name="ln-779" href="#ln-779"></a><span class="k">                </span><span class="n">f</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-780" name="ln-780" href="#ln-780"></a><span class="w">                </span><span class="n">c</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span>
+<a id="ln-781" name="ln-781" href="#ln-781"></a><span class="w">            </span><span class="k">else</span>
+<a id="ln-782" name="ln-782" href="#ln-782"></a><span class="k">                </span><span class="n">f</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-783" name="ln-783" href="#ln-783"></a><span class="w">                </span><span class="n">c</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span>
+<a id="ln-784" name="ln-784" href="#ln-784"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-785" name="ln-785" href="#ln-785"></a>
+<a id="ln-786" name="ln-786" href="#ln-786"></a><span class="k">            </span><span class="n">swap</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">diaedg</span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="w"> </span><span class="n">y</span><span class="p">,</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">a</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-787" name="ln-787" href="#ln-787"></a><span class="w">                </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">c</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">c</span><span class="p">),</span><span class="w"> </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">),</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-788" name="ln-788" href="#ln-788"></a><span class="w">                </span><span class="n">node_xy</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">))</span>
+<a id="ln-789" name="ln-789" href="#ln-789"></a>
+<a id="ln-790" name="ln-790" href="#ln-790"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">swap</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-791" name="ln-791" href="#ln-791"></a><span class="k">                </span><span class="n">em1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i4_wrap</span><span class="p">(</span><span class="n">e</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span>
+<a id="ln-792" name="ln-792" href="#ln-792"></a><span class="w">                </span><span class="n">ep1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i4_wrap</span><span class="p">(</span><span class="n">e</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span>
+<a id="ln-793" name="ln-793" href="#ln-793"></a><span class="w">                </span><span class="n">fm1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i4_wrap</span><span class="p">(</span><span class="n">f</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span>
+<a id="ln-794" name="ln-794" href="#ln-794"></a><span class="w">                </span><span class="n">fp1</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i4_wrap</span><span class="p">(</span><span class="n">f</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="mi">3</span><span class="p">)</span>
+<a id="ln-795" name="ln-795" href="#ln-795"></a>
+<a id="ln-796" name="ln-796" href="#ln-796"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">ep1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">c</span>
+<a id="ln-797" name="ln-797" href="#ln-797"></a><span class="w">                </span><span class="n">triangle_node</span><span class="p">(</span><span class="n">fp1</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-798" name="ln-798" href="#ln-798"></a><span class="w">                </span><span class="n">r</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ep1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span>
+<a id="ln-799" name="ln-799" href="#ln-799"></a><span class="w">                </span><span class="n">s</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">fp1</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span>
+<a id="ln-800" name="ln-800" href="#ln-800"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ep1</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">u</span>
+<a id="ln-801" name="ln-801" href="#ln-801"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">fp1</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-802" name="ln-802" href="#ln-802"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">e</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">s</span>
+<a id="ln-803" name="ln-803" href="#ln-803"></a><span class="w">                </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">f</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">r</span>
+<a id="ln-804" name="ln-804" href="#ln-804"></a>
+<a id="ln-805" name="ln-805" href="#ln-805"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">fm1</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-806" name="ln-806" href="#ln-806"></a><span class="k">                    </span><span class="n">top</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">top</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-807" name="ln-807" href="#ln-807"></a><span class="w">                    </span><span class="n">stack</span><span class="p">(</span><span class="n">top</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">u</span>
+<a id="ln-808" name="ln-808" href="#ln-808"></a><span class="w">                </span><span class="k">end if</span>
+<a id="ln-809" name="ln-809" href="#ln-809"></a>
+<a id="ln-810" name="ln-810" href="#ln-810"></a><span class="k">                if</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-811" name="ln-811" href="#ln-811"></a><span class="k">                    if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-812" name="ln-812" href="#ln-812"></a><span class="k">                        </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-813" name="ln-813" href="#ln-813"></a><span class="w">                    </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-814" name="ln-814" href="#ln-814"></a><span class="k">                        </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-815" name="ln-815" href="#ln-815"></a><span class="w">                    </span><span class="k">else</span>
+<a id="ln-816" name="ln-816" href="#ln-816"></a><span class="k">                        </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-817" name="ln-817" href="#ln-817"></a><span class="w">                    </span><span class="k">end if</span>
+<a id="ln-818" name="ln-818" href="#ln-818"></a>
+<a id="ln-819" name="ln-819" href="#ln-819"></a><span class="k">                    </span><span class="n">top</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">top</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-820" name="ln-820" href="#ln-820"></a><span class="w">                    </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">node_num</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">top</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-821" name="ln-821" href="#ln-821"></a><span class="k">                        error stop</span><span class="w"> </span><span class="s2">&quot;SWAPEC - Fatal error!  Stack overflow.&quot;</span>
+<a id="ln-822" name="ln-822" href="#ln-822"></a><span class="w">                    </span><span class="k">end if</span>
+<a id="ln-823" name="ln-823" href="#ln-823"></a><span class="k">                    </span><span class="n">stack</span><span class="p">(</span><span class="n">top</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-824" name="ln-824" href="#ln-824"></a><span class="w">                </span><span class="k">else</span>
+<a id="ln-825" name="ln-825" href="#ln-825"></a><span class="k">                    if</span><span class="w"> </span><span class="p">(</span><span class="n">u</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">btri</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">fp1</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">bedg</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-826" name="ln-826" href="#ln-826"></a><span class="k">                        </span><span class="n">btri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-827" name="ln-827" href="#ln-827"></a><span class="w">                        </span><span class="n">bedg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">e</span>
+<a id="ln-828" name="ln-828" href="#ln-828"></a><span class="w">                    </span><span class="k">end if</span>
+<a id="ln-829" name="ln-829" href="#ln-829"></a>
+<a id="ln-830" name="ln-830" href="#ln-830"></a><span class="k">                    </span><span class="n">l</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="p">(</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">e</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span>
+<a id="ln-831" name="ln-831" href="#ln-831"></a><span class="w">                    </span><span class="n">tt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">t</span>
+<a id="ln-832" name="ln-832" href="#ln-832"></a><span class="w">                    </span><span class="n">ee</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">em1</span>
+<a id="ln-833" name="ln-833" href="#ln-833"></a>
+<a id="ln-834" name="ln-834" href="#ln-834"></a><span class="w">                    </span><span class="k">do while</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ee</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">))</span>
+<a id="ln-835" name="ln-835" href="#ln-835"></a><span class="w">                        </span><span class="n">tt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ee</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">)</span>
+<a id="ln-836" name="ln-836" href="#ln-836"></a><span class="w">                        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">a</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-837" name="ln-837" href="#ln-837"></a><span class="k">                            </span><span class="n">ee</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-838" name="ln-838" href="#ln-838"></a><span class="w">                        </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">a</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-839" name="ln-839" href="#ln-839"></a><span class="k">                            </span><span class="n">ee</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-840" name="ln-840" href="#ln-840"></a><span class="w">                        </span><span class="k">else</span>
+<a id="ln-841" name="ln-841" href="#ln-841"></a><span class="k">                            </span><span class="n">ee</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-842" name="ln-842" href="#ln-842"></a><span class="w">                        </span><span class="k">end if</span>
+<a id="ln-843" name="ln-843" href="#ln-843"></a><span class="k">                    end do</span>
+<a id="ln-844" name="ln-844" href="#ln-844"></a>
+<a id="ln-845" name="ln-845" href="#ln-845"></a><span class="k">                    </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ee</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">l</span>
+<a id="ln-846" name="ln-846" href="#ln-846"></a><span class="w">                </span><span class="k">end if</span>
+<a id="ln-847" name="ln-847" href="#ln-847"></a>
+<a id="ln-848" name="ln-848" href="#ln-848"></a><span class="k">                if</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">r</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-849" name="ln-849" href="#ln-849"></a><span class="k">                    if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-850" name="ln-850" href="#ln-850"></a><span class="k">                        </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">u</span>
+<a id="ln-851" name="ln-851" href="#ln-851"></a><span class="w">                    </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-852" name="ln-852" href="#ln-852"></a><span class="k">                        </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">u</span>
+<a id="ln-853" name="ln-853" href="#ln-853"></a><span class="w">                    </span><span class="k">else</span>
+<a id="ln-854" name="ln-854" href="#ln-854"></a><span class="k">                        </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">u</span>
+<a id="ln-855" name="ln-855" href="#ln-855"></a><span class="w">                    </span><span class="k">end if</span>
+<a id="ln-856" name="ln-856" href="#ln-856"></a><span class="k">                else</span>
+<a id="ln-857" name="ln-857" href="#ln-857"></a><span class="k">                    if</span><span class="w"> </span><span class="p">(</span><span class="n">t</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">btri</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">ep1</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">bedg</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-858" name="ln-858" href="#ln-858"></a><span class="k">                        </span><span class="n">btri</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">u</span>
+<a id="ln-859" name="ln-859" href="#ln-859"></a><span class="w">                        </span><span class="n">bedg</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">f</span>
+<a id="ln-860" name="ln-860" href="#ln-860"></a><span class="w">                    </span><span class="k">end if</span>
+<a id="ln-861" name="ln-861" href="#ln-861"></a>
+<a id="ln-862" name="ln-862" href="#ln-862"></a><span class="k">                    </span><span class="n">l</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">-</span><span class="p">(</span><span class="mi">3</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">u</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span>
+<a id="ln-863" name="ln-863" href="#ln-863"></a><span class="w">                    </span><span class="n">tt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">u</span>
+<a id="ln-864" name="ln-864" href="#ln-864"></a><span class="w">                    </span><span class="n">ee</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fm1</span>
+<a id="ln-865" name="ln-865" href="#ln-865"></a>
+<a id="ln-866" name="ln-866" href="#ln-866"></a><span class="w">                    </span><span class="k">do while</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ee</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">))</span>
+<a id="ln-867" name="ln-867" href="#ln-867"></a><span class="w">                        </span><span class="n">tt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ee</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">)</span>
+<a id="ln-868" name="ln-868" href="#ln-868"></a><span class="w">                        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">b</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-869" name="ln-869" href="#ln-869"></a><span class="k">                            </span><span class="n">ee</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">3</span>
+<a id="ln-870" name="ln-870" href="#ln-870"></a><span class="w">                        </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">triangle_node</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">)</span><span class="w"> </span><span class="o">==</span><span class="w"> </span><span class="n">b</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-871" name="ln-871" href="#ln-871"></a><span class="k">                            </span><span class="n">ee</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-872" name="ln-872" href="#ln-872"></a><span class="w">                        </span><span class="k">else</span>
+<a id="ln-873" name="ln-873" href="#ln-873"></a><span class="k">                            </span><span class="n">ee</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span>
+<a id="ln-874" name="ln-874" href="#ln-874"></a><span class="w">                        </span><span class="k">end if</span>
+<a id="ln-875" name="ln-875" href="#ln-875"></a><span class="k">                    end do</span>
+<a id="ln-876" name="ln-876" href="#ln-876"></a>
+<a id="ln-877" name="ln-877" href="#ln-877"></a><span class="k">                    </span><span class="n">triangle_neighbor</span><span class="p">(</span><span class="n">ee</span><span class="p">,</span><span class="w"> </span><span class="n">tt</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">l</span>
+<a id="ln-878" name="ln-878" href="#ln-878"></a><span class="w">                </span><span class="k">end if</span>
+<a id="ln-879" name="ln-879" href="#ln-879"></a><span class="k">            end if</span>
+<a id="ln-880" name="ln-880" href="#ln-880"></a><span class="k">        end do</span>
+<a id="ln-881" name="ln-881" href="#ln-881"></a><span class="k">    end subroutine</span>
+<a id="ln-882" name="ln-882" href="#ln-882"></a>
+<a id="ln-883" name="ln-883" href="#ln-883"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-884" name="ln-884" href="#ln-884"></a><span class="k">end module</span>
+</pre></div>
+
+      </section>
+    </div>
+  </div>
+
+      <hr>
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+        <div class="row justify-content-between">
+          <div class="col"><p>FPLOT was developed by Jason Christopherson<br>&copy; 2026 
+</p>
+          </div>
+          <div class="col">
+            <p class="text-end">
+              Documentation generated by
+              <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+ on 2026-10-01 05:57              </p>
+          </div>
+        </div>
+        <br>
+      </div> <!-- /container -->
+    </footer>
+
+    <!-- Bootstrap core JavaScript -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script src="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/js/bootstrap.bundle.min.js"
+            integrity="sha384-ka7Sk0Gln4gmtz2MlQnikT1wXgYsOg+OMhuP+IlRH9sENBO0LRn5q+8nbTov4+1p" crossorigin="anonymous"></script>    
+
+    <!-- MathJax JavaScript
+             ================================================== -->
+             <!-- Placed at the end of the document so the pages load faster -->
+        <script type="text/x-mathjax-config">
+          MathJax.Hub.Config({
+          TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+          jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+          extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+          });
+        </script>
+        <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+
+          <script src="../tipuesearch/tipuesearch_content.js"></script>
+          <script src="../tipuesearch/tipuesearch_set.js"></script>
+          <script src="../tipuesearch/tipuesearch.js"></script>
+
+  </body>
+</html>
\ No newline at end of file
diff --git a/doc/sourcefile/fplot_arrow.f90.html b/doc/sourcefile/fplot_arrow.f90.html
index a6e963a8..d4e64c15 100644
--- a/doc/sourcefile/fplot_arrow.f90.html
+++ b/doc/sourcefile/fplot_arrow.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_arrow.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.3% of total for source files.">296 statements</a>
+                 title=" 3.0% of total for source files.">296 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -740,7 +740,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_colormap.f90.html b/doc/sourcefile/fplot_colormap.f90.html
index e3d94cfd..46d63903 100644
--- a/doc/sourcefile/fplot_colormap.f90.html
+++ b/doc/sourcefile/fplot_colormap.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_colormap.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.1% of total for source files.">283 statements</a>
+                 title=" 4.0% of total for source files.">390 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -172,476 +172,646 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a id="ln-19" name="ln-19" href="#ln-19"></a><span class="w">    </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">grey_colormap</span>
 <a id="ln-20" name="ln-20" href="#ln-20"></a><span class="w">    </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">earth_colormap</span>
 <a id="ln-21" name="ln-21" href="#ln-21"></a><span class="w">    </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">custom_colormap</span>
-<a id="ln-22" name="ln-22" href="#ln-22"></a>
-<a id="ln-23" name="ln-23" href="#ln-23"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">abstract</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_object</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">colormap</span>
-<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="w">        </span><span class="c">!! A colormap object for a surface plot.</span>
-<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">private</span><span class="p">,</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_label</span>
-<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="w">            </span><span class="c">!! The label to associate with the colormap.</span>
-<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_horizontal</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="w">            </span><span class="c">!! The colormap should be drawn horizontally.</span>
-<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_drawBorder</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w">            </span><span class="c">!! Draw the colormap border.</span>
-<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_showTics</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="w">            </span><span class="c">!! Show the tic marks.</span>
-<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_command_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_cmd</span>
-<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">        </span><span class="k">procedure</span><span class="p">(</span><span class="n">cm_get_string_result</span><span class="p">),</span><span class="w"> </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span>
-<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_label</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_label</span>
-<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_label</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_label</span>
-<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_horizontal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_horizontal</span>
-<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_horizontal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_horizontal</span>
-<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_draw_border</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_draw_border</span>
-<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_draw_border</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_draw_border</span>
-<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_show_tics</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_show_tics</span>
-<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_show_tics</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_show_tics</span>
-<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-45" name="ln-45" href="#ln-45"></a>
-<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="k">    interface</span>
-<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="k">        function </span><span class="n">cm_get_string_result</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w">            </span><span class="c">!! Retrieves a string result from a colormap object.</span>
-<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">            </span><span class="k">import </span><span class="n">colormap</span>
-<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">            </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">                </span><span class="c">!! The colormap object.</span>
-<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">            </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">                </span><span class="c">!! The string.</span>
-<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="w">        </span><span class="k">end function</span>
-<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="k">    end interface</span>
-<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rainbow_colormap</span>
-<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">        </span><span class="c">!! Defines a rainbow colormap.</span>
-<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">rcm_get_clr</span>
-<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-62" name="ln-62" href="#ln-62"></a>
-<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">hot_colormap</span>
-<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">        </span><span class="c">!! Defines a colormap consisting of &quot;hot&quot; colors.</span>
-<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">hcm_get_clr</span>
-<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-69" name="ln-69" href="#ln-69"></a>
-<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">cool_colormap</span>
-<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">        </span><span class="c">!! Defines a colormap consisting of &quot;cool&quot; colors.</span>
-<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">ccm_get_clr</span>
-<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-76" name="ln-76" href="#ln-76"></a>
-<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">parula_colormap</span>
-<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">        </span><span class="c">!! Defines a colormap equivalent to the MATLAB parula colormap.</span>
-<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pcm_get_clr</span>
-<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-83" name="ln-83" href="#ln-83"></a>
-<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">grey_colormap</span>
-<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">        </span><span class="c">!! Defines a grey-scaled colormap.</span>
-<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">gcm_get_clr</span>
-<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-90" name="ln-90" href="#ln-90"></a>
-<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">earth_colormap</span>
-<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">        </span><span class="c">!! Defines an earthy-colored colormap.</span>
-<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">ecm_get_clr</span>
-<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-97" name="ln-97" href="#ln-97"></a>
-<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">custom_colormap</span>
-<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">        </span><span class="c">!! Defines a custom colormap that utilizes the FORCOLORMAP library</span>
-<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">        </span><span class="c">!! to provide the map.</span>
-<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">cmap</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="p">,</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_map</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="nb">null</span><span class="p">()</span>
-<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">            </span><span class="c">!! The FORCOLORMAP object.</span>
-<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="k">        final</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">custom_final</span>
-<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">custom_get_clr</span>
-<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_colormap</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">custom_set</span>
-<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_colormap</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">custom_get</span>
-<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-110" name="ln-110" href="#ln-110"></a>
-<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="k">contains</span>
-<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="c">! COLORMAP MEMBERS</span>
-<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">    </span><span class="k">function </span><span class="n">cm_get_cmd</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT command string to represent this colormap object.</span>
-<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-122" name="ln-122" href="#ln-122"></a>
-<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
-<a id="ln-125" name="ln-125" href="#ln-125"></a>
-<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">        </span><span class="c">! Initialization</span>
-<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">initialize</span><span class="p">()</span>
-<a id="ln-128" name="ln-128" href="#ln-128"></a>
-<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">        </span><span class="c">! Palette Definition</span>
-<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set palette defined (&quot;</span><span class="p">)</span>
-<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_color_string</span><span class="p">())</span>
-<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;)&quot;</span><span class="p">)</span>
+<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="w">    </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_colormap</span>
+<a id="ln-23" name="ln-23" href="#ln-23"></a>
+<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">abstract</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_object</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">colormap</span>
+<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="w">        </span><span class="c">!! A colormap object for a surface plot.</span>
+<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">private</span><span class="p">,</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_label</span>
+<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="w">            </span><span class="c">!! The label to associate with the colormap.</span>
+<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_horizontal</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w">            </span><span class="c">!! The colormap should be drawn horizontally.</span>
+<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_drawBorder</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w">            </span><span class="c">!! Draw the colormap border.</span>
+<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_showTics</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="w">            </span><span class="c">!! Show the tic marks.</span>
+<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_colorbarThickness</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.02</span>
+<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">            </span><span class="c">!! The relative thickness of the colorbar itself.  A value of 0</span>
+<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">            </span><span class="c">!! allows GNUPLOT to use it&#39;s defaults.  This value is clamped to</span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">            </span><span class="c">!! the range [0.0, 1.0].</span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_colorbarLength</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.4</span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">            </span><span class="c">!! The relative length of the colorbar itself.  A value of 0</span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">            </span><span class="c">!! allows GNUPLOT to use it&#39;s defaults.  This value is clamped to</span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">            </span><span class="c">!! the range [0.0, 1.0].</span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_axesSize</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">[</span><span class="mf">0.85</span><span class="p">,</span><span class="w"> </span><span class="mf">0.85</span><span class="p">]</span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">            </span><span class="c">!! The size of the axes size defined as [width, height] </span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">            </span><span class="c">!! clamped to the interval [0.0, 1.0].</span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_axesOrigin</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">[</span><span class="mf">0.05</span><span class="p">,</span><span class="w"> </span><span class="mf">0.05</span><span class="p">]</span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">            </span><span class="c">!! The x-y coordinates of the axes clamped to the interval</span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="w">            </span><span class="c">!! [0.0, 1.0].</span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_command_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_cmd</span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">        </span><span class="k">procedure</span><span class="p">(</span><span class="n">cm_get_string_result</span><span class="p">),</span><span class="w"> </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_label</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_label</span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_label</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_label</span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_horizontal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_horizontal</span>
+<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_horizontal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_horizontal</span>
+<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_draw_border</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_draw_border</span>
+<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_draw_border</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_draw_border</span>
+<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_show_tics</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_show_tics</span>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_show_tics</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_show_tics</span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_colorbar_thickness</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_colorbar_thickness</span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_colorbar_thickness</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_colorbar_thickness</span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_colorbar_length</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_colorbar_length</span>
+<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_colorbar_length</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_colorbar_length</span>
+<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_axes_size</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_axes_size</span>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_axes_size</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_axes_size</span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_axes_origin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_get_axes_origin</span>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_axes_origin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">cm_set_axes_origin</span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="k">    interface</span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="k">        function </span><span class="n">cm_get_string_result</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">            </span><span class="c">!! Retrieves a string result from a colormap object.</span>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">            </span><span class="k">import </span><span class="n">colormap</span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">            </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">                </span><span class="c">!! The colormap object.</span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">            </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">                </span><span class="c">!! The string.</span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="w">        </span><span class="k">end function</span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="k">    end interface</span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rainbow_colormap</span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="w">        </span><span class="c">!! Defines a rainbow colormap.</span>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">rcm_get_clr</span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">hot_colormap</span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="w">        </span><span class="c">!! Defines a colormap consisting of &quot;hot&quot; colors.</span>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">hcm_get_clr</span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">cool_colormap</span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">        </span><span class="c">!! Defines a colormap consisting of &quot;cool&quot; colors.</span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">ccm_get_clr</span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">parula_colormap</span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">        </span><span class="c">!! Defines a colormap equivalent to the MATLAB parula colormap.</span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pcm_get_clr</span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">grey_colormap</span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">        </span><span class="c">!! Defines a grey-scaled colormap.</span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">gcm_get_clr</span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a>
+<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">earth_colormap</span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">        </span><span class="c">!! Defines an earthy-colored colormap.</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">ecm_get_clr</span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-120" name="ln-120" href="#ln-120"></a>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">custom_colormap</span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">        </span><span class="c">!! Defines a custom colormap that utilizes the FORCOLORMAP library</span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">        </span><span class="c">!! to provide the map.</span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">cmap</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="p">,</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_map</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="nb">null</span><span class="p">()</span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">            </span><span class="c">!! The FORCOLORMAP object.</span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="k">        final</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">custom_final</span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">custom_get_clr</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_colormap</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">custom_set</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_colormap</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">custom_get</span>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">    </span><span class="k">end type</span>
 <a id="ln-133" name="ln-133" href="#ln-133"></a>
-<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">len</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_label</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;set cblabel &quot;&#39;</span><span class="p">)</span>
-<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_label</span><span class="p">())</span>
-<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
-<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-140" name="ln-140" href="#ln-140"></a>
-<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">        </span><span class="c">! Orientation</span>
-<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_horizontal</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set colorbox horizontal&quot;</span><span class="p">)</span>
-<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set size 0.8,0.8; set origin 0.1,0.2&quot;</span><span class="p">)</span>
-<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set colorbox user origin 0.1,0.175 size 0.8,0.055&quot;</span><span class="p">)</span>
-<a id="ln-149" name="ln-149" href="#ln-149"></a>
-<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">len</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_label</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set cblabel offset 0,0.8&quot;</span><span class="p">)</span>
-<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">            </span><span class="k">end if</span>
-<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="k">        end if</span>
-<a id="ln-155" name="ln-155" href="#ln-155"></a>
-<a id="ln-156" name="ln-156" href="#ln-156"></a><span class="w">        </span><span class="c">! Border &amp; Tic Marks</span>
-<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">this</span><span class="p">%</span><span class="n">get_draw_border</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">            </span><span class="c">! Eliminate the border</span>
-<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set colorbox noborder&quot;</span><span class="p">)</span>
-<a id="ln-161" name="ln-161" href="#ln-161"></a>
-<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">            </span><span class="c">! Hide the tic marks</span>
-<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set cbtic scale 0&quot;</span><span class="p">)</span>
-<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">            </span><span class="c">! Respect the tic mark visibility setting if the border is shown</span>
-<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">this</span><span class="p">%</span><span class="n">get_show_tics</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set cbtic scale 0&quot;</span><span class="p">)</span>
-<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">            </span><span class="k">end if</span>
-<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="k">        end if</span>
-<a id="ln-172" name="ln-172" href="#ln-172"></a>
-<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">        </span><span class="c">! End</span>
-<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
-<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-176" name="ln-176" href="#ln-176"></a>
-<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_label</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">        </span><span class="c">!! Gets the label to associate with the colorbar.</span>
-<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">            </span><span class="c">!! The label.</span>
-<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_label</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_label</span>
-<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span>
-<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="k">    end function</span>
-<a id="ln-190" name="ln-190" href="#ln-190"></a>
-<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="c">! --------------------</span>
-<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_label</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">        </span><span class="c">!! Sets the label to associate with the colorbar.</span>
-<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">            </span><span class="c">!! The label.</span>
-<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_label</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-200" name="ln-200" href="#ln-200"></a>
-<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_horizontal</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">        </span><span class="c">!! Gets a logical value determining if the colormap should be</span>
-<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">        </span><span class="c">!! drawn horizontally and below the plot.</span>
-<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">            </span><span class="c">!! Returns true if the colormap should be drawn horizontally;</span>
-<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="w">            </span><span class="c">!! else, false.</span>
-<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_horizontal</span>
-<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-212" name="ln-212" href="#ln-212"></a>
-<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="c">! --------------------</span>
-<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_horizontal</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="w">        </span><span class="c">!! Sets a logical value determining if the colormap should be</span>
-<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">        </span><span class="c">!! drawn horizontally and below the plot.</span>
-<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">            </span><span class="c">!! Set to true if the colormap should be drawn horizontally;</span>
-<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="w">            </span><span class="c">!! else, false.</span>
-<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_horizontal</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-224" name="ln-224" href="#ln-224"></a>
-<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_draw_border</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-227" name="ln-227" href="#ln-227"></a><span class="w">        </span><span class="c">!! Gets a logical value determining if the border should be drawn.</span>
-<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">            </span><span class="c">!! Returns true if the border should be drawn; else, false.</span>
-<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_drawBorder</span>
-<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-234" name="ln-234" href="#ln-234"></a>
-<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="c">! --------------------</span>
-<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_draw_border</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">        </span><span class="c">!! Sets a logical value determining if the border should be drawn.</span>
-<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">            </span><span class="c">!! Set to true if the border should be drawn; else, false.</span>
-<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_drawBorder</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-244" name="ln-244" href="#ln-244"></a>
-<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_show_tics</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="w">        </span><span class="c">!! Gets a logical value determining if the tic marks should be drawn.</span>
-<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="w">            </span><span class="c">!! Returns true if the tic marks should be drawn; else, false.</span>
-<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_showTics</span>
-<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-254" name="ln-254" href="#ln-254"></a>
-<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="c">! --------------------</span>
-<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_show_tics</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="w">        </span><span class="c">!! Sets a logical value determining if the tic marks should be drawn.</span>
-<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
-<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="w">            </span><span class="c">!! Set to true if the tic marks should be drawn; else, false.</span>
-<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_showTics</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-264" name="ln-264" href="#ln-264"></a>
-<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="c">! TO DO:</span>
-<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="c">!   - Set user-defined tic labels &amp; limits (ref: http://gnuplot.sourceforge.net/demo_5.4/cerf.html)</span>
-<a id="ln-268" name="ln-268" href="#ln-268"></a>
-<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="c">! RAINBOW_COLORMAP MEMBERS</span>
-<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">    </span><span class="k">function </span><span class="n">rcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
-<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">rainbow_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="w">            </span><span class="c">!! The rainbow_colormap object.</span>
-<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;0 &quot;dark-blue&quot;, 1 &quot;blue&quot;, 2 &quot;cyan&quot;, 3 &quot;green&quot;, 4 &quot;yellow&quot;, &#39;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">            </span><span class="s1">&#39;5 &quot;orange&quot;, 6 &quot;red&quot;, 7 &quot;dark-red&quot;&#39;</span>
-<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-281" name="ln-281" href="#ln-281"></a>
-<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="c">! HOT_COLORMAP MEMBERS</span>
-<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-285" name="ln-285" href="#ln-285"></a><span class="w">    </span><span class="k">function </span><span class="n">hcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
-<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">hot_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">            </span><span class="c">!! The hot_colormap object.</span>
-<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;0 &quot;black&quot;, 1 &quot;red&quot;, 2 &quot;orange&quot;, 3 &quot;yellow&quot;, 4 &quot;white&quot;&#39;</span>
-<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-293" name="ln-293" href="#ln-293"></a>
-<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="c">! COOL_COLORMAP MEMBERS</span>
-<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="w">    </span><span class="k">function </span><span class="n">ccm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
-<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">cool_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">            </span><span class="c">!! The cool_colormap object.</span>
-<a id="ln-301" name="ln-301" href="#ln-301"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-303" name="ln-303" href="#ln-303"></a>
-<a id="ln-304" name="ln-304" href="#ln-304"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
-<a id="ln-305" name="ln-305" href="#ln-305"></a>
-<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#08589E&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#2B8CBE&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#4EB3D3&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#7BCCC4&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#A8DDB5&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#CCEBC5&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-312" name="ln-312" href="#ln-312"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#E0F3DB&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#F7FCF0&#39;&quot;</span><span class="p">)</span>
-<a id="ln-314" name="ln-314" href="#ln-314"></a>
-<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
-<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">        </span><span class="c">! x = &#39;0 &quot;blue&quot;, 1 &quot;turquoise&quot;, 2 &quot;light-green&quot;&#39;</span>
-<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-318" name="ln-318" href="#ln-318"></a>
-<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-320" name="ln-320" href="#ln-320"></a><span class="c">! PARULA_COLORMAP MEMBERS</span>
-<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">    </span><span class="k">function </span><span class="n">pcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
-<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">parula_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">            </span><span class="c">!! The parula_colormap object.</span>
-<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="w">        </span>
-<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="w">    </span><span class="k">type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">colormap</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">spectral_colormap</span>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">        </span><span class="c">!! Defines the spectral colormap available at </span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">        </span><span class="c">!! https://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal.</span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_color_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">spcm_get_clr</span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-141" name="ln-141" href="#ln-141"></a>
+<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="k">contains</span>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="c">! COLORMAP MEMBERS</span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">    </span><span class="k">function </span><span class="n">cm_get_cmd</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT command string to represent this colormap object.</span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">sz</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span><span class="w"> </span><span class="n">origin</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span><span class="w"> </span><span class="n">length</span><span class="p">,</span><span class="w"> </span><span class="n">thickness</span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">        </span><span class="c">! Initialization</span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">initialize</span><span class="p">()</span>
+<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">        </span><span class="n">sz</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_axes_size</span><span class="p">()</span>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">        </span><span class="n">origin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_axes_origin</span><span class="p">()</span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">        </span><span class="n">length</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_colorbar_length</span><span class="p">()</span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">        </span><span class="n">thickness</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_colorbar_thickness</span><span class="p">()</span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a>
+<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">        </span><span class="c">! Palette Definition</span>
+<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set palette defined (&quot;</span><span class="p">)</span>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_color_string</span><span class="p">())</span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;)&quot;</span><span class="p">)</span>
+<a id="ln-168" name="ln-168" href="#ln-168"></a>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">len</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_label</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;set cblabel &quot;&#39;</span><span class="p">)</span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_label</span><span class="p">())</span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">        </span><span class="c">! Orientation</span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_horizontal</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set colorbox horizontal&quot;</span><span class="p">)</span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set size &quot;</span><span class="p">)</span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">sz</span><span class="p">(</span><span class="mi">1</span><span class="p">)))</span>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">sz</span><span class="p">(</span><span class="mi">2</span><span class="p">)))</span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;; set origin &quot;</span><span class="p">)</span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">origin</span><span class="p">(</span><span class="mi">1</span><span class="p">)))</span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">origin</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mf">0.075</span><span class="p">))</span>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set colorbox user origin &quot;</span><span class="p">)</span>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="mf">0.5</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mf">0.5</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">length</span><span class="p">))</span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,0.1 size &quot;</span><span class="p">)</span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">length</span><span class="p">))</span>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">thickness</span><span class="p">))</span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a>
+<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">len</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_label</span><span class="p">())</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set cblabel offset 0,0.8&quot;</span><span class="p">)</span>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="k">        else</span>
+<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set colorbox vertical&quot;</span><span class="p">)</span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set size &quot;</span><span class="p">)</span>
+<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">sz</span><span class="p">(</span><span class="mi">1</span><span class="p">)))</span>
+<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">sz</span><span class="p">(</span><span class="mi">2</span><span class="p">)))</span>
+<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;; set origin &quot;</span><span class="p">)</span>
+<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">origin</span><span class="p">(</span><span class="mi">1</span><span class="p">)))</span>
+<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-212" name="ln-212" href="#ln-212"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">origin</span><span class="p">(</span><span class="mi">2</span><span class="p">)))</span>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set colorbox user origin 0.9,&quot;</span><span class="p">)</span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="mf">0.5</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mf">0.5</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">length</span><span class="p">))</span>
+<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; size &quot;</span><span class="p">)</span>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">thickness</span><span class="p">))</span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">length</span><span class="p">))</span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a>
+<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="w">        </span><span class="c">! Border &amp; Tic Marks</span>
+<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">this</span><span class="p">%</span><span class="n">get_draw_border</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="w">            </span><span class="c">! Eliminate the border</span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set colorbox noborder&quot;</span><span class="p">)</span>
+<a id="ln-227" name="ln-227" href="#ln-227"></a>
+<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">            </span><span class="c">! Hide the tic marks</span>
+<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set cbtic scale 0&quot;</span><span class="p">)</span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">            </span><span class="c">! Respect the tic mark visibility setting if the border is shown</span>
+<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">this</span><span class="p">%</span><span class="n">get_show_tics</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set cbtic scale 0&quot;</span><span class="p">)</span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="k">        end if</span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">        </span><span class="c">! End</span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_label</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="w">        </span><span class="c">!! Gets the label to associate with the colorbar.</span>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">            </span><span class="c">!! The label.</span>
+<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_label</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_label</span>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span>
+<a id="ln-254" name="ln-254" href="#ln-254"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="k">    end function</span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a>
+<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="c">! --------------------</span>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_label</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="w">        </span><span class="c">!! Sets the label to associate with the colorbar.</span>
+<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">            </span><span class="c">!! The label.</span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_label</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-266" name="ln-266" href="#ln-266"></a>
+<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_horizontal</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">        </span><span class="c">!! Gets a logical value determining if the colormap should be</span>
+<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="w">        </span><span class="c">!! drawn horizontally and below the plot.</span>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">            </span><span class="c">!! Returns true if the colormap should be drawn horizontally;</span>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="w">            </span><span class="c">!! else, false.</span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_horizontal</span>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a>
+<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="c">! --------------------</span>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_horizontal</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="w">        </span><span class="c">!! Sets a logical value determining if the colormap should be</span>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">        </span><span class="c">!! drawn horizontally and below the plot.</span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-285" name="ln-285" href="#ln-285"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">            </span><span class="c">!! Set to true if the colormap should be drawn horizontally;</span>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">            </span><span class="c">!! else, false.</span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_horizontal</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-290" name="ln-290" href="#ln-290"></a>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_draw_border</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-293" name="ln-293" href="#ln-293"></a><span class="w">        </span><span class="c">!! Gets a logical value determining if the border should be drawn.</span>
+<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="w">            </span><span class="c">!! Returns true if the border should be drawn; else, false.</span>
+<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_drawBorder</span>
+<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-300" name="ln-300" href="#ln-300"></a>
+<a id="ln-301" name="ln-301" href="#ln-301"></a><span class="c">! --------------------</span>
+<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_draw_border</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="w">        </span><span class="c">!! Sets a logical value determining if the border should be drawn.</span>
+<a id="ln-304" name="ln-304" href="#ln-304"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">            </span><span class="c">!! Set to true if the border should be drawn; else, false.</span>
+<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_drawBorder</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-310" name="ln-310" href="#ln-310"></a>
+<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-312" name="ln-312" href="#ln-312"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_show_tics</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">        </span><span class="c">!! Gets a logical value determining if the tic marks should be drawn.</span>
+<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">            </span><span class="c">!! Returns true if the tic marks should be drawn; else, false.</span>
+<a id="ln-318" name="ln-318" href="#ln-318"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_showTics</span>
+<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-320" name="ln-320" href="#ln-320"></a>
+<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="c">! --------------------</span>
+<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_show_tics</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">        </span><span class="c">!! Sets a logical value determining if the tic marks should be drawn.</span>
+<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="w">            </span><span class="c">!! Set to true if the tic marks should be drawn; else, false.</span>
+<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_showTics</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="w">    </span><span class="k">end subroutine</span>
 <a id="ln-330" name="ln-330" href="#ln-330"></a>
-<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#352a87&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#0363e1&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#1485d4&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#06a7c6&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#38b99e&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#92bf73&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#d9ba56&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#fcce2e&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;8 &#39;#f9fb0e&#39;&quot;</span><span class="p">)</span>
+<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_colorbar_thickness</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">        </span><span class="c">!! Gets the relative thickness of the colorbar.</span>
+<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">            </span><span class="c">!! The thickness in [0.0, 1.0]; 0 uses GNUPLOT&#39;s default.</span>
+<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_colorbarThickness</span>
+<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">    </span><span class="k">end function</span>
 <a id="ln-340" name="ln-340" href="#ln-340"></a>
-<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
-<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-343" name="ln-343" href="#ln-343"></a>
-<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="c">! GREY_COLORMAP MEMBERS</span>
-<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="w">    </span><span class="k">function </span><span class="n">gcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
-<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">grey_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-350" name="ln-350" href="#ln-350"></a><span class="w">            </span><span class="c">!! The grey_colormap object.</span>
-<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-353" name="ln-353" href="#ln-353"></a>
-<a id="ln-354" name="ln-354" href="#ln-354"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
-<a id="ln-355" name="ln-355" href="#ln-355"></a>
-<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#FFFFFF&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#F0F0F0&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#D9D9D9&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#BDBDBD&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#969696&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#737373&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#525252&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#252525&#39;&quot;</span><span class="p">)</span>
-<a id="ln-364" name="ln-364" href="#ln-364"></a>
-<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
-<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-367" name="ln-367" href="#ln-367"></a>
-<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="c">! EARTH_COLORMAP</span>
-<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="w">    </span><span class="k">function </span><span class="n">ecm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
-<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">earth_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-374" name="ln-374" href="#ln-374"></a><span class="w">            </span><span class="c">!! The earth_colormap object.</span>
-<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-377" name="ln-377" href="#ln-377"></a>
-<a id="ln-378" name="ln-378" href="#ln-378"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
-<a id="ln-379" name="ln-379" href="#ln-379"></a>
-<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#8C510A&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#BF812D&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-382" name="ln-382" href="#ln-382"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#DFC27D&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#F6E8C3&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#D9F0D3&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#A6DBA0&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#5AAE61&#39;,&quot;</span><span class="p">)</span>
-<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#1B7837&#39;&quot;</span><span class="p">)</span>
-<a id="ln-388" name="ln-388" href="#ln-388"></a>
-<a id="ln-389" name="ln-389" href="#ln-389"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
-<a id="ln-390" name="ln-390" href="#ln-390"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-391" name="ln-391" href="#ln-391"></a>
-<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="c">! Additional Color Maps:</span>
-<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="c">! https://github.com/Gnuplotting/gnuplot-palettes</span>
-<a id="ln-395" name="ln-395" href="#ln-395"></a>
-<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="c">! ADDED: Jan. 08, 2024 - JAC</span>
-<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="c">! CUSTOM_COLORMAP</span>
-<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-400" name="ln-400" href="#ln-400"></a><span class="w">    </span><span class="k">function </span><span class="n">custom_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
-<a id="ln-402" name="ln-402" href="#ln-402"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">custom_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="w">            </span><span class="c">!! The custom_colormap object.</span>
-<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-406" name="ln-406" href="#ln-406"></a>
-<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
-<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">,</span><span class="w"> </span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">,</span><span class="w"> </span><span class="n">c</span>
-<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">6</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ctxt</span>
+<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="c">! --------------------</span>
+<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_colorbar_thickness</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">        </span><span class="c">!! Sets the relative colorbar thickness, clamped to [0.0, 1.0].</span>
+<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="w">            </span><span class="c">!! The requested thickness; 0 uses GNUPLOT&#39;s default.</span>
+<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_colorbarThickness</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="mf">0.0</span><span class="p">,</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="mf">1.0</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">))</span>
+<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-350" name="ln-350" href="#ln-350"></a>
+<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_colorbar_length</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">        </span><span class="c">!! Gets the relative length of the colorbar.</span>
+<a id="ln-354" name="ln-354" href="#ln-354"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-355" name="ln-355" href="#ln-355"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">            </span><span class="c">!! The length in [0.0, 1.0]; 0 uses GNUPLOT&#39;s default.</span>
+<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_colorbarLength</span>
+<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-360" name="ln-360" href="#ln-360"></a>
+<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="c">! --------------------</span>
+<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_colorbar_length</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">        </span><span class="c">!! Sets the relative colorbar length, clamped to [0.0, 1.0].</span>
+<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-367" name="ln-367" href="#ln-367"></a><span class="w">            </span><span class="c">!! The requested length; 0 uses GNUPLOT&#39;s default.</span>
+<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_colorbarLength</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="mf">0.0</span><span class="p">,</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="mf">1.0</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">))</span>
+<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-370" name="ln-370" href="#ln-370"></a>
+<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_axes_size</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">        </span><span class="c">!! Gets the relative width and height of the axes.</span>
+<a id="ln-374" name="ln-374" href="#ln-374"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-377" name="ln-377" href="#ln-377"></a><span class="w">            </span><span class="c">!! The [width, height], each in [0.0, 1.0].</span>
+<a id="ln-378" name="ln-378" href="#ln-378"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_axesSize</span>
+<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-380" name="ln-380" href="#ln-380"></a>
+<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="c">! --------------------</span>
+<a id="ln-382" name="ln-382" href="#ln-382"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_axes_size</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="w">        </span><span class="c">!! Sets the axes width and height, each clamped to [0.0, 1.0].</span>
+<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">            </span><span class="c">!! The requested [width, height].</span>
+<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_axesSize</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="mf">0.0</span><span class="p">,</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="mf">1.0</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">))</span>
+<a id="ln-389" name="ln-389" href="#ln-389"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-390" name="ln-390" href="#ln-390"></a>
+<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">    </span><span class="k">pure function </span><span class="n">cm_get_axes_origin</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">        </span><span class="c">!! Gets the relative x-y coordinates of the axes origin.</span>
+<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="w">            </span><span class="c">!! The [x, y] coordinates, each in [0.0, 1.0].</span>
+<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_axesOrigin</span>
+<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-400" name="ln-400" href="#ln-400"></a>
+<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="c">! --------------------</span>
+<a id="ln-402" name="ln-402" href="#ln-402"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">cm_set_axes_origin</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="w">        </span><span class="c">!! Sets the axes origin coordinates, each clamped to [0.0, 1.0].</span>
+<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">            </span><span class="c">!! The colormap object.</span>
+<a id="ln-406" name="ln-406" href="#ln-406"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">            </span><span class="c">!! The requested [x, y] coordinates.</span>
+<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_axesOrigin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="mf">0.0</span><span class="p">,</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="mf">1.0</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">))</span>
+<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">    </span><span class="k">end subroutine</span>
 <a id="ln-410" name="ln-410" href="#ln-410"></a>
-<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-412" name="ln-412" href="#ln-412"></a><span class="k">            allocate</span><span class="p">(</span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="w">            </span><span class="k">return</span>
-<a id="ln-414" name="ln-414" href="#ln-414"></a><span class="k">        end if</span>
-<a id="ln-415" name="ln-415" href="#ln-415"></a>
-<a id="ln-416" name="ln-416" href="#ln-416"></a><span class="k">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">%</span><span class="n">get_levels</span><span class="p">()</span>
-<a id="ln-417" name="ln-417" href="#ln-417"></a><span class="w">        </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
-<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="w">            </span><span class="c">! Get the RGB triple</span>
-<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="w">            </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">%</span><span class="n">get_RGB</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">,</span><span class="w"> </span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">)</span>
-<a id="ln-420" name="ln-420" href="#ln-420"></a><span class="w">            </span><span class="n">c</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">ishft</span><span class="p">(</span><span class="n">r</span><span class="p">,</span><span class="w"> </span><span class="mi">16</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="nb">ishft</span><span class="p">(</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="mi">8</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">b</span>
-<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="w">            </span><span class="k">write</span><span class="p">(</span><span class="n">ctxt</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(Z6.6)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">c</span>
-<a id="ln-422" name="ln-422" href="#ln-422"></a>
-<a id="ln-423" name="ln-423" href="#ln-423"></a><span class="w">            </span><span class="c">! Append the color information</span>
-<a id="ln-424" name="ln-424" href="#ln-424"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a id="ln-425" name="ln-425" href="#ln-425"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; &#39;#&quot;</span><span class="p">)</span>
-<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">ctxt</span><span class="p">)</span>
-<a id="ln-427" name="ln-427" href="#ln-427"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;&#39;&quot;</span><span class="p">)</span>
-<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">i</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="n">n</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-429" name="ln-429" href="#ln-429"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
-<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="w">            </span><span class="k">end if</span>
-<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="k">        end do</span>
-<a id="ln-432" name="ln-432" href="#ln-432"></a>
-<a id="ln-433" name="ln-433" href="#ln-433"></a><span class="k">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
-<a id="ln-434" name="ln-434" href="#ln-434"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-435" name="ln-435" href="#ln-435"></a>
-<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">custom_set</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">map</span><span class="p">,</span><span class="w"> </span><span class="n">err</span><span class="p">)</span>
-<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="w">        </span><span class="c">!! Sets the FORCOLORMAP colormap object.</span>
-<a id="ln-439" name="ln-439" href="#ln-439"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">custom_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-440" name="ln-440" href="#ln-440"></a><span class="w">            </span><span class="c">!! The custom_colormap object.</span>
-<a id="ln-441" name="ln-441" href="#ln-441"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">cmap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">map</span>
-<a id="ln-442" name="ln-442" href="#ln-442"></a><span class="w">            </span><span class="c">!! The FORCOLORMAP colormap object.  The custom_colormap object </span>
-<a id="ln-443" name="ln-443" href="#ln-443"></a><span class="w">            </span><span class="c">!! stores a copy of this object; therefore, any changes made to </span>
-<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">            </span><span class="c">!! x after calls to this routine will not impact the behavior of </span>
-<a id="ln-445" name="ln-445" href="#ln-445"></a><span class="w">            </span><span class="c">!! the custom_colormap object.</span>
-<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">err</span>
-<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="w">            </span><span class="c">!! An error handling object.</span>
-<a id="ln-448" name="ln-448" href="#ln-448"></a>
-<a id="ln-449" name="ln-449" href="#ln-449"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-450" name="ln-450" href="#ln-450"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">flag</span>
-<a id="ln-451" name="ln-451" href="#ln-451"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">errmgr</span>
-<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">deferr</span>
-<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">        </span>
-<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="w">        </span><span class="c">! Initialization</span>
-<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">err</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-456" name="ln-456" href="#ln-456"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">err</span>
-<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-458" name="ln-458" href="#ln-458"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">deferr</span>
-<a id="ln-459" name="ln-459" href="#ln-459"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-412" name="ln-412" href="#ln-412"></a><span class="c">! TO DO:</span>
+<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="c">!   - Set user-defined tic labels &amp; limits (ref: http://gnuplot.sourceforge.net/demo_5.4/cerf.html)</span>
+<a id="ln-414" name="ln-414" href="#ln-414"></a>
+<a id="ln-415" name="ln-415" href="#ln-415"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-416" name="ln-416" href="#ln-416"></a><span class="c">! RAINBOW_COLORMAP MEMBERS</span>
+<a id="ln-417" name="ln-417" href="#ln-417"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="w">    </span><span class="k">function </span><span class="n">rcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
+<a id="ln-420" name="ln-420" href="#ln-420"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">rainbow_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="w">            </span><span class="c">!! The rainbow_colormap object.</span>
+<a id="ln-422" name="ln-422" href="#ln-422"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-423" name="ln-423" href="#ln-423"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-424" name="ln-424" href="#ln-424"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;0 &quot;dark-blue&quot;, 1 &quot;blue&quot;, 2 &quot;cyan&quot;, 3 &quot;green&quot;, 4 &quot;yellow&quot;, &#39;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-425" name="ln-425" href="#ln-425"></a><span class="w">            </span><span class="s1">&#39;5 &quot;orange&quot;, 6 &quot;red&quot;, 7 &quot;dark-red&quot;&#39;</span>
+<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-427" name="ln-427" href="#ln-427"></a>
+<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-429" name="ln-429" href="#ln-429"></a><span class="c">! HOT_COLORMAP MEMBERS</span>
+<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="w">    </span><span class="k">function </span><span class="n">hcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-432" name="ln-432" href="#ln-432"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
+<a id="ln-433" name="ln-433" href="#ln-433"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">hot_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-434" name="ln-434" href="#ln-434"></a><span class="w">            </span><span class="c">!! The hot_colormap object.</span>
+<a id="ln-435" name="ln-435" href="#ln-435"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s1">&#39;0 &quot;black&quot;, 1 &quot;red&quot;, 2 &quot;orange&quot;, 3 &quot;yellow&quot;, 4 &quot;white&quot;&#39;</span>
+<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-439" name="ln-439" href="#ln-439"></a>
+<a id="ln-440" name="ln-440" href="#ln-440"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-441" name="ln-441" href="#ln-441"></a><span class="c">! COOL_COLORMAP MEMBERS</span>
+<a id="ln-442" name="ln-442" href="#ln-442"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-443" name="ln-443" href="#ln-443"></a><span class="w">    </span><span class="k">function </span><span class="n">ccm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
+<a id="ln-445" name="ln-445" href="#ln-445"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">cool_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="w">            </span><span class="c">!! The cool_colormap object.</span>
+<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-448" name="ln-448" href="#ln-448"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-449" name="ln-449" href="#ln-449"></a>
+<a id="ln-450" name="ln-450" href="#ln-450"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-451" name="ln-451" href="#ln-451"></a>
+<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#08589E&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#2B8CBE&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#4EB3D3&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#7BCCC4&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-456" name="ln-456" href="#ln-456"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#A8DDB5&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#CCEBC5&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-458" name="ln-458" href="#ln-458"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#E0F3DB&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-459" name="ln-459" href="#ln-459"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#F7FCF0&#39;&quot;</span><span class="p">)</span>
 <a id="ln-460" name="ln-460" href="#ln-460"></a>
-<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="w">        </span><span class="c">! Process</span>
-<a id="ln-462" name="ln-462" href="#ln-462"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">)</span>
-<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">,</span><span class="w"> </span><span class="n">source</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">map</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-464" name="ln-464" href="#ln-464"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">flag</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="k">            call </span><span class="n">report_memory_error</span><span class="p">(</span><span class="n">errmgr</span><span class="p">,</span><span class="w"> </span><span class="s2">&quot;custom_set&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="w">            </span><span class="k">return</span>
-<a id="ln-467" name="ln-467" href="#ln-467"></a><span class="k">        end if</span>
-<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="k">    end subroutine</span>
-<a id="ln-469" name="ln-469" href="#ln-469"></a>
-<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">    </span><span class="k">function </span><span class="n">custom_get</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-472" name="ln-472" href="#ln-472"></a><span class="w">        </span><span class="c">!! Gets a pointer to the FORCOLORMAP colormap object.</span>
-<a id="ln-473" name="ln-473" href="#ln-473"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">custom_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="w">            </span><span class="c">!! The custom_colormap object.</span>
-<a id="ln-475" name="ln-475" href="#ln-475"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">cmap</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-476" name="ln-476" href="#ln-476"></a><span class="w">            </span><span class="c">!! A pointer to the FORCOLORMAP colormap object.</span>
-<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span>
-<a id="ln-478" name="ln-478" href="#ln-478"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-479" name="ln-479" href="#ln-479"></a>
-<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">custom_final</span><span class="p">(</span><span class="n">this</span><span class="p">)</span>
-<a id="ln-482" name="ln-482" href="#ln-482"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">custom_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-483" name="ln-483" href="#ln-483"></a><span class="w">            </span><span class="c">!! The custom_colormap object.</span>
-<a id="ln-484" name="ln-484" href="#ln-484"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-485" name="ln-485" href="#ln-485"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">)</span>
-<a id="ln-486" name="ln-486" href="#ln-486"></a><span class="w">            </span><span class="k">nullify</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">)</span>
-<a id="ln-487" name="ln-487" href="#ln-487"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-488" name="ln-488" href="#ln-488"></a><span class="k">    end subroutine</span>
+<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-462" name="ln-462" href="#ln-462"></a><span class="w">        </span><span class="c">! x = &#39;0 &quot;blue&quot;, 1 &quot;turquoise&quot;, 2 &quot;light-green&quot;&#39;</span>
+<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-464" name="ln-464" href="#ln-464"></a>
+<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="c">! PARULA_COLORMAP MEMBERS</span>
+<a id="ln-467" name="ln-467" href="#ln-467"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="w">    </span><span class="k">function </span><span class="n">pcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-469" name="ln-469" href="#ln-469"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
+<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">parula_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">            </span><span class="c">!! The parula_colormap object.</span>
+<a id="ln-472" name="ln-472" href="#ln-472"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-473" name="ln-473" href="#ln-473"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="w">        </span>
+<a id="ln-475" name="ln-475" href="#ln-475"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-476" name="ln-476" href="#ln-476"></a>
+<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#352a87&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-478" name="ln-478" href="#ln-478"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#0363e1&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-479" name="ln-479" href="#ln-479"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#1485d4&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#06a7c6&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#38b99e&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-482" name="ln-482" href="#ln-482"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#92bf73&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-483" name="ln-483" href="#ln-483"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#d9ba56&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-484" name="ln-484" href="#ln-484"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#fcce2e&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-485" name="ln-485" href="#ln-485"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;8 &#39;#f9fb0e&#39;&quot;</span><span class="p">)</span>
+<a id="ln-486" name="ln-486" href="#ln-486"></a>
+<a id="ln-487" name="ln-487" href="#ln-487"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-488" name="ln-488" href="#ln-488"></a><span class="w">    </span><span class="k">end function</span>
 <a id="ln-489" name="ln-489" href="#ln-489"></a>
-<a id="ln-490" name="ln-490" href="#ln-490"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-491" name="ln-491" href="#ln-491"></a><span class="k">end module</span>
+<a id="ln-490" name="ln-490" href="#ln-490"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-491" name="ln-491" href="#ln-491"></a><span class="c">! GREY_COLORMAP MEMBERS</span>
+<a id="ln-492" name="ln-492" href="#ln-492"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-493" name="ln-493" href="#ln-493"></a><span class="w">    </span><span class="k">function </span><span class="n">gcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-494" name="ln-494" href="#ln-494"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
+<a id="ln-495" name="ln-495" href="#ln-495"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">grey_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-496" name="ln-496" href="#ln-496"></a><span class="w">            </span><span class="c">!! The grey_colormap object.</span>
+<a id="ln-497" name="ln-497" href="#ln-497"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-498" name="ln-498" href="#ln-498"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-499" name="ln-499" href="#ln-499"></a>
+<a id="ln-500" name="ln-500" href="#ln-500"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-501" name="ln-501" href="#ln-501"></a>
+<a id="ln-502" name="ln-502" href="#ln-502"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#FFFFFF&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-503" name="ln-503" href="#ln-503"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#F0F0F0&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-504" name="ln-504" href="#ln-504"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#D9D9D9&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-505" name="ln-505" href="#ln-505"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#BDBDBD&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-506" name="ln-506" href="#ln-506"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#969696&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-507" name="ln-507" href="#ln-507"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#737373&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-508" name="ln-508" href="#ln-508"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#525252&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-509" name="ln-509" href="#ln-509"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#252525&#39;&quot;</span><span class="p">)</span>
+<a id="ln-510" name="ln-510" href="#ln-510"></a>
+<a id="ln-511" name="ln-511" href="#ln-511"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-512" name="ln-512" href="#ln-512"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-513" name="ln-513" href="#ln-513"></a>
+<a id="ln-514" name="ln-514" href="#ln-514"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-515" name="ln-515" href="#ln-515"></a><span class="c">! EARTH_COLORMAP</span>
+<a id="ln-516" name="ln-516" href="#ln-516"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-517" name="ln-517" href="#ln-517"></a><span class="w">    </span><span class="k">function </span><span class="n">ecm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-518" name="ln-518" href="#ln-518"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
+<a id="ln-519" name="ln-519" href="#ln-519"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">earth_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-520" name="ln-520" href="#ln-520"></a><span class="w">            </span><span class="c">!! The earth_colormap object.</span>
+<a id="ln-521" name="ln-521" href="#ln-521"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-522" name="ln-522" href="#ln-522"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-523" name="ln-523" href="#ln-523"></a>
+<a id="ln-524" name="ln-524" href="#ln-524"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-525" name="ln-525" href="#ln-525"></a>
+<a id="ln-526" name="ln-526" href="#ln-526"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#8C510A&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-527" name="ln-527" href="#ln-527"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#BF812D&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-528" name="ln-528" href="#ln-528"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#DFC27D&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-529" name="ln-529" href="#ln-529"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#F6E8C3&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-530" name="ln-530" href="#ln-530"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#D9F0D3&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-531" name="ln-531" href="#ln-531"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#A6DBA0&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-532" name="ln-532" href="#ln-532"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#5AAE61&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-533" name="ln-533" href="#ln-533"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#1B7837&#39;&quot;</span><span class="p">)</span>
+<a id="ln-534" name="ln-534" href="#ln-534"></a>
+<a id="ln-535" name="ln-535" href="#ln-535"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-536" name="ln-536" href="#ln-536"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-537" name="ln-537" href="#ln-537"></a>
+<a id="ln-538" name="ln-538" href="#ln-538"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-539" name="ln-539" href="#ln-539"></a><span class="c">! Additional Color Maps:</span>
+<a id="ln-540" name="ln-540" href="#ln-540"></a><span class="c">! https://github.com/Gnuplotting/gnuplot-palettes</span>
+<a id="ln-541" name="ln-541" href="#ln-541"></a>
+<a id="ln-542" name="ln-542" href="#ln-542"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-543" name="ln-543" href="#ln-543"></a><span class="c">! ADDED: Jan. 08, 2024 - JAC</span>
+<a id="ln-544" name="ln-544" href="#ln-544"></a><span class="c">! CUSTOM_COLORMAP</span>
+<a id="ln-545" name="ln-545" href="#ln-545"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-546" name="ln-546" href="#ln-546"></a><span class="w">    </span><span class="k">function </span><span class="n">custom_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-547" name="ln-547" href="#ln-547"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
+<a id="ln-548" name="ln-548" href="#ln-548"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">custom_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-549" name="ln-549" href="#ln-549"></a><span class="w">            </span><span class="c">!! The custom_colormap object.</span>
+<a id="ln-550" name="ln-550" href="#ln-550"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-551" name="ln-551" href="#ln-551"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-552" name="ln-552" href="#ln-552"></a>
+<a id="ln-553" name="ln-553" href="#ln-553"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-554" name="ln-554" href="#ln-554"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">,</span><span class="w"> </span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">,</span><span class="w"> </span><span class="n">c</span>
+<a id="ln-555" name="ln-555" href="#ln-555"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">6</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ctxt</span>
+<a id="ln-556" name="ln-556" href="#ln-556"></a>
+<a id="ln-557" name="ln-557" href="#ln-557"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-558" name="ln-558" href="#ln-558"></a><span class="k">            allocate</span><span class="p">(</span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-559" name="ln-559" href="#ln-559"></a><span class="w">            </span><span class="k">return</span>
+<a id="ln-560" name="ln-560" href="#ln-560"></a><span class="k">        end if</span>
+<a id="ln-561" name="ln-561" href="#ln-561"></a>
+<a id="ln-562" name="ln-562" href="#ln-562"></a><span class="k">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">%</span><span class="n">get_levels</span><span class="p">()</span>
+<a id="ln-563" name="ln-563" href="#ln-563"></a><span class="w">        </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span>
+<a id="ln-564" name="ln-564" href="#ln-564"></a><span class="w">            </span><span class="c">! Get the RGB triple</span>
+<a id="ln-565" name="ln-565" href="#ln-565"></a><span class="w">            </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">%</span><span class="n">get_RGB</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">r</span><span class="p">,</span><span class="w"> </span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="n">b</span><span class="p">)</span>
+<a id="ln-566" name="ln-566" href="#ln-566"></a><span class="w">            </span><span class="n">c</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">ishft</span><span class="p">(</span><span class="n">r</span><span class="p">,</span><span class="w"> </span><span class="mi">16</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="nb">ishft</span><span class="p">(</span><span class="n">g</span><span class="p">,</span><span class="w"> </span><span class="mi">8</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">b</span>
+<a id="ln-567" name="ln-567" href="#ln-567"></a><span class="w">            </span><span class="k">write</span><span class="p">(</span><span class="n">ctxt</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(Z6.6)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">c</span>
+<a id="ln-568" name="ln-568" href="#ln-568"></a>
+<a id="ln-569" name="ln-569" href="#ln-569"></a><span class="w">            </span><span class="c">! Append the color information</span>
+<a id="ln-570" name="ln-570" href="#ln-570"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a id="ln-571" name="ln-571" href="#ln-571"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; &#39;#&quot;</span><span class="p">)</span>
+<a id="ln-572" name="ln-572" href="#ln-572"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">ctxt</span><span class="p">)</span>
+<a id="ln-573" name="ln-573" href="#ln-573"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;&#39;&quot;</span><span class="p">)</span>
+<a id="ln-574" name="ln-574" href="#ln-574"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">i</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="n">n</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-575" name="ln-575" href="#ln-575"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-576" name="ln-576" href="#ln-576"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-577" name="ln-577" href="#ln-577"></a><span class="k">        end do</span>
+<a id="ln-578" name="ln-578" href="#ln-578"></a>
+<a id="ln-579" name="ln-579" href="#ln-579"></a><span class="k">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-580" name="ln-580" href="#ln-580"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-581" name="ln-581" href="#ln-581"></a>
+<a id="ln-582" name="ln-582" href="#ln-582"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-583" name="ln-583" href="#ln-583"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">custom_set</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">map</span><span class="p">,</span><span class="w"> </span><span class="n">err</span><span class="p">)</span>
+<a id="ln-584" name="ln-584" href="#ln-584"></a><span class="w">        </span><span class="c">!! Sets the FORCOLORMAP colormap object.</span>
+<a id="ln-585" name="ln-585" href="#ln-585"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">custom_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-586" name="ln-586" href="#ln-586"></a><span class="w">            </span><span class="c">!! The custom_colormap object.</span>
+<a id="ln-587" name="ln-587" href="#ln-587"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">cmap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">map</span>
+<a id="ln-588" name="ln-588" href="#ln-588"></a><span class="w">            </span><span class="c">!! The FORCOLORMAP colormap object.  The custom_colormap object </span>
+<a id="ln-589" name="ln-589" href="#ln-589"></a><span class="w">            </span><span class="c">!! stores a copy of this object; therefore, any changes made to </span>
+<a id="ln-590" name="ln-590" href="#ln-590"></a><span class="w">            </span><span class="c">!! x after calls to this routine will not impact the behavior of </span>
+<a id="ln-591" name="ln-591" href="#ln-591"></a><span class="w">            </span><span class="c">!! the custom_colormap object.</span>
+<a id="ln-592" name="ln-592" href="#ln-592"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">err</span>
+<a id="ln-593" name="ln-593" href="#ln-593"></a><span class="w">            </span><span class="c">!! An error handling object.</span>
+<a id="ln-594" name="ln-594" href="#ln-594"></a>
+<a id="ln-595" name="ln-595" href="#ln-595"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-596" name="ln-596" href="#ln-596"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">flag</span>
+<a id="ln-597" name="ln-597" href="#ln-597"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">errmgr</span>
+<a id="ln-598" name="ln-598" href="#ln-598"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">deferr</span>
+<a id="ln-599" name="ln-599" href="#ln-599"></a><span class="w">        </span>
+<a id="ln-600" name="ln-600" href="#ln-600"></a><span class="w">        </span><span class="c">! Initialization</span>
+<a id="ln-601" name="ln-601" href="#ln-601"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">err</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-602" name="ln-602" href="#ln-602"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">err</span>
+<a id="ln-603" name="ln-603" href="#ln-603"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-604" name="ln-604" href="#ln-604"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">deferr</span>
+<a id="ln-605" name="ln-605" href="#ln-605"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-606" name="ln-606" href="#ln-606"></a>
+<a id="ln-607" name="ln-607" href="#ln-607"></a><span class="w">        </span><span class="c">! Process</span>
+<a id="ln-608" name="ln-608" href="#ln-608"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">)</span>
+<a id="ln-609" name="ln-609" href="#ln-609"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">,</span><span class="w"> </span><span class="n">source</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">map</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-610" name="ln-610" href="#ln-610"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">flag</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-611" name="ln-611" href="#ln-611"></a><span class="k">            call </span><span class="n">report_memory_error</span><span class="p">(</span><span class="n">errmgr</span><span class="p">,</span><span class="w"> </span><span class="s2">&quot;custom_set&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-612" name="ln-612" href="#ln-612"></a><span class="w">            </span><span class="k">return</span>
+<a id="ln-613" name="ln-613" href="#ln-613"></a><span class="k">        end if</span>
+<a id="ln-614" name="ln-614" href="#ln-614"></a><span class="k">    end subroutine</span>
+<a id="ln-615" name="ln-615" href="#ln-615"></a>
+<a id="ln-616" name="ln-616" href="#ln-616"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-617" name="ln-617" href="#ln-617"></a><span class="w">    </span><span class="k">function </span><span class="n">custom_get</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-618" name="ln-618" href="#ln-618"></a><span class="w">        </span><span class="c">!! Gets a pointer to the FORCOLORMAP colormap object.</span>
+<a id="ln-619" name="ln-619" href="#ln-619"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">custom_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-620" name="ln-620" href="#ln-620"></a><span class="w">            </span><span class="c">!! The custom_colormap object.</span>
+<a id="ln-621" name="ln-621" href="#ln-621"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">cmap</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-622" name="ln-622" href="#ln-622"></a><span class="w">            </span><span class="c">!! A pointer to the FORCOLORMAP colormap object.</span>
+<a id="ln-623" name="ln-623" href="#ln-623"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span>
+<a id="ln-624" name="ln-624" href="#ln-624"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-625" name="ln-625" href="#ln-625"></a>
+<a id="ln-626" name="ln-626" href="#ln-626"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-627" name="ln-627" href="#ln-627"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">custom_final</span><span class="p">(</span><span class="n">this</span><span class="p">)</span>
+<a id="ln-628" name="ln-628" href="#ln-628"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">custom_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-629" name="ln-629" href="#ln-629"></a><span class="w">            </span><span class="c">!! The custom_colormap object.</span>
+<a id="ln-630" name="ln-630" href="#ln-630"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-631" name="ln-631" href="#ln-631"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">)</span>
+<a id="ln-632" name="ln-632" href="#ln-632"></a><span class="w">            </span><span class="k">nullify</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_map</span><span class="p">)</span>
+<a id="ln-633" name="ln-633" href="#ln-633"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-634" name="ln-634" href="#ln-634"></a><span class="k">    end subroutine</span>
+<a id="ln-635" name="ln-635" href="#ln-635"></a>
+<a id="ln-636" name="ln-636" href="#ln-636"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-637" name="ln-637" href="#ln-637"></a><span class="c">! SPECTRAL_COLORMAP MEMBERS</span>
+<a id="ln-638" name="ln-638" href="#ln-638"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-639" name="ln-639" href="#ln-639"></a><span class="w">    </span><span class="k">function </span><span class="n">spcm_get_clr</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-640" name="ln-640" href="#ln-640"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT string defining the color distribution.</span>
+<a id="ln-641" name="ln-641" href="#ln-641"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">spectral_colormap</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-642" name="ln-642" href="#ln-642"></a><span class="w">            </span><span class="c">!! The spectral_colormap object.</span>
+<a id="ln-643" name="ln-643" href="#ln-643"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-644" name="ln-644" href="#ln-644"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-645" name="ln-645" href="#ln-645"></a>
+<a id="ln-646" name="ln-646" href="#ln-646"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-647" name="ln-647" href="#ln-647"></a>
+<a id="ln-648" name="ln-648" href="#ln-648"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;0 &#39;#D53E4F&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-649" name="ln-649" href="#ln-649"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;1 &#39;#F46D43&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-650" name="ln-650" href="#ln-650"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;2 &#39;#FDAE61&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-651" name="ln-651" href="#ln-651"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;3 &#39;#FEE08B&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-652" name="ln-652" href="#ln-652"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;4 &#39;#E6F598&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-653" name="ln-653" href="#ln-653"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;5 &#39;#ABDDA4&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-654" name="ln-654" href="#ln-654"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;6 &#39;#66C2A5&#39;,&quot;</span><span class="p">)</span>
+<a id="ln-655" name="ln-655" href="#ln-655"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;7 &#39;#3288BD&#39;&quot;</span><span class="p">)</span>
+<a id="ln-656" name="ln-656" href="#ln-656"></a>
+<a id="ln-657" name="ln-657" href="#ln-657"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-658" name="ln-658" href="#ln-658"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-659" name="ln-659" href="#ln-659"></a>
+<a id="ln-660" name="ln-660" href="#ln-660"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-661" name="ln-661" href="#ln-661"></a><span class="k">end module</span>
 </pre></div>
 
       </section>
@@ -660,7 +830,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_colors.f90.html b/doc/sourcefile/fplot_colors.f90.html
index dc01370a..c27f4f1a 100644
--- a/doc/sourcefile/fplot_colors.f90.html
+++ b/doc/sourcefile/fplot_colors.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_colors.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.6% of total for source files.">144 statements</a>
+                 title=" 1.5% of total for source files.">144 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -406,7 +406,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_constants.f90.html b/doc/sourcefile/fplot_constants.f90.html
index 58acd1c7..1c248d14 100644
--- a/doc/sourcefile/fplot_constants.f90.html
+++ b/doc/sourcefile/fplot_constants.f90.html
@@ -344,7 +344,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_core.f90.html b/doc/sourcefile/fplot_core.f90.html
index 3c042abe..efb557ab 100644
--- a/doc/sourcefile/fplot_core.f90.html
+++ b/doc/sourcefile/fplot_core.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_core.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.5% of total for source files.">44 statements</a>
+                 title=" 0.4% of total for source files.">44 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -220,7 +220,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_core_routines.f90.html b/doc/sourcefile/fplot_core_routines.f90.html
index 65a082b8..76114e25 100644
--- a/doc/sourcefile/fplot_core_routines.f90.html
+++ b/doc/sourcefile/fplot_core_routines.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_core_routines.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.6% of total for source files.">53 statements</a>
+                 title=" 0.5% of total for source files.">53 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -258,7 +258,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_delaunay_tri_surface.f90.html b/doc/sourcefile/fplot_delaunay_tri_surface.f90.html
index 25ee2075..e598dde0 100644
--- a/doc/sourcefile/fplot_delaunay_tri_surface.f90.html
+++ b/doc/sourcefile/fplot_delaunay_tri_surface.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_delaunay_tri_surface.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.5% of total for source files.">133 statements</a>
+                 title=" 1.4% of total for source files.">133 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -403,7 +403,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_errors.f90.html b/doc/sourcefile/fplot_errors.f90.html
index f90c14b4..2761c08c 100644
--- a/doc/sourcefile/fplot_errors.f90.html
+++ b/doc/sourcefile/fplot_errors.f90.html
@@ -309,7 +309,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_filled_plot_data.f90.html b/doc/sourcefile/fplot_filled_plot_data.f90.html
index b98dc5bb..e693a927 100644
--- a/doc/sourcefile/fplot_filled_plot_data.f90.html
+++ b/doc/sourcefile/fplot_filled_plot_data.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_filled_plot_data.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.4% of total for source files.">129 statements</a>
+                 title=" 1.3% of total for source files.">129 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -390,7 +390,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_label.f90.html b/doc/sourcefile/fplot_label.f90.html
index d3bbab28..9a259f29 100644
--- a/doc/sourcefile/fplot_label.f90.html
+++ b/doc/sourcefile/fplot_label.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_label.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.0% of total for source files.">91 statements</a>
+                 title=" 0.9% of total for source files.">91 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -337,7 +337,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_latex_terminal.f90.html b/doc/sourcefile/fplot_latex_terminal.f90.html
index c86a5564..7480ec84 100644
--- a/doc/sourcefile/fplot_latex_terminal.f90.html
+++ b/doc/sourcefile/fplot_latex_terminal.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_latex_terminal.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.3% of total for source files.">23 statements</a>
+                 title=" 0.2% of total for source files.">23 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -202,7 +202,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_legend.f90.html b/doc/sourcefile/fplot_legend.f90.html
index 4a0441cf..e6d78a4d 100644
--- a/doc/sourcefile/fplot_legend.f90.html
+++ b/doc/sourcefile/fplot_legend.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_legend.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.7% of total for source files.">151 statements</a>
+                 title=" 1.5% of total for source files.">151 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -439,7 +439,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_multiplot.f90.html b/doc/sourcefile/fplot_multiplot.f90.html
index cff6e117..e6d431cf 100644
--- a/doc/sourcefile/fplot_multiplot.f90.html
+++ b/doc/sourcefile/fplot_multiplot.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_multiplot.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.6% of total for source files.">328 statements</a>
+                 title=" 4.8% of total for source files.">469 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -187,498 +187,729 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a id="ln-34" name="ln-34" href="#ln-34"></a><span class="w">            </span><span class="c">!! Has a title?</span>
 <a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="nb">null</span><span class="p">()</span>
 <a id="ln-36" name="ln-36" href="#ln-36"></a><span class="w">            </span><span class="c">!! The GNUPLOT terminal object to target.</span>
-<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="k">        final</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mp_clean</span>
-<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_command_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_command</span>
-<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">initialize</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_init</span>
-<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_row_count</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_rows</span>
-<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_column_count</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_cols</span>
-<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_plot_count</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_count</span>
-<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_title</span>
-<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_title</span>
-<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">draw</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_draw</span>
-<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get</span>
-<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set</span>
-<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">is_title_defined</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_has_title</span>
-<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_term</span>
-<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">save_file</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_save</span>
-<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_font_name</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_font</span>
-<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_font_name</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_font</span>
-<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_font_size</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_font_size</span>
-<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_font_size</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_font_size</span>
-<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_window_size</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_window_size</span>
-<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-58" name="ln-58" href="#ln-58"></a>
-<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="k">contains</span>
-<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_command</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT commands for this object.</span>
-<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">            </span><span class="c">!! The command string.</span>
-<a id="ln-67" name="ln-67" href="#ln-67"></a>
-<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
-<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ptr</span>
-<a id="ln-72" name="ln-72" href="#ln-72"></a>
-<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">        </span><span class="c">! Initialization</span>
-<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">initialize</span><span class="p">()</span>
-<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">        </span><span class="n">m</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_row_count</span><span class="p">()</span>
-<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_column_count</span><span class="p">()</span>
-<a id="ln-77" name="ln-77" href="#ln-77"></a>
-<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">        </span><span class="c">! Set up the multiplot</span>
-<a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set multiplot layout &quot;</span><span class="p">)</span>
-<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">m</span><span class="p">))</span>
-<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
-<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; columnsfirst&quot;</span><span class="p">)</span>
-<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_title_defined</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; title &quot;</span><span class="p">)</span>
-<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
-<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title</span><span class="p">())</span>
-<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
-<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="k">        call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-91" name="ln-91" href="#ln-91"></a>
-<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">        </span><span class="c">! Write commands for each plot object</span>
-<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">        </span><span class="k">do </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">            </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m</span>
-<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">                </span><span class="n">ptr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">)</span>
-<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">ptr</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">())</span>
-<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">            </span><span class="k">end do</span>
-<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="k">        end do</span>
-<a id="ln-100" name="ln-100" href="#ln-100"></a>
-<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">        </span><span class="c">! Close out the multiplot</span>
-<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;unset multiplot&quot;</span><span class="p">)</span>
-<a id="ln-104" name="ln-104" href="#ln-104"></a>
-<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">        </span><span class="c">! Get the string</span>
-<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
-<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-108" name="ln-108" href="#ln-108"></a>
-<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_init</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">term</span><span class="p">,</span><span class="w"> </span><span class="n">width</span><span class="p">,</span><span class="w"> </span><span class="n">height</span><span class="p">,</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">err</span><span class="p">)</span>
-<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">        </span><span class="c">!! Initializes the multiplot object.</span>
-<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m</span>
-<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">            </span><span class="c">!! The number of rows of plots.</span>
-<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">            </span><span class="c">!! The number of columns of plots.</span>
-<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
-<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">            </span><span class="c">!! An optional input that is used to define the terminal.  The </span>
-<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">            </span><span class="c">!! default terminal is a WXT terminal.  The acceptable inputs are:</span>
-<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_PNG</span>
-<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_QT</span>
-<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_WIN32</span>
-<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_WXT</span>
-<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_LATEX</span>
-<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_SVG</span>
-<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">            </span><span class="c">!! - GNUPLOT_TERMINAL_PDF</span>
-<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">width</span>
-<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">            </span><span class="c">!! Optionally, the width of the plot window.</span>
-<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">height</span>
-<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">            </span><span class="c">!! Optionally, the height of the plot window.</span>
-<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fname</span>
-<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">            </span><span class="c">!! A filename to associate with terminals that print to file.</span>
-<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">err</span>
-<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="w">            </span><span class="c">!! An error handling object.</span>
+<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_leftMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.12</span>
+<a id="ln-38" name="ln-38" href="#ln-38"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_rightMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.95</span>
+<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_bottomMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.10</span>
+<a id="ln-40" name="ln-40" href="#ln-40"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_topMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.95</span>
+<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_horizontalSpacing</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-42" name="ln-42" href="#ln-42"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_verticalSpacing</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_useAutoMargins</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a id="ln-44" name="ln-44" href="#ln-44"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="k">        final</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">mp_clean</span>
+<a id="ln-46" name="ln-46" href="#ln-46"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_command_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_command</span>
+<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">initialize</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_init</span>
+<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_row_count</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_rows</span>
+<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_column_count</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_cols</span>
+<a id="ln-50" name="ln-50" href="#ln-50"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_plot_count</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_count</span>
+<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_title</span>
+<a id="ln-52" name="ln-52" href="#ln-52"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_title</span>
+<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">draw</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_draw</span>
+<a id="ln-54" name="ln-54" href="#ln-54"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get</span>
+<a id="ln-55" name="ln-55" href="#ln-55"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set</span>
+<a id="ln-56" name="ln-56" href="#ln-56"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">is_title_defined</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_has_title</span>
+<a id="ln-57" name="ln-57" href="#ln-57"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_term</span>
+<a id="ln-58" name="ln-58" href="#ln-58"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">save_file</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_save</span>
+<a id="ln-59" name="ln-59" href="#ln-59"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_font_name</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_font</span>
+<a id="ln-60" name="ln-60" href="#ln-60"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_font_name</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_font</span>
+<a id="ln-61" name="ln-61" href="#ln-61"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_font_size</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_font_size</span>
+<a id="ln-62" name="ln-62" href="#ln-62"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_font_size</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_font_size</span>
+<a id="ln-63" name="ln-63" href="#ln-63"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_window_size</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_window_size</span>
+<a id="ln-64" name="ln-64" href="#ln-64"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_left_margin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_left_margin</span>
+<a id="ln-65" name="ln-65" href="#ln-65"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_left_margin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_left_margin</span>
+<a id="ln-66" name="ln-66" href="#ln-66"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_right_margin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_right_margin</span>
+<a id="ln-67" name="ln-67" href="#ln-67"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_right_margin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_right_margin</span>
+<a id="ln-68" name="ln-68" href="#ln-68"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_top_margin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_top_margin</span>
+<a id="ln-69" name="ln-69" href="#ln-69"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_top_margin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_top_margin</span>
+<a id="ln-70" name="ln-70" href="#ln-70"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_bottom_margin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_bottom_margin</span>
+<a id="ln-71" name="ln-71" href="#ln-71"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_bottom_margin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_bottom_margin</span>
+<a id="ln-72" name="ln-72" href="#ln-72"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_horizontal_spacing</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_horizontal_spacing</span>
+<a id="ln-73" name="ln-73" href="#ln-73"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_horizontal_spacing</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_horizontal_spacing</span>
+<a id="ln-74" name="ln-74" href="#ln-74"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_vertical_spacing</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_vertical_spacing</span>
+<a id="ln-75" name="ln-75" href="#ln-75"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_vertical_spacing</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_vertical_spacing</span>
+<a id="ln-76" name="ln-76" href="#ln-76"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_use_auto_generated_margins</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_get_use_auto_generated_margins</span>
+<a id="ln-77" name="ln-77" href="#ln-77"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_use_auto_generated_margins</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">mp_set_use_auto_generated_margins</span>
+<a id="ln-78" name="ln-78" href="#ln-78"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-79" name="ln-79" href="#ln-79"></a>
+<a id="ln-80" name="ln-80" href="#ln-80"></a><span class="k">contains</span>
+<a id="ln-81" name="ln-81" href="#ln-81"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_command</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT commands for this object.</span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">            </span><span class="c">!! The command string.</span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ptr</span>
+<a id="ln-93" name="ln-93" href="#ln-93"></a>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">        </span><span class="c">! Initialization</span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">initialize</span><span class="p">()</span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">        </span><span class="n">m</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_row_count</span><span class="p">()</span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_column_count</span><span class="p">()</span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a>
+<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">        </span><span class="c">! Set up the multiplot</span>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set multiplot layout &quot;</span><span class="p">)</span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">m</span><span class="p">))</span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; columnsfirst&quot;</span><span class="p">)</span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_title_defined</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; title &quot;</span><span class="p">)</span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title</span><span class="p">())</span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="k">        if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">this</span><span class="p">%</span><span class="n">get_use_auto_generated_margins</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; margins &quot;</span><span class="p">)</span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_left_margin</span><span class="p">()))</span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_right_margin</span><span class="p">()))</span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_bottom_margin</span><span class="p">()))</span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_top_margin</span><span class="p">()))</span>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="k">        call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; spacing &quot;</span><span class="p">)</span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_horizontal_spacing</span><span class="p">()))</span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_vertical_spacing</span><span class="p">()))</span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">        </span><span class="c">! Write commands for each plot object</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">        </span><span class="k">do </span><span class="n">j</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">            </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">                </span><span class="n">ptr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get</span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">)</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">ptr</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">())</span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">            </span><span class="k">end do</span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="k">        end do</span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">        </span><span class="c">! Close out the multiplot</span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;unset multiplot&quot;</span><span class="p">)</span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a>
+<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">        </span><span class="c">! Get the string</span>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="w">    </span><span class="k">end function</span>
 <a id="ln-143" name="ln-143" href="#ln-143"></a>
-<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">flag</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">,</span><span class="w"> </span><span class="n">i</span>
-<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">errmgr</span>
-<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">deferr</span>
-<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">wxt_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">wxt</span>
-<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">windows_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">win</span>
-<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">qt_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">qt</span>
-<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">png_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">png</span>
-<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">latex_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">latex</span>
-<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">svg_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">svg</span>
-<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">pdf_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">pdf</span>
-<a id="ln-155" name="ln-155" href="#ln-155"></a>
-<a id="ln-156" name="ln-156" href="#ln-156"></a><span class="w">        </span><span class="c">! Initialization</span>
-<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">err</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">err</span>
-<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">deferr</span>
-<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">term</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="k">            </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">term</span>
-<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="k">            </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">GNUPLOT_TERMINAL_WXT</span>
-<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-167" name="ln-167" href="#ln-167"></a>
-<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">        </span><span class="c">! Process</span>
-<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="n">clear</span><span class="p">()</span>
-<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_rows</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m</span>
-<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_cols</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">        </span><span class="n">flag</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
-<a id="ln-173" name="ln-173" href="#ln-173"></a>
-<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">        </span><span class="c">! Populate the list with a dummy variable at the outset.  This allows</span>
-<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">        </span><span class="c">! the list to be appropriately sized so the user may use the &quot;set&quot;</span>
-<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">        </span><span class="c">! subroutine appropriately</span>
-<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="w">        </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="w">            </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="n">push</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">        </span><span class="k">end do</span>
-<a id="ln-180" name="ln-180" href="#ln-180"></a>
-<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">        </span><span class="c">! Define the terminal</span>
-<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">)</span>
-<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">        </span><span class="k">select case</span><span class="w"> </span><span class="p">(</span><span class="n">t</span><span class="p">)</span>
-<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_PNG</span><span class="p">)</span>
-<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">png</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">png</span><span class="p">%</span><span class="n">set_filename</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span>
-<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">png</span>
-<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_QT</span><span class="p">)</span>
-<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">qt</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">qt</span>
-<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_WIN32</span><span class="p">)</span>
-<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">win</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">win</span>
-<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_LATEX</span><span class="p">)</span>
-<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">latex</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">latex</span><span class="p">%</span><span class="n">set_filename</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span>
-<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">latex</span>
-<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_SVG</span><span class="p">)</span>
-<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">svg</span><span class="p">)</span>
-<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">svg</span><span class="p">%</span><span class="n">set_filename</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span>
-<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">svg</span>
-<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_PDF</span><span class="p">)</span>
-<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">pdf</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">pdf</span><span class="p">%</span><span class="n">set_filename</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span>
-<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pdf</span>
-<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">        </span><span class="k">case </span><span class="n">default</span><span class="w"> </span><span class="c">! WXT is the default</span>
-<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">wxt</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">wxt</span>
-<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="w">        </span><span class="k">end select</span>
-<a id="ln-210" name="ln-210" href="#ln-210"></a>
-<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="w">        </span><span class="c">! Error Checking</span>
-<a id="ln-212" name="ln-212" href="#ln-212"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">flag</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="k">            call </span><span class="n">report_memory_error</span><span class="p">(</span><span class="n">errmgr</span><span class="p">,</span><span class="w"> </span><span class="s2">&quot;mp_init&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">            </span><span class="k">return</span>
-<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="k">        end if</span>
-<a id="ln-216" name="ln-216" href="#ln-216"></a>
-<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">        </span><span class="c">! Size the window?</span>
-<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">width</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="k">            call </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">%</span><span class="n">set_window_width</span><span class="p">(</span><span class="n">width</span><span class="p">)</span>
-<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">height</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="k">            call </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">%</span><span class="n">set_window_height</span><span class="p">(</span><span class="n">height</span><span class="p">)</span>
-<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="k">    end subroutine</span>
-<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">    </span>
-<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-227" name="ln-227" href="#ln-227"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_clean</span><span class="p">(</span><span class="n">this</span><span class="p">)</span>
-<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">        </span><span class="c">!! Cleans up resources held by the multiplot object.</span>
-<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">)</span>
-<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">        </span><span class="k">nullify</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">)</span>
-<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-234" name="ln-234" href="#ln-234"></a>
-<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_rows</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">        </span><span class="c">!! Gets the number of rows of plots.</span>
-<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">            </span><span class="c">!! The row count.</span>
-<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_rows</span>
-<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-244" name="ln-244" href="#ln-244"></a>
-<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="c">! --------------------</span>
-<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_cols</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="w">        </span><span class="c">!! Gets the number of columns of plots.</span>
-<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="w">            </span><span class="c">!! The column count.</span>
-<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_cols</span>
-<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-254" name="ln-254" href="#ln-254"></a>
-<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="c">! --------------------</span>
-<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_count</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="w">        </span><span class="c">!! Gets the total number of plots.</span>
-<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="w">            </span><span class="c">!! The plot count.</span>
-<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="nb">count</span><span class="p">()</span>
-<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="w">    </span>
-<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_title</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="w">        </span><span class="c">!! Gets the multiplot&#39;s title.</span>
-<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">            </span><span class="c">!! The title.</span>
-<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span>
-<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-274" name="ln-274" href="#ln-274"></a>
-<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="c">! --------------------</span>
-<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_title</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">        </span><span class="c">!! Sets the multiplot&#39;s title.</span>
-<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="w">            </span><span class="c">!! The title.</span>
-<a id="ln-282" name="ln-282" href="#ln-282"></a>
-<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-285" name="ln-285" href="#ln-285"></a>
-<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">        </span><span class="c">! Process</span>
-<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="nb">len</span><span class="p">(</span><span class="n">x</span><span class="p">),</span><span class="w"> </span><span class="n">PLOTDATA_MAX_NAME_LENGTH</span><span class="p">)</span>
-<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span>
-<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">n</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-293" name="ln-293" href="#ln-293"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="k">    end subroutine</span>
-<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="w">    </span>
-<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_draw</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">persist</span><span class="p">,</span><span class="w"> </span><span class="n">err</span><span class="p">)</span>
-<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">        </span><span class="c">!! Launches GNUPLOT and draws the multiplot per the current state of</span>
-<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">        </span><span class="c">!! the command list.</span>
-<a id="ln-301" name="ln-301" href="#ln-301"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">persist</span>
-<a id="ln-304" name="ln-304" href="#ln-304"></a><span class="w">            </span><span class="c">!! An optional parameter that can be used to keep GNUPLOT open.  </span>
-<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="w">            </span><span class="c">!! Set to true to force GNUPLOT to remain open; else, set to false</span>
-<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="w">            </span><span class="c">!! to allow GNUPLOT to close after drawing.  The default is true.</span>
-<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">err</span>
-<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">                </span><span class="c">!! An error handling object.</span>
+<a id="ln-144" name="ln-144" href="#ln-144"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_init</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="p">,</span><span class="w"> </span><span class="n">n</span><span class="p">,</span><span class="w"> </span><span class="n">term</span><span class="p">,</span><span class="w"> </span><span class="n">width</span><span class="p">,</span><span class="w"> </span><span class="n">height</span><span class="p">,</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">err</span><span class="p">)</span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">        </span><span class="c">!! Initializes the multiplot object.</span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m</span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">            </span><span class="c">!! The number of rows of plots.</span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">            </span><span class="c">!! The number of columns of plots.</span>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">            </span><span class="c">!! An optional input that is used to define the terminal.  The </span>
+<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="w">            </span><span class="c">!! default terminal is a WXT terminal.  The acceptable inputs are:</span>
+<a id="ln-156" name="ln-156" href="#ln-156"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_PNG</span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_QT</span>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_WIN32</span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_WXT</span>
+<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_LATEX</span>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">            </span><span class="c">!!  - GNUPLOT_TERMINAL_SVG</span>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="w">            </span><span class="c">!! - GNUPLOT_TERMINAL_PDF</span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">width</span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">            </span><span class="c">!! Optionally, the width of the plot window.</span>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">height</span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">            </span><span class="c">!! Optionally, the height of the plot window.</span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fname</span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">            </span><span class="c">!! A filename to associate with terminals that print to file.</span>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">err</span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="w">            </span><span class="c">!! An error handling object.</span>
+<a id="ln-178" name="ln-178" href="#ln-178"></a>
+<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">flag</span><span class="p">,</span><span class="w"> </span><span class="n">t</span><span class="p">,</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">errmgr</span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">deferr</span>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">wxt_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">wxt</span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">windows_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">win</span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">qt_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">qt</span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">png_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">png</span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">latex_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">latex</span>
+<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">svg_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">svg</span>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">pdf_terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">pdf</span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">        </span><span class="c">! Initialization</span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">err</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">err</span>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">deferr</span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">term</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="k">            </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">term</span>
+<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="k">            </span><span class="n">t</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">GNUPLOT_TERMINAL_WXT</span>
+<a id="ln-201" name="ln-201" href="#ln-201"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-202" name="ln-202" href="#ln-202"></a>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">        </span><span class="c">! Process</span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="n">clear</span><span class="p">()</span>
+<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_rows</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">m</span>
+<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_cols</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">        </span><span class="n">flag</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">0</span>
+<a id="ln-208" name="ln-208" href="#ln-208"></a>
+<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="w">        </span><span class="c">! Populate the list with a dummy variable at the outset.  This allows</span>
+<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="w">        </span><span class="c">! the list to be appropriately sized so the user may use the &quot;set&quot;</span>
+<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="w">        </span><span class="c">! subroutine appropriately</span>
+<a id="ln-212" name="ln-212" href="#ln-212"></a><span class="w">        </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">m</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="w">            </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="n">push</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">        </span><span class="k">end do</span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a>
+<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">        </span><span class="c">! Define the terminal</span>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">)</span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">        </span><span class="k">select case</span><span class="w"> </span><span class="p">(</span><span class="n">t</span><span class="p">)</span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_PNG</span><span class="p">)</span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">png</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">png</span><span class="p">%</span><span class="n">set_filename</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span>
+<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">png</span>
+<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_QT</span><span class="p">)</span>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">qt</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">qt</span>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_WIN32</span><span class="p">)</span>
+<a id="ln-227" name="ln-227" href="#ln-227"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">win</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">win</span>
+<a id="ln-229" name="ln-229" href="#ln-229"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_LATEX</span><span class="p">)</span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">latex</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">latex</span><span class="p">%</span><span class="n">set_filename</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">latex</span>
+<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_SVG</span><span class="p">)</span>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">svg</span><span class="p">)</span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">svg</span><span class="p">%</span><span class="n">set_filename</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">svg</span>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">        </span><span class="k">case</span><span class="w"> </span><span class="p">(</span><span class="n">GNUPLOT_TERMINAL_PDF</span><span class="p">)</span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">pdf</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">fname</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">pdf</span><span class="p">%</span><span class="n">set_filename</span><span class="p">(</span><span class="n">fname</span><span class="p">)</span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pdf</span>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">        </span><span class="k">case </span><span class="n">default</span><span class="w"> </span><span class="c">! WXT is the default</span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">            </span><span class="k">allocate</span><span class="p">(</span><span class="n">wxt</span><span class="p">,</span><span class="w"> </span><span class="nb">stat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">wxt</span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="w">        </span><span class="k">end select</span>
+<a id="ln-245" name="ln-245" href="#ln-245"></a>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="w">        </span><span class="c">! Error Checking</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">flag</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="k">            call </span><span class="n">report_memory_error</span><span class="p">(</span><span class="n">errmgr</span><span class="p">,</span><span class="w"> </span><span class="s2">&quot;mp_init&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">            </span><span class="k">return</span>
+<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="k">        end if</span>
+<a id="ln-251" name="ln-251" href="#ln-251"></a>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">        </span><span class="c">! Size the window?</span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">width</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-254" name="ln-254" href="#ln-254"></a><span class="k">            call </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">%</span><span class="n">set_window_width</span><span class="p">(</span><span class="n">width</span><span class="p">)</span>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">height</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="k">            call </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">%</span><span class="n">set_window_height</span><span class="p">(</span><span class="n">height</span><span class="p">)</span>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="k">    end subroutine</span>
+<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="w">    </span>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_clean</span><span class="p">(</span><span class="n">this</span><span class="p">)</span>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">        </span><span class="c">!! Cleans up resources held by the multiplot object.</span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">)</span>
+<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="w">        </span><span class="k">nullify</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">)</span>
+<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-269" name="ln-269" href="#ln-269"></a>
+<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_rows</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">        </span><span class="c">!! Gets the number of rows of plots.</span>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">            </span><span class="c">!! The row count.</span>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_rows</span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-279" name="ln-279" href="#ln-279"></a>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="c">! --------------------</span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_cols</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">        </span><span class="c">!! Gets the number of columns of plots.</span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-285" name="ln-285" href="#ln-285"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="w">            </span><span class="c">!! The column count.</span>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_cols</span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-289" name="ln-289" href="#ln-289"></a>
+<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="c">! --------------------</span>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_count</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">        </span><span class="c">!! Gets the total number of plots.</span>
+<a id="ln-293" name="ln-293" href="#ln-293"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="w">            </span><span class="c">!! The plot count.</span>
+<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="nb">count</span><span class="p">()</span>
+<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">    </span>
+<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-301" name="ln-301" href="#ln-301"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_title</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">        </span><span class="c">!! Gets the multiplot&#39;s title.</span>
+<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-304" name="ln-304" href="#ln-304"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="w">            </span><span class="c">!! The title.</span>
+<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span>
+<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">    </span><span class="k">end function</span>
 <a id="ln-309" name="ln-309" href="#ln-309"></a>
-<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="w">        </span><span class="c">! Parameters</span>
-<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">parameter</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fname</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;temp_gnuplot_file.plt&quot;</span>
-<a id="ln-312" name="ln-312" href="#ln-312"></a>
-<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">p</span>
-<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span>
-<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">errmgr</span>
-<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">deferr</span>
-<a id="ln-318" name="ln-318" href="#ln-318"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
-<a id="ln-319" name="ln-319" href="#ln-319"></a>
-<a id="ln-320" name="ln-320" href="#ln-320"></a><span class="w">        </span><span class="c">! Initialization</span>
-<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">persist</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="k">            </span><span class="n">p</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">persist</span>
-<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="k">            </span><span class="n">p</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">err</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">err</span>
-<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">deferr</span>
-<a id="ln-330" name="ln-330" href="#ln-330"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="k">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
-<a id="ln-332" name="ln-332" href="#ln-332"></a>
-<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">        </span><span class="c">! Open the file for writing, and write the contents to file</span>
-<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">        </span><span class="k">open</span><span class="p">(</span><span class="n">newunit</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="k">file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">iostat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">flag</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="k">            call </span><span class="n">report_file_create_error</span><span class="p">(</span><span class="n">errmgr</span><span class="p">,</span><span class="w"> </span><span class="s2">&quot;mp_draw&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">            </span><span class="k">return</span>
-<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="k">        end if</span>
-<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="k">        write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">term</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">()</span>
-<a id="ln-340" name="ln-340" href="#ln-340"></a><span class="w">        </span><span class="k">write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">)</span>
-<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">        </span><span class="k">write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">()</span>
-<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="w">        </span><span class="k">close</span><span class="p">(</span><span class="n">fid</span><span class="p">)</span>
-<a id="ln-343" name="ln-343" href="#ln-343"></a>
-<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="w">        </span><span class="c">! Launch GNUPLOT</span>
-<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">p</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="k">            call </span><span class="nb">execute_command_line</span><span class="p">(</span><span class="s2">&quot;gnuplot --persist &quot;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="n">fname</span><span class="p">)</span>
-<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="k">            call </span><span class="nb">execute_command_line</span><span class="p">(</span><span class="s2">&quot;gnuplot &quot;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="n">fname</span><span class="p">)</span>
-<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-350" name="ln-350" href="#ln-350"></a>
-<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="w">        </span><span class="c">! Clean up by deleting the file</span>
-<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="w">        </span><span class="k">open</span><span class="p">(</span><span class="n">newunit</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="k">file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fname</span><span class="p">)</span>
-<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">        </span><span class="k">close</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="n">status</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;delete&quot;</span><span class="p">)</span>
-<a id="ln-354" name="ln-354" href="#ln-354"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-355" name="ln-355" href="#ln-355"></a>
-<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">        </span><span class="c">!! Gets the requested plot object.</span>
-<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span>
-<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="w">            </span><span class="c">!! The row index of the plot to retrieve.</span>
-<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">j</span>
-<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="w">            </span><span class="c">!! The column index of the plot to retrieve.</span>
-<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="w">            </span><span class="c">!! A pointer to the plot object.</span>
+<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="c">! --------------------</span>
+<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_title</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-312" name="ln-312" href="#ln-312"></a><span class="w">        </span><span class="c">!! Sets the multiplot&#39;s title.</span>
+<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">            </span><span class="c">!! The title.</span>
+<a id="ln-317" name="ln-317" href="#ln-317"></a>
+<a id="ln-318" name="ln-318" href="#ln-318"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-320" name="ln-320" href="#ln-320"></a>
+<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="w">        </span><span class="c">! Process</span>
+<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="nb">len</span><span class="p">(</span><span class="n">x</span><span class="p">),</span><span class="w"> </span><span class="n">PLOTDATA_MAX_NAME_LENGTH</span><span class="p">)</span>
+<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span>
+<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">n</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-330" name="ln-330" href="#ln-330"></a><span class="k">    end subroutine</span>
+<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="w">    </span>
+<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_draw</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">persist</span><span class="p">,</span><span class="w"> </span><span class="n">err</span><span class="p">)</span>
+<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">        </span><span class="c">!! Launches GNUPLOT and draws the multiplot per the current state of</span>
+<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">        </span><span class="c">!! the command list.</span>
+<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">persist</span>
+<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">            </span><span class="c">!! An optional parameter that can be used to keep GNUPLOT open.  </span>
+<a id="ln-340" name="ln-340" href="#ln-340"></a><span class="w">            </span><span class="c">!! Set to true to force GNUPLOT to remain open; else, set to false</span>
+<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">            </span><span class="c">!! to allow GNUPLOT to close after drawing.  The default is true.</span>
+<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">err</span>
+<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">                </span><span class="c">!! An error handling object.</span>
+<a id="ln-344" name="ln-344" href="#ln-344"></a>
+<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="w">        </span><span class="c">! Parameters</span>
+<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">parameter</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fname</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;temp_gnuplot_file.plt&quot;</span>
+<a id="ln-347" name="ln-347" href="#ln-347"></a>
+<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">p</span>
+<a id="ln-350" name="ln-350" href="#ln-350"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span>
+<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">errmgr</span>
+<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">deferr</span>
+<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
+<a id="ln-354" name="ln-354" href="#ln-354"></a>
+<a id="ln-355" name="ln-355" href="#ln-355"></a><span class="w">        </span><span class="c">! Initialization</span>
+<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">persist</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="k">            </span><span class="n">p</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">persist</span>
+<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="k">            </span><span class="n">p</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="k">        if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">err</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">err</span>
+<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">deferr</span>
+<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-366" name="ln-366" href="#ln-366"></a><span class="k">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
 <a id="ln-367" name="ln-367" href="#ln-367"></a>
-<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">item</span>
-<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ind</span>
-<a id="ln-371" name="ln-371" href="#ln-371"></a>
-<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">        </span><span class="c">! Process</span>
-<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">        </span><span class="n">ind</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_rows</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">i</span>
-<a id="ln-374" name="ln-374" href="#ln-374"></a><span class="w">        </span><span class="n">item</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="n">get</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
-<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">        </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">item</span><span class="p">)</span>
-<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">        </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">plot</span><span class="p">)</span>
-<a id="ln-377" name="ln-377" href="#ln-377"></a><span class="w">            </span><span class="n">x</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">item</span>
-<a id="ln-378" name="ln-378" href="#ln-378"></a><span class="w">        </span><span class="k">class </span><span class="n">default</span>
-<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="w">            </span><span class="k">nullify</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="w">        </span><span class="k">end select</span>
-<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="k">    end function</span>
-<a id="ln-382" name="ln-382" href="#ln-382"></a>
-<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="c">! --------------------</span>
-<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="w">        </span><span class="c">!! Replaces the specified plot.</span>
-<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span>
-<a id="ln-389" name="ln-389" href="#ln-389"></a><span class="w">            </span><span class="c">!! The row index of the plot to replace.</span>
-<a id="ln-390" name="ln-390" href="#ln-390"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">j</span>
-<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="w">            </span><span class="c">!! The column index of the plot to replace.</span>
-<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">            </span><span class="c">!! The new plot.</span>
-<a id="ln-394" name="ln-394" href="#ln-394"></a>
-<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ind</span>
-<a id="ln-397" name="ln-397" href="#ln-397"></a>
-<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="w">        </span><span class="c">! Process</span>
-<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="w">        </span><span class="n">ind</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_rows</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">i</span>
-<a id="ln-400" name="ln-400" href="#ln-400"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="n">set</span><span class="p">(</span><span class="n">ind</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-402" name="ln-402" href="#ln-402"></a><span class="w">    </span>
-<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_has_title</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">        </span><span class="c">!! Gets a value determining if a title has been defined for the</span>
-<a id="ln-406" name="ln-406" href="#ln-406"></a><span class="w">        </span><span class="c">!! multiplot object.</span>
-<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-410" name="ln-410" href="#ln-410"></a><span class="w">            </span><span class="c">!! Returns true if a title has been defined for this multiplot; </span>
-<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="w">            </span><span class="c">!! else, returns false.</span>
-<a id="ln-412" name="ln-412" href="#ln-412"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span>
-<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-414" name="ln-414" href="#ln-414"></a>
-<a id="ln-415" name="ln-415" href="#ln-415"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-416" name="ln-416" href="#ln-416"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_term</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-417" name="ln-417" href="#ln-417"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT terminal object.</span>
-<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-420" name="ln-420" href="#ln-420"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="w">            </span><span class="c">!! A pointer to the terminal object.</span>
-<a id="ln-422" name="ln-422" href="#ln-422"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span>
-<a id="ln-423" name="ln-423" href="#ln-423"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-424" name="ln-424" href="#ln-424"></a>
-<a id="ln-425" name="ln-425" href="#ln-425"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_save</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">err</span><span class="p">)</span>
-<a id="ln-427" name="ln-427" href="#ln-427"></a><span class="w">        </span><span class="c">!! Saves a GNUPLOT command file.</span>
-<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-429" name="ln-429" href="#ln-429"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fname</span>
-<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="w">            </span><span class="c">!! The filename.</span>
-<a id="ln-432" name="ln-432" href="#ln-432"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">err</span>
-<a id="ln-433" name="ln-433" href="#ln-433"></a><span class="w">            </span><span class="c">!! An error handling object.</span>
-<a id="ln-434" name="ln-434" href="#ln-434"></a>
-<a id="ln-435" name="ln-435" href="#ln-435"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span>
-<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">errmgr</span>
-<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">deferr</span>
-<a id="ln-439" name="ln-439" href="#ln-439"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
-<a id="ln-440" name="ln-440" href="#ln-440"></a>
-<a id="ln-441" name="ln-441" href="#ln-441"></a><span class="w">        </span><span class="c">! Initialization</span>
-<a id="ln-442" name="ln-442" href="#ln-442"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">err</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-443" name="ln-443" href="#ln-443"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">err</span>
-<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-445" name="ln-445" href="#ln-445"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">deferr</span>
-<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="k">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
-<a id="ln-448" name="ln-448" href="#ln-448"></a>
-<a id="ln-449" name="ln-449" href="#ln-449"></a><span class="w">        </span><span class="c">! Open the file for writing, and write the contents to file</span>
-<a id="ln-450" name="ln-450" href="#ln-450"></a><span class="w">        </span><span class="k">open</span><span class="p">(</span><span class="n">newunit</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="k">file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">iostat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-451" name="ln-451" href="#ln-451"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">flag</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="k">            call </span><span class="n">report_file_create_error</span><span class="p">(</span><span class="n">errmgr</span><span class="p">,</span><span class="w"> </span><span class="s2">&quot;mp_save&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
-<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">            </span><span class="k">return</span>
-<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="k">        end if</span>
-<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="k">        write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">term</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">()</span>
-<a id="ln-456" name="ln-456" href="#ln-456"></a><span class="w">        </span><span class="k">write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">)</span>
-<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="w">        </span><span class="k">write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">()</span>
-<a id="ln-458" name="ln-458" href="#ln-458"></a><span class="w">        </span><span class="k">close</span><span class="p">(</span><span class="n">fid</span><span class="p">)</span>
-<a id="ln-459" name="ln-459" href="#ln-459"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-460" name="ln-460" href="#ln-460"></a>
-<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-462" name="ln-462" href="#ln-462"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_font</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="w">        </span><span class="c">!! Gets the name of the font used for plot text.</span>
-<a id="ln-464" name="ln-464" href="#ln-464"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-467" name="ln-467" href="#ln-467"></a><span class="w">            </span><span class="c">!! The font name.</span>
-<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
-<a id="ln-469" name="ln-469" href="#ln-469"></a><span class="w">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
-<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">term</span><span class="p">%</span><span class="n">get_font_name</span><span class="p">()</span>
-<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-472" name="ln-472" href="#ln-472"></a>
-<a id="ln-473" name="ln-473" href="#ln-473"></a><span class="c">! --------------------</span>
-<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_font</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-475" name="ln-475" href="#ln-475"></a><span class="w">        </span><span class="c">!! Sets the name of the font used for plot text.</span>
-<a id="ln-476" name="ln-476" href="#ln-476"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-478" name="ln-478" href="#ln-478"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-479" name="ln-479" href="#ln-479"></a><span class="w">            </span><span class="c">!! The font name.</span>
-<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
-<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="w">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
-<a id="ln-482" name="ln-482" href="#ln-482"></a><span class="w">        </span><span class="k">call </span><span class="n">term</span><span class="p">%</span><span class="n">set_font_name</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-483" name="ln-483" href="#ln-483"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-484" name="ln-484" href="#ln-484"></a>
-<a id="ln-485" name="ln-485" href="#ln-485"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-486" name="ln-486" href="#ln-486"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_font_size</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-487" name="ln-487" href="#ln-487"></a><span class="w">        </span><span class="c">!! Gets the size of the font used by the plot.</span>
-<a id="ln-488" name="ln-488" href="#ln-488"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-489" name="ln-489" href="#ln-489"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-490" name="ln-490" href="#ln-490"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-491" name="ln-491" href="#ln-491"></a><span class="w">            </span><span class="c">!! The font size.</span>
-<a id="ln-492" name="ln-492" href="#ln-492"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
-<a id="ln-493" name="ln-493" href="#ln-493"></a><span class="w">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
-<a id="ln-494" name="ln-494" href="#ln-494"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">term</span><span class="p">%</span><span class="n">get_font_size</span><span class="p">()</span>
-<a id="ln-495" name="ln-495" href="#ln-495"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-496" name="ln-496" href="#ln-496"></a>
-<a id="ln-497" name="ln-497" href="#ln-497"></a><span class="c">! --------------------</span>
-<a id="ln-498" name="ln-498" href="#ln-498"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_font_size</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-499" name="ln-499" href="#ln-499"></a><span class="w">        </span><span class="c">!! Sets the size of the font used by the plot.</span>
-<a id="ln-500" name="ln-500" href="#ln-500"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-501" name="ln-501" href="#ln-501"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-502" name="ln-502" href="#ln-502"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-503" name="ln-503" href="#ln-503"></a><span class="w">            </span><span class="c">!! The font size.</span>
-<a id="ln-504" name="ln-504" href="#ln-504"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
-<a id="ln-505" name="ln-505" href="#ln-505"></a><span class="w">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
-<a id="ln-506" name="ln-506" href="#ln-506"></a><span class="w">        </span><span class="k">call </span><span class="n">term</span><span class="p">%</span><span class="n">set_font_size</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-507" name="ln-507" href="#ln-507"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-508" name="ln-508" href="#ln-508"></a>
-<a id="ln-509" name="ln-509" href="#ln-509"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-510" name="ln-510" href="#ln-510"></a><span class="c">! ADDED AUG. 16, 2026 - V1.9.0</span>
-<a id="ln-511" name="ln-511" href="#ln-511"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-512" name="ln-512" href="#ln-512"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_window_size</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">width</span><span class="p">,</span><span class="w"> </span><span class="n">height</span><span class="p">)</span>
-<a id="ln-513" name="ln-513" href="#ln-513"></a><span class="w">        </span><span class="c">!! Sets the height and width of the plot window.</span>
-<a id="ln-514" name="ln-514" href="#ln-514"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-515" name="ln-515" href="#ln-515"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
-<a id="ln-516" name="ln-516" href="#ln-516"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">width</span>
-<a id="ln-517" name="ln-517" href="#ln-517"></a><span class="w">            </span><span class="c">!! The plot window width.</span>
-<a id="ln-518" name="ln-518" href="#ln-518"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">height</span>
-<a id="ln-519" name="ln-519" href="#ln-519"></a><span class="w">            </span><span class="c">!! The plot window height.</span>
-<a id="ln-520" name="ln-520" href="#ln-520"></a>
-<a id="ln-521" name="ln-521" href="#ln-521"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-522" name="ln-522" href="#ln-522"></a><span class="k">            call </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">%</span><span class="n">set_window_width</span><span class="p">(</span><span class="n">width</span><span class="p">)</span>
-<a id="ln-523" name="ln-523" href="#ln-523"></a><span class="w">            </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">%</span><span class="n">set_window_height</span><span class="p">(</span><span class="n">height</span><span class="p">)</span>
-<a id="ln-524" name="ln-524" href="#ln-524"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-525" name="ln-525" href="#ln-525"></a><span class="k">    end subroutine</span>
-<a id="ln-526" name="ln-526" href="#ln-526"></a>
-<a id="ln-527" name="ln-527" href="#ln-527"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-528" name="ln-528" href="#ln-528"></a><span class="k">end module</span>
+<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">        </span><span class="c">! Open the file for writing, and write the contents to file</span>
+<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">        </span><span class="k">open</span><span class="p">(</span><span class="n">newunit</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="k">file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">iostat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">flag</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="k">            call </span><span class="n">report_file_create_error</span><span class="p">(</span><span class="n">errmgr</span><span class="p">,</span><span class="w"> </span><span class="s2">&quot;mp_draw&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">            </span><span class="k">return</span>
+<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="k">        end if</span>
+<a id="ln-374" name="ln-374" href="#ln-374"></a><span class="k">        write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">term</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">()</span>
+<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">        </span><span class="k">write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">)</span>
+<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">        </span><span class="k">write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">()</span>
+<a id="ln-377" name="ln-377" href="#ln-377"></a><span class="w">        </span><span class="k">close</span><span class="p">(</span><span class="n">fid</span><span class="p">)</span>
+<a id="ln-378" name="ln-378" href="#ln-378"></a>
+<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="w">        </span><span class="c">! Launch GNUPLOT</span>
+<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">p</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="k">            call </span><span class="nb">execute_command_line</span><span class="p">(</span><span class="s2">&quot;gnuplot --persist &quot;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="n">fname</span><span class="p">)</span>
+<a id="ln-382" name="ln-382" href="#ln-382"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="k">            call </span><span class="nb">execute_command_line</span><span class="p">(</span><span class="s2">&quot;gnuplot &quot;</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="n">fname</span><span class="p">)</span>
+<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-385" name="ln-385" href="#ln-385"></a>
+<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">        </span><span class="c">! Clean up by deleting the file</span>
+<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">        </span><span class="k">open</span><span class="p">(</span><span class="n">newunit</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="k">file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fname</span><span class="p">)</span>
+<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="w">        </span><span class="k">close</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="n">status</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;delete&quot;</span><span class="p">)</span>
+<a id="ln-389" name="ln-389" href="#ln-389"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-390" name="ln-390" href="#ln-390"></a>
+<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">        </span><span class="c">!! Gets the requested plot object.</span>
+<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="w">            </span><span class="c">!! The row index of the plot to retrieve.</span>
+<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">j</span>
+<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="w">            </span><span class="c">!! The column index of the plot to retrieve.</span>
+<a id="ln-400" name="ln-400" href="#ln-400"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">            </span><span class="c">!! A pointer to the plot object.</span>
+<a id="ln-402" name="ln-402" href="#ln-402"></a>
+<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">item</span>
+<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ind</span>
+<a id="ln-406" name="ln-406" href="#ln-406"></a>
+<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">        </span><span class="c">! Process</span>
+<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">        </span><span class="n">ind</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_rows</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">        </span><span class="n">item</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="n">get</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
+<a id="ln-410" name="ln-410" href="#ln-410"></a><span class="w">        </span><span class="k">select type</span><span class="w"> </span><span class="p">(</span><span class="n">item</span><span class="p">)</span>
+<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="w">        </span><span class="k">class is</span><span class="w"> </span><span class="p">(</span><span class="n">plot</span><span class="p">)</span>
+<a id="ln-412" name="ln-412" href="#ln-412"></a><span class="w">            </span><span class="n">x</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">item</span>
+<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="w">        </span><span class="k">class </span><span class="n">default</span>
+<a id="ln-414" name="ln-414" href="#ln-414"></a><span class="w">            </span><span class="k">nullify</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-415" name="ln-415" href="#ln-415"></a><span class="w">        </span><span class="k">end select</span>
+<a id="ln-416" name="ln-416" href="#ln-416"></a><span class="k">    end function</span>
+<a id="ln-417" name="ln-417" href="#ln-417"></a>
+<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="c">! --------------------</span>
+<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-420" name="ln-420" href="#ln-420"></a><span class="w">        </span><span class="c">!! Replaces the specified plot.</span>
+<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-422" name="ln-422" href="#ln-422"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-423" name="ln-423" href="#ln-423"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-424" name="ln-424" href="#ln-424"></a><span class="w">            </span><span class="c">!! The row index of the plot to replace.</span>
+<a id="ln-425" name="ln-425" href="#ln-425"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">j</span>
+<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">            </span><span class="c">!! The column index of the plot to replace.</span>
+<a id="ln-427" name="ln-427" href="#ln-427"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="w">            </span><span class="c">!! The new plot.</span>
+<a id="ln-429" name="ln-429" href="#ln-429"></a>
+<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ind</span>
+<a id="ln-432" name="ln-432" href="#ln-432"></a>
+<a id="ln-433" name="ln-433" href="#ln-433"></a><span class="w">        </span><span class="c">! Process</span>
+<a id="ln-434" name="ln-434" href="#ln-434"></a><span class="w">        </span><span class="n">ind</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_rows</span><span class="w"> </span><span class="o">*</span><span class="w"> </span><span class="p">(</span><span class="n">j</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-435" name="ln-435" href="#ln-435"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_plots</span><span class="p">%</span><span class="n">set</span><span class="p">(</span><span class="n">ind</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="w">    </span>
+<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-439" name="ln-439" href="#ln-439"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_has_title</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-440" name="ln-440" href="#ln-440"></a><span class="w">        </span><span class="c">!! Gets a value determining if a title has been defined for the</span>
+<a id="ln-441" name="ln-441" href="#ln-441"></a><span class="w">        </span><span class="c">!! multiplot object.</span>
+<a id="ln-442" name="ln-442" href="#ln-442"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-443" name="ln-443" href="#ln-443"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-445" name="ln-445" href="#ln-445"></a><span class="w">            </span><span class="c">!! Returns true if a title has been defined for this multiplot; </span>
+<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="w">            </span><span class="c">!! else, returns false.</span>
+<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span>
+<a id="ln-448" name="ln-448" href="#ln-448"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-449" name="ln-449" href="#ln-449"></a>
+<a id="ln-450" name="ln-450" href="#ln-450"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-451" name="ln-451" href="#ln-451"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_term</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="w">        </span><span class="c">!! Gets the GNUPLOT terminal object.</span>
+<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-456" name="ln-456" href="#ln-456"></a><span class="w">            </span><span class="c">!! A pointer to the terminal object.</span>
+<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span>
+<a id="ln-458" name="ln-458" href="#ln-458"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-459" name="ln-459" href="#ln-459"></a>
+<a id="ln-460" name="ln-460" href="#ln-460"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_save</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">err</span><span class="p">)</span>
+<a id="ln-462" name="ln-462" href="#ln-462"></a><span class="w">        </span><span class="c">!! Saves a GNUPLOT command file.</span>
+<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-464" name="ln-464" href="#ln-464"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fname</span>
+<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="w">            </span><span class="c">!! The filename.</span>
+<a id="ln-467" name="ln-467" href="#ln-467"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">),</span><span class="w"> </span><span class="k">optional</span><span class="p">,</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">err</span>
+<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="w">            </span><span class="c">!! An error handling object.</span>
+<a id="ln-469" name="ln-469" href="#ln-469"></a>
+<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span>
+<a id="ln-472" name="ln-472" href="#ln-472"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">errmgr</span>
+<a id="ln-473" name="ln-473" href="#ln-473"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">errors</span><span class="p">),</span><span class="w"> </span><span class="k">target</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">deferr</span>
+<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
+<a id="ln-475" name="ln-475" href="#ln-475"></a>
+<a id="ln-476" name="ln-476" href="#ln-476"></a><span class="w">        </span><span class="c">! Initialization</span>
+<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">err</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-478" name="ln-478" href="#ln-478"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">err</span>
+<a id="ln-479" name="ln-479" href="#ln-479"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="k">            </span><span class="n">errmgr</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">deferr</span>
+<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-482" name="ln-482" href="#ln-482"></a><span class="k">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
+<a id="ln-483" name="ln-483" href="#ln-483"></a>
+<a id="ln-484" name="ln-484" href="#ln-484"></a><span class="w">        </span><span class="c">! Open the file for writing, and write the contents to file</span>
+<a id="ln-485" name="ln-485" href="#ln-485"></a><span class="w">        </span><span class="k">open</span><span class="p">(</span><span class="n">newunit</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="k">file</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">iostat</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-486" name="ln-486" href="#ln-486"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">flag</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-487" name="ln-487" href="#ln-487"></a><span class="k">            call </span><span class="n">report_file_create_error</span><span class="p">(</span><span class="n">errmgr</span><span class="p">,</span><span class="w"> </span><span class="s2">&quot;mp_save&quot;</span><span class="p">,</span><span class="w"> </span><span class="n">fname</span><span class="p">,</span><span class="w"> </span><span class="n">flag</span><span class="p">)</span>
+<a id="ln-488" name="ln-488" href="#ln-488"></a><span class="w">            </span><span class="k">return</span>
+<a id="ln-489" name="ln-489" href="#ln-489"></a><span class="k">        end if</span>
+<a id="ln-490" name="ln-490" href="#ln-490"></a><span class="k">        write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">term</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">()</span>
+<a id="ln-491" name="ln-491" href="#ln-491"></a><span class="w">        </span><span class="k">write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">)</span>
+<a id="ln-492" name="ln-492" href="#ln-492"></a><span class="w">        </span><span class="k">write</span><span class="p">(</span><span class="n">fid</span><span class="p">,</span><span class="w"> </span><span class="s1">&#39;(A)&#39;</span><span class="p">)</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_command_string</span><span class="p">()</span>
+<a id="ln-493" name="ln-493" href="#ln-493"></a><span class="w">        </span><span class="k">close</span><span class="p">(</span><span class="n">fid</span><span class="p">)</span>
+<a id="ln-494" name="ln-494" href="#ln-494"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-495" name="ln-495" href="#ln-495"></a>
+<a id="ln-496" name="ln-496" href="#ln-496"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-497" name="ln-497" href="#ln-497"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_font</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-498" name="ln-498" href="#ln-498"></a><span class="w">        </span><span class="c">!! Gets the name of the font used for plot text.</span>
+<a id="ln-499" name="ln-499" href="#ln-499"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-500" name="ln-500" href="#ln-500"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-501" name="ln-501" href="#ln-501"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-502" name="ln-502" href="#ln-502"></a><span class="w">            </span><span class="c">!! The font name.</span>
+<a id="ln-503" name="ln-503" href="#ln-503"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
+<a id="ln-504" name="ln-504" href="#ln-504"></a><span class="w">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
+<a id="ln-505" name="ln-505" href="#ln-505"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">term</span><span class="p">%</span><span class="n">get_font_name</span><span class="p">()</span>
+<a id="ln-506" name="ln-506" href="#ln-506"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-507" name="ln-507" href="#ln-507"></a>
+<a id="ln-508" name="ln-508" href="#ln-508"></a><span class="c">! --------------------</span>
+<a id="ln-509" name="ln-509" href="#ln-509"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_font</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-510" name="ln-510" href="#ln-510"></a><span class="w">        </span><span class="c">!! Sets the name of the font used for plot text.</span>
+<a id="ln-511" name="ln-511" href="#ln-511"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-512" name="ln-512" href="#ln-512"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-513" name="ln-513" href="#ln-513"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-514" name="ln-514" href="#ln-514"></a><span class="w">            </span><span class="c">!! The font name.</span>
+<a id="ln-515" name="ln-515" href="#ln-515"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
+<a id="ln-516" name="ln-516" href="#ln-516"></a><span class="w">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
+<a id="ln-517" name="ln-517" href="#ln-517"></a><span class="w">        </span><span class="k">call </span><span class="n">term</span><span class="p">%</span><span class="n">set_font_name</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-518" name="ln-518" href="#ln-518"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-519" name="ln-519" href="#ln-519"></a>
+<a id="ln-520" name="ln-520" href="#ln-520"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-521" name="ln-521" href="#ln-521"></a><span class="w">    </span><span class="k">function </span><span class="n">mp_get_font_size</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-522" name="ln-522" href="#ln-522"></a><span class="w">        </span><span class="c">!! Gets the size of the font used by the plot.</span>
+<a id="ln-523" name="ln-523" href="#ln-523"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-524" name="ln-524" href="#ln-524"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-525" name="ln-525" href="#ln-525"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-526" name="ln-526" href="#ln-526"></a><span class="w">            </span><span class="c">!! The font size.</span>
+<a id="ln-527" name="ln-527" href="#ln-527"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
+<a id="ln-528" name="ln-528" href="#ln-528"></a><span class="w">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
+<a id="ln-529" name="ln-529" href="#ln-529"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">term</span><span class="p">%</span><span class="n">get_font_size</span><span class="p">()</span>
+<a id="ln-530" name="ln-530" href="#ln-530"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-531" name="ln-531" href="#ln-531"></a>
+<a id="ln-532" name="ln-532" href="#ln-532"></a><span class="c">! --------------------</span>
+<a id="ln-533" name="ln-533" href="#ln-533"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_font_size</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-534" name="ln-534" href="#ln-534"></a><span class="w">        </span><span class="c">!! Sets the size of the font used by the plot.</span>
+<a id="ln-535" name="ln-535" href="#ln-535"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-536" name="ln-536" href="#ln-536"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-537" name="ln-537" href="#ln-537"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-538" name="ln-538" href="#ln-538"></a><span class="w">            </span><span class="c">!! The font size.</span>
+<a id="ln-539" name="ln-539" href="#ln-539"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">terminal</span><span class="p">),</span><span class="w"> </span><span class="k">pointer</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">term</span>
+<a id="ln-540" name="ln-540" href="#ln-540"></a><span class="w">        </span><span class="n">term</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_terminal</span><span class="p">()</span>
+<a id="ln-541" name="ln-541" href="#ln-541"></a><span class="w">        </span><span class="k">call </span><span class="n">term</span><span class="p">%</span><span class="n">set_font_size</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-542" name="ln-542" href="#ln-542"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-543" name="ln-543" href="#ln-543"></a>
+<a id="ln-544" name="ln-544" href="#ln-544"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-545" name="ln-545" href="#ln-545"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_window_size</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">width</span><span class="p">,</span><span class="w"> </span><span class="n">height</span><span class="p">)</span>
+<a id="ln-546" name="ln-546" href="#ln-546"></a><span class="w">        </span><span class="c">!! Sets the height and width of the plot window.</span>
+<a id="ln-547" name="ln-547" href="#ln-547"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-548" name="ln-548" href="#ln-548"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-549" name="ln-549" href="#ln-549"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">width</span>
+<a id="ln-550" name="ln-550" href="#ln-550"></a><span class="w">            </span><span class="c">!! The plot window width.</span>
+<a id="ln-551" name="ln-551" href="#ln-551"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">height</span>
+<a id="ln-552" name="ln-552" href="#ln-552"></a><span class="w">            </span><span class="c">!! The plot window height.</span>
+<a id="ln-553" name="ln-553" href="#ln-553"></a>
+<a id="ln-554" name="ln-554" href="#ln-554"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">associated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-555" name="ln-555" href="#ln-555"></a><span class="k">            call </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">%</span><span class="n">set_window_width</span><span class="p">(</span><span class="n">width</span><span class="p">)</span>
+<a id="ln-556" name="ln-556" href="#ln-556"></a><span class="w">            </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">m_terminal</span><span class="p">%</span><span class="n">set_window_height</span><span class="p">(</span><span class="n">height</span><span class="p">)</span>
+<a id="ln-557" name="ln-557" href="#ln-557"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-558" name="ln-558" href="#ln-558"></a><span class="k">    end subroutine</span>
+<a id="ln-559" name="ln-559" href="#ln-559"></a>
+<a id="ln-560" name="ln-560" href="#ln-560"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-561" name="ln-561" href="#ln-561"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_left_margin</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-562" name="ln-562" href="#ln-562"></a><span class="w">        </span><span class="c">!! Gets the left margin.  The value exists in the range [0, 1].  This</span>
+<a id="ln-563" name="ln-563" href="#ln-563"></a><span class="w">        </span><span class="c">!! margin is a global margin for the multiplot.</span>
+<a id="ln-564" name="ln-564" href="#ln-564"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-565" name="ln-565" href="#ln-565"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-566" name="ln-566" href="#ln-566"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-567" name="ln-567" href="#ln-567"></a><span class="w">            </span><span class="c">!! The margin value.</span>
+<a id="ln-568" name="ln-568" href="#ln-568"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_leftMargin</span>
+<a id="ln-569" name="ln-569" href="#ln-569"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-570" name="ln-570" href="#ln-570"></a>
+<a id="ln-571" name="ln-571" href="#ln-571"></a><span class="c">! --------------------</span>
+<a id="ln-572" name="ln-572" href="#ln-572"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_left_margin</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-573" name="ln-573" href="#ln-573"></a><span class="w">        </span><span class="c">!! Sets the left margin.  The value exists in the range [0, 1].  This</span>
+<a id="ln-574" name="ln-574" href="#ln-574"></a><span class="w">        </span><span class="c">!! margin is a global margin for the multiplot.</span>
+<a id="ln-575" name="ln-575" href="#ln-575"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-576" name="ln-576" href="#ln-576"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-577" name="ln-577" href="#ln-577"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-578" name="ln-578" href="#ln-578"></a><span class="w">            </span><span class="c">!! The margin value.  This value will be clamped to the range</span>
+<a id="ln-579" name="ln-579" href="#ln-579"></a><span class="w">            </span><span class="c">!! [0, 1].</span>
+<a id="ln-580" name="ln-580" href="#ln-580"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mf">0.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-581" name="ln-581" href="#ln-581"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_leftMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-582" name="ln-582" href="#ln-582"></a><span class="w">        </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mf">1.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-583" name="ln-583" href="#ln-583"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_leftMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">1.0</span>
+<a id="ln-584" name="ln-584" href="#ln-584"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-585" name="ln-585" href="#ln-585"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_leftMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-586" name="ln-586" href="#ln-586"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-587" name="ln-587" href="#ln-587"></a><span class="k">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_useAutoMargins</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-588" name="ln-588" href="#ln-588"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-589" name="ln-589" href="#ln-589"></a>
+<a id="ln-590" name="ln-590" href="#ln-590"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-591" name="ln-591" href="#ln-591"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_right_margin</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-592" name="ln-592" href="#ln-592"></a><span class="w">        </span><span class="c">!! Gets the right margin.  The value exists in the range [0, 1].  This</span>
+<a id="ln-593" name="ln-593" href="#ln-593"></a><span class="w">        </span><span class="c">!! margin is a global margin for the multiplot.</span>
+<a id="ln-594" name="ln-594" href="#ln-594"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-595" name="ln-595" href="#ln-595"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-596" name="ln-596" href="#ln-596"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-597" name="ln-597" href="#ln-597"></a><span class="w">            </span><span class="c">!! The margin value.</span>
+<a id="ln-598" name="ln-598" href="#ln-598"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_rightMargin</span>
+<a id="ln-599" name="ln-599" href="#ln-599"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-600" name="ln-600" href="#ln-600"></a>
+<a id="ln-601" name="ln-601" href="#ln-601"></a><span class="c">! --------------------</span>
+<a id="ln-602" name="ln-602" href="#ln-602"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_right_margin</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-603" name="ln-603" href="#ln-603"></a><span class="w">        </span><span class="c">!! Sets the right margin.  The value exists in the range [0, 1].  This</span>
+<a id="ln-604" name="ln-604" href="#ln-604"></a><span class="w">        </span><span class="c">!! margin is a global margin for the multiplot.</span>
+<a id="ln-605" name="ln-605" href="#ln-605"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-606" name="ln-606" href="#ln-606"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-607" name="ln-607" href="#ln-607"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-608" name="ln-608" href="#ln-608"></a><span class="w">            </span><span class="c">!! The margin value.  This value will be clamped to the range</span>
+<a id="ln-609" name="ln-609" href="#ln-609"></a><span class="w">            </span><span class="c">!! [0, 1].</span>
+<a id="ln-610" name="ln-610" href="#ln-610"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mf">0.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-611" name="ln-611" href="#ln-611"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_rightMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-612" name="ln-612" href="#ln-612"></a><span class="w">        </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mf">1.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-613" name="ln-613" href="#ln-613"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_rightMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">1.0</span>
+<a id="ln-614" name="ln-614" href="#ln-614"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-615" name="ln-615" href="#ln-615"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_rightMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-616" name="ln-616" href="#ln-616"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-617" name="ln-617" href="#ln-617"></a><span class="k">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_useAutoMargins</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-618" name="ln-618" href="#ln-618"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-619" name="ln-619" href="#ln-619"></a>
+<a id="ln-620" name="ln-620" href="#ln-620"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-621" name="ln-621" href="#ln-621"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_top_margin</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-622" name="ln-622" href="#ln-622"></a><span class="w">        </span><span class="c">!! Gets the top margin.  The value exists in the range [0, 1].  This</span>
+<a id="ln-623" name="ln-623" href="#ln-623"></a><span class="w">        </span><span class="c">!! margin is a global margin for the multiplot.</span>
+<a id="ln-624" name="ln-624" href="#ln-624"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-625" name="ln-625" href="#ln-625"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-626" name="ln-626" href="#ln-626"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-627" name="ln-627" href="#ln-627"></a><span class="w">            </span><span class="c">!! The margin value.</span>
+<a id="ln-628" name="ln-628" href="#ln-628"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_topMargin</span>
+<a id="ln-629" name="ln-629" href="#ln-629"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-630" name="ln-630" href="#ln-630"></a>
+<a id="ln-631" name="ln-631" href="#ln-631"></a><span class="c">! --------------------</span>
+<a id="ln-632" name="ln-632" href="#ln-632"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_top_margin</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-633" name="ln-633" href="#ln-633"></a><span class="w">        </span><span class="c">!! Sets the top margin.  The value exists in the range [0, 1].  This</span>
+<a id="ln-634" name="ln-634" href="#ln-634"></a><span class="w">        </span><span class="c">!! margin is a global margin for the multiplot.</span>
+<a id="ln-635" name="ln-635" href="#ln-635"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-636" name="ln-636" href="#ln-636"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-637" name="ln-637" href="#ln-637"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-638" name="ln-638" href="#ln-638"></a><span class="w">            </span><span class="c">!! The margin value.  This value will be clamped to the range</span>
+<a id="ln-639" name="ln-639" href="#ln-639"></a><span class="w">            </span><span class="c">!! [0, 1].</span>
+<a id="ln-640" name="ln-640" href="#ln-640"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mf">0.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-641" name="ln-641" href="#ln-641"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_topMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-642" name="ln-642" href="#ln-642"></a><span class="w">        </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mf">1.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-643" name="ln-643" href="#ln-643"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_topMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">1.0</span>
+<a id="ln-644" name="ln-644" href="#ln-644"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-645" name="ln-645" href="#ln-645"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_topMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-646" name="ln-646" href="#ln-646"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-647" name="ln-647" href="#ln-647"></a><span class="k">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_useAutoMargins</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-648" name="ln-648" href="#ln-648"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-649" name="ln-649" href="#ln-649"></a>
+<a id="ln-650" name="ln-650" href="#ln-650"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-651" name="ln-651" href="#ln-651"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_bottom_margin</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-652" name="ln-652" href="#ln-652"></a><span class="w">        </span><span class="c">!! Gets the bottom margin.  The value exists in the range [0, 1].  This</span>
+<a id="ln-653" name="ln-653" href="#ln-653"></a><span class="w">        </span><span class="c">!! margin is a global margin for the multiplot.</span>
+<a id="ln-654" name="ln-654" href="#ln-654"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-655" name="ln-655" href="#ln-655"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-656" name="ln-656" href="#ln-656"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-657" name="ln-657" href="#ln-657"></a><span class="w">            </span><span class="c">!! The margin value.</span>
+<a id="ln-658" name="ln-658" href="#ln-658"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_bottomMargin</span>
+<a id="ln-659" name="ln-659" href="#ln-659"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-660" name="ln-660" href="#ln-660"></a>
+<a id="ln-661" name="ln-661" href="#ln-661"></a><span class="c">! --------------------</span>
+<a id="ln-662" name="ln-662" href="#ln-662"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_bottom_margin</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-663" name="ln-663" href="#ln-663"></a><span class="w">        </span><span class="c">!! Sets the bottom margin.  The value exists in the range [0, 1].  This</span>
+<a id="ln-664" name="ln-664" href="#ln-664"></a><span class="w">        </span><span class="c">!! margin is a global margin for the multiplot.</span>
+<a id="ln-665" name="ln-665" href="#ln-665"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-666" name="ln-666" href="#ln-666"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-667" name="ln-667" href="#ln-667"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-668" name="ln-668" href="#ln-668"></a><span class="w">            </span><span class="c">!! The margin value.  This value will be clamped to the range</span>
+<a id="ln-669" name="ln-669" href="#ln-669"></a><span class="w">            </span><span class="c">!! [0, 1].</span>
+<a id="ln-670" name="ln-670" href="#ln-670"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mf">0.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-671" name="ln-671" href="#ln-671"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_bottomMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-672" name="ln-672" href="#ln-672"></a><span class="w">        </span><span class="k">else if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mf">1.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-673" name="ln-673" href="#ln-673"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_bottomMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">1.0</span>
+<a id="ln-674" name="ln-674" href="#ln-674"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-675" name="ln-675" href="#ln-675"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_bottomMargin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-676" name="ln-676" href="#ln-676"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-677" name="ln-677" href="#ln-677"></a><span class="k">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_useAutoMargins</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-678" name="ln-678" href="#ln-678"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-679" name="ln-679" href="#ln-679"></a>
+<a id="ln-680" name="ln-680" href="#ln-680"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-681" name="ln-681" href="#ln-681"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_horizontal_spacing</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-682" name="ln-682" href="#ln-682"></a><span class="w">        </span><span class="c">!! Gets the horizontal spacing between plots.  The value must be</span>
+<a id="ln-683" name="ln-683" href="#ln-683"></a><span class="w">        </span><span class="c">!! zero or positive.</span>
+<a id="ln-684" name="ln-684" href="#ln-684"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-685" name="ln-685" href="#ln-685"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-686" name="ln-686" href="#ln-686"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-687" name="ln-687" href="#ln-687"></a><span class="w">            </span><span class="c">!! The spacing value.</span>
+<a id="ln-688" name="ln-688" href="#ln-688"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_horizontalSpacing</span>
+<a id="ln-689" name="ln-689" href="#ln-689"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-690" name="ln-690" href="#ln-690"></a>
+<a id="ln-691" name="ln-691" href="#ln-691"></a><span class="c">! --------------------</span>
+<a id="ln-692" name="ln-692" href="#ln-692"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_horizontal_spacing</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-693" name="ln-693" href="#ln-693"></a><span class="w">        </span><span class="c">!! Sets the horizontal spacing between plots.  The value must be</span>
+<a id="ln-694" name="ln-694" href="#ln-694"></a><span class="w">        </span><span class="c">!! zero or positive.</span>
+<a id="ln-695" name="ln-695" href="#ln-695"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-696" name="ln-696" href="#ln-696"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-697" name="ln-697" href="#ln-697"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-698" name="ln-698" href="#ln-698"></a><span class="w">            </span><span class="c">!! The spacing value.  This value will be clamped to zero if</span>
+<a id="ln-699" name="ln-699" href="#ln-699"></a><span class="w">            </span><span class="c">!! a negative value is supplied.</span>
+<a id="ln-700" name="ln-700" href="#ln-700"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mf">0.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-701" name="ln-701" href="#ln-701"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_horizontalSpacing</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-702" name="ln-702" href="#ln-702"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-703" name="ln-703" href="#ln-703"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_horizontalSpacing</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-704" name="ln-704" href="#ln-704"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-705" name="ln-705" href="#ln-705"></a><span class="k">    end subroutine</span>
+<a id="ln-706" name="ln-706" href="#ln-706"></a>
+<a id="ln-707" name="ln-707" href="#ln-707"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-708" name="ln-708" href="#ln-708"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_vertical_spacing</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-709" name="ln-709" href="#ln-709"></a><span class="w">        </span><span class="c">!! Gets the vertical spacing between plots.  The value must be</span>
+<a id="ln-710" name="ln-710" href="#ln-710"></a><span class="w">        </span><span class="c">!! zero or positive.</span>
+<a id="ln-711" name="ln-711" href="#ln-711"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-712" name="ln-712" href="#ln-712"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-713" name="ln-713" href="#ln-713"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-714" name="ln-714" href="#ln-714"></a><span class="w">            </span><span class="c">!! The spacing value.</span>
+<a id="ln-715" name="ln-715" href="#ln-715"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_verticalSpacing</span>
+<a id="ln-716" name="ln-716" href="#ln-716"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-717" name="ln-717" href="#ln-717"></a>
+<a id="ln-718" name="ln-718" href="#ln-718"></a><span class="c">! --------------------</span>
+<a id="ln-719" name="ln-719" href="#ln-719"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_vertical_spacing</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-720" name="ln-720" href="#ln-720"></a><span class="w">        </span><span class="c">!! Sets the vertical spacing between plots.  The value must be</span>
+<a id="ln-721" name="ln-721" href="#ln-721"></a><span class="w">        </span><span class="c">!! zero or positive.</span>
+<a id="ln-722" name="ln-722" href="#ln-722"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-723" name="ln-723" href="#ln-723"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-724" name="ln-724" href="#ln-724"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-725" name="ln-725" href="#ln-725"></a><span class="w">            </span><span class="c">!! The spacing value.  This value will be clamped to zero if</span>
+<a id="ln-726" name="ln-726" href="#ln-726"></a><span class="w">            </span><span class="c">!! a negative value is supplied.</span>
+<a id="ln-727" name="ln-727" href="#ln-727"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="w"> </span><span class="o">&lt;</span><span class="w"> </span><span class="mf">0.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-728" name="ln-728" href="#ln-728"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_verticalSpacing</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-729" name="ln-729" href="#ln-729"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-730" name="ln-730" href="#ln-730"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_verticalSpacing</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-731" name="ln-731" href="#ln-731"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-732" name="ln-732" href="#ln-732"></a><span class="k">    end subroutine</span>
+<a id="ln-733" name="ln-733" href="#ln-733"></a>
+<a id="ln-734" name="ln-734" href="#ln-734"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-735" name="ln-735" href="#ln-735"></a><span class="w">    </span><span class="k">pure function </span><span class="n">mp_get_use_auto_generated_margins</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-736" name="ln-736" href="#ln-736"></a><span class="w">        </span><span class="c">!! Gets a value determining if the global margins should be </span>
+<a id="ln-737" name="ln-737" href="#ln-737"></a><span class="w">        </span><span class="c">!! automatically calculated.</span>
+<a id="ln-738" name="ln-738" href="#ln-738"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-739" name="ln-739" href="#ln-739"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-740" name="ln-740" href="#ln-740"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-741" name="ln-741" href="#ln-741"></a><span class="w">            </span><span class="c">!! True if the margins should be automatically calculated; else,</span>
+<a id="ln-742" name="ln-742" href="#ln-742"></a><span class="w">            </span><span class="c">!! false to use manually defined margins.</span>
+<a id="ln-743" name="ln-743" href="#ln-743"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_useAutoMargins</span>
+<a id="ln-744" name="ln-744" href="#ln-744"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-745" name="ln-745" href="#ln-745"></a>
+<a id="ln-746" name="ln-746" href="#ln-746"></a><span class="c">! --------------------</span>
+<a id="ln-747" name="ln-747" href="#ln-747"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">mp_set_use_auto_generated_margins</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-748" name="ln-748" href="#ln-748"></a><span class="w">        </span><span class="c">!! Sets a value determining if the global margins should be </span>
+<a id="ln-749" name="ln-749" href="#ln-749"></a><span class="w">        </span><span class="c">!! automatically calculated.</span>
+<a id="ln-750" name="ln-750" href="#ln-750"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">multiplot</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-751" name="ln-751" href="#ln-751"></a><span class="w">            </span><span class="c">!! The [[multiplot]] object.</span>
+<a id="ln-752" name="ln-752" href="#ln-752"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-753" name="ln-753" href="#ln-753"></a><span class="w">            </span><span class="c">!! True if the margins should be automatically calculated; else,</span>
+<a id="ln-754" name="ln-754" href="#ln-754"></a><span class="w">            </span><span class="c">!! false to use manually defined margins.</span>
+<a id="ln-755" name="ln-755" href="#ln-755"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_useAutoMargins</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-756" name="ln-756" href="#ln-756"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-757" name="ln-757" href="#ln-757"></a>
+<a id="ln-758" name="ln-758" href="#ln-758"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-759" name="ln-759" href="#ln-759"></a><span class="k">end module</span>
 </pre></div>
 
       </section>
@@ -697,7 +928,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_pdf_terminal.f90.html b/doc/sourcefile/fplot_pdf_terminal.f90.html
index 6ad90356..790e9a2d 100644
--- a/doc/sourcefile/fplot_pdf_terminal.f90.html
+++ b/doc/sourcefile/fplot_pdf_terminal.f90.html
@@ -265,7 +265,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot.f90.html b/doc/sourcefile/fplot_plot.f90.html
index 65223224..34596bb5 100644
--- a/doc/sourcefile/fplot_plot.f90.html
+++ b/doc/sourcefile/fplot_plot.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 9.2% of total for source files.">833 statements</a>
+                 title=" 8.5% of total for source files.">833 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -1726,7 +1726,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_2d.f90.html b/doc/sourcefile/fplot_plot_2d.f90.html
index 258b08f2..5159a07c 100644
--- a/doc/sourcefile/fplot_plot_2d.f90.html
+++ b/doc/sourcefile/fplot_plot_2d.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_2d.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 4.5% of total for source files.">408 statements</a>
+                 title=" 4.1% of total for source files.">408 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -797,7 +797,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_3d.f90.html b/doc/sourcefile/fplot_plot_3d.f90.html
index ff043877..8ac8166d 100644
--- a/doc/sourcefile/fplot_plot_3d.f90.html
+++ b/doc/sourcefile/fplot_plot_3d.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_3d.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 6.0% of total for source files.">545 statements</a>
+                 title=" 5.5% of total for source files.">545 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -1093,7 +1093,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_axis.f90.html b/doc/sourcefile/fplot_plot_axis.f90.html
index 87b7e2b5..bfe73922 100644
--- a/doc/sourcefile/fplot_plot_axis.f90.html
+++ b/doc/sourcefile/fplot_plot_axis.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_axis.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 5.2% of total for source files.">470 statements</a>
+                 title=" 5.1% of total for source files.">501 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -232,777 +232,839 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a id="ln-79" name="ln-79" href="#ln-79"></a><span class="w">            </span><span class="c">!! Use manual (user-defined) tic labels?</span>
 <a id="ln-80" name="ln-80" href="#ln-80"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">name_value_pair</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="p">,</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_ticLabels</span>
 <a id="ln-81" name="ln-81" href="#ln-81"></a><span class="w">            </span><span class="c">!! A list of user-defined tic labels.</span>
-<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_title</span>
-<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_title</span>
-<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">is_title_defined</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_has_title</span>
-<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_autoscale</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_autoscale</span>
-<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_autoscale</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_autoscale</span>
-<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_limits</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_axis_limits</span>
-<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_limits</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_axis_limits</span>
-<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_is_log_scaled</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_log_scale</span>
-<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_is_log_scaled</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_log_scale</span>
-<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_command_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_cmd_string</span>
-<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_zero_axis</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_zero_axis</span>
-<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_zero_axis</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_zero_axis</span>
-<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_zero_axis_line_width</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_zero_axis_width</span>
-<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_zero_axis_line_width</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_zero_axis_width</span>
-<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">        </span><span class="k">procedure</span><span class="p">(</span><span class="n">pa_get_string_result</span><span class="p">),</span><span class="w"> </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span>
-<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_use_default_tic_label_format</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">            </span><span class="n">pa_get_use_dft_tic_lbl_fmt</span>
-<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_use_default_tic_label_format</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">            </span><span class="n">pa_set_use_dft_tic_lbl_fmt</span>
-<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_format</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_tic_label_fmt</span>
-<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_format</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_tic_label_fmt</span>
-<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_show_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_show_tic_labels</span>
-<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_show_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_show_tic_labels</span>
-<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_x_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_tic_x_offset</span>
-<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_x_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_tic_x_offset</span>
-<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_y_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_tic_y_offset</span>
-<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_y_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_tic_y_offset</span>
-<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_angle</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_tic_label_angle</span>
-<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_angle</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_tic_label_angle</span>
-<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_rotation_origin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">            </span><span class="n">pa_get_tic_rotation_origin</span>
-<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_rotation_origin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">            </span><span class="n">pa_set_tic_rotation_origin</span>
-<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_alignment</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">            </span><span class="n">pa_get_tic_label_alignment</span>
-<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_alignment</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">            </span><span class="n">pa_set_tic_label_alignment</span>
-<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_offset_tics</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_offset_tics</span>
-<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_offset_tics</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_offset_tics</span>
-<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title_x_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_title_x_offset</span>
-<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title_x_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_title_x_offset</span>
-<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title_y_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_title_y_offset</span>
-<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title_y_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_title_y_offset</span>
-<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_use_manual_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">            </span><span class="n">pa_get_use_manual_tic_labels</span>
-<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_use_manual_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">            </span><span class="n">pa_set_use_manual_tic_labels</span>
-<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_manual_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_manual_tic_labels</span>
-<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_manual_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_manual_tic_labels</span>
-<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-133" name="ln-133" href="#ln-133"></a>
-<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="k">    interface</span>
-<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="k">        function </span><span class="n">pa_get_string_result</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">            </span><span class="c">!! Retrieves a string from a plot_axis.</span>
-<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">            </span><span class="k">import </span><span class="n">plot_axis</span>
-<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">            </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">                </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">            </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">                </span><span class="c">!! The string.</span>
-<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="w">        </span><span class="k">end function</span>
-<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="k">    end interface</span>
+<a id="ln-82" name="ln-82" href="#ln-82"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_titleAngle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mf">0.0</span>
+<a id="ln-83" name="ln-83" href="#ln-83"></a><span class="w">            </span><span class="c">!! The angle at which to rotate the axis title.</span>
+<a id="ln-84" name="ln-84" href="#ln-84"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_autoCalcTitleAngle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a id="ln-85" name="ln-85" href="#ln-85"></a><span class="w">            </span><span class="c">!! True if GNUPLOT should automatically rotate the title; else,</span>
+<a id="ln-86" name="ln-86" href="#ln-86"></a><span class="w">            </span><span class="c">!! false if the m_titleAngle property should determine the angle.</span>
+<a id="ln-87" name="ln-87" href="#ln-87"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-88" name="ln-88" href="#ln-88"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_title</span>
+<a id="ln-89" name="ln-89" href="#ln-89"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_title</span>
+<a id="ln-90" name="ln-90" href="#ln-90"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">is_title_defined</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_has_title</span>
+<a id="ln-91" name="ln-91" href="#ln-91"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_autoscale</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_autoscale</span>
+<a id="ln-92" name="ln-92" href="#ln-92"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_autoscale</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_autoscale</span>
+<a id="ln-93" name="ln-93" href="#ln-93"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_limits</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_axis_limits</span>
+<a id="ln-94" name="ln-94" href="#ln-94"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_limits</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_axis_limits</span>
+<a id="ln-95" name="ln-95" href="#ln-95"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_is_log_scaled</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_log_scale</span>
+<a id="ln-96" name="ln-96" href="#ln-96"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_is_log_scaled</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_log_scale</span>
+<a id="ln-97" name="ln-97" href="#ln-97"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_command_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_cmd_string</span>
+<a id="ln-98" name="ln-98" href="#ln-98"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_zero_axis</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_zero_axis</span>
+<a id="ln-99" name="ln-99" href="#ln-99"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_zero_axis</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_zero_axis</span>
+<a id="ln-100" name="ln-100" href="#ln-100"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_zero_axis_line_width</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_zero_axis_width</span>
+<a id="ln-101" name="ln-101" href="#ln-101"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_zero_axis_line_width</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_zero_axis_width</span>
+<a id="ln-102" name="ln-102" href="#ln-102"></a><span class="w">        </span><span class="k">procedure</span><span class="p">(</span><span class="n">pa_get_string_result</span><span class="p">),</span><span class="w"> </span><span class="k">deferred</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span>
+<a id="ln-103" name="ln-103" href="#ln-103"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_use_default_tic_label_format</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-104" name="ln-104" href="#ln-104"></a><span class="w">            </span><span class="n">pa_get_use_dft_tic_lbl_fmt</span>
+<a id="ln-105" name="ln-105" href="#ln-105"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_use_default_tic_label_format</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-106" name="ln-106" href="#ln-106"></a><span class="w">            </span><span class="n">pa_set_use_dft_tic_lbl_fmt</span>
+<a id="ln-107" name="ln-107" href="#ln-107"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_format</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_tic_label_fmt</span>
+<a id="ln-108" name="ln-108" href="#ln-108"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_format</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_tic_label_fmt</span>
+<a id="ln-109" name="ln-109" href="#ln-109"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_show_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_show_tic_labels</span>
+<a id="ln-110" name="ln-110" href="#ln-110"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_show_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_show_tic_labels</span>
+<a id="ln-111" name="ln-111" href="#ln-111"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_x_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_tic_x_offset</span>
+<a id="ln-112" name="ln-112" href="#ln-112"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_x_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_tic_x_offset</span>
+<a id="ln-113" name="ln-113" href="#ln-113"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_y_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_tic_y_offset</span>
+<a id="ln-114" name="ln-114" href="#ln-114"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_y_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_tic_y_offset</span>
+<a id="ln-115" name="ln-115" href="#ln-115"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_angle</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_tic_label_angle</span>
+<a id="ln-116" name="ln-116" href="#ln-116"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_angle</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_tic_label_angle</span>
+<a id="ln-117" name="ln-117" href="#ln-117"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_rotation_origin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-118" name="ln-118" href="#ln-118"></a><span class="w">            </span><span class="n">pa_get_tic_rotation_origin</span>
+<a id="ln-119" name="ln-119" href="#ln-119"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_rotation_origin</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-120" name="ln-120" href="#ln-120"></a><span class="w">            </span><span class="n">pa_set_tic_rotation_origin</span>
+<a id="ln-121" name="ln-121" href="#ln-121"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_tic_label_alignment</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-122" name="ln-122" href="#ln-122"></a><span class="w">            </span><span class="n">pa_get_tic_label_alignment</span>
+<a id="ln-123" name="ln-123" href="#ln-123"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_tic_label_alignment</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-124" name="ln-124" href="#ln-124"></a><span class="w">            </span><span class="n">pa_set_tic_label_alignment</span>
+<a id="ln-125" name="ln-125" href="#ln-125"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_offset_tics</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_offset_tics</span>
+<a id="ln-126" name="ln-126" href="#ln-126"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_offset_tics</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_offset_tics</span>
+<a id="ln-127" name="ln-127" href="#ln-127"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title_x_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_title_x_offset</span>
+<a id="ln-128" name="ln-128" href="#ln-128"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title_x_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_title_x_offset</span>
+<a id="ln-129" name="ln-129" href="#ln-129"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title_y_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_title_y_offset</span>
+<a id="ln-130" name="ln-130" href="#ln-130"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title_y_offset</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_title_y_offset</span>
+<a id="ln-131" name="ln-131" href="#ln-131"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_title_angle</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_title_angle</span>
+<a id="ln-132" name="ln-132" href="#ln-132"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_title_angle</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_title_angle</span>
+<a id="ln-133" name="ln-133" href="#ln-133"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_auto_calculate_title_angle</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-134" name="ln-134" href="#ln-134"></a><span class="w">            </span><span class="n">pa_get_auto_calc_title_angle</span>
+<a id="ln-135" name="ln-135" href="#ln-135"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_auto_calculate_title_angle</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-136" name="ln-136" href="#ln-136"></a><span class="w">            </span><span class="n">pa_set_auto_calc_title_angle</span>
+<a id="ln-137" name="ln-137" href="#ln-137"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_use_manual_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-138" name="ln-138" href="#ln-138"></a><span class="w">            </span><span class="n">pa_get_use_manual_tic_labels</span>
+<a id="ln-139" name="ln-139" href="#ln-139"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_use_manual_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-140" name="ln-140" href="#ln-140"></a><span class="w">            </span><span class="n">pa_set_use_manual_tic_labels</span>
+<a id="ln-141" name="ln-141" href="#ln-141"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_manual_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_get_manual_tic_labels</span>
+<a id="ln-142" name="ln-142" href="#ln-142"></a><span class="w">        </span><span class="k">procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">set_manual_tic_labels</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">pa_set_manual_tic_labels</span>
+<a id="ln-143" name="ln-143" href="#ln-143"></a><span class="w">    </span><span class="k">end type</span>
 <a id="ln-144" name="ln-144" href="#ln-144"></a>
-<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="k">    type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x_axis</span>
-<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="w">        </span><span class="c">!! Defines an x-axis object.</span>
-<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">        </span><span class="kt">character</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_id</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;x&quot;</span>
-<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">            </span><span class="c">!! The ID character.</span>
-<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">xa_get_id</span>
-<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-152" name="ln-152" href="#ln-152"></a>
-<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="k">    type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">y_axis</span>
-<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="w">        </span><span class="c">!! Defines a y-axis object.</span>
-<a id="ln-155" name="ln-155" href="#ln-155"></a><span class="w">        </span><span class="kt">character</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_id</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;y&quot;</span>
-<a id="ln-156" name="ln-156" href="#ln-156"></a><span class="w">            </span><span class="c">!! The ID character.</span>
-<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">ya_get_id</span>
-<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-160" name="ln-160" href="#ln-160"></a>
-<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="k">    type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">y2_axis</span>
-<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">        </span><span class="c">!! Defines a secondary y-axis object.</span>
-<a id="ln-163" name="ln-163" href="#ln-163"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_id</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;y2&quot;</span>
-<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="w">            </span><span class="c">!! The ID character.</span>
-<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">y2a_get_id</span>
-<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-168" name="ln-168" href="#ln-168"></a>
-<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="k">    type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">z_axis</span>
-<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">        </span><span class="c">!! Defines a z-axis object.</span>
-<a id="ln-171" name="ln-171" href="#ln-171"></a><span class="w">        </span><span class="kt">character</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_id</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;z&quot;</span>
-<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="w">            </span><span class="c">!! The ID character.</span>
-<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">    </span><span class="k">contains</span>
-<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">za_get_id</span>
-<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">    </span><span class="k">end type</span>
-<a id="ln-176" name="ln-176" href="#ln-176"></a>
-<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="k">contains</span>
-<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-179" name="ln-179" href="#ln-179"></a><span class="w">    </span><span class="k">function </span><span class="n">pa_get_title</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">txt</span><span class="p">)</span>
-<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="w">        </span><span class="c">!! Gets the axis title.</span>
-<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">txt</span>
-<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">            </span><span class="c">!! The title.</span>
-<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="p">)</span>
-<a id="ln-187" name="ln-187" href="#ln-187"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">txt</span><span class="p">)</span>
-<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="w">        </span><span class="n">txt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="p">)</span>
-<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-190" name="ln-190" href="#ln-190"></a>
-<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="c">! --------------------</span>
-<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_title</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">txt</span><span class="p">)</span>
-<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">        </span><span class="c">!! Sets the axis title.</span>
-<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">txt</span>
-<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">            </span><span class="c">!! The title.</span>
-<a id="ln-198" name="ln-198" href="#ln-198"></a>
-<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-145" name="ln-145" href="#ln-145"></a><span class="k">    interface</span>
+<a id="ln-146" name="ln-146" href="#ln-146"></a><span class="k">        function </span><span class="n">pa_get_string_result</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-147" name="ln-147" href="#ln-147"></a><span class="w">            </span><span class="c">!! Retrieves a string from a plot_axis.</span>
+<a id="ln-148" name="ln-148" href="#ln-148"></a><span class="w">            </span><span class="k">import </span><span class="n">plot_axis</span>
+<a id="ln-149" name="ln-149" href="#ln-149"></a><span class="w">            </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-150" name="ln-150" href="#ln-150"></a><span class="w">                </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-151" name="ln-151" href="#ln-151"></a><span class="w">            </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-152" name="ln-152" href="#ln-152"></a><span class="w">                </span><span class="c">!! The string.</span>
+<a id="ln-153" name="ln-153" href="#ln-153"></a><span class="w">        </span><span class="k">end function</span>
+<a id="ln-154" name="ln-154" href="#ln-154"></a><span class="k">    end interface</span>
+<a id="ln-155" name="ln-155" href="#ln-155"></a>
+<a id="ln-156" name="ln-156" href="#ln-156"></a><span class="k">    type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x_axis</span>
+<a id="ln-157" name="ln-157" href="#ln-157"></a><span class="w">        </span><span class="c">!! Defines an x-axis object.</span>
+<a id="ln-158" name="ln-158" href="#ln-158"></a><span class="w">        </span><span class="kt">character</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_id</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;x&quot;</span>
+<a id="ln-159" name="ln-159" href="#ln-159"></a><span class="w">            </span><span class="c">!! The ID character.</span>
+<a id="ln-160" name="ln-160" href="#ln-160"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-161" name="ln-161" href="#ln-161"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">xa_get_id</span>
+<a id="ln-162" name="ln-162" href="#ln-162"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-163" name="ln-163" href="#ln-163"></a>
+<a id="ln-164" name="ln-164" href="#ln-164"></a><span class="k">    type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">y_axis</span>
+<a id="ln-165" name="ln-165" href="#ln-165"></a><span class="w">        </span><span class="c">!! Defines a y-axis object.</span>
+<a id="ln-166" name="ln-166" href="#ln-166"></a><span class="w">        </span><span class="kt">character</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_id</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;y&quot;</span>
+<a id="ln-167" name="ln-167" href="#ln-167"></a><span class="w">            </span><span class="c">!! The ID character.</span>
+<a id="ln-168" name="ln-168" href="#ln-168"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-169" name="ln-169" href="#ln-169"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">ya_get_id</span>
+<a id="ln-170" name="ln-170" href="#ln-170"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-171" name="ln-171" href="#ln-171"></a>
+<a id="ln-172" name="ln-172" href="#ln-172"></a><span class="k">    type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">y2_axis</span>
+<a id="ln-173" name="ln-173" href="#ln-173"></a><span class="w">        </span><span class="c">!! Defines a secondary y-axis object.</span>
+<a id="ln-174" name="ln-174" href="#ln-174"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">2</span><span class="p">),</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_id</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;y2&quot;</span>
+<a id="ln-175" name="ln-175" href="#ln-175"></a><span class="w">            </span><span class="c">!! The ID character.</span>
+<a id="ln-176" name="ln-176" href="#ln-176"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-177" name="ln-177" href="#ln-177"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">y2a_get_id</span>
+<a id="ln-178" name="ln-178" href="#ln-178"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-179" name="ln-179" href="#ln-179"></a>
+<a id="ln-180" name="ln-180" href="#ln-180"></a><span class="k">    type</span><span class="p">,</span><span class="w"> </span><span class="k">extends</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">z_axis</span>
+<a id="ln-181" name="ln-181" href="#ln-181"></a><span class="w">        </span><span class="c">!! Defines a z-axis object.</span>
+<a id="ln-182" name="ln-182" href="#ln-182"></a><span class="w">        </span><span class="kt">character</span><span class="p">,</span><span class="w"> </span><span class="k">private</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">m_id</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;z&quot;</span>
+<a id="ln-183" name="ln-183" href="#ln-183"></a><span class="w">            </span><span class="c">!! The ID character.</span>
+<a id="ln-184" name="ln-184" href="#ln-184"></a><span class="w">    </span><span class="k">contains</span>
+<a id="ln-185" name="ln-185" href="#ln-185"></a><span class="k">        procedure</span><span class="p">,</span><span class="w"> </span><span class="k">public</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">get_id_string</span><span class="w"> </span><span class="o">=&gt;</span><span class="w"> </span><span class="n">za_get_id</span>
+<a id="ln-186" name="ln-186" href="#ln-186"></a><span class="w">    </span><span class="k">end type</span>
+<a id="ln-187" name="ln-187" href="#ln-187"></a>
+<a id="ln-188" name="ln-188" href="#ln-188"></a><span class="k">contains</span>
+<a id="ln-189" name="ln-189" href="#ln-189"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-190" name="ln-190" href="#ln-190"></a><span class="w">    </span><span class="k">function </span><span class="n">pa_get_title</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">txt</span><span class="p">)</span>
+<a id="ln-191" name="ln-191" href="#ln-191"></a><span class="w">        </span><span class="c">!! Gets the axis title.</span>
+<a id="ln-192" name="ln-192" href="#ln-192"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-193" name="ln-193" href="#ln-193"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-194" name="ln-194" href="#ln-194"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">txt</span>
+<a id="ln-195" name="ln-195" href="#ln-195"></a><span class="w">            </span><span class="c">!! The title.</span>
+<a id="ln-196" name="ln-196" href="#ln-196"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-197" name="ln-197" href="#ln-197"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="p">)</span>
+<a id="ln-198" name="ln-198" href="#ln-198"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">txt</span><span class="p">)</span>
+<a id="ln-199" name="ln-199" href="#ln-199"></a><span class="w">        </span><span class="n">txt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="p">)</span>
+<a id="ln-200" name="ln-200" href="#ln-200"></a><span class="w">    </span><span class="k">end function</span>
 <a id="ln-201" name="ln-201" href="#ln-201"></a>
-<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="w">        </span><span class="c">! Process</span>
-<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">txt</span><span class="p">),</span><span class="w"> </span><span class="n">PLOTDATA_MAX_NAME_LENGTH</span><span class="p">)</span>
-<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span>
-<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">n</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">txt</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-209" name="ln-209" href="#ln-209"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="k">    end subroutine</span>
+<a id="ln-202" name="ln-202" href="#ln-202"></a><span class="c">! --------------------</span>
+<a id="ln-203" name="ln-203" href="#ln-203"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_title</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">txt</span><span class="p">)</span>
+<a id="ln-204" name="ln-204" href="#ln-204"></a><span class="w">        </span><span class="c">!! Sets the axis title.</span>
+<a id="ln-205" name="ln-205" href="#ln-205"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-206" name="ln-206" href="#ln-206"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-207" name="ln-207" href="#ln-207"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">txt</span>
+<a id="ln-208" name="ln-208" href="#ln-208"></a><span class="w">            </span><span class="c">!! The title.</span>
+<a id="ln-209" name="ln-209" href="#ln-209"></a>
+<a id="ln-210" name="ln-210" href="#ln-210"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-211" name="ln-211" href="#ln-211"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
 <a id="ln-212" name="ln-212" href="#ln-212"></a>
-<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_has_title</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="w">        </span><span class="c">!! Gets a value determining if a title has been defined for this axis.</span>
-<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">            </span><span class="c">!! Returns true if a title has been defined; else, false.</span>
-<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span>
-<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-222" name="ln-222" href="#ln-222"></a>
-<a id="ln-223" name="ln-223" href="#ln-223"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_autoscale</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">        </span><span class="c">!! Gets a value determining if the axis should be automatically scaled</span>
-<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">        </span><span class="c">!! to fit the data.</span>
+<a id="ln-213" name="ln-213" href="#ln-213"></a><span class="w">        </span><span class="c">! Process</span>
+<a id="ln-214" name="ln-214" href="#ln-214"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="nb">len_trim</span><span class="p">(</span><span class="n">txt</span><span class="p">),</span><span class="w"> </span><span class="n">PLOTDATA_MAX_NAME_LENGTH</span><span class="p">)</span>
+<a id="ln-215" name="ln-215" href="#ln-215"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span>
+<a id="ln-216" name="ln-216" href="#ln-216"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">n</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-217" name="ln-217" href="#ln-217"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_title</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">txt</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a id="ln-218" name="ln-218" href="#ln-218"></a><span class="w">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a id="ln-219" name="ln-219" href="#ln-219"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-220" name="ln-220" href="#ln-220"></a><span class="k">            </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-221" name="ln-221" href="#ln-221"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-222" name="ln-222" href="#ln-222"></a><span class="k">    end subroutine</span>
+<a id="ln-223" name="ln-223" href="#ln-223"></a>
+<a id="ln-224" name="ln-224" href="#ln-224"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-225" name="ln-225" href="#ln-225"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_has_title</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-226" name="ln-226" href="#ln-226"></a><span class="w">        </span><span class="c">!! Gets a value determining if a title has been defined for this axis.</span>
 <a id="ln-227" name="ln-227" href="#ln-227"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
 <a id="ln-228" name="ln-228" href="#ln-228"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
 <a id="ln-229" name="ln-229" href="#ln-229"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">            </span><span class="c">!! Returns true if the axis should be automatically scaled; else, </span>
-<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">            </span><span class="c">!! false.</span>
-<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_autoscale</span>
-<a id="ln-233" name="ln-233" href="#ln-233"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-234" name="ln-234" href="#ln-234"></a>
-<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="c">! --------------------</span>
-<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_autoscale</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">        </span><span class="c">!! Sets a value determining if the axis should be automatically scaled</span>
-<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">        </span><span class="c">!! to fit the data.</span>
-<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">            </span><span class="c">!! Set to true if the axis should be automatically scaled; else, </span>
-<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">            </span><span class="c">!! set to false.</span>
-<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_autoscale</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-245" name="ln-245" href="#ln-245"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-246" name="ln-246" href="#ln-246"></a>
-<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_axis_limits</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">        </span><span class="c">!! Gets the axis display limits, assuming autoscaling is not</span>
-<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="w">        </span><span class="c">!! active for this axis.</span>
-<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-254" name="ln-254" href="#ln-254"></a><span class="w">            </span><span class="c">!! A two-element array containing the limits as follows:</span>
-<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="w">            </span><span class="c">!! [lower, upper].</span>
-<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="w">        </span><span class="n">x</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_limits</span><span class="p">)</span>
-<a id="ln-257" name="ln-257" href="#ln-257"></a><span class="w">        </span><span class="n">x</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_limits</span><span class="p">)</span>
-<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-259" name="ln-259" href="#ln-259"></a>
-<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="c">! --------------------</span>
-<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_axis_limits</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">lower</span><span class="p">,</span><span class="w"> </span><span class="n">upper</span><span class="p">)</span>
-<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">        </span><span class="c">!! Gets the axis display limits, assuming autoscaling is not</span>
-<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">        </span><span class="c">!! active for this axis.  This routine also calls set_autoscale and</span>
-<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="w">        </span><span class="c">!! sets the property value to false.</span>
-<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">lower</span>
-<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">            </span><span class="c">!! The lower display limit.</span>
-<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">upper</span>
-<a id="ln-270" name="ln-270" href="#ln-270"></a><span class="w">            </span><span class="c">!! The upper display limit.</span>
-<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_limits</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="n">lower</span><span class="p">,</span><span class="w"> </span><span class="n">upper</span><span class="p">)</span>
-<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_limits</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="n">lower</span><span class="p">,</span><span class="w"> </span><span class="n">upper</span><span class="p">)</span>
-<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">set_autoscale</span><span class="p">(.</span><span class="n">false</span><span class="p">.)</span>
-<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-275" name="ln-275" href="#ln-275"></a>
-<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_log_scale</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">        </span><span class="c">!! Gets a logical value defining if the axis should be log scaled.</span>
-<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">            </span><span class="c">!! Returns true if log scaling is applied to the axis; else, false.</span>
-<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_logScale</span>
-<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-285" name="ln-285" href="#ln-285"></a>
-<a id="ln-286" name="ln-286" href="#ln-286"></a><span class="c">! --------------------</span>
-<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_log_scale</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">        </span><span class="c">!! Sets a logical value defining if the axis should be log scaled.</span>
-<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">            </span><span class="c">!! Set to true if log scaling is applied to the axis; else, false.</span>
-<a id="ln-293" name="ln-293" href="#ln-293"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_logScale</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-295" name="ln-295" href="#ln-295"></a>
-<a id="ln-296" name="ln-296" href="#ln-296"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="w">    </span><span class="k">function </span><span class="n">pa_get_cmd_string</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">txt</span><span class="p">)</span>
-<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">        </span><span class="c">!! Returns the appropriate GNUPLOT command string to define the</span>
-<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">        </span><span class="c">!! plot_axis properties.</span>
-<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-230" name="ln-230" href="#ln-230"></a><span class="w">            </span><span class="c">!! Returns true if a title has been defined; else, false.</span>
+<a id="ln-231" name="ln-231" href="#ln-231"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_hasTitle</span>
+<a id="ln-232" name="ln-232" href="#ln-232"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-233" name="ln-233" href="#ln-233"></a>
+<a id="ln-234" name="ln-234" href="#ln-234"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-235" name="ln-235" href="#ln-235"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_autoscale</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-236" name="ln-236" href="#ln-236"></a><span class="w">        </span><span class="c">!! Gets a value determining if the axis should be automatically scaled</span>
+<a id="ln-237" name="ln-237" href="#ln-237"></a><span class="w">        </span><span class="c">!! to fit the data.</span>
+<a id="ln-238" name="ln-238" href="#ln-238"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-239" name="ln-239" href="#ln-239"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-240" name="ln-240" href="#ln-240"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-241" name="ln-241" href="#ln-241"></a><span class="w">            </span><span class="c">!! Returns true if the axis should be automatically scaled; else, </span>
+<a id="ln-242" name="ln-242" href="#ln-242"></a><span class="w">            </span><span class="c">!! false.</span>
+<a id="ln-243" name="ln-243" href="#ln-243"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_autoscale</span>
+<a id="ln-244" name="ln-244" href="#ln-244"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-245" name="ln-245" href="#ln-245"></a>
+<a id="ln-246" name="ln-246" href="#ln-246"></a><span class="c">! --------------------</span>
+<a id="ln-247" name="ln-247" href="#ln-247"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_autoscale</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-248" name="ln-248" href="#ln-248"></a><span class="w">        </span><span class="c">!! Sets a value determining if the axis should be automatically scaled</span>
+<a id="ln-249" name="ln-249" href="#ln-249"></a><span class="w">        </span><span class="c">!! to fit the data.</span>
+<a id="ln-250" name="ln-250" href="#ln-250"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-251" name="ln-251" href="#ln-251"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-252" name="ln-252" href="#ln-252"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-253" name="ln-253" href="#ln-253"></a><span class="w">            </span><span class="c">!! Set to true if the axis should be automatically scaled; else, </span>
+<a id="ln-254" name="ln-254" href="#ln-254"></a><span class="w">            </span><span class="c">!! set to false.</span>
+<a id="ln-255" name="ln-255" href="#ln-255"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_autoscale</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-256" name="ln-256" href="#ln-256"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-257" name="ln-257" href="#ln-257"></a>
+<a id="ln-258" name="ln-258" href="#ln-258"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-259" name="ln-259" href="#ln-259"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_axis_limits</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-260" name="ln-260" href="#ln-260"></a><span class="w">        </span><span class="c">!! Gets the axis display limits, assuming autoscaling is not</span>
+<a id="ln-261" name="ln-261" href="#ln-261"></a><span class="w">        </span><span class="c">!! active for this axis.</span>
+<a id="ln-262" name="ln-262" href="#ln-262"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-263" name="ln-263" href="#ln-263"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-264" name="ln-264" href="#ln-264"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-265" name="ln-265" href="#ln-265"></a><span class="w">            </span><span class="c">!! A two-element array containing the limits as follows:</span>
+<a id="ln-266" name="ln-266" href="#ln-266"></a><span class="w">            </span><span class="c">!! [lower, upper].</span>
+<a id="ln-267" name="ln-267" href="#ln-267"></a><span class="w">        </span><span class="n">x</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">minval</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_limits</span><span class="p">)</span>
+<a id="ln-268" name="ln-268" href="#ln-268"></a><span class="w">        </span><span class="n">x</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">maxval</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_limits</span><span class="p">)</span>
+<a id="ln-269" name="ln-269" href="#ln-269"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-270" name="ln-270" href="#ln-270"></a>
+<a id="ln-271" name="ln-271" href="#ln-271"></a><span class="c">! --------------------</span>
+<a id="ln-272" name="ln-272" href="#ln-272"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_axis_limits</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">lower</span><span class="p">,</span><span class="w"> </span><span class="n">upper</span><span class="p">)</span>
+<a id="ln-273" name="ln-273" href="#ln-273"></a><span class="w">        </span><span class="c">!! Gets the axis display limits, assuming autoscaling is not</span>
+<a id="ln-274" name="ln-274" href="#ln-274"></a><span class="w">        </span><span class="c">!! active for this axis.  This routine also calls set_autoscale and</span>
+<a id="ln-275" name="ln-275" href="#ln-275"></a><span class="w">        </span><span class="c">!! sets the property value to false.</span>
+<a id="ln-276" name="ln-276" href="#ln-276"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-277" name="ln-277" href="#ln-277"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-278" name="ln-278" href="#ln-278"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">lower</span>
+<a id="ln-279" name="ln-279" href="#ln-279"></a><span class="w">            </span><span class="c">!! The lower display limit.</span>
+<a id="ln-280" name="ln-280" href="#ln-280"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">upper</span>
+<a id="ln-281" name="ln-281" href="#ln-281"></a><span class="w">            </span><span class="c">!! The upper display limit.</span>
+<a id="ln-282" name="ln-282" href="#ln-282"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_limits</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">min</span><span class="p">(</span><span class="n">lower</span><span class="p">,</span><span class="w"> </span><span class="n">upper</span><span class="p">)</span>
+<a id="ln-283" name="ln-283" href="#ln-283"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_limits</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">max</span><span class="p">(</span><span class="n">lower</span><span class="p">,</span><span class="w"> </span><span class="n">upper</span><span class="p">)</span>
+<a id="ln-284" name="ln-284" href="#ln-284"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">set_autoscale</span><span class="p">(.</span><span class="n">false</span><span class="p">.)</span>
+<a id="ln-285" name="ln-285" href="#ln-285"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-286" name="ln-286" href="#ln-286"></a>
+<a id="ln-287" name="ln-287" href="#ln-287"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-288" name="ln-288" href="#ln-288"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_log_scale</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-289" name="ln-289" href="#ln-289"></a><span class="w">        </span><span class="c">!! Gets a logical value defining if the axis should be log scaled.</span>
+<a id="ln-290" name="ln-290" href="#ln-290"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-291" name="ln-291" href="#ln-291"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-292" name="ln-292" href="#ln-292"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-293" name="ln-293" href="#ln-293"></a><span class="w">            </span><span class="c">!! Returns true if log scaling is applied to the axis; else, false.</span>
+<a id="ln-294" name="ln-294" href="#ln-294"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_logScale</span>
+<a id="ln-295" name="ln-295" href="#ln-295"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-296" name="ln-296" href="#ln-296"></a>
+<a id="ln-297" name="ln-297" href="#ln-297"></a><span class="c">! --------------------</span>
+<a id="ln-298" name="ln-298" href="#ln-298"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_log_scale</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-299" name="ln-299" href="#ln-299"></a><span class="w">        </span><span class="c">!! Sets a logical value defining if the axis should be log scaled.</span>
+<a id="ln-300" name="ln-300" href="#ln-300"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
 <a id="ln-301" name="ln-301" href="#ln-301"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">txt</span>
-<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="w">            </span><span class="c">!! The GNUPLOT command string.</span>
-<a id="ln-304" name="ln-304" href="#ln-304"></a>
-<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="w">        </span><span class="c">! Local Variables</span>
-<a id="ln-306" name="ln-306" href="#ln-306"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
-<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">angle</span>
-<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">axis</span><span class="p">,</span><span class="w"> </span><span class="n">fmt</span>
-<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">lim</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
-<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span>
-<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">name_value_pair</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ticLabels</span>
-<a id="ln-312" name="ln-312" href="#ln-312"></a>
-<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">        </span><span class="c">! Process</span>
-<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">        </span><span class="n">axis</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_id_string</span><span class="p">()</span>
-<a id="ln-315" name="ln-315" href="#ln-315"></a><span class="w">        </span><span class="n">fmt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_format</span><span class="p">()</span>
-<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">        </span><span class="n">lim</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_limits</span><span class="p">()</span>
-<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">initialize</span><span class="p">()</span>
-<a id="ln-318" name="ln-318" href="#ln-318"></a>
-<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="w">        </span><span class="c">! Formatting</span>
-<a id="ln-320" name="ln-320" href="#ln-320"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">this</span><span class="p">%</span><span class="n">get_use_default_tic_label_format</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set format &quot;</span><span class="p">)</span>
-<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-323" name="ln-323" href="#ln-323"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
-<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">fmt</span><span class="p">)</span>
-<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
-<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-328" name="ln-328" href="#ln-328"></a>
-<a id="ln-329" name="ln-329" href="#ln-329"></a><span class="w">        </span><span class="c">! Show Tic Labels?</span>
-<a id="ln-330" name="ln-330" href="#ln-330"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_show_tic_labels</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
-<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;unset &quot;</span><span class="p">)</span>
-<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="k">        call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;tics&quot;</span><span class="p">)</span>
-<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-338" name="ln-338" href="#ln-338"></a>
-<a id="ln-339" name="ln-339" href="#ln-339"></a><span class="w">        </span><span class="c">! Tic Label Offsets</span>
-<a id="ln-340" name="ln-340" href="#ln-340"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_show_tic_labels</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_offset_tics</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
-<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;tics &quot;</span><span class="p">)</span>
-<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_alignment</span><span class="p">())</span>
-<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; offset &quot;</span><span class="p">)</span>
-<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_x_offset</span><span class="p">()))</span>
-<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
-<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_y_offset</span><span class="p">()))</span>
-<a id="ln-349" name="ln-349" href="#ln-349"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-350" name="ln-350" href="#ln-350"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-351" name="ln-351" href="#ln-351"></a>
-<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="w">        </span><span class="c">! Tic Label Rotation</span>
-<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">        </span><span class="n">angle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_angle</span><span class="p">()</span>
-<a id="ln-354" name="ln-354" href="#ln-354"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_show_tic_labels</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">angle</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mf">0.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-355" name="ln-355" href="#ln-355"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
-<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;tics rotate by &quot;</span><span class="p">)</span>
-<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">angle</span><span class="p">))</span>
-<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; &quot;</span><span class="p">)</span>
-<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_rotation_origin</span><span class="p">())</span>
-<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-362" name="ln-362" href="#ln-362"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-363" name="ln-363" href="#ln-363"></a>
-<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="w">        </span><span class="c">! Axis Limits</span>
-<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_autoscale</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-302" name="ln-302" href="#ln-302"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-303" name="ln-303" href="#ln-303"></a><span class="w">            </span><span class="c">!! Set to true if log scaling is applied to the axis; else, false.</span>
+<a id="ln-304" name="ln-304" href="#ln-304"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_logScale</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-305" name="ln-305" href="#ln-305"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-306" name="ln-306" href="#ln-306"></a>
+<a id="ln-307" name="ln-307" href="#ln-307"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-308" name="ln-308" href="#ln-308"></a><span class="w">    </span><span class="k">function </span><span class="n">pa_get_cmd_string</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">txt</span><span class="p">)</span>
+<a id="ln-309" name="ln-309" href="#ln-309"></a><span class="w">        </span><span class="c">!! Returns the appropriate GNUPLOT command string to define the</span>
+<a id="ln-310" name="ln-310" href="#ln-310"></a><span class="w">        </span><span class="c">!! plot_axis properties.</span>
+<a id="ln-311" name="ln-311" href="#ln-311"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-312" name="ln-312" href="#ln-312"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-313" name="ln-313" href="#ln-313"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">txt</span>
+<a id="ln-314" name="ln-314" href="#ln-314"></a><span class="w">            </span><span class="c">!! The GNUPLOT command string.</span>
+<a id="ln-315" name="ln-315" href="#ln-315"></a>
+<a id="ln-316" name="ln-316" href="#ln-316"></a><span class="w">        </span><span class="c">! Local Variables</span>
+<a id="ln-317" name="ln-317" href="#ln-317"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">string_builder</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">str</span>
+<a id="ln-318" name="ln-318" href="#ln-318"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">angle</span>
+<a id="ln-319" name="ln-319" href="#ln-319"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">axis</span><span class="p">,</span><span class="w"> </span><span class="n">fmt</span>
+<a id="ln-320" name="ln-320" href="#ln-320"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real64</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">lim</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
+<a id="ln-321" name="ln-321" href="#ln-321"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">i</span>
+<a id="ln-322" name="ln-322" href="#ln-322"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">name_value_pair</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">ticLabels</span>
+<a id="ln-323" name="ln-323" href="#ln-323"></a>
+<a id="ln-324" name="ln-324" href="#ln-324"></a><span class="w">        </span><span class="c">! Process</span>
+<a id="ln-325" name="ln-325" href="#ln-325"></a><span class="w">        </span><span class="n">axis</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_id_string</span><span class="p">()</span>
+<a id="ln-326" name="ln-326" href="#ln-326"></a><span class="w">        </span><span class="n">fmt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_format</span><span class="p">()</span>
+<a id="ln-327" name="ln-327" href="#ln-327"></a><span class="w">        </span><span class="n">lim</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_limits</span><span class="p">()</span>
+<a id="ln-328" name="ln-328" href="#ln-328"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">initialize</span><span class="p">()</span>
+<a id="ln-329" name="ln-329" href="#ln-329"></a>
+<a id="ln-330" name="ln-330" href="#ln-330"></a><span class="w">        </span><span class="c">! Formatting</span>
+<a id="ln-331" name="ln-331" href="#ln-331"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">this</span><span class="p">%</span><span class="n">get_use_default_tic_label_format</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-332" name="ln-332" href="#ln-332"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set format &quot;</span><span class="p">)</span>
+<a id="ln-333" name="ln-333" href="#ln-333"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-334" name="ln-334" href="#ln-334"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-335" name="ln-335" href="#ln-335"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">fmt</span><span class="p">)</span>
+<a id="ln-336" name="ln-336" href="#ln-336"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-337" name="ln-337" href="#ln-337"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-338" name="ln-338" href="#ln-338"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-339" name="ln-339" href="#ln-339"></a>
+<a id="ln-340" name="ln-340" href="#ln-340"></a><span class="w">        </span><span class="c">! Show Tic Labels?</span>
+<a id="ln-341" name="ln-341" href="#ln-341"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_show_tic_labels</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-342" name="ln-342" href="#ln-342"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
+<a id="ln-343" name="ln-343" href="#ln-343"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-344" name="ln-344" href="#ln-344"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;unset &quot;</span><span class="p">)</span>
+<a id="ln-345" name="ln-345" href="#ln-345"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-346" name="ln-346" href="#ln-346"></a><span class="k">        call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-347" name="ln-347" href="#ln-347"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;tics&quot;</span><span class="p">)</span>
+<a id="ln-348" name="ln-348" href="#ln-348"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-349" name="ln-349" href="#ln-349"></a>
+<a id="ln-350" name="ln-350" href="#ln-350"></a><span class="w">        </span><span class="c">! Tic Label Offsets</span>
+<a id="ln-351" name="ln-351" href="#ln-351"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_show_tic_labels</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_offset_tics</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-352" name="ln-352" href="#ln-352"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
+<a id="ln-353" name="ln-353" href="#ln-353"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-354" name="ln-354" href="#ln-354"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;tics &quot;</span><span class="p">)</span>
+<a id="ln-355" name="ln-355" href="#ln-355"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_alignment</span><span class="p">())</span>
+<a id="ln-356" name="ln-356" href="#ln-356"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; offset &quot;</span><span class="p">)</span>
+<a id="ln-357" name="ln-357" href="#ln-357"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_x_offset</span><span class="p">()))</span>
+<a id="ln-358" name="ln-358" href="#ln-358"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-359" name="ln-359" href="#ln-359"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_y_offset</span><span class="p">()))</span>
+<a id="ln-360" name="ln-360" href="#ln-360"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-361" name="ln-361" href="#ln-361"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-362" name="ln-362" href="#ln-362"></a>
+<a id="ln-363" name="ln-363" href="#ln-363"></a><span class="w">        </span><span class="c">! Tic Label Rotation</span>
+<a id="ln-364" name="ln-364" href="#ln-364"></a><span class="w">        </span><span class="n">angle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_angle</span><span class="p">()</span>
+<a id="ln-365" name="ln-365" href="#ln-365"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_show_tic_labels</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">angle</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mf">0.0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
 <a id="ln-366" name="ln-366" href="#ln-366"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
 <a id="ln-367" name="ln-367" href="#ln-367"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;range [*:*]&quot;</span><span class="p">)</span>
-<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
-<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;range [&quot;</span><span class="p">)</span>
-<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">lim</span><span class="p">(</span><span class="mi">1</span><span class="p">)))</span>
-<a id="ln-374" name="ln-374" href="#ln-374"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;:&quot;</span><span class="p">)</span>
-<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">lim</span><span class="p">(</span><span class="mi">2</span><span class="p">)))</span>
-<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;]&quot;</span><span class="p">)</span>
-<a id="ln-377" name="ln-377" href="#ln-377"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-378" name="ln-378" href="#ln-378"></a>
-<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="w">        </span><span class="c">! Titles</span>
-<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_title_defined</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-382" name="ln-382" href="#ln-382"></a><span class="w">            </span><span class="c">! Title</span>
-<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
-<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;label &quot;</span><span class="p">)</span>
-<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
-<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title</span><span class="p">())</span>
-<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-368" name="ln-368" href="#ln-368"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;tics rotate by &quot;</span><span class="p">)</span>
+<a id="ln-369" name="ln-369" href="#ln-369"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">angle</span><span class="p">))</span>
+<a id="ln-370" name="ln-370" href="#ln-370"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; &quot;</span><span class="p">)</span>
+<a id="ln-371" name="ln-371" href="#ln-371"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_tic_label_rotation_origin</span><span class="p">())</span>
+<a id="ln-372" name="ln-372" href="#ln-372"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-373" name="ln-373" href="#ln-373"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-374" name="ln-374" href="#ln-374"></a>
+<a id="ln-375" name="ln-375" href="#ln-375"></a><span class="w">        </span><span class="c">! Axis Limits</span>
+<a id="ln-376" name="ln-376" href="#ln-376"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_autoscale</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-377" name="ln-377" href="#ln-377"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
+<a id="ln-378" name="ln-378" href="#ln-378"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-379" name="ln-379" href="#ln-379"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;range [*:*]&quot;</span><span class="p">)</span>
+<a id="ln-380" name="ln-380" href="#ln-380"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-381" name="ln-381" href="#ln-381"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
+<a id="ln-382" name="ln-382" href="#ln-382"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-383" name="ln-383" href="#ln-383"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;range [&quot;</span><span class="p">)</span>
+<a id="ln-384" name="ln-384" href="#ln-384"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">lim</span><span class="p">(</span><span class="mi">1</span><span class="p">)))</span>
+<a id="ln-385" name="ln-385" href="#ln-385"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;:&quot;</span><span class="p">)</span>
+<a id="ln-386" name="ln-386" href="#ln-386"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">lim</span><span class="p">(</span><span class="mi">2</span><span class="p">)))</span>
+<a id="ln-387" name="ln-387" href="#ln-387"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;]&quot;</span><span class="p">)</span>
+<a id="ln-388" name="ln-388" href="#ln-388"></a><span class="w">        </span><span class="k">end if</span>
 <a id="ln-389" name="ln-389" href="#ln-389"></a>
-<a id="ln-390" name="ln-390" href="#ln-390"></a><span class="w">            </span><span class="c">! Offsets</span>
-<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title_x_offset</span><span class="p">()</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">                </span><span class="n">this</span><span class="p">%</span><span class="n">get_title_y_offset</span><span class="p">()</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span>
-<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">            </span><span class="k">then</span>
-<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; offset &quot;</span><span class="p">)</span>
-<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title_x_offset</span><span class="p">()))</span>
-<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
-<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title_y_offset</span><span class="p">()))</span>
-<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="w">            </span><span class="k">end if</span>
-<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="k">        else</span>
-<a id="ln-400" name="ln-400" href="#ln-400"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
-<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-402" name="ln-402" href="#ln-402"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;label &quot;</span><span class="p">)</span>
-<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&quot;&#39;</span><span class="p">)</span>
-<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="k">        call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-390" name="ln-390" href="#ln-390"></a><span class="w">        </span><span class="c">! Titles</span>
+<a id="ln-391" name="ln-391" href="#ln-391"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-392" name="ln-392" href="#ln-392"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">is_title_defined</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-393" name="ln-393" href="#ln-393"></a><span class="w">            </span><span class="c">! Title</span>
+<a id="ln-394" name="ln-394" href="#ln-394"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
+<a id="ln-395" name="ln-395" href="#ln-395"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-396" name="ln-396" href="#ln-396"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;label &quot;</span><span class="p">)</span>
+<a id="ln-397" name="ln-397" href="#ln-397"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-398" name="ln-398" href="#ln-398"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title</span><span class="p">())</span>
+<a id="ln-399" name="ln-399" href="#ln-399"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-400" name="ln-400" href="#ln-400"></a>
+<a id="ln-401" name="ln-401" href="#ln-401"></a><span class="w">            </span><span class="c">! Rotation</span>
+<a id="ln-402" name="ln-402" href="#ln-402"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">this</span><span class="p">%</span><span class="n">get_auto_calculate_title_angle</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-403" name="ln-403" href="#ln-403"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; rotate by &quot;</span><span class="p">)</span>
+<a id="ln-404" name="ln-404" href="#ln-404"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title_angle</span><span class="p">()))</span>
+<a id="ln-405" name="ln-405" href="#ln-405"></a><span class="w">            </span><span class="k">end if</span>
 <a id="ln-406" name="ln-406" href="#ln-406"></a>
-<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">        </span><span class="c">! Scaling</span>
-<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_is_log_scaled</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-410" name="ln-410" href="#ln-410"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set log &quot;</span><span class="p">)</span>
-<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-412" name="ln-412" href="#ln-412"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;unset log &quot;</span><span class="p">)</span>
-<a id="ln-414" name="ln-414" href="#ln-414"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
-<a id="ln-415" name="ln-415" href="#ln-415"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-416" name="ln-416" href="#ln-416"></a>
-<a id="ln-417" name="ln-417" href="#ln-417"></a><span class="w">        </span><span class="c">! Zero Axis</span>
-<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_zero_axis</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-420" name="ln-420" href="#ln-420"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
-<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_id_string</span><span class="p">())</span>
-<a id="ln-422" name="ln-422" href="#ln-422"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;zeroaxis linestyle -1 linewidth &quot;</span><span class="p">)</span>
-<a id="ln-423" name="ln-423" href="#ln-423"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_zero_axis_line_width</span><span class="p">()))</span>
-<a id="ln-424" name="ln-424" href="#ln-424"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-425" name="ln-425" href="#ln-425"></a>
-<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">        </span><span class="c">! Use manual labels</span>
-<a id="ln-427" name="ln-427" href="#ln-427"></a><span class="w">        </span><span class="n">ticLabels</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_manual_tic_labels</span><span class="p">()</span>
-<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_use_manual_tic_labels</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-429" name="ln-429" href="#ln-429"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
-<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
-<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_id_string</span><span class="p">()</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="s2">&quot;tics(&quot;</span><span class="p">)</span>
-<a id="ln-432" name="ln-432" href="#ln-432"></a><span class="w">            </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">)</span>
-<a id="ln-433" name="ln-433" href="#ln-433"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
-<a id="ln-434" name="ln-434" href="#ln-434"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">name</span><span class="p">)</span>
-<a id="ln-435" name="ln-435" href="#ln-435"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot; &#39;</span><span class="p">)</span>
-<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="k">value</span><span class="p">))</span>
-<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">i</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;, &quot;</span><span class="p">)</span>
-<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="w">            </span><span class="k">end do</span>
-<a id="ln-439" name="ln-439" href="#ln-439"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;)&quot;</span><span class="p">)</span>
-<a id="ln-440" name="ln-440" href="#ln-440"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-441" name="ln-441" href="#ln-441"></a>
-<a id="ln-442" name="ln-442" href="#ln-442"></a><span class="w">        </span><span class="c">! Output</span>
-<a id="ln-443" name="ln-443" href="#ln-443"></a><span class="w">        </span><span class="n">txt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
-<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-445" name="ln-445" href="#ln-445"></a>
-<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_zero_axis</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-448" name="ln-448" href="#ln-448"></a><span class="w">        </span><span class="c">!! Gets a value determining if the axis should be drawn through</span>
-<a id="ln-449" name="ln-449" href="#ln-449"></a><span class="w">        </span><span class="c">!! zero of opposing axes.</span>
-<a id="ln-450" name="ln-450" href="#ln-450"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-451" name="ln-451" href="#ln-451"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">            </span><span class="c">!! Returns true to draw as a zero axis; else, set to false.</span>
-<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_zeroAxis</span>
-<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-456" name="ln-456" href="#ln-456"></a>
-<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="c">! --------------------</span>
-<a id="ln-458" name="ln-458" href="#ln-458"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_zero_axis</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-459" name="ln-459" href="#ln-459"></a><span class="w">        </span><span class="c">!! Sets a value determining if the axis should be drawn through</span>
-<a id="ln-460" name="ln-460" href="#ln-460"></a><span class="w">        </span><span class="c">!! zero of opposing axes.</span>
-<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-462" name="ln-462" href="#ln-462"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-464" name="ln-464" href="#ln-464"></a><span class="w">            </span><span class="c">!! Set to true to draw as a zero axis; else, set to false.</span>
-<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_zeroAxis</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-467" name="ln-467" href="#ln-467"></a>
-<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-469" name="ln-469" href="#ln-469"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_zero_axis_width</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="w">        </span><span class="c">!! Gets the width of the line used to represent the zero axis line, if </span>
-<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">        </span><span class="c">!! active.</span>
-<a id="ln-472" name="ln-472" href="#ln-472"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-473" name="ln-473" href="#ln-473"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-475" name="ln-475" href="#ln-475"></a><span class="w">            </span><span class="c">!! The width of the line, in pixels.</span>
-<a id="ln-476" name="ln-476" href="#ln-476"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_axisWidth</span>
-<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-478" name="ln-478" href="#ln-478"></a>
-<a id="ln-479" name="ln-479" href="#ln-479"></a><span class="c">! --------------------</span>
-<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_zero_axis_width</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="w">        </span><span class="c">!! Sets the width of the line used to represent the zero axis line, if </span>
-<a id="ln-482" name="ln-482" href="#ln-482"></a><span class="w">        </span><span class="c">!! active.</span>
-<a id="ln-483" name="ln-483" href="#ln-483"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-484" name="ln-484" href="#ln-484"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-485" name="ln-485" href="#ln-485"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-486" name="ln-486" href="#ln-486"></a><span class="w">            </span><span class="c">!! The width of the line, in pixels.</span>
-<a id="ln-487" name="ln-487" href="#ln-487"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_axisWidth</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-488" name="ln-488" href="#ln-488"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-489" name="ln-489" href="#ln-489"></a>
-<a id="ln-490" name="ln-490" href="#ln-490"></a><span class="c">! ADDED March 29, 2023 - JAC</span>
-<a id="ln-491" name="ln-491" href="#ln-491"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-492" name="ln-492" href="#ln-492"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_use_dft_tic_lbl_fmt</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-493" name="ln-493" href="#ln-493"></a><span class="w">        </span><span class="c">!! Gets a value determining if the default tic label format will be </span>
-<a id="ln-494" name="ln-494" href="#ln-494"></a><span class="w">        </span><span class="c">!! used.</span>
-<a id="ln-495" name="ln-495" href="#ln-495"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-496" name="ln-496" href="#ln-496"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-497" name="ln-497" href="#ln-497"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-498" name="ln-498" href="#ln-498"></a><span class="w">            </span><span class="c">!! Returns true if the default tic label format will be used; else, </span>
-<a id="ln-499" name="ln-499" href="#ln-499"></a><span class="w">            </span><span class="c">!! false.</span>
-<a id="ln-500" name="ln-500" href="#ln-500"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_defaultTicLabels</span>
-<a id="ln-501" name="ln-501" href="#ln-501"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-502" name="ln-502" href="#ln-502"></a>
-<a id="ln-503" name="ln-503" href="#ln-503"></a><span class="c">! --------------------</span>
-<a id="ln-504" name="ln-504" href="#ln-504"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_use_dft_tic_lbl_fmt</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-505" name="ln-505" href="#ln-505"></a><span class="w">        </span><span class="c">!! Sets a value determining if the default tic label format will be </span>
-<a id="ln-506" name="ln-506" href="#ln-506"></a><span class="w">        </span><span class="c">!! used.</span>
-<a id="ln-507" name="ln-507" href="#ln-507"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-508" name="ln-508" href="#ln-508"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-509" name="ln-509" href="#ln-509"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-510" name="ln-510" href="#ln-510"></a><span class="w">            </span><span class="c">!! Set to true if the default tic label format will be used; else, </span>
-<a id="ln-511" name="ln-511" href="#ln-511"></a><span class="w">            </span><span class="c">!! false.</span>
-<a id="ln-512" name="ln-512" href="#ln-512"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_defaultTicLabels</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-513" name="ln-513" href="#ln-513"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-514" name="ln-514" href="#ln-514"></a>
-<a id="ln-515" name="ln-515" href="#ln-515"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-516" name="ln-516" href="#ln-516"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_label_fmt</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-517" name="ln-517" href="#ln-517"></a><span class="w">        </span><span class="c">!! Gets the tic label format.  The format string can be any format </span>
-<a id="ln-518" name="ln-518" href="#ln-518"></a><span class="w">        </span><span class="c">!! string accepted by the C command &#39;printf.&#39;</span>
-<a id="ln-519" name="ln-519" href="#ln-519"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-520" name="ln-520" href="#ln-520"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-521" name="ln-521" href="#ln-521"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-522" name="ln-522" href="#ln-522"></a><span class="w">            </span><span class="c">!! The tic label format string.</span>
-<a id="ln-523" name="ln-523" href="#ln-523"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelFmt</span><span class="p">)</span>
-<a id="ln-524" name="ln-524" href="#ln-524"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-525" name="ln-525" href="#ln-525"></a>
-<a id="ln-526" name="ln-526" href="#ln-526"></a><span class="c">! --------------------</span>
-<a id="ln-527" name="ln-527" href="#ln-527"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_label_fmt</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-528" name="ln-528" href="#ln-528"></a><span class="w">        </span><span class="c">!! Sets the tic label format.  The format string can be any format </span>
-<a id="ln-529" name="ln-529" href="#ln-529"></a><span class="w">        </span><span class="c">!! string accepted by the C command &#39;printf.&#39;</span>
-<a id="ln-530" name="ln-530" href="#ln-530"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-531" name="ln-531" href="#ln-531"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-532" name="ln-532" href="#ln-532"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-533" name="ln-533" href="#ln-533"></a><span class="w">            </span><span class="c">!! The tic label format string.</span>
-<a id="ln-534" name="ln-534" href="#ln-534"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelFmt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-535" name="ln-535" href="#ln-535"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-536" name="ln-536" href="#ln-536"></a>
-<a id="ln-537" name="ln-537" href="#ln-537"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-538" name="ln-538" href="#ln-538"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_show_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-539" name="ln-539" href="#ln-539"></a><span class="w">        </span><span class="c">!! Gets a value determining if tic labels should be shown.</span>
-<a id="ln-540" name="ln-540" href="#ln-540"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-541" name="ln-541" href="#ln-541"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-542" name="ln-542" href="#ln-542"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-543" name="ln-543" href="#ln-543"></a><span class="w">            </span><span class="c">!! Returns true to show tic labels; else, set to false.</span>
-<a id="ln-544" name="ln-544" href="#ln-544"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_showTicLabels</span>
-<a id="ln-545" name="ln-545" href="#ln-545"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-546" name="ln-546" href="#ln-546"></a>
-<a id="ln-547" name="ln-547" href="#ln-547"></a><span class="c">! --------------------</span>
-<a id="ln-548" name="ln-548" href="#ln-548"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_show_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-549" name="ln-549" href="#ln-549"></a><span class="w">        </span><span class="c">!! Sets a value determining if tic labels should be shown.</span>
-<a id="ln-550" name="ln-550" href="#ln-550"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-551" name="ln-551" href="#ln-551"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-552" name="ln-552" href="#ln-552"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-553" name="ln-553" href="#ln-553"></a><span class="w">            </span><span class="c">!! Set to true to show tic labels; else, set to false.</span>
-<a id="ln-554" name="ln-554" href="#ln-554"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_showTicLabels</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-555" name="ln-555" href="#ln-555"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-556" name="ln-556" href="#ln-556"></a>
-<a id="ln-557" name="ln-557" href="#ln-557"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-558" name="ln-558" href="#ln-558"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_x_offset</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-559" name="ln-559" href="#ln-559"></a><span class="w">        </span><span class="c">!! Gets the tic label x-offset, in characters.</span>
-<a id="ln-560" name="ln-560" href="#ln-560"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-561" name="ln-561" href="#ln-561"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-562" name="ln-562" href="#ln-562"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-563" name="ln-563" href="#ln-563"></a><span class="w">            </span><span class="c">!! The tic label x-offset, in characters.</span>
-<a id="ln-564" name="ln-564" href="#ln-564"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticXOffset</span>
-<a id="ln-565" name="ln-565" href="#ln-565"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-566" name="ln-566" href="#ln-566"></a>
-<a id="ln-567" name="ln-567" href="#ln-567"></a><span class="c">! --------------------</span>
-<a id="ln-568" name="ln-568" href="#ln-568"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_x_offset</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-569" name="ln-569" href="#ln-569"></a><span class="w">        </span><span class="c">!! Sets the tic label x-offset, in characters.</span>
-<a id="ln-570" name="ln-570" href="#ln-570"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-571" name="ln-571" href="#ln-571"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-572" name="ln-572" href="#ln-572"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-573" name="ln-573" href="#ln-573"></a><span class="w">            </span><span class="c">!! The tic label x-offset, in characters.</span>
-<a id="ln-574" name="ln-574" href="#ln-574"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticXOffset</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-575" name="ln-575" href="#ln-575"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">set_offset_tics</span><span class="p">(.</span><span class="n">true</span><span class="p">.)</span>
-<a id="ln-576" name="ln-576" href="#ln-576"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-577" name="ln-577" href="#ln-577"></a>
-<a id="ln-578" name="ln-578" href="#ln-578"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-579" name="ln-579" href="#ln-579"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_y_offset</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-580" name="ln-580" href="#ln-580"></a><span class="w">        </span><span class="c">!! Gets the tic label y-offset, in characters.</span>
-<a id="ln-581" name="ln-581" href="#ln-581"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-582" name="ln-582" href="#ln-582"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-583" name="ln-583" href="#ln-583"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-584" name="ln-584" href="#ln-584"></a><span class="w">            </span><span class="c">!! The tic label y-offset, in characters.</span>
-<a id="ln-585" name="ln-585" href="#ln-585"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticYOffset</span>
-<a id="ln-586" name="ln-586" href="#ln-586"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-587" name="ln-587" href="#ln-587"></a>
-<a id="ln-588" name="ln-588" href="#ln-588"></a><span class="c">! --------------------</span>
-<a id="ln-589" name="ln-589" href="#ln-589"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_y_offset</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-590" name="ln-590" href="#ln-590"></a><span class="w">        </span><span class="c">!! Sets the tic label y-offset, in characters.</span>
-<a id="ln-591" name="ln-591" href="#ln-591"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-592" name="ln-592" href="#ln-592"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-593" name="ln-593" href="#ln-593"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-594" name="ln-594" href="#ln-594"></a><span class="w">            </span><span class="c">!! The tic label y-offset, in characters.</span>
-<a id="ln-595" name="ln-595" href="#ln-595"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticYOffset</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-596" name="ln-596" href="#ln-596"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">set_offset_tics</span><span class="p">(.</span><span class="n">true</span><span class="p">.)</span>
-<a id="ln-597" name="ln-597" href="#ln-597"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-598" name="ln-598" href="#ln-598"></a>
-<a id="ln-599" name="ln-599" href="#ln-599"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-600" name="ln-600" href="#ln-600"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_label_angle</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-601" name="ln-601" href="#ln-601"></a><span class="w">        </span><span class="c">!! Gets the tic label angle, in degrees.</span>
-<a id="ln-602" name="ln-602" href="#ln-602"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-603" name="ln-603" href="#ln-603"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-604" name="ln-604" href="#ln-604"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-605" name="ln-605" href="#ln-605"></a><span class="w">            </span><span class="c">!! The tic label angle, in degrees.</span>
-<a id="ln-606" name="ln-606" href="#ln-606"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAngle</span>
-<a id="ln-607" name="ln-607" href="#ln-607"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-608" name="ln-608" href="#ln-608"></a>
-<a id="ln-609" name="ln-609" href="#ln-609"></a><span class="c">! --------------------</span>
-<a id="ln-610" name="ln-610" href="#ln-610"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_label_angle</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-611" name="ln-611" href="#ln-611"></a><span class="w">        </span><span class="c">!! Sets the tic label angle, in degrees.</span>
-<a id="ln-612" name="ln-612" href="#ln-612"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-613" name="ln-613" href="#ln-613"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-614" name="ln-614" href="#ln-614"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-615" name="ln-615" href="#ln-615"></a><span class="w">            </span><span class="c">!! The tic label angle, in degrees.</span>
-<a id="ln-616" name="ln-616" href="#ln-616"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAngle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-617" name="ln-617" href="#ln-617"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-618" name="ln-618" href="#ln-618"></a>
-<a id="ln-619" name="ln-619" href="#ln-619"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-620" name="ln-620" href="#ln-620"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_rotation_origin</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-621" name="ln-621" href="#ln-621"></a><span class="w">        </span><span class="c">!! Gets the tic label rotation origin.</span>
-<a id="ln-622" name="ln-622" href="#ln-622"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-623" name="ln-623" href="#ln-623"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-624" name="ln-624" href="#ln-624"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-625" name="ln-625" href="#ln-625"></a><span class="w">            </span><span class="c">!! The tic label rotation origin.  The tic label rotation origin</span>
-<a id="ln-626" name="ln-626" href="#ln-626"></a><span class="w">            </span><span class="c">!! must be one of the following:</span>
-<a id="ln-627" name="ln-627" href="#ln-627"></a><span class="w">            </span><span class="c">!! </span>
-<a id="ln-628" name="ln-628" href="#ln-628"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_RIGHT</span>
-<a id="ln-629" name="ln-629" href="#ln-629"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-630" name="ln-630" href="#ln-630"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_LEFT</span>
-<a id="ln-631" name="ln-631" href="#ln-631"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-632" name="ln-632" href="#ln-632"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_CENTER</span>
-<a id="ln-633" name="ln-633" href="#ln-633"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-634" name="ln-634" href="#ln-634"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticRotationOrigin</span><span class="p">)</span>
-<a id="ln-635" name="ln-635" href="#ln-635"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-636" name="ln-636" href="#ln-636"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticRotationOrigin</span><span class="p">)</span>
-<a id="ln-637" name="ln-637" href="#ln-637"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-638" name="ln-638" href="#ln-638"></a>
-<a id="ln-639" name="ln-639" href="#ln-639"></a><span class="c">! --------------------</span>
-<a id="ln-640" name="ln-640" href="#ln-640"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_rotation_origin</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-641" name="ln-641" href="#ln-641"></a><span class="w">        </span><span class="c">!! Sets the tic label rotation origin.</span>
-<a id="ln-642" name="ln-642" href="#ln-642"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-643" name="ln-643" href="#ln-643"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-644" name="ln-644" href="#ln-644"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-645" name="ln-645" href="#ln-645"></a><span class="w">            </span><span class="c">!! The tic label rotation origin.  The tic label rotation origin</span>
-<a id="ln-646" name="ln-646" href="#ln-646"></a><span class="w">            </span><span class="c">!! must be one of the following:</span>
-<a id="ln-647" name="ln-647" href="#ln-647"></a><span class="w">            </span><span class="c">!! </span>
-<a id="ln-648" name="ln-648" href="#ln-648"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_RIGHT</span>
-<a id="ln-649" name="ln-649" href="#ln-649"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-650" name="ln-650" href="#ln-650"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_LEFT</span>
-<a id="ln-651" name="ln-651" href="#ln-651"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-652" name="ln-652" href="#ln-652"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_CENTER</span>
-<a id="ln-653" name="ln-653" href="#ln-653"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticRotationOrigin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-654" name="ln-654" href="#ln-654"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-407" name="ln-407" href="#ln-407"></a><span class="w">            </span><span class="c">! Offsets</span>
+<a id="ln-408" name="ln-408" href="#ln-408"></a><span class="w">            </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title_x_offset</span><span class="p">()</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="w"> </span><span class="p">.</span><span class="nb">or</span><span class="p">.</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-409" name="ln-409" href="#ln-409"></a><span class="w">                </span><span class="n">this</span><span class="p">%</span><span class="n">get_title_y_offset</span><span class="p">()</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">&amp;</span>
+<a id="ln-410" name="ln-410" href="#ln-410"></a><span class="w">            </span><span class="k">then</span>
+<a id="ln-411" name="ln-411" href="#ln-411"></a><span class="k">                call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot; offset &quot;</span><span class="p">)</span>
+<a id="ln-412" name="ln-412" href="#ln-412"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title_x_offset</span><span class="p">()))</span>
+<a id="ln-413" name="ln-413" href="#ln-413"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;,&quot;</span><span class="p">)</span>
+<a id="ln-414" name="ln-414" href="#ln-414"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_title_y_offset</span><span class="p">()))</span>
+<a id="ln-415" name="ln-415" href="#ln-415"></a><span class="w">            </span><span class="k">end if</span>
+<a id="ln-416" name="ln-416" href="#ln-416"></a><span class="k">        else</span>
+<a id="ln-417" name="ln-417" href="#ln-417"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
+<a id="ln-418" name="ln-418" href="#ln-418"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-419" name="ln-419" href="#ln-419"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;label &quot;</span><span class="p">)</span>
+<a id="ln-420" name="ln-420" href="#ln-420"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-421" name="ln-421" href="#ln-421"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-422" name="ln-422" href="#ln-422"></a><span class="k">        call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-423" name="ln-423" href="#ln-423"></a>
+<a id="ln-424" name="ln-424" href="#ln-424"></a><span class="w">        </span><span class="c">! Scaling</span>
+<a id="ln-425" name="ln-425" href="#ln-425"></a><span class="w">        </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-426" name="ln-426" href="#ln-426"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_is_log_scaled</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-427" name="ln-427" href="#ln-427"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set log &quot;</span><span class="p">)</span>
+<a id="ln-428" name="ln-428" href="#ln-428"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-429" name="ln-429" href="#ln-429"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-430" name="ln-430" href="#ln-430"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;unset log &quot;</span><span class="p">)</span>
+<a id="ln-431" name="ln-431" href="#ln-431"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">axis</span><span class="p">)</span>
+<a id="ln-432" name="ln-432" href="#ln-432"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-433" name="ln-433" href="#ln-433"></a>
+<a id="ln-434" name="ln-434" href="#ln-434"></a><span class="w">        </span><span class="c">! Zero Axis</span>
+<a id="ln-435" name="ln-435" href="#ln-435"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_zero_axis</span><span class="p">())</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-436" name="ln-436" href="#ln-436"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-437" name="ln-437" href="#ln-437"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
+<a id="ln-438" name="ln-438" href="#ln-438"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_id_string</span><span class="p">())</span>
+<a id="ln-439" name="ln-439" href="#ln-439"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;zeroaxis linestyle -1 linewidth &quot;</span><span class="p">)</span>
+<a id="ln-440" name="ln-440" href="#ln-440"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_zero_axis_line_width</span><span class="p">()))</span>
+<a id="ln-441" name="ln-441" href="#ln-441"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-442" name="ln-442" href="#ln-442"></a>
+<a id="ln-443" name="ln-443" href="#ln-443"></a><span class="w">        </span><span class="c">! Use manual labels</span>
+<a id="ln-444" name="ln-444" href="#ln-444"></a><span class="w">        </span><span class="n">ticLabels</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">get_manual_tic_labels</span><span class="p">()</span>
+<a id="ln-445" name="ln-445" href="#ln-445"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_use_manual_tic_labels</span><span class="p">()</span><span class="w"> </span><span class="p">.</span><span class="nb">and</span><span class="p">.</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">)</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-446" name="ln-446" href="#ln-446"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="nb">new_line</span><span class="p">(</span><span class="s1">&#39;a&#39;</span><span class="p">))</span>
+<a id="ln-447" name="ln-447" href="#ln-447"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;set &quot;</span><span class="p">)</span>
+<a id="ln-448" name="ln-448" href="#ln-448"></a><span class="w">            </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">get_id_string</span><span class="p">()</span><span class="w"> </span><span class="o">//</span><span class="w"> </span><span class="s2">&quot;tics(&quot;</span><span class="p">)</span>
+<a id="ln-449" name="ln-449" href="#ln-449"></a><span class="w">            </span><span class="k">do </span><span class="n">i</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="mi">1</span><span class="p">,</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">)</span>
+<a id="ln-450" name="ln-450" href="#ln-450"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot;&#39;</span><span class="p">)</span>
+<a id="ln-451" name="ln-451" href="#ln-451"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">name</span><span class="p">)</span>
+<a id="ln-452" name="ln-452" href="#ln-452"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s1">&#39;&quot; &#39;</span><span class="p">)</span>
+<a id="ln-453" name="ln-453" href="#ln-453"></a><span class="w">                </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">to_string</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="k">value</span><span class="p">))</span>
+<a id="ln-454" name="ln-454" href="#ln-454"></a><span class="w">                </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">i</span><span class="w"> </span><span class="o">/=</span><span class="w"> </span><span class="n">size</span><span class="p">(</span><span class="n">ticLabels</span><span class="p">))</span><span class="w"> </span><span class="k">call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;, &quot;</span><span class="p">)</span>
+<a id="ln-455" name="ln-455" href="#ln-455"></a><span class="w">            </span><span class="k">end do</span>
+<a id="ln-456" name="ln-456" href="#ln-456"></a><span class="k">            call </span><span class="n">str</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="s2">&quot;)&quot;</span><span class="p">)</span>
+<a id="ln-457" name="ln-457" href="#ln-457"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-458" name="ln-458" href="#ln-458"></a>
+<a id="ln-459" name="ln-459" href="#ln-459"></a><span class="w">        </span><span class="c">! Output</span>
+<a id="ln-460" name="ln-460" href="#ln-460"></a><span class="w">        </span><span class="n">txt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">char</span><span class="p">(</span><span class="n">str</span><span class="p">%</span><span class="n">to_string</span><span class="p">())</span>
+<a id="ln-461" name="ln-461" href="#ln-461"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-462" name="ln-462" href="#ln-462"></a>
+<a id="ln-463" name="ln-463" href="#ln-463"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-464" name="ln-464" href="#ln-464"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_zero_axis</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-465" name="ln-465" href="#ln-465"></a><span class="w">        </span><span class="c">!! Gets a value determining if the axis should be drawn through</span>
+<a id="ln-466" name="ln-466" href="#ln-466"></a><span class="w">        </span><span class="c">!! zero of opposing axes.</span>
+<a id="ln-467" name="ln-467" href="#ln-467"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-468" name="ln-468" href="#ln-468"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-469" name="ln-469" href="#ln-469"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-470" name="ln-470" href="#ln-470"></a><span class="w">            </span><span class="c">!! Returns true to draw as a zero axis; else, set to false.</span>
+<a id="ln-471" name="ln-471" href="#ln-471"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_zeroAxis</span>
+<a id="ln-472" name="ln-472" href="#ln-472"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-473" name="ln-473" href="#ln-473"></a>
+<a id="ln-474" name="ln-474" href="#ln-474"></a><span class="c">! --------------------</span>
+<a id="ln-475" name="ln-475" href="#ln-475"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_zero_axis</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-476" name="ln-476" href="#ln-476"></a><span class="w">        </span><span class="c">!! Sets a value determining if the axis should be drawn through</span>
+<a id="ln-477" name="ln-477" href="#ln-477"></a><span class="w">        </span><span class="c">!! zero of opposing axes.</span>
+<a id="ln-478" name="ln-478" href="#ln-478"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-479" name="ln-479" href="#ln-479"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-480" name="ln-480" href="#ln-480"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-481" name="ln-481" href="#ln-481"></a><span class="w">            </span><span class="c">!! Set to true to draw as a zero axis; else, set to false.</span>
+<a id="ln-482" name="ln-482" href="#ln-482"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_zeroAxis</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-483" name="ln-483" href="#ln-483"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-484" name="ln-484" href="#ln-484"></a>
+<a id="ln-485" name="ln-485" href="#ln-485"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-486" name="ln-486" href="#ln-486"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_zero_axis_width</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-487" name="ln-487" href="#ln-487"></a><span class="w">        </span><span class="c">!! Gets the width of the line used to represent the zero axis line, if </span>
+<a id="ln-488" name="ln-488" href="#ln-488"></a><span class="w">        </span><span class="c">!! active.</span>
+<a id="ln-489" name="ln-489" href="#ln-489"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-490" name="ln-490" href="#ln-490"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-491" name="ln-491" href="#ln-491"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-492" name="ln-492" href="#ln-492"></a><span class="w">            </span><span class="c">!! The width of the line, in pixels.</span>
+<a id="ln-493" name="ln-493" href="#ln-493"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_axisWidth</span>
+<a id="ln-494" name="ln-494" href="#ln-494"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-495" name="ln-495" href="#ln-495"></a>
+<a id="ln-496" name="ln-496" href="#ln-496"></a><span class="c">! --------------------</span>
+<a id="ln-497" name="ln-497" href="#ln-497"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_zero_axis_width</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-498" name="ln-498" href="#ln-498"></a><span class="w">        </span><span class="c">!! Sets the width of the line used to represent the zero axis line, if </span>
+<a id="ln-499" name="ln-499" href="#ln-499"></a><span class="w">        </span><span class="c">!! active.</span>
+<a id="ln-500" name="ln-500" href="#ln-500"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-501" name="ln-501" href="#ln-501"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-502" name="ln-502" href="#ln-502"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-503" name="ln-503" href="#ln-503"></a><span class="w">            </span><span class="c">!! The width of the line, in pixels.</span>
+<a id="ln-504" name="ln-504" href="#ln-504"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_axisWidth</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-505" name="ln-505" href="#ln-505"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-506" name="ln-506" href="#ln-506"></a>
+<a id="ln-507" name="ln-507" href="#ln-507"></a><span class="c">! ADDED March 29, 2023 - JAC</span>
+<a id="ln-508" name="ln-508" href="#ln-508"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-509" name="ln-509" href="#ln-509"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_use_dft_tic_lbl_fmt</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-510" name="ln-510" href="#ln-510"></a><span class="w">        </span><span class="c">!! Gets a value determining if the default tic label format will be </span>
+<a id="ln-511" name="ln-511" href="#ln-511"></a><span class="w">        </span><span class="c">!! used.</span>
+<a id="ln-512" name="ln-512" href="#ln-512"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-513" name="ln-513" href="#ln-513"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-514" name="ln-514" href="#ln-514"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-515" name="ln-515" href="#ln-515"></a><span class="w">            </span><span class="c">!! Returns true if the default tic label format will be used; else, </span>
+<a id="ln-516" name="ln-516" href="#ln-516"></a><span class="w">            </span><span class="c">!! false.</span>
+<a id="ln-517" name="ln-517" href="#ln-517"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_defaultTicLabels</span>
+<a id="ln-518" name="ln-518" href="#ln-518"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-519" name="ln-519" href="#ln-519"></a>
+<a id="ln-520" name="ln-520" href="#ln-520"></a><span class="c">! --------------------</span>
+<a id="ln-521" name="ln-521" href="#ln-521"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_use_dft_tic_lbl_fmt</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-522" name="ln-522" href="#ln-522"></a><span class="w">        </span><span class="c">!! Sets a value determining if the default tic label format will be </span>
+<a id="ln-523" name="ln-523" href="#ln-523"></a><span class="w">        </span><span class="c">!! used.</span>
+<a id="ln-524" name="ln-524" href="#ln-524"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-525" name="ln-525" href="#ln-525"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-526" name="ln-526" href="#ln-526"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-527" name="ln-527" href="#ln-527"></a><span class="w">            </span><span class="c">!! Set to true if the default tic label format will be used; else, </span>
+<a id="ln-528" name="ln-528" href="#ln-528"></a><span class="w">            </span><span class="c">!! false.</span>
+<a id="ln-529" name="ln-529" href="#ln-529"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_defaultTicLabels</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-530" name="ln-530" href="#ln-530"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-531" name="ln-531" href="#ln-531"></a>
+<a id="ln-532" name="ln-532" href="#ln-532"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-533" name="ln-533" href="#ln-533"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_label_fmt</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-534" name="ln-534" href="#ln-534"></a><span class="w">        </span><span class="c">!! Gets the tic label format.  The format string can be any format </span>
+<a id="ln-535" name="ln-535" href="#ln-535"></a><span class="w">        </span><span class="c">!! string accepted by the C command &#39;printf.&#39;</span>
+<a id="ln-536" name="ln-536" href="#ln-536"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-537" name="ln-537" href="#ln-537"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-538" name="ln-538" href="#ln-538"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-539" name="ln-539" href="#ln-539"></a><span class="w">            </span><span class="c">!! The tic label format string.</span>
+<a id="ln-540" name="ln-540" href="#ln-540"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelFmt</span><span class="p">)</span>
+<a id="ln-541" name="ln-541" href="#ln-541"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-542" name="ln-542" href="#ln-542"></a>
+<a id="ln-543" name="ln-543" href="#ln-543"></a><span class="c">! --------------------</span>
+<a id="ln-544" name="ln-544" href="#ln-544"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_label_fmt</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-545" name="ln-545" href="#ln-545"></a><span class="w">        </span><span class="c">!! Sets the tic label format.  The format string can be any format </span>
+<a id="ln-546" name="ln-546" href="#ln-546"></a><span class="w">        </span><span class="c">!! string accepted by the C command &#39;printf.&#39;</span>
+<a id="ln-547" name="ln-547" href="#ln-547"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-548" name="ln-548" href="#ln-548"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-549" name="ln-549" href="#ln-549"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-550" name="ln-550" href="#ln-550"></a><span class="w">            </span><span class="c">!! The tic label format string.</span>
+<a id="ln-551" name="ln-551" href="#ln-551"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelFmt</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-552" name="ln-552" href="#ln-552"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-553" name="ln-553" href="#ln-553"></a>
+<a id="ln-554" name="ln-554" href="#ln-554"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-555" name="ln-555" href="#ln-555"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_show_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-556" name="ln-556" href="#ln-556"></a><span class="w">        </span><span class="c">!! Gets a value determining if tic labels should be shown.</span>
+<a id="ln-557" name="ln-557" href="#ln-557"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-558" name="ln-558" href="#ln-558"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-559" name="ln-559" href="#ln-559"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-560" name="ln-560" href="#ln-560"></a><span class="w">            </span><span class="c">!! Returns true to show tic labels; else, set to false.</span>
+<a id="ln-561" name="ln-561" href="#ln-561"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_showTicLabels</span>
+<a id="ln-562" name="ln-562" href="#ln-562"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-563" name="ln-563" href="#ln-563"></a>
+<a id="ln-564" name="ln-564" href="#ln-564"></a><span class="c">! --------------------</span>
+<a id="ln-565" name="ln-565" href="#ln-565"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_show_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-566" name="ln-566" href="#ln-566"></a><span class="w">        </span><span class="c">!! Sets a value determining if tic labels should be shown.</span>
+<a id="ln-567" name="ln-567" href="#ln-567"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-568" name="ln-568" href="#ln-568"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-569" name="ln-569" href="#ln-569"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-570" name="ln-570" href="#ln-570"></a><span class="w">            </span><span class="c">!! Set to true to show tic labels; else, set to false.</span>
+<a id="ln-571" name="ln-571" href="#ln-571"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_showTicLabels</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-572" name="ln-572" href="#ln-572"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-573" name="ln-573" href="#ln-573"></a>
+<a id="ln-574" name="ln-574" href="#ln-574"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-575" name="ln-575" href="#ln-575"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_x_offset</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-576" name="ln-576" href="#ln-576"></a><span class="w">        </span><span class="c">!! Gets the tic label x-offset, in characters.</span>
+<a id="ln-577" name="ln-577" href="#ln-577"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-578" name="ln-578" href="#ln-578"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-579" name="ln-579" href="#ln-579"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-580" name="ln-580" href="#ln-580"></a><span class="w">            </span><span class="c">!! The tic label x-offset, in characters.</span>
+<a id="ln-581" name="ln-581" href="#ln-581"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticXOffset</span>
+<a id="ln-582" name="ln-582" href="#ln-582"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-583" name="ln-583" href="#ln-583"></a>
+<a id="ln-584" name="ln-584" href="#ln-584"></a><span class="c">! --------------------</span>
+<a id="ln-585" name="ln-585" href="#ln-585"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_x_offset</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-586" name="ln-586" href="#ln-586"></a><span class="w">        </span><span class="c">!! Sets the tic label x-offset, in characters.</span>
+<a id="ln-587" name="ln-587" href="#ln-587"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-588" name="ln-588" href="#ln-588"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-589" name="ln-589" href="#ln-589"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-590" name="ln-590" href="#ln-590"></a><span class="w">            </span><span class="c">!! The tic label x-offset, in characters.</span>
+<a id="ln-591" name="ln-591" href="#ln-591"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticXOffset</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-592" name="ln-592" href="#ln-592"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">set_offset_tics</span><span class="p">(.</span><span class="n">true</span><span class="p">.)</span>
+<a id="ln-593" name="ln-593" href="#ln-593"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-594" name="ln-594" href="#ln-594"></a>
+<a id="ln-595" name="ln-595" href="#ln-595"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-596" name="ln-596" href="#ln-596"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_y_offset</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-597" name="ln-597" href="#ln-597"></a><span class="w">        </span><span class="c">!! Gets the tic label y-offset, in characters.</span>
+<a id="ln-598" name="ln-598" href="#ln-598"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-599" name="ln-599" href="#ln-599"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-600" name="ln-600" href="#ln-600"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-601" name="ln-601" href="#ln-601"></a><span class="w">            </span><span class="c">!! The tic label y-offset, in characters.</span>
+<a id="ln-602" name="ln-602" href="#ln-602"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticYOffset</span>
+<a id="ln-603" name="ln-603" href="#ln-603"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-604" name="ln-604" href="#ln-604"></a>
+<a id="ln-605" name="ln-605" href="#ln-605"></a><span class="c">! --------------------</span>
+<a id="ln-606" name="ln-606" href="#ln-606"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_y_offset</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-607" name="ln-607" href="#ln-607"></a><span class="w">        </span><span class="c">!! Sets the tic label y-offset, in characters.</span>
+<a id="ln-608" name="ln-608" href="#ln-608"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-609" name="ln-609" href="#ln-609"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-610" name="ln-610" href="#ln-610"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-611" name="ln-611" href="#ln-611"></a><span class="w">            </span><span class="c">!! The tic label y-offset, in characters.</span>
+<a id="ln-612" name="ln-612" href="#ln-612"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticYOffset</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-613" name="ln-613" href="#ln-613"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">set_offset_tics</span><span class="p">(.</span><span class="n">true</span><span class="p">.)</span>
+<a id="ln-614" name="ln-614" href="#ln-614"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-615" name="ln-615" href="#ln-615"></a>
+<a id="ln-616" name="ln-616" href="#ln-616"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-617" name="ln-617" href="#ln-617"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_label_angle</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-618" name="ln-618" href="#ln-618"></a><span class="w">        </span><span class="c">!! Gets the tic label angle, in degrees.</span>
+<a id="ln-619" name="ln-619" href="#ln-619"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-620" name="ln-620" href="#ln-620"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-621" name="ln-621" href="#ln-621"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-622" name="ln-622" href="#ln-622"></a><span class="w">            </span><span class="c">!! The tic label angle, in degrees.</span>
+<a id="ln-623" name="ln-623" href="#ln-623"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAngle</span>
+<a id="ln-624" name="ln-624" href="#ln-624"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-625" name="ln-625" href="#ln-625"></a>
+<a id="ln-626" name="ln-626" href="#ln-626"></a><span class="c">! --------------------</span>
+<a id="ln-627" name="ln-627" href="#ln-627"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_label_angle</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-628" name="ln-628" href="#ln-628"></a><span class="w">        </span><span class="c">!! Sets the tic label angle, in degrees.</span>
+<a id="ln-629" name="ln-629" href="#ln-629"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-630" name="ln-630" href="#ln-630"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-631" name="ln-631" href="#ln-631"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-632" name="ln-632" href="#ln-632"></a><span class="w">            </span><span class="c">!! The tic label angle, in degrees.</span>
+<a id="ln-633" name="ln-633" href="#ln-633"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAngle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-634" name="ln-634" href="#ln-634"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-635" name="ln-635" href="#ln-635"></a>
+<a id="ln-636" name="ln-636" href="#ln-636"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-637" name="ln-637" href="#ln-637"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_rotation_origin</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-638" name="ln-638" href="#ln-638"></a><span class="w">        </span><span class="c">!! Gets the tic label rotation origin.</span>
+<a id="ln-639" name="ln-639" href="#ln-639"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-640" name="ln-640" href="#ln-640"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-641" name="ln-641" href="#ln-641"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-642" name="ln-642" href="#ln-642"></a><span class="w">            </span><span class="c">!! The tic label rotation origin.  The tic label rotation origin</span>
+<a id="ln-643" name="ln-643" href="#ln-643"></a><span class="w">            </span><span class="c">!! must be one of the following:</span>
+<a id="ln-644" name="ln-644" href="#ln-644"></a><span class="w">            </span><span class="c">!! </span>
+<a id="ln-645" name="ln-645" href="#ln-645"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_RIGHT</span>
+<a id="ln-646" name="ln-646" href="#ln-646"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-647" name="ln-647" href="#ln-647"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_LEFT</span>
+<a id="ln-648" name="ln-648" href="#ln-648"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-649" name="ln-649" href="#ln-649"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_CENTER</span>
+<a id="ln-650" name="ln-650" href="#ln-650"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-651" name="ln-651" href="#ln-651"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticRotationOrigin</span><span class="p">)</span>
+<a id="ln-652" name="ln-652" href="#ln-652"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-653" name="ln-653" href="#ln-653"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticRotationOrigin</span><span class="p">)</span>
+<a id="ln-654" name="ln-654" href="#ln-654"></a><span class="w">    </span><span class="k">end function</span>
 <a id="ln-655" name="ln-655" href="#ln-655"></a>
-<a id="ln-656" name="ln-656" href="#ln-656"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-657" name="ln-657" href="#ln-657"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_label_alignment</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-658" name="ln-658" href="#ln-658"></a><span class="w">        </span><span class="c">!! Gets the tic label alignment.</span>
-<a id="ln-659" name="ln-659" href="#ln-659"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-656" name="ln-656" href="#ln-656"></a><span class="c">! --------------------</span>
+<a id="ln-657" name="ln-657" href="#ln-657"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_rotation_origin</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-658" name="ln-658" href="#ln-658"></a><span class="w">        </span><span class="c">!! Sets the tic label rotation origin.</span>
+<a id="ln-659" name="ln-659" href="#ln-659"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
 <a id="ln-660" name="ln-660" href="#ln-660"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-661" name="ln-661" href="#ln-661"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-662" name="ln-662" href="#ln-662"></a><span class="w">            </span><span class="c">!! The tic label alignment.  The tic label alignment must be one of </span>
-<a id="ln-663" name="ln-663" href="#ln-663"></a><span class="w">            </span><span class="c">!! the following:</span>
+<a id="ln-661" name="ln-661" href="#ln-661"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-662" name="ln-662" href="#ln-662"></a><span class="w">            </span><span class="c">!! The tic label rotation origin.  The tic label rotation origin</span>
+<a id="ln-663" name="ln-663" href="#ln-663"></a><span class="w">            </span><span class="c">!! must be one of the following:</span>
 <a id="ln-664" name="ln-664" href="#ln-664"></a><span class="w">            </span><span class="c">!! </span>
-<a id="ln-665" name="ln-665" href="#ln-665"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_LEFT</span>
+<a id="ln-665" name="ln-665" href="#ln-665"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_RIGHT</span>
 <a id="ln-666" name="ln-666" href="#ln-666"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-667" name="ln-667" href="#ln-667"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_CENTER</span>
+<a id="ln-667" name="ln-667" href="#ln-667"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_LEFT</span>
 <a id="ln-668" name="ln-668" href="#ln-668"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-669" name="ln-669" href="#ln-669"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT</span>
-<a id="ln-670" name="ln-670" href="#ln-670"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
-<a id="ln-671" name="ln-671" href="#ln-671"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAlignment</span><span class="p">)</span>
-<a id="ln-672" name="ln-672" href="#ln-672"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-673" name="ln-673" href="#ln-673"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAlignment</span><span class="p">)</span>
-<a id="ln-674" name="ln-674" href="#ln-674"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-675" name="ln-675" href="#ln-675"></a>
-<a id="ln-676" name="ln-676" href="#ln-676"></a><span class="c">! --------------------</span>
-<a id="ln-677" name="ln-677" href="#ln-677"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_label_alignment</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-678" name="ln-678" href="#ln-678"></a><span class="w">        </span><span class="c">!! Sets the tic label alignment.</span>
-<a id="ln-679" name="ln-679" href="#ln-679"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-680" name="ln-680" href="#ln-680"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-681" name="ln-681" href="#ln-681"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-682" name="ln-682" href="#ln-682"></a><span class="w">            </span><span class="c">!! The tic label alignment.  The tic label alignment must be one of </span>
-<a id="ln-683" name="ln-683" href="#ln-683"></a><span class="w">            </span><span class="c">!! the following:</span>
-<a id="ln-684" name="ln-684" href="#ln-684"></a><span class="w">            </span><span class="c">!! </span>
-<a id="ln-685" name="ln-685" href="#ln-685"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_LEFT</span>
-<a id="ln-686" name="ln-686" href="#ln-686"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-687" name="ln-687" href="#ln-687"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_CENTER</span>
-<a id="ln-688" name="ln-688" href="#ln-688"></a><span class="w">            </span><span class="c">!!</span>
-<a id="ln-689" name="ln-689" href="#ln-689"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT</span>
-<a id="ln-690" name="ln-690" href="#ln-690"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAlignment</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-691" name="ln-691" href="#ln-691"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-669" name="ln-669" href="#ln-669"></a><span class="w">            </span><span class="c">!! - GNUPLOT_ROTATION_ORIGIN_CENTER</span>
+<a id="ln-670" name="ln-670" href="#ln-670"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticRotationOrigin</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-671" name="ln-671" href="#ln-671"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-672" name="ln-672" href="#ln-672"></a>
+<a id="ln-673" name="ln-673" href="#ln-673"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-674" name="ln-674" href="#ln-674"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_tic_label_alignment</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-675" name="ln-675" href="#ln-675"></a><span class="w">        </span><span class="c">!! Gets the tic label alignment.</span>
+<a id="ln-676" name="ln-676" href="#ln-676"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-677" name="ln-677" href="#ln-677"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-678" name="ln-678" href="#ln-678"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-679" name="ln-679" href="#ln-679"></a><span class="w">            </span><span class="c">!! The tic label alignment.  The tic label alignment must be one of </span>
+<a id="ln-680" name="ln-680" href="#ln-680"></a><span class="w">            </span><span class="c">!! the following:</span>
+<a id="ln-681" name="ln-681" href="#ln-681"></a><span class="w">            </span><span class="c">!! </span>
+<a id="ln-682" name="ln-682" href="#ln-682"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_LEFT</span>
+<a id="ln-683" name="ln-683" href="#ln-683"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-684" name="ln-684" href="#ln-684"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_CENTER</span>
+<a id="ln-685" name="ln-685" href="#ln-685"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-686" name="ln-686" href="#ln-686"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT</span>
+<a id="ln-687" name="ln-687" href="#ln-687"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">n</span>
+<a id="ln-688" name="ln-688" href="#ln-688"></a><span class="w">        </span><span class="n">n</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">len_trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAlignment</span><span class="p">)</span>
+<a id="ln-689" name="ln-689" href="#ln-689"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">n</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-690" name="ln-690" href="#ln-690"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAlignment</span><span class="p">)</span>
+<a id="ln-691" name="ln-691" href="#ln-691"></a><span class="w">    </span><span class="k">end function</span>
 <a id="ln-692" name="ln-692" href="#ln-692"></a>
-<a id="ln-693" name="ln-693" href="#ln-693"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-694" name="ln-694" href="#ln-694"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_offset_tics</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-695" name="ln-695" href="#ln-695"></a><span class="w">        </span><span class="c">!! Gets a value determining if the tics should be offset.</span>
-<a id="ln-696" name="ln-696" href="#ln-696"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-693" name="ln-693" href="#ln-693"></a><span class="c">! --------------------</span>
+<a id="ln-694" name="ln-694" href="#ln-694"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_tic_label_alignment</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-695" name="ln-695" href="#ln-695"></a><span class="w">        </span><span class="c">!! Sets the tic label alignment.</span>
+<a id="ln-696" name="ln-696" href="#ln-696"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
 <a id="ln-697" name="ln-697" href="#ln-697"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-698" name="ln-698" href="#ln-698"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-699" name="ln-699" href="#ln-699"></a><span class="w">            </span><span class="c">!! Returns true to offset the tics; else, set to false.</span>
-<a id="ln-700" name="ln-700" href="#ln-700"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_offsetTics</span>
-<a id="ln-701" name="ln-701" href="#ln-701"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-702" name="ln-702" href="#ln-702"></a>
-<a id="ln-703" name="ln-703" href="#ln-703"></a><span class="c">! --------------------</span>
-<a id="ln-704" name="ln-704" href="#ln-704"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_offset_tics</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-705" name="ln-705" href="#ln-705"></a><span class="w">        </span><span class="c">!! Sets a value determining if the tics should be offset.</span>
-<a id="ln-706" name="ln-706" href="#ln-706"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-707" name="ln-707" href="#ln-707"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-708" name="ln-708" href="#ln-708"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-709" name="ln-709" href="#ln-709"></a><span class="w">            </span><span class="c">!! Set to true to offset the tics; else, set to false.</span>
-<a id="ln-710" name="ln-710" href="#ln-710"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_offsetTics</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-711" name="ln-711" href="#ln-711"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-712" name="ln-712" href="#ln-712"></a>
-<a id="ln-713" name="ln-713" href="#ln-713"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-714" name="ln-714" href="#ln-714"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_title_x_offset</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-715" name="ln-715" href="#ln-715"></a><span class="w">        </span><span class="c">!! Gets the axis title x-offset, in characters.</span>
-<a id="ln-716" name="ln-716" href="#ln-716"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-717" name="ln-717" href="#ln-717"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-718" name="ln-718" href="#ln-718"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-719" name="ln-719" href="#ln-719"></a><span class="w">            </span><span class="c">!! The axis title x-offset, in characters.</span>
-<a id="ln-720" name="ln-720" href="#ln-720"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleXOffset</span>
-<a id="ln-721" name="ln-721" href="#ln-721"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-722" name="ln-722" href="#ln-722"></a>
-<a id="ln-723" name="ln-723" href="#ln-723"></a><span class="c">! --------------------</span>
-<a id="ln-724" name="ln-724" href="#ln-724"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_title_x_offset</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-725" name="ln-725" href="#ln-725"></a><span class="w">        </span><span class="c">!! Sets the axis title x-offset, in characters.</span>
-<a id="ln-726" name="ln-726" href="#ln-726"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-727" name="ln-727" href="#ln-727"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-728" name="ln-728" href="#ln-728"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-729" name="ln-729" href="#ln-729"></a><span class="w">            </span><span class="c">!! The axis title x-offset, in characters.</span>
-<a id="ln-730" name="ln-730" href="#ln-730"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleXOffset</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-731" name="ln-731" href="#ln-731"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-732" name="ln-732" href="#ln-732"></a>
-<a id="ln-733" name="ln-733" href="#ln-733"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-734" name="ln-734" href="#ln-734"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_title_y_offset</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-735" name="ln-735" href="#ln-735"></a><span class="w">        </span><span class="c">!! Gets the axis title y-offset, in characters.</span>
-<a id="ln-736" name="ln-736" href="#ln-736"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-737" name="ln-737" href="#ln-737"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-738" name="ln-738" href="#ln-738"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-739" name="ln-739" href="#ln-739"></a><span class="w">            </span><span class="c">!! The axis title y-offset, in characters.</span>
-<a id="ln-740" name="ln-740" href="#ln-740"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleYOffset</span>
-<a id="ln-741" name="ln-741" href="#ln-741"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-742" name="ln-742" href="#ln-742"></a>
-<a id="ln-743" name="ln-743" href="#ln-743"></a><span class="c">! --------------------</span>
-<a id="ln-744" name="ln-744" href="#ln-744"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_title_y_offset</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-745" name="ln-745" href="#ln-745"></a><span class="w">        </span><span class="c">!! Sets the axis title y-offset, in characters.</span>
-<a id="ln-746" name="ln-746" href="#ln-746"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-747" name="ln-747" href="#ln-747"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-748" name="ln-748" href="#ln-748"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-749" name="ln-749" href="#ln-749"></a><span class="w">            </span><span class="c">!! The axis title y-offset, in characters.</span>
-<a id="ln-750" name="ln-750" href="#ln-750"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleYOffset</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-751" name="ln-751" href="#ln-751"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-752" name="ln-752" href="#ln-752"></a>
-<a id="ln-753" name="ln-753" href="#ln-753"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-754" name="ln-754" href="#ln-754"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_use_manual_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-755" name="ln-755" href="#ln-755"></a><span class="w">        </span><span class="c">!! Gets a value determining if manual tic labels should be used.</span>
-<a id="ln-756" name="ln-756" href="#ln-756"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-757" name="ln-757" href="#ln-757"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-758" name="ln-758" href="#ln-758"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-759" name="ln-759" href="#ln-759"></a><span class="w">            </span><span class="c">!! True if manual tic labels should be used; else, false.</span>
-<a id="ln-760" name="ln-760" href="#ln-760"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_useManualTicLabels</span>
-<a id="ln-761" name="ln-761" href="#ln-761"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-762" name="ln-762" href="#ln-762"></a>
-<a id="ln-763" name="ln-763" href="#ln-763"></a><span class="c">! --------------------</span>
-<a id="ln-764" name="ln-764" href="#ln-764"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_use_manual_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-765" name="ln-765" href="#ln-765"></a><span class="w">        </span><span class="c">!! Sets a value determining if manual tic labels should be used.</span>
-<a id="ln-766" name="ln-766" href="#ln-766"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-767" name="ln-767" href="#ln-767"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-768" name="ln-768" href="#ln-768"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-769" name="ln-769" href="#ln-769"></a><span class="w">            </span><span class="c">!! Set to true if manual tic labels should be used; else, false.</span>
-<a id="ln-770" name="ln-770" href="#ln-770"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_useManualTicLabels</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-771" name="ln-771" href="#ln-771"></a><span class="w">    </span><span class="k">end subroutine</span>
-<a id="ln-772" name="ln-772" href="#ln-772"></a>
-<a id="ln-773" name="ln-773" href="#ln-773"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-774" name="ln-774" href="#ln-774"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_manual_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
-<a id="ln-775" name="ln-775" href="#ln-775"></a><span class="w">        </span><span class="c">!! Gets a list of manual tic labels.</span>
-<a id="ln-776" name="ln-776" href="#ln-776"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-777" name="ln-777" href="#ln-777"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-778" name="ln-778" href="#ln-778"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">name_value_pair</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
-<a id="ln-779" name="ln-779" href="#ln-779"></a><span class="w">            </span><span class="c">!! A list of name-value pairs where the name defines the label</span>
-<a id="ln-780" name="ln-780" href="#ln-780"></a><span class="w">            </span><span class="c">!! shown with the corresponding axis value.</span>
-<a id="ln-781" name="ln-781" href="#ln-781"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
-<a id="ln-782" name="ln-782" href="#ln-782"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span>
-<a id="ln-783" name="ln-783" href="#ln-783"></a><span class="w">        </span><span class="k">else</span>
-<a id="ln-784" name="ln-784" href="#ln-784"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">rst</span><span class="p">(</span><span class="mi">0</span><span class="p">))</span>
-<a id="ln-785" name="ln-785" href="#ln-785"></a><span class="w">        </span><span class="k">end if</span>
-<a id="ln-786" name="ln-786" href="#ln-786"></a><span class="k">    end function</span>
-<a id="ln-787" name="ln-787" href="#ln-787"></a>
-<a id="ln-788" name="ln-788" href="#ln-788"></a><span class="c">! --------------------</span>
-<a id="ln-789" name="ln-789" href="#ln-789"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_manual_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-790" name="ln-790" href="#ln-790"></a><span class="w">        </span><span class="c">!! Sets a list of manual tic labels.  This routine also sets </span>
-<a id="ln-791" name="ln-791" href="#ln-791"></a><span class="w">        </span><span class="c">!! set_use_manual_tic_labels to true.</span>
-<a id="ln-792" name="ln-792" href="#ln-792"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-793" name="ln-793" href="#ln-793"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
-<a id="ln-794" name="ln-794" href="#ln-794"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">name_value_pair</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-795" name="ln-795" href="#ln-795"></a><span class="w">            </span><span class="c">!! The list of tic values with the name component representing the</span>
-<a id="ln-796" name="ln-796" href="#ln-796"></a><span class="w">            </span><span class="c">!! displayed label text and the value is the associated axis value.</span>
-<a id="ln-797" name="ln-797" href="#ln-797"></a>
-<a id="ln-798" name="ln-798" href="#ln-798"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span><span class="p">)</span>
-<a id="ln-799" name="ln-799" href="#ln-799"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">x</span><span class="p">)),</span><span class="w"> </span><span class="n">source</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
-<a id="ln-800" name="ln-800" href="#ln-800"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">set_use_manual_tic_labels</span><span class="p">(.</span><span class="n">true</span><span class="p">.)</span>
-<a id="ln-801" name="ln-801" href="#ln-801"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-698" name="ln-698" href="#ln-698"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="o">*</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-699" name="ln-699" href="#ln-699"></a><span class="w">            </span><span class="c">!! The tic label alignment.  The tic label alignment must be one of </span>
+<a id="ln-700" name="ln-700" href="#ln-700"></a><span class="w">            </span><span class="c">!! the following:</span>
+<a id="ln-701" name="ln-701" href="#ln-701"></a><span class="w">            </span><span class="c">!! </span>
+<a id="ln-702" name="ln-702" href="#ln-702"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_LEFT</span>
+<a id="ln-703" name="ln-703" href="#ln-703"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-704" name="ln-704" href="#ln-704"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_CENTER</span>
+<a id="ln-705" name="ln-705" href="#ln-705"></a><span class="w">            </span><span class="c">!!</span>
+<a id="ln-706" name="ln-706" href="#ln-706"></a><span class="w">            </span><span class="c">!! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT</span>
+<a id="ln-707" name="ln-707" href="#ln-707"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabelAlignment</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-708" name="ln-708" href="#ln-708"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-709" name="ln-709" href="#ln-709"></a>
+<a id="ln-710" name="ln-710" href="#ln-710"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-711" name="ln-711" href="#ln-711"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_offset_tics</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-712" name="ln-712" href="#ln-712"></a><span class="w">        </span><span class="c">!! Gets a value determining if the tics should be offset.</span>
+<a id="ln-713" name="ln-713" href="#ln-713"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-714" name="ln-714" href="#ln-714"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-715" name="ln-715" href="#ln-715"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-716" name="ln-716" href="#ln-716"></a><span class="w">            </span><span class="c">!! Returns true to offset the tics; else, set to false.</span>
+<a id="ln-717" name="ln-717" href="#ln-717"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_offsetTics</span>
+<a id="ln-718" name="ln-718" href="#ln-718"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-719" name="ln-719" href="#ln-719"></a>
+<a id="ln-720" name="ln-720" href="#ln-720"></a><span class="c">! --------------------</span>
+<a id="ln-721" name="ln-721" href="#ln-721"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_offset_tics</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-722" name="ln-722" href="#ln-722"></a><span class="w">        </span><span class="c">!! Sets a value determining if the tics should be offset.</span>
+<a id="ln-723" name="ln-723" href="#ln-723"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-724" name="ln-724" href="#ln-724"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-725" name="ln-725" href="#ln-725"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-726" name="ln-726" href="#ln-726"></a><span class="w">            </span><span class="c">!! Set to true to offset the tics; else, set to false.</span>
+<a id="ln-727" name="ln-727" href="#ln-727"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_offsetTics</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-728" name="ln-728" href="#ln-728"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-729" name="ln-729" href="#ln-729"></a>
+<a id="ln-730" name="ln-730" href="#ln-730"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-731" name="ln-731" href="#ln-731"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_title_x_offset</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-732" name="ln-732" href="#ln-732"></a><span class="w">        </span><span class="c">!! Gets the axis title x-offset, in characters.</span>
+<a id="ln-733" name="ln-733" href="#ln-733"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-734" name="ln-734" href="#ln-734"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-735" name="ln-735" href="#ln-735"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-736" name="ln-736" href="#ln-736"></a><span class="w">            </span><span class="c">!! The axis title x-offset, in characters.</span>
+<a id="ln-737" name="ln-737" href="#ln-737"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleXOffset</span>
+<a id="ln-738" name="ln-738" href="#ln-738"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-739" name="ln-739" href="#ln-739"></a>
+<a id="ln-740" name="ln-740" href="#ln-740"></a><span class="c">! --------------------</span>
+<a id="ln-741" name="ln-741" href="#ln-741"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_title_x_offset</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-742" name="ln-742" href="#ln-742"></a><span class="w">        </span><span class="c">!! Sets the axis title x-offset, in characters.</span>
+<a id="ln-743" name="ln-743" href="#ln-743"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-744" name="ln-744" href="#ln-744"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-745" name="ln-745" href="#ln-745"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-746" name="ln-746" href="#ln-746"></a><span class="w">            </span><span class="c">!! The axis title x-offset, in characters.</span>
+<a id="ln-747" name="ln-747" href="#ln-747"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleXOffset</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-748" name="ln-748" href="#ln-748"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-749" name="ln-749" href="#ln-749"></a>
+<a id="ln-750" name="ln-750" href="#ln-750"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-751" name="ln-751" href="#ln-751"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_title_y_offset</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-752" name="ln-752" href="#ln-752"></a><span class="w">        </span><span class="c">!! Gets the axis title y-offset, in characters.</span>
+<a id="ln-753" name="ln-753" href="#ln-753"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-754" name="ln-754" href="#ln-754"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-755" name="ln-755" href="#ln-755"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-756" name="ln-756" href="#ln-756"></a><span class="w">            </span><span class="c">!! The axis title y-offset, in characters.</span>
+<a id="ln-757" name="ln-757" href="#ln-757"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleYOffset</span>
+<a id="ln-758" name="ln-758" href="#ln-758"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-759" name="ln-759" href="#ln-759"></a>
+<a id="ln-760" name="ln-760" href="#ln-760"></a><span class="c">! --------------------</span>
+<a id="ln-761" name="ln-761" href="#ln-761"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_title_y_offset</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-762" name="ln-762" href="#ln-762"></a><span class="w">        </span><span class="c">!! Sets the axis title y-offset, in characters.</span>
+<a id="ln-763" name="ln-763" href="#ln-763"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-764" name="ln-764" href="#ln-764"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-765" name="ln-765" href="#ln-765"></a><span class="w">        </span><span class="kt">integer</span><span class="p">(</span><span class="n">int32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-766" name="ln-766" href="#ln-766"></a><span class="w">            </span><span class="c">!! The axis title y-offset, in characters.</span>
+<a id="ln-767" name="ln-767" href="#ln-767"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleYOffset</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-768" name="ln-768" href="#ln-768"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-769" name="ln-769" href="#ln-769"></a>
+<a id="ln-770" name="ln-770" href="#ln-770"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-771" name="ln-771" href="#ln-771"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_title_angle</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-772" name="ln-772" href="#ln-772"></a><span class="w">        </span><span class="c">!! Gets the axis title angle, in degrees.</span>
+<a id="ln-773" name="ln-773" href="#ln-773"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-774" name="ln-774" href="#ln-774"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-775" name="ln-775" href="#ln-775"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-776" name="ln-776" href="#ln-776"></a><span class="w">            </span><span class="c">!! The axis title angle, in degrees.</span>
+<a id="ln-777" name="ln-777" href="#ln-777"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleAngle</span>
+<a id="ln-778" name="ln-778" href="#ln-778"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-779" name="ln-779" href="#ln-779"></a>
+<a id="ln-780" name="ln-780" href="#ln-780"></a><span class="c">! --------------------</span>
+<a id="ln-781" name="ln-781" href="#ln-781"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_title_angle</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-782" name="ln-782" href="#ln-782"></a><span class="w">        </span><span class="c">!! Sets the axis title angle, in degrees.</span>
+<a id="ln-783" name="ln-783" href="#ln-783"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-784" name="ln-784" href="#ln-784"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-785" name="ln-785" href="#ln-785"></a><span class="w">        </span><span class="kt">real</span><span class="p">(</span><span class="n">real32</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-786" name="ln-786" href="#ln-786"></a><span class="w">            </span><span class="c">!! The axis title angle, in degrees.</span>
+<a id="ln-787" name="ln-787" href="#ln-787"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_titleAngle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-788" name="ln-788" href="#ln-788"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_autoCalcTitleAngle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a id="ln-789" name="ln-789" href="#ln-789"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-790" name="ln-790" href="#ln-790"></a>
+<a id="ln-791" name="ln-791" href="#ln-791"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-792" name="ln-792" href="#ln-792"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_auto_calc_title_angle</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-793" name="ln-793" href="#ln-793"></a><span class="w">        </span><span class="c">!! Gets whether GNUPLOT should automatically calculate the axis</span>
+<a id="ln-794" name="ln-794" href="#ln-794"></a><span class="w">        </span><span class="c">!! title angle.</span>
+<a id="ln-795" name="ln-795" href="#ln-795"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-796" name="ln-796" href="#ln-796"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-797" name="ln-797" href="#ln-797"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-798" name="ln-798" href="#ln-798"></a><span class="w">            </span><span class="c">!! True if GNUPLOT should automatically calculate the title</span>
+<a id="ln-799" name="ln-799" href="#ln-799"></a><span class="w">            </span><span class="c">!! angle; else, false.</span>
+<a id="ln-800" name="ln-800" href="#ln-800"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_autoCalcTitleAngle</span>
+<a id="ln-801" name="ln-801" href="#ln-801"></a><span class="w">    </span><span class="k">end function</span>
 <a id="ln-802" name="ln-802" href="#ln-802"></a>
-<a id="ln-803" name="ln-803" href="#ln-803"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-804" name="ln-804" href="#ln-804"></a><span class="c">! X_AXIS MEMBERS</span>
-<a id="ln-805" name="ln-805" href="#ln-805"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-806" name="ln-806" href="#ln-806"></a><span class="w">    </span><span class="k">function </span><span class="n">xa_get_id</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-807" name="ln-807" href="#ln-807"></a><span class="w">        </span><span class="c">!! Gets the axis identification string.</span>
-<a id="ln-808" name="ln-808" href="#ln-808"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">x_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-809" name="ln-809" href="#ln-809"></a><span class="w">            </span><span class="c">!! The x_axis object.</span>
-<a id="ln-810" name="ln-810" href="#ln-810"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-811" name="ln-811" href="#ln-811"></a><span class="w">            </span><span class="c">!! The identification string.</span>
-<a id="ln-812" name="ln-812" href="#ln-812"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_id</span>
-<a id="ln-813" name="ln-813" href="#ln-813"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-803" name="ln-803" href="#ln-803"></a><span class="c">! --------------------</span>
+<a id="ln-804" name="ln-804" href="#ln-804"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_auto_calc_title_angle</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-805" name="ln-805" href="#ln-805"></a><span class="w">        </span><span class="c">!! Sets whether GNUPLOT should automatically calculate the axis</span>
+<a id="ln-806" name="ln-806" href="#ln-806"></a><span class="w">        </span><span class="c">!! title angle.</span>
+<a id="ln-807" name="ln-807" href="#ln-807"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-808" name="ln-808" href="#ln-808"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-809" name="ln-809" href="#ln-809"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-810" name="ln-810" href="#ln-810"></a><span class="w">            </span><span class="c">!! Set to true to automatically calculate the title angle;</span>
+<a id="ln-811" name="ln-811" href="#ln-811"></a><span class="w">            </span><span class="c">!! else, set to false.</span>
+<a id="ln-812" name="ln-812" href="#ln-812"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_autoCalcTitleAngle</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-813" name="ln-813" href="#ln-813"></a><span class="w">    </span><span class="k">end subroutine</span>
 <a id="ln-814" name="ln-814" href="#ln-814"></a>
-<a id="ln-815" name="ln-815" href="#ln-815"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-816" name="ln-816" href="#ln-816"></a><span class="c">! Y_AXIS MEMBERS</span>
-<a id="ln-817" name="ln-817" href="#ln-817"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-818" name="ln-818" href="#ln-818"></a><span class="w">    </span><span class="k">function </span><span class="n">ya_get_id</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-819" name="ln-819" href="#ln-819"></a><span class="w">        </span><span class="c">!! Gets the axis identification string.</span>
-<a id="ln-820" name="ln-820" href="#ln-820"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">y_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-821" name="ln-821" href="#ln-821"></a><span class="w">            </span><span class="c">!! The y_axis object.</span>
-<a id="ln-822" name="ln-822" href="#ln-822"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-823" name="ln-823" href="#ln-823"></a><span class="w">            </span><span class="c">!! The identification string.</span>
-<a id="ln-824" name="ln-824" href="#ln-824"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_id</span>
-<a id="ln-825" name="ln-825" href="#ln-825"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-826" name="ln-826" href="#ln-826"></a>
-<a id="ln-827" name="ln-827" href="#ln-827"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-828" name="ln-828" href="#ln-828"></a><span class="c">! Y2_AXIS MEMBERS</span>
-<a id="ln-829" name="ln-829" href="#ln-829"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-830" name="ln-830" href="#ln-830"></a><span class="w">    </span><span class="k">function </span><span class="n">y2a_get_id</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-831" name="ln-831" href="#ln-831"></a><span class="w">        </span><span class="c">!! Gets the axis identification string.</span>
-<a id="ln-832" name="ln-832" href="#ln-832"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">y2_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-833" name="ln-833" href="#ln-833"></a><span class="w">            </span><span class="c">!! The y2_axis object.</span>
-<a id="ln-834" name="ln-834" href="#ln-834"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-835" name="ln-835" href="#ln-835"></a><span class="w">            </span><span class="c">!! The identification string.</span>
-<a id="ln-836" name="ln-836" href="#ln-836"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_id</span>
-<a id="ln-837" name="ln-837" href="#ln-837"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-838" name="ln-838" href="#ln-838"></a>
-<a id="ln-839" name="ln-839" href="#ln-839"></a><span class="c">! ******************************************************************************</span>
-<a id="ln-840" name="ln-840" href="#ln-840"></a><span class="c">! Z_AXIS MEMBERS</span>
-<a id="ln-841" name="ln-841" href="#ln-841"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-842" name="ln-842" href="#ln-842"></a><span class="w">    </span><span class="k">function </span><span class="n">za_get_id</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a id="ln-843" name="ln-843" href="#ln-843"></a><span class="w">        </span><span class="c">!! Gets the axis identification string.</span>
-<a id="ln-844" name="ln-844" href="#ln-844"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">z_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
-<a id="ln-845" name="ln-845" href="#ln-845"></a><span class="w">            </span><span class="c">!! The z_axis object.</span>
-<a id="ln-846" name="ln-846" href="#ln-846"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
-<a id="ln-847" name="ln-847" href="#ln-847"></a><span class="w">            </span><span class="c">!! The identification string.</span>
-<a id="ln-848" name="ln-848" href="#ln-848"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_id</span>
-<a id="ln-849" name="ln-849" href="#ln-849"></a><span class="w">    </span><span class="k">end function</span>
-<a id="ln-850" name="ln-850" href="#ln-850"></a>
-<a id="ln-851" name="ln-851" href="#ln-851"></a><span class="c">! ------------------------------------------------------------------------------</span>
-<a id="ln-852" name="ln-852" href="#ln-852"></a><span class="k">end module</span>
+<a id="ln-815" name="ln-815" href="#ln-815"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-816" name="ln-816" href="#ln-816"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_use_manual_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-817" name="ln-817" href="#ln-817"></a><span class="w">        </span><span class="c">!! Gets a value determining if manual tic labels should be used.</span>
+<a id="ln-818" name="ln-818" href="#ln-818"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-819" name="ln-819" href="#ln-819"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-820" name="ln-820" href="#ln-820"></a><span class="w">        </span><span class="kt">logical</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-821" name="ln-821" href="#ln-821"></a><span class="w">            </span><span class="c">!! True if manual tic labels should be used; else, false.</span>
+<a id="ln-822" name="ln-822" href="#ln-822"></a><span class="w">        </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_useManualTicLabels</span>
+<a id="ln-823" name="ln-823" href="#ln-823"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-824" name="ln-824" href="#ln-824"></a>
+<a id="ln-825" name="ln-825" href="#ln-825"></a><span class="c">! --------------------</span>
+<a id="ln-826" name="ln-826" href="#ln-826"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_use_manual_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-827" name="ln-827" href="#ln-827"></a><span class="w">        </span><span class="c">!! Sets a value determining if manual tic labels should be used.</span>
+<a id="ln-828" name="ln-828" href="#ln-828"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-829" name="ln-829" href="#ln-829"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-830" name="ln-830" href="#ln-830"></a><span class="w">        </span><span class="kt">logical</span><span class="p">,</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-831" name="ln-831" href="#ln-831"></a><span class="w">            </span><span class="c">!! Set to true if manual tic labels should be used; else, false.</span>
+<a id="ln-832" name="ln-832" href="#ln-832"></a><span class="w">        </span><span class="n">this</span><span class="p">%</span><span class="n">m_useManualTicLabels</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-833" name="ln-833" href="#ln-833"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-834" name="ln-834" href="#ln-834"></a>
+<a id="ln-835" name="ln-835" href="#ln-835"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-836" name="ln-836" href="#ln-836"></a><span class="w">    </span><span class="k">pure function </span><span class="n">pa_get_manual_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">rst</span><span class="p">)</span>
+<a id="ln-837" name="ln-837" href="#ln-837"></a><span class="w">        </span><span class="c">!! Gets a list of manual tic labels.</span>
+<a id="ln-838" name="ln-838" href="#ln-838"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-839" name="ln-839" href="#ln-839"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-840" name="ln-840" href="#ln-840"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">name_value_pair</span><span class="p">),</span><span class="w"> </span><span class="k">allocatable</span><span class="p">,</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">rst</span>
+<a id="ln-841" name="ln-841" href="#ln-841"></a><span class="w">            </span><span class="c">!! A list of name-value pairs where the name defines the label</span>
+<a id="ln-842" name="ln-842" href="#ln-842"></a><span class="w">            </span><span class="c">!! shown with the corresponding axis value.</span>
+<a id="ln-843" name="ln-843" href="#ln-843"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span><span class="p">))</span><span class="w"> </span><span class="k">then</span>
+<a id="ln-844" name="ln-844" href="#ln-844"></a><span class="k">            </span><span class="n">rst</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span>
+<a id="ln-845" name="ln-845" href="#ln-845"></a><span class="w">        </span><span class="k">else</span>
+<a id="ln-846" name="ln-846" href="#ln-846"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">rst</span><span class="p">(</span><span class="mi">0</span><span class="p">))</span>
+<a id="ln-847" name="ln-847" href="#ln-847"></a><span class="w">        </span><span class="k">end if</span>
+<a id="ln-848" name="ln-848" href="#ln-848"></a><span class="k">    end function</span>
+<a id="ln-849" name="ln-849" href="#ln-849"></a>
+<a id="ln-850" name="ln-850" href="#ln-850"></a><span class="c">! --------------------</span>
+<a id="ln-851" name="ln-851" href="#ln-851"></a><span class="w">    </span><span class="k">subroutine </span><span class="n">pa_set_manual_tic_labels</span><span class="p">(</span><span class="n">this</span><span class="p">,</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-852" name="ln-852" href="#ln-852"></a><span class="w">        </span><span class="c">!! Sets a list of manual tic labels.  This routine also sets </span>
+<a id="ln-853" name="ln-853" href="#ln-853"></a><span class="w">        </span><span class="c">!! set_use_manual_tic_labels to true.</span>
+<a id="ln-854" name="ln-854" href="#ln-854"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">plot_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-855" name="ln-855" href="#ln-855"></a><span class="w">            </span><span class="c">!! The plot_axis object.</span>
+<a id="ln-856" name="ln-856" href="#ln-856"></a><span class="w">        </span><span class="k">type</span><span class="p">(</span><span class="n">name_value_pair</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span><span class="w"> </span><span class="k">dimension</span><span class="p">(:)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-857" name="ln-857" href="#ln-857"></a><span class="w">            </span><span class="c">!! The list of tic values with the name component representing the</span>
+<a id="ln-858" name="ln-858" href="#ln-858"></a><span class="w">            </span><span class="c">!! displayed label text and the value is the associated axis value.</span>
+<a id="ln-859" name="ln-859" href="#ln-859"></a>
+<a id="ln-860" name="ln-860" href="#ln-860"></a><span class="w">        </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span><span class="p">))</span><span class="w"> </span><span class="k">deallocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span><span class="p">)</span>
+<a id="ln-861" name="ln-861" href="#ln-861"></a><span class="w">        </span><span class="k">allocate</span><span class="p">(</span><span class="n">this</span><span class="p">%</span><span class="n">m_ticLabels</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">x</span><span class="p">)),</span><span class="w"> </span><span class="n">source</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">x</span><span class="p">)</span>
+<a id="ln-862" name="ln-862" href="#ln-862"></a><span class="w">        </span><span class="k">call </span><span class="n">this</span><span class="p">%</span><span class="n">set_use_manual_tic_labels</span><span class="p">(.</span><span class="n">true</span><span class="p">.)</span>
+<a id="ln-863" name="ln-863" href="#ln-863"></a><span class="w">    </span><span class="k">end subroutine</span>
+<a id="ln-864" name="ln-864" href="#ln-864"></a>
+<a id="ln-865" name="ln-865" href="#ln-865"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-866" name="ln-866" href="#ln-866"></a><span class="c">! X_AXIS MEMBERS</span>
+<a id="ln-867" name="ln-867" href="#ln-867"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-868" name="ln-868" href="#ln-868"></a><span class="w">    </span><span class="k">function </span><span class="n">xa_get_id</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-869" name="ln-869" href="#ln-869"></a><span class="w">        </span><span class="c">!! Gets the axis identification string.</span>
+<a id="ln-870" name="ln-870" href="#ln-870"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">x_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-871" name="ln-871" href="#ln-871"></a><span class="w">            </span><span class="c">!! The x_axis object.</span>
+<a id="ln-872" name="ln-872" href="#ln-872"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-873" name="ln-873" href="#ln-873"></a><span class="w">            </span><span class="c">!! The identification string.</span>
+<a id="ln-874" name="ln-874" href="#ln-874"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_id</span>
+<a id="ln-875" name="ln-875" href="#ln-875"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-876" name="ln-876" href="#ln-876"></a>
+<a id="ln-877" name="ln-877" href="#ln-877"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-878" name="ln-878" href="#ln-878"></a><span class="c">! Y_AXIS MEMBERS</span>
+<a id="ln-879" name="ln-879" href="#ln-879"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-880" name="ln-880" href="#ln-880"></a><span class="w">    </span><span class="k">function </span><span class="n">ya_get_id</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-881" name="ln-881" href="#ln-881"></a><span class="w">        </span><span class="c">!! Gets the axis identification string.</span>
+<a id="ln-882" name="ln-882" href="#ln-882"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">y_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-883" name="ln-883" href="#ln-883"></a><span class="w">            </span><span class="c">!! The y_axis object.</span>
+<a id="ln-884" name="ln-884" href="#ln-884"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-885" name="ln-885" href="#ln-885"></a><span class="w">            </span><span class="c">!! The identification string.</span>
+<a id="ln-886" name="ln-886" href="#ln-886"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_id</span>
+<a id="ln-887" name="ln-887" href="#ln-887"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-888" name="ln-888" href="#ln-888"></a>
+<a id="ln-889" name="ln-889" href="#ln-889"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-890" name="ln-890" href="#ln-890"></a><span class="c">! Y2_AXIS MEMBERS</span>
+<a id="ln-891" name="ln-891" href="#ln-891"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-892" name="ln-892" href="#ln-892"></a><span class="w">    </span><span class="k">function </span><span class="n">y2a_get_id</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-893" name="ln-893" href="#ln-893"></a><span class="w">        </span><span class="c">!! Gets the axis identification string.</span>
+<a id="ln-894" name="ln-894" href="#ln-894"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">y2_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-895" name="ln-895" href="#ln-895"></a><span class="w">            </span><span class="c">!! The y2_axis object.</span>
+<a id="ln-896" name="ln-896" href="#ln-896"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-897" name="ln-897" href="#ln-897"></a><span class="w">            </span><span class="c">!! The identification string.</span>
+<a id="ln-898" name="ln-898" href="#ln-898"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_id</span>
+<a id="ln-899" name="ln-899" href="#ln-899"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-900" name="ln-900" href="#ln-900"></a>
+<a id="ln-901" name="ln-901" href="#ln-901"></a><span class="c">! ******************************************************************************</span>
+<a id="ln-902" name="ln-902" href="#ln-902"></a><span class="c">! Z_AXIS MEMBERS</span>
+<a id="ln-903" name="ln-903" href="#ln-903"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-904" name="ln-904" href="#ln-904"></a><span class="w">    </span><span class="k">function </span><span class="n">za_get_id</span><span class="p">(</span><span class="n">this</span><span class="p">)</span><span class="w"> </span><span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a id="ln-905" name="ln-905" href="#ln-905"></a><span class="w">        </span><span class="c">!! Gets the axis identification string.</span>
+<a id="ln-906" name="ln-906" href="#ln-906"></a><span class="w">        </span><span class="k">class</span><span class="p">(</span><span class="n">z_axis</span><span class="p">),</span><span class="w"> </span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">this</span>
+<a id="ln-907" name="ln-907" href="#ln-907"></a><span class="w">            </span><span class="c">!! The z_axis object.</span>
+<a id="ln-908" name="ln-908" href="#ln-908"></a><span class="w">        </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="p">:),</span><span class="w"> </span><span class="k">allocatable</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">x</span>
+<a id="ln-909" name="ln-909" href="#ln-909"></a><span class="w">            </span><span class="c">!! The identification string.</span>
+<a id="ln-910" name="ln-910" href="#ln-910"></a><span class="w">        </span><span class="n">x</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="n">this</span><span class="p">%</span><span class="n">m_id</span>
+<a id="ln-911" name="ln-911" href="#ln-911"></a><span class="w">    </span><span class="k">end function</span>
+<a id="ln-912" name="ln-912" href="#ln-912"></a>
+<a id="ln-913" name="ln-913" href="#ln-913"></a><span class="c">! ------------------------------------------------------------------------------</span>
+<a id="ln-914" name="ln-914" href="#ln-914"></a><span class="k">end module</span>
 </pre></div>
 
       </section>
@@ -1021,7 +1083,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_bar.f90.html b/doc/sourcefile/fplot_plot_bar.f90.html
index bce45aeb..f612734e 100644
--- a/doc/sourcefile/fplot_plot_bar.f90.html
+++ b/doc/sourcefile/fplot_plot_bar.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_bar.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.9% of total for source files.">80 statements</a>
+                 title=" 0.8% of total for source files.">80 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -312,7 +312,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data.f90.html b/doc/sourcefile/fplot_plot_data.f90.html
index 9625ba21..c5fd6682 100644
--- a/doc/sourcefile/fplot_plot_data.f90.html
+++ b/doc/sourcefile/fplot_plot_data.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 5.1% of total for source files.">459 statements</a>
+                 title=" 4.7% of total for source files.">459 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -1037,7 +1037,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data_2d.f90.html b/doc/sourcefile/fplot_plot_data_2d.f90.html
index 6024aa8f..6f7c35c3 100644
--- a/doc/sourcefile/fplot_plot_data_2d.f90.html
+++ b/doc/sourcefile/fplot_plot_data_2d.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_2d.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.5% of total for source files.">315 statements</a>
+                 title=" 3.2% of total for source files.">315 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -640,7 +640,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data_3d.f90.html b/doc/sourcefile/fplot_plot_data_3d.f90.html
index 12bf5a64..8b98f6be 100644
--- a/doc/sourcefile/fplot_plot_data_3d.f90.html
+++ b/doc/sourcefile/fplot_plot_data_3d.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_3d.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.5% of total for source files.">316 statements</a>
+                 title=" 3.2% of total for source files.">316 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -617,7 +617,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data_bar.f90.html b/doc/sourcefile/fplot_plot_data_bar.f90.html
index 81cb9c7c..083768b7 100644
--- a/doc/sourcefile/fplot_plot_data_bar.f90.html
+++ b/doc/sourcefile/fplot_plot_data_bar.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_bar.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 6.3% of total for source files.">570 statements</a>
+                 title=" 5.8% of total for source files.">570 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -1090,7 +1090,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data_box_whisker.f90.html b/doc/sourcefile/fplot_plot_data_box_whisker.f90.html
index 5cf5f8fd..d8b27ac0 100644
--- a/doc/sourcefile/fplot_plot_data_box_whisker.f90.html
+++ b/doc/sourcefile/fplot_plot_data_box_whisker.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_box_whisker.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 3.1% of total for source files.">282 statements</a>
+                 title=" 2.9% of total for source files.">282 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -642,7 +642,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data_error_bars.f90.html b/doc/sourcefile/fplot_plot_data_error_bars.f90.html
index 75054f33..63e9ee18 100644
--- a/doc/sourcefile/fplot_plot_data_error_bars.f90.html
+++ b/doc/sourcefile/fplot_plot_data_error_bars.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_error_bars.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 5.4% of total for source files.">483 statements</a>
+                 title=" 4.9% of total for source files.">483 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -923,7 +923,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data_function.f90.html b/doc/sourcefile/fplot_plot_data_function.f90.html
index c9a66d79..d809dd56 100644
--- a/doc/sourcefile/fplot_plot_data_function.f90.html
+++ b/doc/sourcefile/fplot_plot_data_function.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_function.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.6% of total for source files.">143 statements</a>
+                 title=" 1.5% of total for source files.">143 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -424,7 +424,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data_histogram.f90.html b/doc/sourcefile/fplot_plot_data_histogram.f90.html
index 73f68791..9aa960ba 100644
--- a/doc/sourcefile/fplot_plot_data_histogram.f90.html
+++ b/doc/sourcefile/fplot_plot_data_histogram.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_histogram.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.1% of total for source files.">188 statements</a>
+                 title=" 1.9% of total for source files.">188 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -492,7 +492,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_data_tri_2d.f90.html b/doc/sourcefile/fplot_plot_data_tri_2d.f90.html
index 8b34bc8a..56000e40 100644
--- a/doc/sourcefile/fplot_plot_data_tri_2d.f90.html
+++ b/doc/sourcefile/fplot_plot_data_tri_2d.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_data_tri_2d.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.9% of total for source files.">167 statements</a>
+                 title=" 1.7% of total for source files.">167 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -463,7 +463,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_object.f90.html b/doc/sourcefile/fplot_plot_object.f90.html
index d31997bb..608de41f 100644
--- a/doc/sourcefile/fplot_plot_object.f90.html
+++ b/doc/sourcefile/fplot_plot_object.f90.html
@@ -190,7 +190,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_plot_polar.f90.html b/doc/sourcefile/fplot_plot_polar.f90.html
index c41b4a8e..c126ed06 100644
--- a/doc/sourcefile/fplot_plot_polar.f90.html
+++ b/doc/sourcefile/fplot_plot_polar.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_plot_polar.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.7% of total for source files.">240 statements</a>
+                 title=" 2.4% of total for source files.">240 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -600,7 +600,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_png_terminal.f90.html b/doc/sourcefile/fplot_png_terminal.f90.html
index 0aeaef5d..96b349a3 100644
--- a/doc/sourcefile/fplot_png_terminal.f90.html
+++ b/doc/sourcefile/fplot_png_terminal.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_png_terminal.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.3% of total for source files.">23 statements</a>
+                 title=" 0.2% of total for source files.">23 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -204,7 +204,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_qt_terminal.f90.html b/doc/sourcefile/fplot_qt_terminal.f90.html
index 29b00235..a8b1b781 100644
--- a/doc/sourcefile/fplot_qt_terminal.f90.html
+++ b/doc/sourcefile/fplot_qt_terminal.f90.html
@@ -199,7 +199,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_simplify.f90.html b/doc/sourcefile/fplot_simplify.f90.html
index 841b3f42..232e0f38 100644
--- a/doc/sourcefile/fplot_simplify.f90.html
+++ b/doc/sourcefile/fplot_simplify.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_simplify.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.4% of total for source files.">218 statements</a>
+                 title=" 2.2% of total for source files.">218 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -521,7 +521,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_stats_plots.f90.html b/doc/sourcefile/fplot_stats_plots.f90.html
index 4d29363b..e5627e68 100644
--- a/doc/sourcefile/fplot_stats_plots.f90.html
+++ b/doc/sourcefile/fplot_stats_plots.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_stats_plots.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.3% of total for source files.">203 statements</a>
+                 title=" 2.1% of total for source files.">203 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -523,7 +523,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_surface_plot.f90.html b/doc/sourcefile/fplot_surface_plot.f90.html
index 989024be..f6d9c523 100644
--- a/doc/sourcefile/fplot_surface_plot.f90.html
+++ b/doc/sourcefile/fplot_surface_plot.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_surface_plot.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.0% of total for source files.">183 statements</a>
+                 title=" 1.9% of total for source files.">183 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -580,7 +580,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_surface_plot_data.f90.html b/doc/sourcefile/fplot_surface_plot_data.f90.html
index 3a6c14a8..7d5c957d 100644
--- a/doc/sourcefile/fplot_surface_plot_data.f90.html
+++ b/doc/sourcefile/fplot_surface_plot_data.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_surface_plot_data.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.3% of total for source files.">208 statements</a>
+                 title=" 2.1% of total for source files.">208 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -502,7 +502,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_svg_terminal.f90.html b/doc/sourcefile/fplot_svg_terminal.f90.html
index d4b7b387..6ec7b431 100644
--- a/doc/sourcefile/fplot_svg_terminal.f90.html
+++ b/doc/sourcefile/fplot_svg_terminal.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_svg_terminal.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 0.3% of total for source files.">23 statements</a>
+                 title=" 0.2% of total for source files.">23 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -202,7 +202,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_terminal.f90.html b/doc/sourcefile/fplot_terminal.f90.html
index 1b637911..844c93e2 100644
--- a/doc/sourcefile/fplot_terminal.f90.html
+++ b/doc/sourcefile/fplot_terminal.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_terminal.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.4% of total for source files.">214 statements</a>
+                 title=" 2.2% of total for source files.">214 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -498,7 +498,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_tri_surface_plot_data.f90.html b/doc/sourcefile/fplot_tri_surface_plot_data.f90.html
index 4ebf6157..e2c1f803 100644
--- a/doc/sourcefile/fplot_tri_surface_plot_data.f90.html
+++ b/doc/sourcefile/fplot_tri_surface_plot_data.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_tri_surface_plot_data.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.6% of total for source files.">145 statements</a>
+                 title=" 1.5% of total for source files.">145 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -407,7 +407,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_triangulations_delaunay_2d.f90.html b/doc/sourcefile/fplot_triangulations_delaunay_2d.f90.html
index 7a54cf49..3d6ca1fb 100644
--- a/doc/sourcefile/fplot_triangulations_delaunay_2d.f90.html
+++ b/doc/sourcefile/fplot_triangulations_delaunay_2d.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_triangulations_delaunay_2d.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 1.6% of total for source files.">148 statements</a>
+                 title=" 1.5% of total for source files.">148 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -153,7 +153,7 @@ <h4 class="card-header bg-primary text-white">Modules</h4>
         <h2><span class="anchor" id="src"></span>Source Code</h2>
         <div class="hl codehilite"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="k">module </span><span class="n">fplot_triangulations_delaunay_2d</span>
 <a id="ln-2" name="ln-2" href="#ln-2"></a><span class="w">    </span><span class="k">use </span><span class="n">iso_fortran_env</span>
-<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="w">    </span><span class="k">use </span><span class="n">geompack</span>
+<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="w">    </span><span class="k">use </span><span class="n">delaunay</span>
 <a id="ln-4" name="ln-4" href="#ln-4"></a><span class="w">    </span><span class="k">use </span><span class="n">fplot_errors</span>
 <a id="ln-5" name="ln-5" href="#ln-5"></a><span class="w">    </span><span class="k">implicit none</span>
 <a id="ln-6" name="ln-6" href="#ln-6"></a><span class="k">    private</span>
@@ -420,7 +420,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_vector_field_plot_data.f90.html b/doc/sourcefile/fplot_vector_field_plot_data.f90.html
index 3e601110..912aa06b 100644
--- a/doc/sourcefile/fplot_vector_field_plot_data.f90.html
+++ b/doc/sourcefile/fplot_vector_field_plot_data.f90.html
@@ -74,7 +74,7 @@ <h1>fplot_vector_field_plot_data.f90
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title=" 2.3% of total for source files.">208 statements</a>
+                 title=" 2.1% of total for source files.">208 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -495,7 +495,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_windows_terminal.f90.html b/doc/sourcefile/fplot_windows_terminal.f90.html
index c3ab7dc7..a7267faf 100644
--- a/doc/sourcefile/fplot_windows_terminal.f90.html
+++ b/doc/sourcefile/fplot_windows_terminal.f90.html
@@ -201,7 +201,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/sourcefile/fplot_wxt_terminal.f90.html b/doc/sourcefile/fplot_wxt_terminal.f90.html
index 414dc0a5..fa560dda 100644
--- a/doc/sourcefile/fplot_wxt_terminal.f90.html
+++ b/doc/sourcefile/fplot_wxt_terminal.f90.html
@@ -199,7 +199,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/src/delaunay.f90 b/doc/src/delaunay.f90
new file mode 100644
index 00000000..b81426df
--- /dev/null
+++ b/doc/src/delaunay.f90
@@ -0,0 +1,884 @@
+module delaunay
+    !! Provides a minimal, in-house implementation of the subset of the
+    !! GEOMPACK library used by FPLOT to construct 2D Delaunay
+    !! triangulations.
+    !!
+    !! Original FORTRAN77 version by Barry Joe.  FORTRAN90 version by
+    !! John Burkardt.  Reference: Barry Joe, GEOMPACK - a software
+    !! package for the generation of meshes using geometric algorithms,
+    !! Advances in Engineering Software, Volume 13, pages 325-331, 1991.
+    use iso_fortran_env, only : int32, real64
+    implicit none
+    private
+    public :: r8tris2
+
+contains
+! ------------------------------------------------------------------------------
+    subroutine r8tris2(node_num, node_xy, triangle_num, triangle_node, &
+            triangle_neighbor)
+        !! Constructs a Delaunay triangulation of 2D vertices.
+        !!
+        !! The routine constructs the Delaunay triangulation of a set of
+        !! 2D vertices using an incremental approach and diagonal edge
+        !! swaps.  Vertices are first sorted in lexicographically
+        !! increasing (X,Y) order, and then are inserted one at a time
+        !! from outside the convex hull.
+        integer(int32), intent(in) :: node_num
+            !! The number of vertices.
+        real(real64), intent(inout), dimension(2, node_num) :: node_xy
+            !! The coordinates of the vertices.  On output, the vertices
+            !! have been sorted into dictionary order.
+        integer(int32), intent(out) :: triangle_num
+            !! The number of triangles in the triangulation;
+            !! TRIANGLE_NUM is equal to 2*NODE_NUM - NB - 2, where NB is
+            !! the number of boundary vertices.
+        integer(int32), intent(out), dimension(3, 2 * node_num) :: &
+            triangle_node
+            !! The nodes that make up each triangle.  The elements are
+            !! indices of the vertex array.  The vertices of the
+            !! triangles are in counter clockwise order.
+        integer(int32), intent(out), dimension(3, 2 * node_num) :: &
+            triangle_neighbor
+            !! The triangle neighbor list.  Positive elements are
+            !! indices of TRIANGLE_NODE; negative elements are used for
+            !! links of a counter clockwise linked list of boundary
+            !! edges; LINK = -(3*I + J-1) where I, J = triangle, edge
+            !! index; TRIANGLE_NEIGHBOR(J,I) refers to the neighbor
+            !! along the edge from vertex J to J+1 (mod 3).
+
+        ! Local Variables
+        real(real64) :: cmax, tol
+        integer(int32) :: e, i, j, k, l, ledg, lr, ltri, m, m1, m2, &
+            n, redg, rtri, t, top
+        integer(int32), dimension(node_num) :: indx, stack
+
+        ! Initialization
+        tol = 100.0d0 * epsilon(tol)
+
+        ! Sort the vertices by increasing (x,y)
+        call r82vec_sort_heap_index_a(node_num, node_xy, indx)
+        call r82vec_permute(node_num, node_xy, indx)
+
+        ! Make sure that the data points are "reasonably" distinct
+        m1 = 1
+        do i = 2, node_num
+            m = m1
+            m1 = i
+            k = 0
+            do j = 1, 2
+                cmax = max(abs(node_xy(j, m)), abs(node_xy(j, m1)))
+                if (tol * (cmax + 1.0d0) < &
+                        abs(node_xy(j, m) - node_xy(j, m1))) then
+                    k = j
+                    exit
+                end if
+            end do
+            if (k == 0) then
+                error stop &
+                    "R8TRIS2 - Fatal error!  Two points are too close together."
+            end if
+        end do
+
+        ! Starting from points M1 and M2, search for a third point M that
+        ! makes a "healthy" triangle (M1,M2,M)
+        m1 = 1
+        m2 = 2
+        j = 3
+        do
+            if (node_num < j) then
+                error stop &
+                    "R8TRIS2 - Fatal error!  Could not find a non-collinear point."
+            end if
+
+            m = j
+            lr = lrline(node_xy(1, m), node_xy(2, m), node_xy(1, m1), &
+                node_xy(2, m1), node_xy(1, m2), node_xy(2, m2), 0.0d0)
+            if (lr /= 0) exit
+            j = j + 1
+        end do
+
+        ! Set up the triangle information for (M1,M2,M), and for any
+        ! other triangles created because points were collinear with M1,
+        ! M2
+        triangle_num = j - 2
+
+        if (lr == -1) then
+            triangle_node(1, 1) = m1
+            triangle_node(2, 1) = m2
+            triangle_node(3, 1) = m
+            triangle_neighbor(3, 1) = -3
+
+            do i = 2, triangle_num
+                m1 = m2
+                m2 = i + 1
+                triangle_node(1, i) = m1
+                triangle_node(2, i) = m2
+                triangle_node(3, i) = m
+                triangle_neighbor(1, i - 1) = -3 * i
+                triangle_neighbor(2, i - 1) = i
+                triangle_neighbor(3, i) = i - 1
+            end do
+
+            triangle_neighbor(1, triangle_num) = -3 * triangle_num - 1
+            triangle_neighbor(2, triangle_num) = -5
+            ledg = 2
+            ltri = triangle_num
+        else
+            triangle_node(1, 1) = m2
+            triangle_node(2, 1) = m1
+            triangle_node(3, 1) = m
+            triangle_neighbor(1, 1) = -4
+
+            do i = 2, triangle_num
+                m1 = m2
+                m2 = i + 1
+                triangle_node(1, i) = m2
+                triangle_node(2, i) = m1
+                triangle_node(3, i) = m
+                triangle_neighbor(3, i - 1) = i
+                triangle_neighbor(1, i) = -3 * i - 3
+                triangle_neighbor(2, i) = i - 1
+            end do
+
+            triangle_neighbor(3, triangle_num) = -3 * triangle_num
+            triangle_neighbor(2, 1) = -3 * triangle_num - 2
+            ledg = 2
+            ltri = 1
+        end if
+
+        ! Insert the vertices one at a time from outside the convex
+        ! hull, determine visible boundary edges, and apply diagonal
+        ! edge swaps until the Delaunay triangulation of the vertices
+        ! (so far) is obtained
+        top = 0
+
+        do i = j + 1, node_num
+            m = i
+            m1 = triangle_node(ledg, ltri)
+
+            if (ledg <= 2) then
+                m2 = triangle_node(ledg + 1, ltri)
+            else
+                m2 = triangle_node(1, ltri)
+            end if
+
+            lr = lrline(node_xy(1, m), node_xy(2, m), node_xy(1, m1), &
+                node_xy(2, m1), node_xy(1, m2), node_xy(2, m2), 0.0d0)
+
+            if (0 < lr) then
+                rtri = ltri
+                redg = ledg
+                ltri = 0
+            else
+                l = -triangle_neighbor(ledg, ltri)
+                rtri = l / 3
+                redg = mod(l, 3) + 1
+            end if
+
+            call vbedg(node_xy(1, m), node_xy(2, m), node_num, node_xy, &
+                triangle_num, triangle_node, triangle_neighbor, ltri, &
+                ledg, rtri, redg)
+
+            n = triangle_num + 1
+            l = -triangle_neighbor(ledg, ltri)
+
+            do
+                t = l / 3
+                e = mod(l, 3) + 1
+                l = -triangle_neighbor(e, t)
+                m2 = triangle_node(e, t)
+
+                if (e <= 2) then
+                    m1 = triangle_node(e + 1, t)
+                else
+                    m1 = triangle_node(1, t)
+                end if
+
+                triangle_num = triangle_num + 1
+                triangle_neighbor(e, t) = triangle_num
+                triangle_node(1, triangle_num) = m1
+                triangle_node(2, triangle_num) = m2
+                triangle_node(3, triangle_num) = m
+                triangle_neighbor(1, triangle_num) = t
+                triangle_neighbor(2, triangle_num) = triangle_num - 1
+                triangle_neighbor(3, triangle_num) = triangle_num + 1
+                top = top + 1
+
+                if (node_num < top) then
+                    error stop "R8TRIS2 - Fatal error!  Stack overflow."
+                end if
+
+                stack(top) = triangle_num
+
+                if (t == rtri .and. e == redg) exit
+            end do
+
+            triangle_neighbor(ledg, ltri) = -3 * n - 1
+            triangle_neighbor(2, n) = -3 * triangle_num - 2
+            triangle_neighbor(3, triangle_num) = -l
+            ltri = n
+            ledg = 2
+
+            call swapec(m, top, ltri, ledg, node_num, node_xy, &
+                triangle_num, triangle_node, triangle_neighbor, stack)
+        end do
+
+        ! Now account for the sorting that was done
+        do i = 1, 3
+            do j = 1, triangle_num
+                triangle_node(i, j) = indx(triangle_node(i, j))
+            end do
+        end do
+
+        call perm_inverse(node_num, indx)
+        call r82vec_permute(node_num, node_xy, indx)
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure subroutine r82vec_sort_heap_index_a(n, a, indx)
+        !! Computes an indexed heap ascending sort of an R82VEC.
+        !!
+        !! The sorting is not actually carried out.  Rather an index
+        !! array is created which defines the sorting.
+        integer(int32), intent(in) :: n
+            !! The number of entries in the array.
+        real(real64), intent(in), dimension(2, n) :: a
+            !! The array to be index-sorted.
+        integer(int32), intent(out), dimension(n) :: indx
+            !! The sort index.  The I-th element of the sorted array is
+            !! A(1:2,INDX(I)).
+
+        ! Local Variables
+        real(real64), dimension(2) :: aval
+        integer(int32) :: i, indxt, ir, j, l
+
+        if (n < 1) return
+
+        do i = 1, n
+            indx(i) = i
+        end do
+
+        if (n == 1) return
+
+        l = n / 2 + 1
+        ir = n
+
+        do
+            if (1 < l) then
+                l = l - 1
+                indxt = indx(l)
+                aval = a(:, indxt)
+            else
+                indxt = indx(ir)
+                aval = a(:, indxt)
+                indx(ir) = indx(1)
+                ir = ir - 1
+                if (ir == 1) then
+                    indx(1) = indxt
+                    exit
+                end if
+            end if
+
+            i = l
+            j = l + l
+
+            do while (j <= ir)
+                if (j < ir) then
+                    if (a(1, indx(j)) < a(1, indx(j + 1)) .or. &
+                            (a(1, indx(j)) == a(1, indx(j + 1)) .and. &
+                            a(2, indx(j)) < a(2, indx(j + 1)))) then
+                        j = j + 1
+                    end if
+                end if
+
+                if (aval(1) < a(1, indx(j)) .or. &
+                        (aval(1) == a(1, indx(j)) .and. &
+                        aval(2) < a(2, indx(j)))) then
+                    indx(i) = indx(j)
+                    i = j
+                    j = j + j
+                else
+                    j = ir + 1
+                end if
+            end do
+
+            indx(i) = indxt
+        end do
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    subroutine r82vec_permute(n, a, p)
+        !! Permutes an R82VEC in place, according to a given permutation.
+        integer(int32), intent(in) :: n
+            !! The number of objects.
+        real(real64), intent(inout), dimension(2, n) :: a
+            !! The array to be permuted.
+        integer(int32), intent(inout), dimension(n) :: p
+            !! The permutation.  P(I) = J means that the I-th element of
+            !! the output array should be the J-th element of the input
+            !! array.
+
+        ! Local Variables
+        real(real64), dimension(2) :: a_temp
+        integer(int32) :: ierror, iget, iput, istart
+
+        call perm_check(n, p, ierror)
+        if (ierror /= 0) then
+            error stop &
+                "R82VEC_PERMUTE - Fatal error!  P does not represent a permutation."
+        end if
+
+        do istart = 1, n
+            if (p(istart) < 0) then
+                cycle
+            else if (p(istart) == istart) then
+                p(istart) = -p(istart)
+                cycle
+            else
+                a_temp = a(:, istart)
+                iget = istart
+
+                do
+                    iput = iget
+                    iget = p(iget)
+                    p(iput) = -p(iput)
+
+                    if (iget < 1 .or. n < iget) then
+                        error stop &
+                            "R82VEC_PERMUTE - Fatal error!  Invalid permutation entry."
+                    end if
+
+                    if (iget == istart) then
+                        a(:, iput) = a_temp
+                        exit
+                    end if
+
+                    a(:, iput) = a(:, iget)
+                end do
+            end if
+        end do
+
+        p = -p
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure subroutine perm_check(n, p, ierror)
+        !! Checks that a vector represents a permutation.
+        integer(int32), intent(in) :: n
+            !! The number of entries.
+        integer(int32), intent(in), dimension(n) :: p
+            !! The array to check.
+        integer(int32), intent(out) :: ierror
+            !! 0 if the array represents a permutation; otherwise, the
+            !! smallest missing value.
+
+        ! Local Variables
+        integer(int32) :: ifind, iseek
+
+        ierror = 0
+        do iseek = 1, n
+            ierror = iseek
+            do ifind = 1, n
+                if (p(ifind) == iseek) then
+                    ierror = 0
+                    exit
+                end if
+            end do
+            if (ierror /= 0) return
+        end do
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    subroutine perm_inverse(n, p)
+        !! Inverts a permutation in-place.
+        integer(int32), intent(in) :: n
+            !! The number of objects being permuted.
+        integer(int32), intent(inout), dimension(n) :: p
+            !! The permutation, in standard index form.  On output, P
+            !! describes the inverse permutation.
+
+        ! Local Variables
+        integer(int32) :: i, i0, i1, i2, ierror, is
+
+        if (n <= 0) then
+            error stop "PERM_INVERSE - Fatal error!  N <= 0."
+        end if
+
+        call perm_check(n, p, ierror)
+        if (ierror /= 0) then
+            error stop &
+                "PERM_INVERSE - Fatal error!  P does not represent a permutation."
+        end if
+
+        is = 1
+        do i = 1, n
+            i1 = p(i)
+            do while (i < i1)
+                i2 = p(i1)
+                p(i1) = -i2
+                i1 = i2
+            end do
+            is = -sign(1, p(i))
+            p(i) = sign(p(i), is)
+        end do
+
+        do i = 1, n
+            i1 = -p(i)
+            if (0 <= i1) then
+                i0 = i
+                do
+                    i2 = p(i1)
+                    p(i1) = i0
+                    if (i2 < 0) exit
+                    i0 = i1
+                    i1 = i2
+                end do
+            end if
+        end do
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function lrline(xu, yu, xv1, yv1, xv2, yv2, dv) result(rst)
+        !! Determines if a point is left of, right of, or on a directed
+        !! line.
+        !!
+        !! The directed line is parallel to, and at a signed distance DV
+        !! from a directed base line from (XV1,YV1) to (XV2,YV2).
+        real(real64), intent(in) :: xu
+            !! The x-coordinate of the point whose position relative to
+            !! the directed line is to be determined.
+        real(real64), intent(in) :: yu
+            !! The y-coordinate of the point whose position relative to
+            !! the directed line is to be determined.
+        real(real64), intent(in) :: xv1
+            !! The x-coordinate of the first point defining the base
+            !! line.
+        real(real64), intent(in) :: yv1
+            !! The y-coordinate of the first point defining the base
+            !! line.
+        real(real64), intent(in) :: xv2
+            !! The x-coordinate of the second point defining the base
+            !! line.
+        real(real64), intent(in) :: yv2
+            !! The y-coordinate of the second point defining the base
+            !! line.
+        real(real64), intent(in) :: dv
+            !! The signed distance of the directed line from the
+            !! directed base line.  DV is positive for a line to the
+            !! left of the base line.
+        integer(int32) :: rst
+            !! +1 if the point is to the right of the directed line; 0 if
+            !! the point is on the directed line; -1 if the point is to
+            !! the left of the directed line.
+
+        ! Local Variables
+        real(real64) :: dx, dxu, dy, dyu, t, tol, tolabs
+
+        tol = 100.0d0 * epsilon(tol)
+
+        dx = xv2 - xv1
+        dy = yv2 - yv1
+        dxu = xu - xv1
+        dyu = yu - yv1
+
+        tolabs = tol * max(abs(dx), abs(dy), abs(dxu), abs(dyu), abs(dv))
+
+        t = dy * dxu - dx * dyu + dv * sqrt(dx * dx + dy * dy)
+
+        if (tolabs < t) then
+            rst = 1
+        else if (-tolabs <= t) then
+            rst = 0
+        else
+            rst = -1
+        end if
+    end function
+
+! ------------------------------------------------------------------------------
+    pure function diaedg(x0, y0, x1, y1, x2, y2, x3, y3) result(rst)
+        !! Chooses a diagonal edge.
+        !!
+        !! The routine determines whether 0--2 or 1--3 is the diagonal
+        !! edge that should be chosen, based on the circumcircle
+        !! criterion, where (X0,Y0), (X1,Y1), (X2,Y2), (X3,Y3) are the
+        !! vertices of a simple quadrilateral in counterclockwise order.
+        real(real64), intent(in) :: x0, y0, x1, y1, x2, y2, x3, y3
+            !! The coordinates of the vertices of the quadrilateral.
+        integer(int32) :: rst
+            !! +1 if diagonal edge 02 is chosen; -1 if diagonal edge 13
+            !! is chosen; 0 if the four vertices are cocircular.
+
+        ! Local Variables
+        real(real64) :: ca, cb, dx10, dx12, dx30, dx32, dy10, dy12, dy30, &
+            dy32, s, tol, tola, tolb
+
+        tol = 100.0d0 * epsilon(tol)
+
+        dx10 = x1 - x0
+        dy10 = y1 - y0
+        dx12 = x1 - x2
+        dy12 = y1 - y2
+        dx30 = x3 - x0
+        dy30 = y3 - y0
+        dx32 = x3 - x2
+        dy32 = y3 - y2
+
+        tola = tol * max(abs(dx10), abs(dy10), abs(dx30), abs(dy30))
+        tolb = tol * max(abs(dx12), abs(dy12), abs(dx32), abs(dy32))
+
+        ca = dx10 * dx30 + dy10 * dy30
+        cb = dx12 * dx32 + dy12 * dy32
+
+        if (tola < ca .and. tolb < cb) then
+            rst = -1
+        else if (ca < -tola .and. cb < -tolb) then
+            rst = 1
+        else
+            tola = max(tola, tolb)
+            s = (dx10 * dy30 - dx30 * dy10) * cb + &
+                (dx32 * dy12 - dx12 * dy32) * ca
+            if (tola < s) then
+                rst = -1
+            else if (s < -tola) then
+                rst = 1
+            else
+                rst = 0
+            end if
+        end if
+    end function
+
+! ------------------------------------------------------------------------------
+    pure function i4_modp(i, j) result(rst)
+        !! Returns the nonnegative remainder of I4 division.
+        integer(int32), intent(in) :: i
+            !! The number to be divided.
+        integer(int32), intent(in) :: j
+            !! The number that divides I.
+        integer(int32) :: rst
+            !! The nonnegative remainder when I is divided by J.
+
+        rst = mod(i, j)
+        if (rst < 0) rst = rst + abs(j)
+    end function
+
+! ------------------------------------------------------------------------------
+    pure function i4_wrap(ival, ilo, ihi) result(rst)
+        !! Forces an I4 to lie between given limits by wrapping.
+        integer(int32), intent(in) :: ival
+            !! The value to wrap.
+        integer(int32), intent(in) :: ilo
+            !! The lower bound.
+        integer(int32), intent(in) :: ihi
+            !! The upper bound.
+        integer(int32) :: rst
+            !! A "wrapped" version of IVAL.
+
+        ! Local Variables
+        integer(int32) :: jhi, jlo, wide
+
+        jlo = min(ilo, ihi)
+        jhi = max(ilo, ihi)
+        wide = jhi - jlo + 1
+
+        if (wide == 1) then
+            rst = jlo
+        else
+            rst = jlo + i4_modp(ival - jlo, wide)
+        end if
+    end function
+
+! ------------------------------------------------------------------------------
+    pure subroutine vbedg(x, y, node_num, node_xy, triangle_num, &
+            triangle_node, triangle_neighbor, ltri, ledg, rtri, redg)
+        !! Determines which boundary edges are visible to a point.
+        !!
+        !! The point (X,Y) is assumed to be outside the convex hull of
+        !! the region covered by the 2D triangulation.
+        real(real64), intent(in) :: x
+            !! The x-coordinate of a point outside the convex hull of
+            !! the current triangulation.
+        real(real64), intent(in) :: y
+            !! The y-coordinate of a point outside the convex hull of
+            !! the current triangulation.
+        integer(int32), intent(in) :: node_num
+            !! The number of points.
+        real(real64), intent(in), dimension(2, node_num) :: node_xy
+            !! The coordinates of the vertices.
+        integer(int32), intent(in) :: triangle_num
+            !! The number of triangles.
+        integer(int32), intent(in), dimension(3, triangle_num) :: &
+            triangle_node
+            !! The triangle incidence list.
+        integer(int32), intent(in), dimension(3, triangle_num) :: &
+            triangle_neighbor
+            !! The triangle neighbor list; negative values are used for
+            !! links of a counterclockwise linked list of boundary
+            !! edges; LINK = -(3*I + J-1) where I, J = triangle, edge
+            !! index.
+        integer(int32), intent(inout) :: ltri
+            !! If LTRI /= 0 then this value is assumed to be already
+            !! computed and is not changed, else it is updated.  On
+            !! output, LTRI is the index of the boundary triangle to the
+            !! left of the leftmost boundary triangle visible from
+            !! (X,Y).
+        integer(int32), intent(inout) :: ledg
+            !! The boundary edge of triangle LTRI to the left of the
+            !! leftmost boundary edge visible from (X,Y).  1 <= LEDG <=
+            !! 3.
+        integer(int32), intent(inout) :: rtri
+            !! On input, the index of the boundary triangle to begin the
+            !! search at.  On output, the index of the rightmost
+            !! boundary triangle visible from (X,Y).
+        integer(int32), intent(inout) :: redg
+            !! The edge of triangle RTRI that is visible from (X,Y).
+            !! 1 <= REDG <= 3.
+
+        ! Local Variables
+        integer(int32) :: a, b, e, l, lr, t
+        logical :: ldone
+
+        ! Find the rightmost visible boundary edge using links, then
+        ! possibly the leftmost visible boundary edge using triangle
+        ! neighbor information
+        if (ltri == 0) then
+            ldone = .false.
+            ltri = rtri
+            ledg = redg
+        else
+            ldone = .true.
+        end if
+
+        do
+            l = -triangle_neighbor(redg, rtri)
+            t = l / 3
+            e = mod(l, 3) + 1
+            a = triangle_node(e, t)
+
+            if (e <= 2) then
+                b = triangle_node(e + 1, t)
+            else
+                b = triangle_node(1, t)
+            end if
+
+            lr = lrline(x, y, node_xy(1, a), node_xy(2, a), &
+                node_xy(1, b), node_xy(2, b), 0.0d0)
+
+            if (lr <= 0) exit
+
+            rtri = t
+            redg = e
+        end do
+
+        if (ldone) return
+
+        t = ltri
+        e = ledg
+
+        do
+            b = triangle_node(e, t)
+            e = i4_wrap(e - 1, 1, 3)
+
+            do while (0 < triangle_neighbor(e, t))
+                t = triangle_neighbor(e, t)
+                if (triangle_node(1, t) == b) then
+                    e = 3
+                else if (triangle_node(2, t) == b) then
+                    e = 1
+                else
+                    e = 2
+                end if
+            end do
+
+            a = triangle_node(e, t)
+
+            lr = lrline(x, y, node_xy(1, a), node_xy(2, a), &
+                node_xy(1, b), node_xy(2, b), 0.0d0)
+
+            if (lr <= 0) exit
+        end do
+
+        ltri = t
+        ledg = e
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure subroutine swapec(i, top, btri, bedg, node_num, node_xy, &
+            triangle_num, triangle_node, triangle_neighbor, stack)
+        !! Swaps diagonal edges until all triangles are Delaunay.
+        !!
+        !! The routine swaps diagonal edges in a 2D triangulation, based
+        !! on the empty circumcircle criterion, until all triangles are
+        !! Delaunay, given that I is the index of the new vertex added
+        !! to the triangulation.
+        integer(int32), intent(in) :: i
+            !! The index of the new vertex.
+        integer(int32), intent(inout) :: top
+            !! The index of the top of the stack.  On output, TOP is
+            !! zero.
+        integer(int32), intent(inout) :: btri
+            !! On input, if positive, the triangle index of a boundary
+            !! edge whose updated index must be recorded.  On output,
+            !! this may be updated because of swaps.
+        integer(int32), intent(inout) :: bedg
+            !! On input, if positive, the edge index of a boundary edge
+            !! whose updated index must be recorded.  On output, this
+            !! may be updated because of swaps.
+        integer(int32), intent(in) :: node_num
+            !! The number of points.
+        real(real64), intent(in), dimension(2, node_num) :: node_xy
+            !! The coordinates of the points.
+        integer(int32), intent(in) :: triangle_num
+            !! The number of triangles.
+        integer(int32), intent(inout), dimension(3, triangle_num) :: &
+            triangle_node
+            !! The triangle incidence list.  May be updated on output
+            !! because of swaps.
+        integer(int32), intent(inout), dimension(3, triangle_num) :: &
+            triangle_neighbor
+            !! The triangle neighbor list; negative values are used for
+            !! links of the counter-clockwise linked list of boundary
+            !! edges.  May be updated on output because of swaps.
+        integer(int32), intent(inout), dimension(node_num) :: stack
+            !! On input, entries 1 through TOP contain the indices of
+            !! initial triangles (involving vertex I) put in the stack;
+            !! the edges opposite I should be in the interior; entries
+            !! TOP+1 through NODE_NUM are used as a stack.
+
+        ! Local Variables
+        integer(int32) :: a, b, c, e, ee, em1, ep1, f, fm1, fp1, l, r, s, &
+            swap, t, tt, u
+        real(real64) :: x, y
+
+        x = node_xy(1, i)
+        y = node_xy(2, i)
+
+        do
+            if (top <= 0) exit
+
+            t = stack(top)
+            top = top - 1
+
+            if (triangle_node(1, t) == i) then
+                e = 2
+                b = triangle_node(3, t)
+            else if (triangle_node(2, t) == i) then
+                e = 3
+                b = triangle_node(1, t)
+            else
+                e = 1
+                b = triangle_node(2, t)
+            end if
+
+            a = triangle_node(e, t)
+            u = triangle_neighbor(e, t)
+
+            if (triangle_neighbor(1, u) == t) then
+                f = 1
+                c = triangle_node(3, u)
+            else if (triangle_neighbor(2, u) == t) then
+                f = 2
+                c = triangle_node(1, u)
+            else
+                f = 3
+                c = triangle_node(2, u)
+            end if
+
+            swap = diaedg(x, y, node_xy(1, a), node_xy(2, a), &
+                node_xy(1, c), node_xy(2, c), node_xy(1, b), &
+                node_xy(2, b))
+
+            if (swap == 1) then
+                em1 = i4_wrap(e - 1, 1, 3)
+                ep1 = i4_wrap(e + 1, 1, 3)
+                fm1 = i4_wrap(f - 1, 1, 3)
+                fp1 = i4_wrap(f + 1, 1, 3)
+
+                triangle_node(ep1, t) = c
+                triangle_node(fp1, u) = i
+                r = triangle_neighbor(ep1, t)
+                s = triangle_neighbor(fp1, u)
+                triangle_neighbor(ep1, t) = u
+                triangle_neighbor(fp1, u) = t
+                triangle_neighbor(e, t) = s
+                triangle_neighbor(f, u) = r
+
+                if (0 < triangle_neighbor(fm1, u)) then
+                    top = top + 1
+                    stack(top) = u
+                end if
+
+                if (0 < s) then
+                    if (triangle_neighbor(1, s) == u) then
+                        triangle_neighbor(1, s) = t
+                    else if (triangle_neighbor(2, s) == u) then
+                        triangle_neighbor(2, s) = t
+                    else
+                        triangle_neighbor(3, s) = t
+                    end if
+
+                    top = top + 1
+                    if (node_num < top) then
+                        error stop "SWAPEC - Fatal error!  Stack overflow."
+                    end if
+                    stack(top) = t
+                else
+                    if (u == btri .and. fp1 == bedg) then
+                        btri = t
+                        bedg = e
+                    end if
+
+                    l = -(3 * t + e - 1)
+                    tt = t
+                    ee = em1
+
+                    do while (0 < triangle_neighbor(ee, tt))
+                        tt = triangle_neighbor(ee, tt)
+                        if (triangle_node(1, tt) == a) then
+                            ee = 3
+                        else if (triangle_node(2, tt) == a) then
+                            ee = 1
+                        else
+                            ee = 2
+                        end if
+                    end do
+
+                    triangle_neighbor(ee, tt) = l
+                end if
+
+                if (0 < r) then
+                    if (triangle_neighbor(1, r) == t) then
+                        triangle_neighbor(1, r) = u
+                    else if (triangle_neighbor(2, r) == t) then
+                        triangle_neighbor(2, r) = u
+                    else
+                        triangle_neighbor(3, r) = u
+                    end if
+                else
+                    if (t == btri .and. ep1 == bedg) then
+                        btri = u
+                        bedg = f
+                    end if
+
+                    l = -(3 * u + f - 1)
+                    tt = u
+                    ee = fm1
+
+                    do while (0 < triangle_neighbor(ee, tt))
+                        tt = triangle_neighbor(ee, tt)
+                        if (triangle_node(1, tt) == b) then
+                            ee = 3
+                        else if (triangle_node(2, tt) == b) then
+                            ee = 1
+                        else
+                            ee = 2
+                        end if
+                    end do
+
+                    triangle_neighbor(ee, tt) = l
+                end if
+            end if
+        end do
+    end subroutine
+
+! ------------------------------------------------------------------------------
+end module
diff --git a/doc/src/fplot_colormap.f90 b/doc/src/fplot_colormap.f90
index da4ec14c..0bc91a3d 100644
--- a/doc/src/fplot_colormap.f90
+++ b/doc/src/fplot_colormap.f90
@@ -19,6 +19,7 @@ module fplot_colormap
     public :: grey_colormap
     public :: earth_colormap
     public :: custom_colormap
+    public :: spectral_colormap
 
     type, abstract, extends(plot_object) :: colormap
         !! A colormap object for a surface plot.
@@ -26,10 +27,24 @@ module fplot_colormap
             !! The label to associate with the colormap.
         logical, private :: m_horizontal = .false.
             !! The colormap should be drawn horizontally.
-        logical, private :: m_drawBorder = .true.
+        logical, private :: m_drawBorder = .false.
             !! Draw the colormap border.
-        logical, private :: m_showTics = .true.
+        logical, private :: m_showTics = .false.
             !! Show the tic marks.
+        real(real32), private :: m_colorbarThickness = 0.02
+            !! The relative thickness of the colorbar itself.  A value of 0
+            !! allows GNUPLOT to use it's defaults.  This value is clamped to
+            !! the range [0.0, 1.0].
+        real(real32), private :: m_colorbarLength = 0.4
+            !! The relative length of the colorbar itself.  A value of 0
+            !! allows GNUPLOT to use it's defaults.  This value is clamped to
+            !! the range [0.0, 1.0].
+        real(real32), private :: m_axesSize(2) = [0.85, 0.85]
+            !! The size of the axes size defined as [width, height] 
+            !! clamped to the interval [0.0, 1.0].
+        real(real32), private :: m_axesOrigin(2) = [0.05, 0.05]
+            !! The x-y coordinates of the axes clamped to the interval
+            !! [0.0, 1.0].
     contains
         procedure, public :: get_command_string => cm_get_cmd
         procedure(cm_get_string_result), deferred, public :: get_color_string
@@ -41,6 +56,14 @@ module fplot_colormap
         procedure, public :: set_draw_border => cm_set_draw_border
         procedure, public :: get_show_tics => cm_get_show_tics
         procedure, public :: set_show_tics => cm_set_show_tics
+        procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness
+        procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness
+        procedure, public :: get_colorbar_length => cm_get_colorbar_length
+        procedure, public :: set_colorbar_length => cm_set_colorbar_length
+        procedure, public :: get_axes_size => cm_get_axes_size
+        procedure, public :: set_axes_size => cm_set_axes_size
+        procedure, public :: get_axes_origin => cm_get_axes_origin
+        procedure, public :: set_axes_origin => cm_set_axes_origin
     end type
 
     interface
@@ -109,6 +132,13 @@ function cm_get_string_result(this) result(x)
     end type
 
 ! ------------------------------------------------------------------------------
+    type, extends(colormap) :: spectral_colormap
+        !! Defines the spectral colormap available at 
+        !! https://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal.
+    contains
+        procedure, public :: get_color_string => spcm_get_clr
+    end type
+
 contains
 ! ******************************************************************************
 ! COLORMAP MEMBERS
@@ -122,9 +152,14 @@ function cm_get_cmd(this) result(x)
 
         ! Local Variables
         type(string_builder) :: str
+        real(real32) :: sz(2), origin(2), length, thickness
 
         ! Initialization
         call str%initialize()
+        sz = this%get_axes_size()
+        origin = this%get_axes_origin()
+        length = this%get_colorbar_length()
+        thickness = this%get_colorbar_thickness()
 
         ! Palette Definition
         call str%append("set palette defined (")
@@ -143,14 +178,45 @@ function cm_get_cmd(this) result(x)
             call str%append(new_line('a'))
             call str%append("set colorbox horizontal")
             call str%append(new_line('a'))
-            call str%append("set size 0.8,0.8; set origin 0.1,0.2")
+            call str%append("set size ")
+            call str%append(to_string(sz(1)))
+            call str%append(",")
+            call str%append(to_string(sz(2)))
+            call str%append("; set origin ")
+            call str%append(to_string(origin(1)))
+            call str%append(",")
+            call str%append(to_string(origin(2) + 0.075))
             call str%append(new_line('a'))
-            call str%append("set colorbox user origin 0.1,0.175 size 0.8,0.055")
+            call str%append("set colorbox user origin ")
+            call str%append(to_string(0.5 - 0.5 * length))
+            call str%append(",0.1 size ")
+            call str%append(to_string(length))
+            call str%append(",")
+            call str%append(to_string(thickness))
 
             if (len(this%get_label()) > 0) then
                 call str%append(new_line('a'))
                 call str%append("set cblabel offset 0,0.8")
             end if
+        else
+            call str%append(new_line('a'))
+            call str%append("set colorbox vertical")
+            call str%append(new_line('a'))
+            call str%append("set size ")
+            call str%append(to_string(sz(1)))
+            call str%append(",")
+            call str%append(to_string(sz(2)))
+            call str%append("; set origin ")
+            call str%append(to_string(origin(1)))
+            call str%append(",")
+            call str%append(to_string(origin(2)))
+            call str%append(new_line('a'))
+            call str%append("set colorbox user origin 0.9,")
+            call str%append(to_string(0.5 - 0.5 * length))
+            call str%append(" size ")
+            call str%append(to_string(thickness))
+            call str%append(",")
+            call str%append(to_string(length))
         end if
 
         ! Border & Tic Marks
@@ -262,6 +328,86 @@ subroutine cm_set_show_tics(this, x)
         this%m_showTics = x
     end subroutine
 
+! ------------------------------------------------------------------------------
+    pure function cm_get_colorbar_thickness(this) result(rst)
+        !! Gets the relative thickness of the colorbar.
+        class(colormap), intent(in) :: this
+            !! The colormap object.
+        real(real32) :: rst
+            !! The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.
+        rst = this%m_colorbarThickness
+    end function
+
+! --------------------
+    subroutine cm_set_colorbar_thickness(this, x)
+        !! Sets the relative colorbar thickness, clamped to [0.0, 1.0].
+        class(colormap), intent(inout) :: this
+            !! The colormap object.
+        real(real32), intent(in) :: x
+            !! The requested thickness; 0 uses GNUPLOT's default.
+        this%m_colorbarThickness = max(0.0, min(1.0, x))
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function cm_get_colorbar_length(this) result(rst)
+        !! Gets the relative length of the colorbar.
+        class(colormap), intent(in) :: this
+            !! The colormap object.
+        real(real32) :: rst
+            !! The length in [0.0, 1.0]; 0 uses GNUPLOT's default.
+        rst = this%m_colorbarLength
+    end function
+
+! --------------------
+    subroutine cm_set_colorbar_length(this, x)
+        !! Sets the relative colorbar length, clamped to [0.0, 1.0].
+        class(colormap), intent(inout) :: this
+            !! The colormap object.
+        real(real32), intent(in) :: x
+            !! The requested length; 0 uses GNUPLOT's default.
+        this%m_colorbarLength = max(0.0, min(1.0, x))
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function cm_get_axes_size(this) result(rst)
+        !! Gets the relative width and height of the axes.
+        class(colormap), intent(in) :: this
+            !! The colormap object.
+        real(real32), dimension(2) :: rst
+            !! The [width, height], each in [0.0, 1.0].
+        rst = this%m_axesSize
+    end function
+
+! --------------------
+    subroutine cm_set_axes_size(this, x)
+        !! Sets the axes width and height, each clamped to [0.0, 1.0].
+        class(colormap), intent(inout) :: this
+            !! The colormap object.
+        real(real32), dimension(2), intent(in) :: x
+            !! The requested [width, height].
+        this%m_axesSize = max(0.0, min(1.0, x))
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function cm_get_axes_origin(this) result(rst)
+        !! Gets the relative x-y coordinates of the axes origin.
+        class(colormap), intent(in) :: this
+            !! The colormap object.
+        real(real32), dimension(2) :: rst
+            !! The [x, y] coordinates, each in [0.0, 1.0].
+        rst = this%m_axesOrigin
+    end function
+
+! --------------------
+    subroutine cm_set_axes_origin(this, x)
+        !! Sets the axes origin coordinates, each clamped to [0.0, 1.0].
+        class(colormap), intent(inout) :: this
+            !! The colormap object.
+        real(real32), dimension(2), intent(in) :: x
+            !! The requested [x, y] coordinates.
+        this%m_axesOrigin = max(0.0, min(1.0, x))
+    end subroutine
+
 ! ------------------------------------------------------------------------------
 ! TO DO:
 !   - Set user-defined tic labels & limits (ref: http://gnuplot.sourceforge.net/demo_5.4/cerf.html)
@@ -487,5 +633,29 @@ subroutine custom_final(this)
         end if
     end subroutine
 
+! ******************************************************************************
+! SPECTRAL_COLORMAP MEMBERS
+! ------------------------------------------------------------------------------
+    function spcm_get_clr(this) result(x)
+        !! Gets the GNUPLOT string defining the color distribution.
+        class(spectral_colormap), intent(in) :: this
+            !! The spectral_colormap object.
+        character(len = :), allocatable :: x
+            !! The command string.
+
+        type(string_builder) :: str
+
+        call str%append("0 '#D53E4F',")
+        call str%append("1 '#F46D43',")
+        call str%append("2 '#FDAE61',")
+        call str%append("3 '#FEE08B',")
+        call str%append("4 '#E6F598',")
+        call str%append("5 '#ABDDA4',")
+        call str%append("6 '#66C2A5',")
+        call str%append("7 '#3288BD'")
+
+        x = char(str%to_string())
+    end function
+
 ! ------------------------------------------------------------------------------
 end module
diff --git a/doc/src/fplot_multiplot.f90 b/doc/src/fplot_multiplot.f90
index 6dad1481..6ea6bb9c 100644
--- a/doc/src/fplot_multiplot.f90
+++ b/doc/src/fplot_multiplot.f90
@@ -34,6 +34,13 @@ module fplot_multiplot
             !! Has a title?
         class(terminal), pointer :: m_terminal => null()
             !! The GNUPLOT terminal object to target.
+        real(real32), private :: m_leftMargin = 0.12
+        real(real32), private :: m_rightMargin = 0.95
+        real(real32), private :: m_bottomMargin = 0.10
+        real(real32), private :: m_topMargin = 0.95
+        real(real32), private :: m_horizontalSpacing = 0.0
+        real(real32), private :: m_verticalSpacing = 0.0
+        logical, private :: m_useAutoMargins = .true.
     contains
         final :: mp_clean
         procedure, public :: get_command_string => mp_get_command
@@ -54,6 +61,20 @@ module fplot_multiplot
         procedure, public :: get_font_size => mp_get_font_size
         procedure, public :: set_font_size => mp_set_font_size
         procedure, public :: set_window_size => mp_set_window_size
+        procedure, public :: get_left_margin => mp_get_left_margin
+        procedure, public :: set_left_margin => mp_set_left_margin
+        procedure, public :: get_right_margin => mp_get_right_margin
+        procedure, public :: set_right_margin => mp_set_right_margin
+        procedure, public :: get_top_margin => mp_get_top_margin
+        procedure, public :: set_top_margin => mp_set_top_margin
+        procedure, public :: get_bottom_margin => mp_get_bottom_margin
+        procedure, public :: set_bottom_margin => mp_set_bottom_margin
+        procedure, public :: get_horizontal_spacing => mp_get_horizontal_spacing
+        procedure, public :: set_horizontal_spacing => mp_set_horizontal_spacing
+        procedure, public :: get_vertical_spacing => mp_get_vertical_spacing
+        procedure, public :: set_vertical_spacing => mp_set_vertical_spacing
+        procedure, public :: get_use_auto_generated_margins => mp_get_use_auto_generated_margins
+        procedure, public :: set_use_auto_generated_margins => mp_set_use_auto_generated_margins
     end type
 
 contains
@@ -87,6 +108,20 @@ function mp_get_command(this) result(x)
             call str%append(this%get_title())
             call str%append('"')
         end if
+        if (.not.this%get_use_auto_generated_margins()) then
+            call str%append(" margins ")
+            call str%append(to_string(this%get_left_margin()))
+            call str%append(",")
+            call str%append(to_string(this%get_right_margin()))
+            call str%append(",")
+            call str%append(to_string(this%get_bottom_margin()))
+            call str%append(",")
+            call str%append(to_string(this%get_top_margin()))
+        end if
+        call str%append(" spacing ")
+        call str%append(to_string(this%get_horizontal_spacing()))
+        call str%append(",")
+        call str%append(to_string(this%get_vertical_spacing()))
         call str%append(new_line('a'))
 
         ! Write commands for each plot object
@@ -506,8 +541,6 @@ subroutine mp_set_font_size(this, x)
         call term%set_font_size(x)
     end subroutine
 
-! ******************************************************************************
-! ADDED AUG. 16, 2026 - V1.9.0
 ! ------------------------------------------------------------------------------
     subroutine mp_set_window_size(this, width, height)
         !! Sets the height and width of the plot window.
@@ -524,5 +557,203 @@ subroutine mp_set_window_size(this, width, height)
         end if
     end subroutine
 
+! ------------------------------------------------------------------------------
+    pure function mp_get_left_margin(this) result(rst)
+        !! Gets the left margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The margin value.
+        rst = this%m_leftMargin
+    end function
+
+! --------------------
+    subroutine mp_set_left_margin(this, x)
+        !! Sets the left margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The margin value.  This value will be clamped to the range
+            !! [0, 1].
+        if (x < 0.0) then
+            this%m_leftMargin = 0.0
+        else if (x > 1.0) then
+            this%m_leftMargin = 1.0
+        else
+            this%m_leftMargin = x
+        end if
+        this%m_useAutoMargins = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_right_margin(this) result(rst)
+        !! Gets the right margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The margin value.
+        rst = this%m_rightMargin
+    end function
+
+! --------------------
+    subroutine mp_set_right_margin(this, x)
+        !! Sets the right margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The margin value.  This value will be clamped to the range
+            !! [0, 1].
+        if (x < 0.0) then
+            this%m_rightMargin = 0.0
+        else if (x > 1.0) then
+            this%m_rightMargin = 1.0
+        else
+            this%m_rightMargin = x
+        end if
+        this%m_useAutoMargins = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_top_margin(this) result(rst)
+        !! Gets the top margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The margin value.
+        rst = this%m_topMargin
+    end function
+
+! --------------------
+    subroutine mp_set_top_margin(this, x)
+        !! Sets the top margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The margin value.  This value will be clamped to the range
+            !! [0, 1].
+        if (x < 0.0) then
+            this%m_topMargin = 0.0
+        else if (x > 1.0) then
+            this%m_topMargin = 1.0
+        else
+            this%m_topMargin = x
+        end if
+        this%m_useAutoMargins = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_bottom_margin(this) result(rst)
+        !! Gets the bottom margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The margin value.
+        rst = this%m_bottomMargin
+    end function
+
+! --------------------
+    subroutine mp_set_bottom_margin(this, x)
+        !! Sets the bottom margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The margin value.  This value will be clamped to the range
+            !! [0, 1].
+        if (x < 0.0) then
+            this%m_bottomMargin = 0.0
+        else if (x > 1.0) then
+            this%m_bottomMargin = 1.0
+        else
+            this%m_bottomMargin = x
+        end if
+        this%m_useAutoMargins = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_horizontal_spacing(this) result(rst)
+        !! Gets the horizontal spacing between plots.  The value must be
+        !! zero or positive.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The spacing value.
+        rst = this%m_horizontalSpacing
+    end function
+
+! --------------------
+    subroutine mp_set_horizontal_spacing(this, x)
+        !! Sets the horizontal spacing between plots.  The value must be
+        !! zero or positive.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The spacing value.  This value will be clamped to zero if
+            !! a negative value is supplied.
+        if (x < 0.0) then
+            this%m_horizontalSpacing = 0.0
+        else
+            this%m_horizontalSpacing = x
+        end if
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_vertical_spacing(this) result(rst)
+        !! Gets the vertical spacing between plots.  The value must be
+        !! zero or positive.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The spacing value.
+        rst = this%m_verticalSpacing
+    end function
+
+! --------------------
+    subroutine mp_set_vertical_spacing(this, x)
+        !! Sets the vertical spacing between plots.  The value must be
+        !! zero or positive.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The spacing value.  This value will be clamped to zero if
+            !! a negative value is supplied.
+        if (x < 0.0) then
+            this%m_verticalSpacing = 0.0
+        else
+            this%m_verticalSpacing = x
+        end if
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_use_auto_generated_margins(this) result(rst)
+        !! Gets a value determining if the global margins should be 
+        !! automatically calculated.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        logical :: rst
+            !! True if the margins should be automatically calculated; else,
+            !! false to use manually defined margins.
+        rst = this%m_useAutoMargins
+    end function
+
+! --------------------
+    subroutine mp_set_use_auto_generated_margins(this, x)
+        !! Sets a value determining if the global margins should be 
+        !! automatically calculated.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        logical, intent(in) :: x
+            !! True if the margins should be automatically calculated; else,
+            !! false to use manually defined margins.
+        this%m_useAutoMargins = x
+    end subroutine
+
 ! ------------------------------------------------------------------------------
 end module
diff --git a/doc/src/fplot_plot_axis.f90 b/doc/src/fplot_plot_axis.f90
index 5d0de852..bb6a2e6b 100644
--- a/doc/src/fplot_plot_axis.f90
+++ b/doc/src/fplot_plot_axis.f90
@@ -79,6 +79,11 @@ module fplot_plot_axis
             !! Use manual (user-defined) tic labels?
         type(name_value_pair), private, allocatable, dimension(:) :: m_ticLabels
             !! A list of user-defined tic labels.
+        real(real32), private :: m_titleAngle = 0.0
+            !! The angle at which to rotate the axis title.
+        logical, private :: m_autoCalcTitleAngle = .true.
+            !! True if GNUPLOT should automatically rotate the title; else,
+            !! false if the m_titleAngle property should determine the angle.
     contains
         procedure, public :: get_title => pa_get_title
         procedure, public :: set_title => pa_set_title
@@ -123,6 +128,12 @@ module fplot_plot_axis
         procedure, public :: set_title_x_offset => pa_set_title_x_offset
         procedure, public :: get_title_y_offset => pa_get_title_y_offset
         procedure, public :: set_title_y_offset => pa_set_title_y_offset
+        procedure, public :: get_title_angle => pa_get_title_angle
+        procedure, public :: set_title_angle => pa_set_title_angle
+        procedure, public :: get_auto_calculate_title_angle => &
+            pa_get_auto_calc_title_angle
+        procedure, public :: set_auto_calculate_title_angle => &
+            pa_set_auto_calc_title_angle
         procedure, public :: get_use_manual_tic_labels => &
             pa_get_use_manual_tic_labels
         procedure, public :: set_use_manual_tic_labels => &
@@ -387,6 +398,12 @@ function pa_get_cmd_string(this) result(txt)
             call str%append(this%get_title())
             call str%append('"')
 
+            ! Rotation
+            if (.not.this%get_auto_calculate_title_angle()) then
+                call str%append(" rotate by ")
+                call str%append(to_string(this%get_title_angle()))
+            end if
+
             ! Offsets
             if (this%get_title_x_offset() /= 0 .or. &
                 this%get_title_y_offset() /= 0) &
@@ -750,6 +767,51 @@ subroutine pa_set_title_y_offset(this, x)
         this%m_titleYOffset = x
     end subroutine
 
+! ------------------------------------------------------------------------------
+    pure function pa_get_title_angle(this) result(x)
+        !! Gets the axis title angle, in degrees.
+        class(plot_axis), intent(in) :: this
+            !! The plot_axis object.
+        real(real32) :: x
+            !! The axis title angle, in degrees.
+        x = this%m_titleAngle
+    end function
+
+! --------------------
+    subroutine pa_set_title_angle(this, x)
+        !! Sets the axis title angle, in degrees.
+        class(plot_axis), intent(inout) :: this
+            !! The plot_axis object.
+        real(real32), intent(in) :: x
+            !! The axis title angle, in degrees.
+        this%m_titleAngle = x
+        this%m_autoCalcTitleAngle = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function pa_get_auto_calc_title_angle(this) result(x)
+        !! Gets whether GNUPLOT should automatically calculate the axis
+        !! title angle.
+        class(plot_axis), intent(in) :: this
+            !! The plot_axis object.
+        logical :: x
+            !! True if GNUPLOT should automatically calculate the title
+            !! angle; else, false.
+        x = this%m_autoCalcTitleAngle
+    end function
+
+! --------------------
+    subroutine pa_set_auto_calc_title_angle(this, x)
+        !! Sets whether GNUPLOT should automatically calculate the axis
+        !! title angle.
+        class(plot_axis), intent(inout) :: this
+            !! The plot_axis object.
+        logical, intent(in) :: x
+            !! Set to true to automatically calculate the title angle;
+            !! else, set to false.
+        this%m_autoCalcTitleAngle = x
+    end subroutine
+
 ! ------------------------------------------------------------------------------
     pure function pa_get_use_manual_tic_labels(this) result(rst)
         !! Gets a value determining if manual tic labels should be used.
diff --git a/doc/src/fplot_triangulations_delaunay_2d.f90 b/doc/src/fplot_triangulations_delaunay_2d.f90
index bf52fee8..0290065a 100644
--- a/doc/src/fplot_triangulations_delaunay_2d.f90
+++ b/doc/src/fplot_triangulations_delaunay_2d.f90
@@ -1,6 +1,6 @@
 module fplot_triangulations_delaunay_2d
     use iso_fortran_env
-    use geompack
+    use delaunay
     use fplot_errors
     implicit none
     private
diff --git a/doc/tipuesearch/tipuesearch_content.js b/doc/tipuesearch/tipuesearch_content.js
index 5661ccd7..0091f149 100644
--- a/doc/tipuesearch/tipuesearch_content.js
+++ b/doc/tipuesearch/tipuesearch_content.js
@@ -1 +1 @@
-var tipuesearch = {"pages":[{"title":" FPLOT ","text":"FPLOT Developer Info Jason Christopherson","tags":"home","loc":"index.html"},{"title":"plot_data_3d – FPLOT ","text":"type, public, extends( scatter_plot_data ) :: plot_data_3d Defines a three-dimensional plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pd3d_clear_data private  subroutine pd3d_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pd3d_set_data_1 private  subroutine pd3d_set_data_1(this, x, y, z, c, ps, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinate data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinate data. real(kind=real64), intent(in), dimension(:) :: z An N-element array containing the z coordinate data. real(kind=real64), intent(in), optional, dimension(:) :: c An N-element array defining how color should vary with the \ncurrent colormap for each value. real(kind=real64), intent(in), optional, dimension(:) :: ps An N-element array defining the size of each data point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_axes_string => pd3d_get_axes_cmd private  function pd3d_get_axes_cmd(this) result(x) Gets the GNUPLOT command string defining which axes the data\nis to be plotted against. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_color_data => pd3d_get_c_array private  function pd3d_get_c_array(this) result(x) Gets the stored color scaling data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => spd_get_cmd public  function spd_get_cmd (this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => pd3d_get_data_count private pure function pd3d_get_data_count(this) result(x) Gets the number of data points. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value integer(kind=int32) The number of data points. procedure, public :: get_data_string => pd3d_get_data_cmd private  function pd3d_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data to plot. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_fill_curve => spd_get_filled private pure function spd_get_filled(this) result(rst) Gets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the curve should be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_point_size_data => pd3d_get_c_array private  function pd3d_get_c_array(this) result(x) Gets the stored color scaling data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_simplification_factor => spd_get_simplify_factor private pure function spd_get_simplify_factor(this) result(x) Gets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value real(kind=real64) The scaling factor. procedure, public :: get_simplify_data => spd_get_simplify_data private pure function spd_get_simplify_data(this) result(x) Gets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors private pure function spd_get_data_dependent_colors(this) result(rst) Gets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if data-dependent colors should be used; else, false. procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size private pure function spd_get_use_var_point_size(this) result(rst) Gets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if variable size points should be used; else, false. procedure, public :: get_x => pd3d_get_x_data private pure function pd3d_get_x_data(this, index) result(x) Gets the requested X data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_x_data => pd3d_get_x_array private  function pd3d_get_x_array(this) result(x) Gets the stored X data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_y => pd3d_get_y_data private pure function pd3d_get_y_data(this, index) result(x) Gets the requested Y data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_y_data => pd3d_get_y_array private  function pd3d_get_y_array(this) result(x) Gets the stored Y data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_z => pd3d_get_z_data private pure function pd3d_get_z_data(this, index) result(x) Gets the requested Z data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_z_data => pd3d_get_z_array private  function pd3d_get_z_array(this) result(x) Gets the stored Z data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_fill_curve => spd_set_filled private  subroutine spd_set_filled(this, x) Sets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the curve should be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_simplification_factor => spd_set_simplify_factor private  subroutine spd_set_simplify_factor(this, x) Sets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. real(kind=real64), intent(in) :: x The scaling factor. procedure, public :: set_simplify_data => spd_set_simplify_data private  subroutine spd_set_simplify_data(this, x) Sets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors private  subroutine spd_set_data_dependent_colors(this, x) Sets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if data-dependent colors should be used; else, false. procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size private  subroutine spd_set_use_var_point_size(this, x) Sets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if variable size points should be used; else, false. procedure, public :: set_x => pd3d_set_x_data private  subroutine pd3d_set_x_data(this, index, x) Sets the requested X data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point. procedure, public :: set_y => pd3d_set_y_data private  subroutine pd3d_set_y_data(this, index, x) Sets the requested Y data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point. procedure, public :: set_z => pd3d_set_z_data private  subroutine pd3d_set_z_data(this, index, x) Sets the requested Z data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point.","tags":"","loc":"type\\plot_data_3d.html"},{"title":"plot_data_2d – FPLOT ","text":"type, public, extends( scatter_plot_data ) :: plot_data_2d Defines a two-dimensional plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pd2d_clear_data private  subroutine pd2d_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. generic, public :: define_data => pd2d_set_data_1 , pd2d_set_data_2 private  subroutine pd2d_set_data_1(this, x, y, c, ps, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinate data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinate data. real(kind=real64), intent(in), optional, dimension(:) :: c An N-element array defining how color should vary with the \ncurrent colormap for each value. real(kind=real64), intent(in), optional, dimension(:) :: ps An N-element array defining the size of each data point. class( errors ), intent(inout), optional, target :: err An error-handling object. private  subroutine pd2d_set_data_2(this, y, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinate data.  This\ndata will be plotted against its own index. class( errors ), intent(inout), optional, target :: err An error-handling object. procedure, public :: get_axes_string => pd2d_get_axes_cmd private  function pd2d_get_axes_cmd(this) result(x) Gets the GNUPLOT command string defining which axes the data\nis to be plotted against. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_color_data => pd2d_get_c_array private  function pd2d_get_c_array(this) result(x) Gets the stored color scaling data array. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => spd_get_cmd public  function spd_get_cmd (this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => pd2d_get_data_count private pure function pd2d_get_data_count(this) result(x) Gets the number of data points. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value integer(kind=int32) The number of data points. procedure, public :: get_data_string => pd2d_get_data_cmd private  function pd2d_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data\nto plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => pd2d_get_draw_against_y2 private pure function pd2d_get_draw_against_y2(this) result(x) Gets a value determining if the data should be plotted against\nthe secondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value logical Returns true if the data should be plotted against the secondary\ny-axis; else, false to plot against the primary y-axis. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_fill_curve => spd_get_filled private pure function spd_get_filled(this) result(rst) Gets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the curve should be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_point_size_data => pd2d_get_ps_array private  function pd2d_get_ps_array(this) result(x) Gets the stored point size data array. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_simplification_factor => spd_get_simplify_factor private pure function spd_get_simplify_factor(this) result(x) Gets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value real(kind=real64) The scaling factor. procedure, public :: get_simplify_data => spd_get_simplify_data private pure function spd_get_simplify_data(this) result(x) Gets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors private pure function spd_get_data_dependent_colors(this) result(rst) Gets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if data-dependent colors should be used; else, false. procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size private pure function spd_get_use_var_point_size(this) result(rst) Gets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if variable size points should be used; else, false. procedure, public :: get_x => pd2d_get_x_data private pure function pd2d_get_x_data(this, index) result(x) Gets the requested X data point. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_x_data => pd2d_get_x_array private  function pd2d_get_x_array(this) result(x) Gets the stored X data array. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_y => pd2d_get_y_data private pure function pd2d_get_y_data(this, index) result(x) Gets the requested Y data point. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_y_data => pd2d_get_y_array private  function pd2d_get_y_array(this) result(x) Gets the stored Y data array. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: pd2d_set_data_1 private  subroutine pd2d_set_data_1(this, x, y, c, ps, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinate data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinate data. real(kind=real64), intent(in), optional, dimension(:) :: c An N-element array defining how color should vary with the \ncurrent colormap for each value. real(kind=real64), intent(in), optional, dimension(:) :: ps An N-element array defining the size of each data point. class( errors ), intent(inout), optional, target :: err An error-handling object. procedure, public :: pd2d_set_data_2 private  subroutine pd2d_set_data_2(this, y, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinate data.  This\ndata will be plotted against its own index. class( errors ), intent(inout), optional, target :: err An error-handling object. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => pd2d_set_draw_against_y2 private  subroutine pd2d_set_draw_against_y2(this, x) Sets a value determining if the data should be plotted against\nthe secondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. logical, intent(in) :: x Set to true if the data should be plotted against the\nsecondary y-axis; else, false to plot against the primary y-axis. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_fill_curve => spd_set_filled private  subroutine spd_set_filled(this, x) Sets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the curve should be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_simplification_factor => spd_set_simplify_factor private  subroutine spd_set_simplify_factor(this, x) Sets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. real(kind=real64), intent(in) :: x The scaling factor. procedure, public :: set_simplify_data => spd_set_simplify_data private  subroutine spd_set_simplify_data(this, x) Sets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors private  subroutine spd_set_data_dependent_colors(this, x) Sets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if data-dependent colors should be used; else, false. procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size private  subroutine spd_set_use_var_point_size(this, x) Sets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if variable size points should be used; else, false. procedure, public :: set_x => pd2d_set_x_data private  subroutine pd2d_set_x_data(this, index, x) Sets the requested X data point. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point. procedure, public :: set_y => pd2d_set_y_data private  subroutine pd2d_set_y_data(this, index, x) Sets the requested Y data point. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point.","tags":"","loc":"type\\plot_data_2d.html"},{"title":"windows_terminal – FPLOT ","text":"type, public, extends( terminal ) :: windows_terminal A Windows-specific terminal. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string private  function term_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => wt_get_term_string private  function wt_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( windows_terminal ), intent(in) :: this The windows_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\windows_terminal.html"},{"title":"latex_terminal – FPLOT ","text":"type, public, extends( file_terminal ) :: latex_terminal A LATEX terminal. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string private  function fterm_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => tex_get_term_string private  function tex_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( latex_terminal ), intent(in) :: this The latex_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\latex_terminal.html"},{"title":"plot_polar – FPLOT ","text":"type, public, extends( plot ) :: plot_polar Finalization Procedures final :: plr_clean_up private  subroutine plr_clean_up(this) Cleans up resources held by the plot_polar object. Arguments Type Intent Optional Attributes Name type( plot_polar ), intent(inout) :: this The plot_polar object. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_autoscale => plr_get_autoscale private pure function plr_get_autoscale(this) result(rst) Gets a logical value determining if the axis should be \nautomatically scaled to fit the data. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value logical Returns true if the plot will autoscale; else, false. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => plr_get_cmd private  function plr_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot_polar object. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_radial_limits => plr_get_limits private pure function plr_get_limits(this) result(rst) Gets the radial axis limits if autoscaling is inactive. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value real(kind=real64), (2) A 2-element array containing the minimum and maximum limit\nvalues in that order. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_theta_direction => plr_get_theta_direction private pure function plr_get_theta_direction(this) result(rst) Gets the direction. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value character(len=:), allocatable The direction.  It is one of the following flags. POLAR_THETA_CCW POLAR_THETA_CW procedure, public :: get_theta_start_position => plr_get_theta_start private pure function plr_get_theta_start(this) result(rst) Gets the position for . Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value character(len=:), allocatable The starting position.  It is one of the following flags. POLAR_THETA_BOTTOM POLAR_THETA_TOP POLAR_THETA_RIGHT POLAR_THETA_LEFT procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: initialize => plr_init private  subroutine plr_init(this, term, fname, err) Initializes the plot_polar object. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: plr_push_data private  subroutine plr_push_data(this, angle, radial, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. real(kind=real64), intent(in), dimension(:) :: angle The angular values. real(kind=real64), intent(in), dimension(size(angle)) :: radial The radial values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , plr_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine plr_push_data(this, angle, radial, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. real(kind=real64), intent(in), dimension(:) :: angle The angular values. real(kind=real64), intent(in), dimension(size(angle)) :: radial The radial values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_autoscale => plr_set_autoscale private  subroutine plr_set_autoscale(this, x) Sets a logical value determining if the axis should be \nautomatically scaled to fit the data. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. logical, intent(in) :: x Set to true if the plot will autoscale; else, false. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_radial_limits => plr_set_limits private  subroutine plr_set_limits(this, x) Sets the radial axis limits if autoscaling is inactive. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. real(kind=real64), intent(in) :: x (2) A 2-element array containing the minimum and maximum limit\nvalues in that order. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_theta_direction => plr_set_theta_direction private  subroutine plr_set_theta_direction(this, x) Sets the direction. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. character(len=*), intent(in) :: x The direction.  It is one of the following flags. POLAR_THETA_CCW POLAR_THETA_CW procedure, public :: set_theta_start_position => plr_set_theta_start private  subroutine plr_set_theta_start(this, x) Sets the position for . Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. character(len=*), intent(in) :: x The starting position.  It is one of the following flags. POLAR_THETA_BOTTOM POLAR_THETA_TOP POLAR_THETA_RIGHT POLAR_THETA_LEFT procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot_polar.html"},{"title":"png_terminal – FPLOT ","text":"type, public, extends( file_terminal ) :: png_terminal Defines a terminal used for producing PNG outputs. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string private  function fterm_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => png_get_term_string private  function png_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( png_terminal ), intent(in) :: this The png_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\png_terminal.html"},{"title":"plot_2d – FPLOT ","text":"type, public, extends( plot ) :: plot_2d A plot object defining a 2D plot. Finalization Procedures final :: p2d_clean_up private  subroutine p2d_clean_up(this) Cleans up resources held by the plot_2d object. Arguments Type Intent Optional Attributes Name type( plot_2d ), intent(inout) :: this The plot_2d object. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => p2d_get_cmd private  function p2d_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot_2d object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_jitter_overlap => p2d_get_jitter_overlap private pure function p2d_get_jitter_overlap(this) result(rst) Gets the jitter overalp. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value real(kind=real32) The jitter overlap. procedure, public :: get_jitter_spread => p2d_get_jitter_spread private pure function p2d_get_jitter_spread(this) result(rst) Gets the jitter horizontal spread. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value real(kind=real32) The jitter horizontal spread. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_square_axes => p2d_get_square_axes private pure function p2d_get_square_axes(this) result(rst) Gets a logical flag determining if the axes size should be squared\noff. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical Returns true if the axes are to be sized to a square; else,\nfalse. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_use_jittering => p2d_get_use_jitter private pure function p2d_get_use_jitter(this) result(rst) Gets a logical value determining if jittering should be used. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical True if jittering should be used; else, false. procedure, public :: get_use_y2_axis => p2d_get_use_y2 private pure function p2d_get_use_y2(this) result(x) Gets a flag determining if the secondary y-axis should be\ndisplayed. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical Returns true if the axis should be displayed; else, false. procedure, public :: get_x_axis => p2d_get_x_axis private  function p2d_get_x_axis(this) result(ptr) Gets the x-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the x-axis object. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y2_axis => p2d_get_y2_axis private  function p2d_get_y2_axis(this) result(ptr) Gets the secondary y-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the secondary y-axis object. procedure, public :: get_y_axis => p2d_get_y_axis private  function p2d_get_y_axis(this) result(ptr) Gets the y-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the y-axis object. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: initialize => p2d_init private  subroutine p2d_init(this, term, fname, err) Initializes the plot_2d object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: p2d_push_data private  subroutine p2d_push_data(this, x, y, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , p2d_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine p2d_push_data(this, x, y, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_jitter_overlap => p2d_set_jitter_overlap private  subroutine p2d_set_jitter_overlap(this, x) Sets the jitter overlap. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real32), intent(in) :: x The jitter overlap. procedure, public :: set_jitter_spread => p2d_set_jitter_spread private  subroutine p2d_set_jitter_spread(this, x) Sets the jitter horizontal spread. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real32), intent(in) :: x The jitter horizontal spread. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_square_axes => p2d_set_square_axes private  subroutine p2d_set_square_axes(this, x) Sets a logical flag determining if the axes size should be\nsquared off. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if the axes are to be sized to a square; else,\nfalse. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_use_jittering => p2d_set_use_jitter private  subroutine p2d_set_use_jitter(this, x) Sets a logical value determining if jittering should be used. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if jittering should be used; else, false. procedure, public :: set_use_y2_axis => p2d_set_use_y2 private  subroutine p2d_set_use_y2(this, x) Sets a flag determining if the secondary y-axis should be\ndisplayed. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if the axis should be displayed; else, false. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_axis_title => p2d_set_x_axis_title private  subroutine p2d_set_x_axis_title(this, x) Sets the title associated with the plot's x-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y2_axis_title => p2d_set_y2_axis_title private  subroutine p2d_set_y2_axis_title(this, x) Sets the title associated with the plot's secondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_axis_title => p2d_set_y_axis_title private  subroutine p2d_set_y_axis_title(this, x) Sets the title associated with the plot's y-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot_2d.html"},{"title":"plot – FPLOT ","text":"type, public, extends( plot_object ) :: plot Defines the basic GNUPLOT plot. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => plt_get_cmd private  function plt_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: initialize => plt_init private  subroutine plt_init(this, term, fname, err) Initializes the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\nThe default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot.html"},{"title":"plot_label – FPLOT ","text":"type, public, extends( plot_object ) :: plot_label Defines a plot label. Type-Bound Procedures procedure, public :: get_angle => lbl_get_angle private pure function lbl_get_angle(this) result(x) Gets the angle of the label text, in degrees. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value real(kind=real32) The angle, in degrees. procedure, public :: get_command_string => lbl_get_cmd private  function lbl_get_cmd(this) result(x) Gets the GNUPLOT command string for the label. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value character(len=:), allocatable The command string. procedure, public :: get_is_visible => lbl_get_is_visible private pure function lbl_get_is_visible(this) result(x) Gets a value determining if the label is to be drawn. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value logical Returns true if the label is to be drawn; else, false. procedure, public :: get_position => lbl_get_position private pure function lbl_get_position(this) result(x) Gets the position of the label in terms of plot coordinates. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value real(kind=real32), dimension(3) A 3-element array containing the X, Y, and Z position of the \nlabel. procedure, public :: get_text => lbl_get_txt private  function lbl_get_txt(this) result(x) Gets the text displayed by the label. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value character(len=:), allocatable The text string to display. procedure, public :: set_angle => lbl_set_angle private  subroutine lbl_set_angle(this, x) Sets the angle of the label text, in degrees. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(inout) :: this The plot_label object. real(kind=real32), intent(in) :: x The angle, in degrees. procedure, public :: set_is_visible => lbl_set_is_visible private  subroutine lbl_set_is_visible(this, x) Sets a value determining if the label is to be drawn. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(inout) :: this The plot_label object. logical, intent(in) :: x Set to true if the label is to be drawn; else, false. procedure, public :: set_position => lbl_set_position private  subroutine lbl_set_position(this, x) Sets the position of the label in terms of plot coordinates. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(inout) :: this The plot_label object. real(kind=real32), intent(in), dimension(3) :: x A 3-element array containing the X, Y, and Z position of the \nlabel. procedure, public :: set_text => lbl_set_txt private  subroutine lbl_set_txt(this, x) Sets the text displayed by the label. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(inout) :: this The plot_label object. character(len=*), intent(in) :: x The text string to display.","tags":"","loc":"type\\plot_label.html"},{"title":"plot_data_histogram – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_histogram A container for plotting data in the form of a histogram. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdh_clear_data private  subroutine pdh_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pdh_define_data private  subroutine pdh_define_data(this, x, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. real(kind=real64), intent(in), dimension(:) :: x The data set to plot. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get => pdh_get_bin_data private  subroutine pdh_get_bin_data(this, i, x, cnt) Gets the requested binned data. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. integer(kind=int32), intent(in) :: i The bin number to get. real(kind=real64), intent(out) :: x The center of the bin. integer(kind=int32), intent(out) :: cnt The number of items in the bin. procedure, public :: get_axes_string => pdh_get_axes_cmd private  function pdh_get_axes_cmd(this) result(rst) Gets the GNUPLOT command string defining which axes the data is to be\nplotted against. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value character(len=:), allocatable The command string. procedure, public :: get_bin_count => pdh_get_bin_count private pure function pdh_get_bin_count(this) result(x) Gets the number of bins. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value integer(kind=int32) The bin count. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdh_get_cmd private  function pdh_get_cmd(this) result(rst) Gets the GNUPLOT command string for this object. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => pdh_get_data_cmd private  function pdh_get_data_cmd(this) result(rst) Gets the GNUPLOT command string defining the data for this object. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => pdh_get_use_y2 private pure function pdh_get_use_y2(this) result(rst) Gets a value determining if the data is to be plotted against the\nsecondary y axis. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value logical Returns true if the data is to be plotted against the secondary y \naxis; else, false for the primary y axis. procedure, public :: get_is_filled => pdh_get_is_filled private pure function pdh_get_is_filled(this) result(rst) Gets a value determining if each box is filled. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value logical Returns true if the boxes are filled; else, false for an empty box. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_maximum_value => pdh_get_max_x private pure function pdh_get_max_x(this) result(x) Gets the maximum data value. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value real(kind=real64) The maximum data value. procedure, public :: get_minimum_value => pdh_get_min_x private pure function pdh_get_min_x(this) result(x) Gets the minimum data value. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value real(kind=real64) The minimum data value. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_bin_count => pdh_set_bin_count private  subroutine pdh_set_bin_count(this, x) Sets the bin count.  For this property to have an effect, call before\ncalling the define_data subroutine or bin_data subroutine. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. integer(kind=int32), intent(in) :: x The bin count. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => pdh_set_use_y2 private  subroutine pdh_set_use_y2(this, x) Sets a value determining if the data is to be plotted against the\nsecondary y axis. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. logical, intent(in) :: x Set to true if the data is to be plotted against the secondary y \naxis; else, false for the primary y axis. procedure, public :: set_is_filled => pdh_set_is_filled private  subroutine pdh_set_is_filled(this, x) Sets a value determining if each box is filled. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. logical, intent(in) :: x Set to true if the boxes should be filled; else, false for an empty\nbox. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\plot_data_histogram.html"},{"title":"delaunay_tri_2d – FPLOT ","text":"type, public :: delaunay_tri_2d Provides a container for a 2D Delaunay triangulation. Type-Bound Procedures procedure, public :: create => d2d_init private  subroutine d2d_init(this, x, y, err) Creates an unconstrained 2D Delaunay triangulation given a \nset of x-y points. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(inout) :: this The delaunay_tri_2d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of each\ndata point. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of each\ndata point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: find_triangle => d2d_get_tri_with_pt private pure function d2d_get_tri_with_pt(this, x, y) result(rst) Finds the triangle that contains the specified point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. real(kind=real64), intent(in) :: x The x-coordinate of the point. real(kind=real64), intent(in) :: y The y-coordinate of the point. Return Value integer(kind=int32) Returns the index of the triangle containing the specified\npoint.  If no triangle contains the specified point, a value of\n-1 is returned. procedure, public :: get_indices => d2d_get_tris private pure function d2d_get_tris(this) result(rst) Gets a list of the indices of each triangle vertex. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32), allocatable, dimension(:,:) An N-by-3 matrix with each column containing the index of the\nvertex of each triangle where N is the number of triangles. procedure, public :: get_point_count => d2d_get_pt_count private pure function d2d_get_pt_count(this) result(rst) Gets the number of points in the triangulation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32) The number of points in the triangulation. procedure, public :: get_points_x => d2d_get_x_pts private pure function d2d_get_x_pts(this) result(rst) Gets the x-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value real(kind=real64), allocatable, dimension(:) An array of the x-coordinates of each point. procedure, public :: get_points_y => d2d_get_y_pts private pure function d2d_get_y_pts(this) result(rst) Gets the y-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value real(kind=real64), allocatable, dimension(:) An array of the y-coordinates of each point. procedure, public :: get_triangle_count => d2d_get_tri_count private pure function d2d_get_tri_count(this) result(rst) Gets the number of triangles in the triangulation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32) The number of triangles in the triangulation.","tags":"","loc":"type\\delaunay_tri_2d.html"},{"title":"plot_data_function – FPLOT ","text":"type, public, extends( line_plot_data ) :: plot_data_function Defines a function to plot. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdf_clear_data private  subroutine pdf_clear_data(this) Clears the function from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pdf_define_data private  subroutine pdf_define_data(this, f, fname, minX, maxX, name) Defines the function to plot. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. character(len=*), intent(in) :: f The function to plot (e.g. sin(x)). character(len=*), intent(in) :: fname The name of the function to plot (e.g. f(x)). real(kind=real64), intent(in), optional :: minX The minimum value to plot.  If not supplied, this will default\nto a value of -1. real(kind=real64), intent(in), optional :: maxX The maximum x value to plot. If not supplied, this will default\nto a value of 1. character(len=*), intent(in), optional :: name An optional input that specifies the name that will be displayed\nin the legend.  If nothing is supplied, the input string for \nparameter f will be utilized. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdf_get_cmd private  function pdf_get_cmd(this) result(rst) Gets the GNUPLOT command string for this object. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => pdf_get_data_cmd private  function pdf_get_data_cmd(this) result(rst) Gets the GNUPLOT command string defining the data for this object. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_function => pdf_get_function private pure function pdf_get_function(this) result(rst) Gets the function to plot. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value character(len=:), allocatable The function. procedure, public :: get_function_name => pdf_get_function_name private pure function pdf_get_function_name(this) result(rst) Gets the name of the function to plot (e.g. f(x), g(x), etc.). Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value character(len=:), allocatable The function name. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_maximum_x => pdf_get_max_x private pure function pdf_get_max_x(this) result(rst) Gets the maximum X plot range value. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value real(kind=real64) The value. procedure, public :: get_minimum_x => pdf_get_min_x private pure function pdf_get_min_x(this) result(rst) Gets the minimum X plot range value. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value real(kind=real64) The value. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_sample_count => pfd_get_sample_count private pure function pfd_get_sample_count(this) result(rst) Gets the number of times to sample the function. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value integer(kind=int32) The sample count. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_maximum_x => pdf_set_max_x private  subroutine pdf_set_max_x(this, x) Sets the maximum X plot range value. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. real(kind=real64), intent(in) :: x The value. procedure, public :: set_minimum_x => pdf_set_min_x private  subroutine pdf_set_min_x(this, x) Sets the minimum X plot range value. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. real(kind=real64), intent(in) :: x The value. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_sample_count => pfd_set_sample_count private  subroutine pfd_set_sample_count(this, x) Sets the number of times to sample the function.  This variable is \nglobal for all function plots as GNUPLOT does not allow inline\nsample modification currently.  Hopefully this will change somewhere\ndown the road. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. integer(kind=int32), intent(in) :: x The sample count.  Must be greater than 1.","tags":"","loc":"type\\plot_data_function.html"},{"title":"legend – FPLOT ","text":"type, public, extends( plot_object ) :: legend Defines a legend object. Type-Bound Procedures procedure, public :: get_command_string => leg_get_command_txt private  function leg_get_command_txt(this) result(txt) Gets the command string defining the legend properties. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_draw_border => leg_get_box private pure function leg_get_box(this) result(x) Gets a value determining if the legend should have a border. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value logical True if the legend should have a border; else, false. procedure, public :: get_draw_inside_axes => leg_get_inside private pure function leg_get_inside(this) result(x) Gets a value determining if the legend should be drawn inside\nor outside the axes border. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value logical True to draw inside the axes border; else, false for outside. procedure, public :: get_horizontal_position => leg_get_horz_pos private pure function leg_get_horz_pos(this) result(x) Gets the horizontal position of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value character(len=:), allocatable The horizontal position of the legend (LEGEND_LEFT,\nLEGEND_CENTER, or LEGEND_RIGHT). procedure, public :: get_is_opaque => leg_get_opaque private pure function leg_get_opaque(this) result(rst) Gets a value determining if the legend is to be opaque. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value logical True if the legend is to be opaque; else, false. procedure, public :: get_is_visible => leg_get_visible private pure function leg_get_visible(this) result(x) Gets a value determining if the legend is visible. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value logical True if the legend is visible; else, false. procedure, public :: get_layout => leg_get_layout private pure function leg_get_layout(this) result(rst) Gets the layout of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value character(len=:), allocatable The layout type, either LEGEND_ARRANGE_VERTICALLY or \nLEGEND_ARRANGE_HORIZONTALLY. procedure, public :: get_vertical_position => leg_get_vert_pos private pure function leg_get_vert_pos(this) result(x) Gets the vertical position of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value character(len=:), allocatable The vertical position of the legend (LEGEND_TOP,\nLEGEND_CENTER, or LEGEND_BOTTOM). procedure, public :: set_draw_border => leg_set_box private  subroutine leg_set_box(this, x) Sets a value determining if the legend should have a border. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. logical, intent(in) :: x True if the legend should have a border; else, false. procedure, public :: set_draw_inside_axes => leg_set_inside private  subroutine leg_set_inside(this, x) Sets a value determining if the legend should be drawn inside\nor outside the axes border. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. logical, intent(in) :: x True to draw inside the axes border; else, false for outside. procedure, public :: set_horizontal_position => leg_set_horz_pos private  subroutine leg_set_horz_pos(this, x) Sets the horizontal position of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. character(len=*), intent(in) :: x The horizontal position of the legend.  The parameter must be\nset to one of the following: LEGEND_LEFT, LEGEND_CENTER, or\nLEGEND_RIGHT.  If not, the default LEGEND_RIGHT will be used. procedure, public :: set_is_opaque => leg_set_opaque private  subroutine leg_set_opaque(this, x) Sets a value determining if the legend is to be opaque. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. logical :: x True if the legend is to be opaque; else, false. procedure, public :: set_is_visible => leg_set_visible private  subroutine leg_set_visible(this, x) Sets a value determining if the legend is visible. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. logical, intent(in) :: x True if the legend is visible; else, false. procedure, public :: set_layout => leg_set_layout private  subroutine leg_set_layout(this, x) Sets the layout of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. character(len=*), intent(in) :: x The layout type, either LEGEND_ARRANGE_VERTICALLY or \nLEGEND_ARRANGE_HORIZONTALLY. procedure, public :: set_vertical_position => leg_set_vert_pos private  subroutine leg_set_vert_pos(this, x) Sets the vertical position of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. character(len=*), intent(in) :: x The vertical position of the legend.  The parameter must be\nset to one of the following: LEGEND_TOP, LEGEND_CENTER, or\nLEGEND_BOTTOM.  If not, the default LEGEND_TOP will be used.","tags":"","loc":"type\\legend.html"},{"title":"errors – FPLOT ","text":"type, public :: errors Type-Bound Procedures procedure, public :: report_error public  subroutine report_error (this, fcn, msg, code) Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: this character(len=*), intent(in) :: fcn character(len=*), intent(in) :: msg integer(kind=int32), intent(in) :: code","tags":"","loc":"type\\errors.html"},{"title":"surface_plot – FPLOT ","text":"type, public, extends( plot_3d ) :: surface_plot Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_allow_smoothing => surf_get_smooth private pure function surf_get_smooth(this) result(x) Gets a value determining if the plotted surfaces should be\nsmoothed. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value logical Returns true if the surface should be smoothed; else, false. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_azimuth => p3d_get_azimuth private pure function p3d_get_azimuth(this) result(x) Gets the plot azimuth angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real64) The azimuth angle, in degrees. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => surf_get_cmd private  function surf_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot_3d\nobject. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value character(len=:), allocatable The command string. procedure, public :: get_coordinate_system => p3d_get_csys private pure function p3d_get_csys(this) result(rst) Gets a value determining the coordinate system. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The coordinate system ID, which must be one of the following. COORDINATES_CARTESIAN COORDINATES_CYLINDRICAL COORDINATES_SPHERICAL procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_elevation => p3d_get_elevation private pure function p3d_get_elevation(this) result(x) Gets the plot elevation angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real64) The elevation angle, in degrees. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_light_intensity => surf_get_light_intensity private pure function surf_get_light_intensity(this) result(x) Gets the ratio of the strength of the light source relative\nto the ambient light. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value real(kind=real32) The light intensity ratio. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_contours => surf_get_show_contours private pure function surf_get_show_contours(this) result(x) Gets a value determining if a contour plot should be drawn in\nconjunction with the surface plot. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value logical Returns true if the contour plot should be drawn; else, false to\nonly draw the surface. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_hidden => surf_get_show_hidden private pure function surf_get_show_hidden(this) result(x) Gets a value indicating if hidden lines should be shown. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value logical Returns true if hidden lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_z_major_grid => p3d_get_show_z_major_grid private pure function p3d_get_show_z_major_grid(this) result(x) Gets a value determining if the z-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid private pure function p3d_get_show_z_minor_grid(this) result(x) Gets a value determining if the z-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_specular_intensity => surf_get_specular_intensity private pure function surf_get_specular_intensity(this) result(x) Gets the ratio of the strength of the specular light source\nrelative to the ambient light. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value real(kind=real32) The specular light intensity ratio. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_transparency => surf_get_transparency private pure function surf_get_transparency(this) result(x) Gets a factor defining the transparency of plotted surfaces. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value real(kind=real32) A value existing on the set (0 1] defining the level of\ntransparency.  A value of 1 indicates a fully opaque surface. procedure, public :: get_use_lighting => surf_get_use_lighting private pure function surf_get_use_lighting(this) result(x) Gets a value indicating if lighting, beyond the ambient\nlight source, is to be used. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value logical True if lighting should be used; else, false. procedure, public :: get_use_map_view => p3d_get_use_map_view private pure function p3d_get_use_map_view(this) result(rst) Gets a value determining if the view should be set to a 2D\nmap view.  If true, the azimuth and elevation terms are ignored. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical Returns true if the map view will be used; else, false. procedure, public :: get_x_axis => p3d_get_x_axis private  function p3d_get_x_axis(this) result(ptr) Gets the x-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the x-axis object. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_axis => p3d_get_y_axis private  function p3d_get_y_axis(this) result(ptr) Gets the y-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the y-axis object. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_z_axis => p3d_get_z_axis private  function p3d_get_z_axis(this) result(ptr) Gets the z-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the z-axis object. procedure, public :: get_z_intersect_xy => p3d_get_z_axis_intersect private pure function p3d_get_z_axis_intersect(this) result(x) Gets a value determining if the z-axis should intersect the\nx-y plane. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical Returns true if the z-axis should intersect the x-y plane; else,\nfalse to allow the z-axis to float. procedure, public :: get_z_major_grid_color => p3d_get_z_major_grid_color private pure function p3d_get_z_major_grid_color(this) result(x) Gets the color of the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value type( color ) The color. procedure, public :: get_z_major_grid_line_style => p3d_get_z_major_grid_line_style private pure function p3d_get_z_major_grid_line_style(this) result(x) Gets the line style used for the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_z_major_grid_line_width => p3d_get_z_major_grid_line_width private pure function p3d_get_z_major_grid_line_width(this) result(x) Gets the width of the z-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real32) The line width. procedure, public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color private pure function p3d_get_z_minor_grid_color(this) result(x) Gets the color of the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value type( color ) The color. procedure, public :: get_z_minor_grid_line_style => p3d_get_z_minor_grid_line_style private pure function p3d_get_z_minor_grid_line_style(this) result(x) Gets the line style used for the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_z_minor_grid_line_width => p3d_get_z_minor_grid_line_width private pure function p3d_get_z_minor_grid_line_width(this) result(x) Gets the width of the z-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real32) The line width. procedure, public :: initialize => surf_init private  subroutine surf_init(this, term, fname, err) Initializes the surface_plot object. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: p3d_push_data private  subroutine p3d_push_data(this, x, y, z, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real64), intent(in), dimension(size(x)) :: z The z-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , p3d_push_data , surf_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine p3d_push_data(this, x, y, z, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real64), intent(in), dimension(size(x)) :: z The z-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. private  subroutine surf_push_data(this, x, y, z) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real64), intent(in), dimension(:,:) :: x An M-by-N matrix containing the x-coordinate data. real(kind=real64), intent(in), dimension(size(x,1), size(x,2)) :: y An M-by-N matrix containing the y-coordinate data. real(kind=real64), intent(in), dimension(size(x,1), size(x,2)) :: z An M-by-N matrix containing the z-coordinate data. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_allow_smoothing => surf_set_smooth private  subroutine surf_set_smooth(this, x) Sets a value determining if the plotted surfaces should be\nsmoothed. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. logical, intent(in) :: x Set to true if the surface should be smoothed; else, false. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_azimuth => p3d_set_azimuth private  subroutine p3d_set_azimuth(this, x) Sets the plot azimuth angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in) :: x The azimuth angle, in degrees. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_coordinate_system => p3d_set_csys private  subroutine p3d_set_csys(this, x) Sets a value determining the coordinate system. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The coordinate system ID, which must be one of the following. COORDINATES_CARTESIAN COORDINATES_CYLINDRICAL COORDINATES_SPHERICAL procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_elevation => p3d_set_elevation private  subroutine p3d_set_elevation(this, x) Sets the plot elevation angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in) :: x The elevation angle, in degrees. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_light_intensity => surf_set_light_intensity private  subroutine surf_set_light_intensity(this, x) Sets the ratio of the strength of the light source relative\nto the ambient light. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real32), intent(in) :: x The light intensity ratio.  The value must exist in the\nset [0, 1]; else, it will be clipped to lie within the range. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_contours => surf_set_show_contours private  subroutine surf_set_show_contours(this, x) Sets a value determining if a contour plot should be drawn in\nconjunction with the surface plot. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. logical, intent(in) :: x Set to true if the contour plot should be drawn; else, false to\nonly draw the surface. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_hidden => surf_set_show_hidden private  subroutine surf_set_show_hidden(this, x) Sets a value indicating if hidden lines should be shown. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. logical, intent(in) :: x Set to true if hidden lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_z_major_grid => p3d_set_show_z_major_grid private  subroutine p3d_set_show_z_major_grid(this, x) Sets a value determining if the z-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid private  subroutine p3d_set_show_z_minor_grid(this, x) Sets a value determining if the z-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_specular_intensity => surf_set_specular_intensity private  subroutine surf_set_specular_intensity(this, x) Sets the ratio of the strength of the specular light source\nrelative to the ambient light. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real32), intent(in) :: x The specular light intensity ratio.  The value must exist in the \nset [0, 1]; else, it will be clipped to lie within the range. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_transparency => surf_set_transparency private  subroutine surf_set_transparency(this, x) Sets a factor defining the transparency of plotted surfaces. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real32), intent(in) :: x A value existing on the set (0 1] defining the level of\ntransparency.  A value of 1 indicates a fully opaque surface. Any values supplied outside of the set are clipped to fit within\n(0 1]. procedure, public :: set_use_lighting => surf_set_use_lighting private  subroutine surf_set_use_lighting(this, x) Sets a value indicating if lighting, beyond the ambient\nlight source, is to be used. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. logical, intent(in) :: x True if lighting should be used; else, false. procedure, public :: set_use_map_view => p3d_set_use_map_view private  subroutine p3d_set_use_map_view(this, x) Sets a value determining if the view should be set to a 2D\nmap view.  If true, the azimuth and elevation terms are ignored. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x Seturns true if the map view will be used; else, false. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_axis_title => p3d_set_x_axis_title private  subroutine p3d_set_x_axis_title(this, x) Sets the title associated with the plot's x-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_axis_title => p3d_set_y_axis_title private  subroutine p3d_set_y_axis_title(this, x) Sets the title associated with the plot's y-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_z_axis_title => p3d_set_z_axis_title private  subroutine p3d_set_z_axis_title(this, x) Sets the title associated with the plot's z-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_z_intersect_xy => p3d_set_z_axis_intersect private  subroutine p3d_set_z_axis_intersect(this, x) Sets a value determining if the z-axis should intersect the\nx-y plane. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x Set to true if the z-axis should intersect the x-y plane; else,\nfalse to allow the z-axis to float. procedure, public :: set_z_major_grid_color => p3d_set_z_major_grid_color private  subroutine p3d_set_z_major_grid_color(this, x) Sets the color of the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. type( color ), intent(in) :: x The color. procedure, public :: set_z_major_grid_line_style => p3d_set_z_major_grid_line_style private  subroutine p3d_set_z_major_grid_line_style(this, x) Sets the line style used for the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_z_major_grid_line_width => p3d_set_z_major_grid_line_width private  subroutine p3d_set_z_major_grid_line_width(this, x) Sets the width of the z-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color private  subroutine p3d_set_z_minor_grid_color(this, x) Sets the color of the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. type( color ), intent(in) :: x The color. procedure, public :: set_z_minor_grid_line_style => p3d_set_z_minor_grid_line_style private  subroutine p3d_set_z_minor_grid_line_style(this, x) Sets the line style used for the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_z_minor_grid_line_width => p3d_set_z_minor_grid_line_width private  subroutine p3d_set_z_minor_grid_line_width(this, x) Sets the width of the z-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false. procedure, public :: surf_push_data private  subroutine surf_push_data(this, x, y, z) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real64), intent(in), dimension(:,:) :: x An M-by-N matrix containing the x-coordinate data. real(kind=real64), intent(in), dimension(size(x,1), size(x,2)) :: y An M-by-N matrix containing the y-coordinate data. real(kind=real64), intent(in), dimension(size(x,1), size(x,2)) :: z An M-by-N matrix containing the z-coordinate data.","tags":"","loc":"type\\surface_plot.html"},{"title":"color – FPLOT ","text":"type, public :: color Describes an RGB color. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: alpha = 0 The alpha component of the color (must be between 0 and 255).\nNotice, 0 is fully opaque and 255 is fully transparent. integer(kind=int32), public :: blue = 255 The blue component of the color (must be between 0 and 255). integer(kind=int32), public :: green = 0 The green component of the color (must be between 0 and 255). integer(kind=int32), public :: red = 0 The red component of the color (must be between 0 and 255). Type-Bound Procedures procedure, public, pass :: copy_from => clr_copy_from private  subroutine clr_copy_from(this, clr) Copies another color to this color. Arguments Type Intent Optional Attributes Name class( color ), intent(inout) :: this The color object. class( color ), intent(in) :: clr The color to copy. procedure, public, pass :: rgb_to_hex_string => clr_rgb_to_hex_string private pure function clr_rgb_to_hex_string(this) result(txt) Returns the color in hexadecimal format ignoring any alpha channel. Arguments Type Intent Optional Attributes Name class( color ), intent(in) :: this The color object. Return Value character(len=6) A string containing the hexadecimal equivalent. procedure, public, pass :: to_hex_string => clr_to_hex_string private pure function clr_to_hex_string(this) result(txt) Returns the color in hexadecimal format. Arguments Type Intent Optional Attributes Name class( color ), intent(in) :: this The color object. Return Value character(len=8) A string containing the hexadecimal equivalent.","tags":"","loc":"type\\color.html"},{"title":"name_value_pair – FPLOT ","text":"type, public :: name_value_pair Defines a name-value pair. Components Type Visibility Attributes Name Initial character(len=:), public, allocatable :: name The name. real(kind=real64), public :: value The associated value.","tags":"","loc":"type\\name_value_pair.html"},{"title":"plot_axis – FPLOT ","text":"type, public, extends( plot_object ) :: plot_axis Defines a plot axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure( pa_get_string_result ), public, deferred :: get_id_string function pa_get_string_result(this) result(x) Prototype Retrieves a string from a plot_axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\plot_axis.html"},{"title":"x_axis – FPLOT ","text":"type, public, extends( plot_axis ) :: x_axis Defines an x-axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_id_string => xa_get_id private  function xa_get_id(this) result(x) Gets the axis identification string. Arguments Type Intent Optional Attributes Name class( x_axis ), intent(in) :: this The x_axis object. Return Value character(len=:), allocatable The identification string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\x_axis.html"},{"title":"y2_axis – FPLOT ","text":"type, public, extends( plot_axis ) :: y2_axis Defines a secondary y-axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_id_string => y2a_get_id private  function y2a_get_id(this) result(x) Gets the axis identification string. Arguments Type Intent Optional Attributes Name class( y2_axis ), intent(in) :: this The y2_axis object. Return Value character(len=:), allocatable The identification string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\y2_axis.html"},{"title":"y_axis – FPLOT ","text":"type, public, extends( plot_axis ) :: y_axis Defines a y-axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_id_string => ya_get_id private  function ya_get_id(this) result(x) Gets the axis identification string. Arguments Type Intent Optional Attributes Name class( y_axis ), intent(in) :: this The y_axis object. Return Value character(len=:), allocatable The identification string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\y_axis.html"},{"title":"z_axis – FPLOT ","text":"type, public, extends( plot_axis ) :: z_axis Defines a z-axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_id_string => za_get_id private  function za_get_id(this) result(x) Gets the axis identification string. Arguments Type Intent Optional Attributes Name class( z_axis ), intent(in) :: this The z_axis object. Return Value character(len=:), allocatable The identification string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\z_axis.html"},{"title":"surface_plot_data – FPLOT ","text":"type, public, extends( plot_data ) :: surface_plot_data Provides a three-dimensional surface plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => surfd_clear_data private  subroutine surfd_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The surface_plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => surfd_set_data_1 private  subroutine surfd_set_data_1(this, x, y, z, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. real(kind=real64), intent(in), dimension(:,:) :: x An M-by-N matrix containing the x-coordinate data. real(kind=real64), intent(in), dimension(:,:) :: y An M-by-N matrix containing the y-coordinate data. real(kind=real64), intent(in), dimension(:,:) :: z An M-by-N matrix containing the z-coordinate data. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_command_string => surfd_get_cmd private  function surfd_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this surface_plot_data \nobject. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => surfd_get_data_cmd private  function surfd_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data to plot. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_size => surfd_get_size private pure function surfd_get_size(this, dim) result(x) Gets the size of the stored data set. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: dim The dimension of interest.  Notice, data is stored as a\n2D matrix (i.e. only 1 and 2 are valid inputs). Return Value integer(kind=int32) The size of the requested dimension. procedure, public :: get_use_wireframe => surfd_get_wireframe private pure function surfd_get_wireframe(this) result(x) Gets a value determining if a wireframe mesh should be displayed. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. Return Value logical Returns true if a wireframe mesh should be displayed; else, \nfalse to display a solid surface. procedure, public :: get_x => surfd_get_x private pure function surfd_get_x(this, i, j) result(x) Gets the requested X data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. Return Value real(kind=real64) The value. procedure, public :: get_y => surfd_get_y private pure function surfd_get_y(this, i, j) result(x) Gets the requested Y data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. Return Value real(kind=real64) The value. procedure, public :: get_z => surfd_get_z private pure function surfd_get_z(this, i, j) result(x) Gets the requested Z data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. Return Value real(kind=real64) The value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_use_wireframe => surfd_set_wireframe private  subroutine surfd_set_wireframe(this, x) Sets a value determining if a wireframe mesh should be displayed. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. logical, intent(in) :: x Set to true if a wireframe mesh should be displayed; else,\nfalse to display a solid surface. procedure, public :: set_x => surfd_set_x private  subroutine surfd_set_x(this, i, j, x) Sets the requested X data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. real(kind=real64), intent(in) :: x The value. procedure, public :: set_y => surfd_set_y private  subroutine surfd_set_y(this, i, j, x) Sets the requested Y data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. real(kind=real64), intent(in) :: x The value. procedure, public :: set_z => surfd_set_z private  subroutine surfd_set_z(this, i, j, x) Sets the requested Z data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. real(kind=real64), intent(in) :: x The value.","tags":"","loc":"type\\surface_plot_data.html"},{"title":"qt_terminal – FPLOT ","text":"type, public, extends( terminal ) :: qt_terminal Defines a terminal that utilizes QT. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string private  function term_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => qt_get_term_string private  function qt_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( qt_terminal ), intent(in) :: this The qt_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\qt_terminal.html"},{"title":"wxt_terminal – FPLOT ","text":"type, public, extends( terminal ) :: wxt_terminal A WXT terminal. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string private  function term_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => wxt_get_term_string private  function wxt_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( wxt_terminal ), intent(in) :: this The wxt_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\wxt_terminal.html"},{"title":"multiplot – FPLOT ","text":"type, public, extends( plot_object ) :: multiplot Defines a multi-plot layout. Components Type Visibility Attributes Name Initial class( terminal ), public, pointer :: m_terminal => null() The GNUPLOT terminal object to target. Finalization Procedures final :: mp_clean private  subroutine mp_clean(this) Cleans up resources held by the multiplot object. Arguments Type Intent Optional Attributes Name type( multiplot ), intent(inout) :: this The multiplot object. Type-Bound Procedures procedure, public :: draw => mp_draw private  subroutine mp_draw(this, persist, err) Launches GNUPLOT and draws the multiplot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false\nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get => mp_get private  function mp_get(this, i, j) result(x) Gets the requested plot object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. integer(kind=int32), intent(in) :: i The row index of the plot to retrieve. integer(kind=int32), intent(in) :: j The column index of the plot to retrieve. Return Value class( plot ), pointer A pointer to the plot object. procedure, public :: get_column_count => mp_get_cols private pure function mp_get_cols(this) result(x) Gets the number of columns of plots. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value integer(kind=int32) The column count. procedure, public :: get_command_string => mp_get_command private  function mp_get_command(this) result(x) Gets the GNUPLOT commands for this object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value character(len=:), allocatable The command string. procedure, public :: get_font_name => mp_get_font private  function mp_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => mp_get_font_size private  function mp_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value integer(kind=int32) The font size. procedure, public :: get_plot_count => mp_get_count private pure function mp_get_count(this) result(x) Gets the total number of plots. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value integer(kind=int32) The plot count. procedure, public :: get_row_count => mp_get_rows private pure function mp_get_rows(this) result(x) Gets the number of rows of plots. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value integer(kind=int32) The row count. procedure, public :: get_terminal => mp_get_term private  function mp_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value class( terminal ), pointer A pointer to the terminal object. procedure, public :: get_title => mp_get_title private  function mp_get_title(this) result(x) Gets the multiplot's title. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value character(len=:), allocatable The title. procedure, public :: initialize => mp_init private  subroutine mp_init(this, m, n, term, width, height, fname, err) Initializes the multiplot object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. integer(kind=int32), intent(in) :: m The number of rows of plots. integer(kind=int32), intent(in) :: n The number of columns of plots. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.  The \ndefault terminal is a WXT terminal.  The acceptable inputs are: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF integer(kind=int32), intent(in), optional :: width Optionally, the width of the plot window. integer(kind=int32), intent(in), optional :: height Optionally, the height of the plot window. character(len=*), intent(in), optional :: fname A filename to associate with terminals that print to file. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => mp_has_title private pure function mp_has_title(this) result(x) Gets a value determining if a title has been defined for the\nmultiplot object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value logical Returns true if a title has been defined for this multiplot; \nelse, returns false. procedure, public :: save_file => mp_save private  subroutine mp_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => mp_set private  subroutine mp_set(this, i, j, x) Replaces the specified plot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. integer(kind=int32), intent(in) :: i The row index of the plot to replace. integer(kind=int32), intent(in) :: j The column index of the plot to replace. class( plot ), intent(in) :: x The new plot. procedure, public :: set_font_name => mp_set_font private  subroutine mp_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => mp_set_font_size private  subroutine mp_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. integer(kind=int32), intent(in) :: x The font size. procedure, public :: set_title => mp_set_title private  subroutine mp_set_title(this, x) Sets the multiplot's title. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. character(len=*), intent(in) :: x The title. procedure, public :: set_window_size => mp_set_window_size private  subroutine mp_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height.","tags":"","loc":"type\\multiplot.html"},{"title":"plot_object – FPLOT ","text":"type, public :: plot_object The base type for all plot objects. Type-Bound Procedures procedure( get_string_result ), public, deferred :: get_command_string function get_string_result(this) result(x) Prototype Returns a string from a plot_object. Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:), allocatable The result string.","tags":"","loc":"type\\plot_object.html"},{"title":"plot_data_error_bars – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_error_bars Defines a 2D error-bar based data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pde_clear_data private  subroutine pde_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. generic, public :: define_x_error_data => pde_define_x_err , pde_define_x_err_lim private  subroutine pde_define_x_err(this, x, y, xerr, err) Defines the x error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xerr An N-element array containing the x errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pde_define_x_err_lim(this, x, y, xmin, xmax, err) Defines the x error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xmin An N-element array containing the minimum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: xmax An N-element array containing the maximum x values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. generic, public :: define_xy_error_data => pde_define_xy_err , pde_define_xy_err_lim private  subroutine pde_define_xy_err(this, x, y, xerr, yerr, err) Defines x and y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xerr An N-element array containing the x errors at each data point. real(kind=real64), intent(in), dimension(:) :: yerr An N-element array containing the y errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pde_define_xy_err_lim(this, x, y, xmin, xmax, ymin, ymax, err) Defines the x and y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xmin An N-element array containing the minimum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: xmax An N-element array containing the maximum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymin An N-element array containing the minimum y values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymax An N-element array containing the maximum x values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. generic, public :: define_y_error_data => pde_define_y_err , pde_define_y_err_lim private  subroutine pde_define_y_err(this, x, y, yerr, err) Defines the y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: yerr An N-element array containing the y errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pde_define_y_err_lim(this, x, y, ymin, ymax, err) Defines the y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: ymin An N-element array containing the minimum y values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymax An N-element array containing the maximum y values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pde_get_cmd private  function pde_get_cmd(this) result(cmd) Gets the appropriate GNUPLOT command string for the object. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => pde_get_count private pure function pde_get_count(this) result(x) Gets the number of stored data points. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value integer(kind=int32) The number of data points. procedure, public :: get_data_string => pde_get_data_cmd private  function pde_get_data_cmd(this) result(cmd) Gets the appropriate GNUPLOT commands to plot the data itself. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_width => pde_get_line_width private pure function pde_get_line_width(this) result(x) Gets the line width. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value real(kind=real32) The line width. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_plot_x_error_bars => pde_get_plot_x_err private pure function pde_get_plot_x_err(this) result(x) Checks to see if the x error bar data has been defined, and as\na result, if the x error data is to be plotted. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value logical Returns true if the x error bars are to be plotted; else, false. procedure, public :: get_plot_y_error_bars => pde_get_plot_y_err private pure function pde_get_plot_y_err(this) result(x) Checks to see if the y error bar data has been defined, and as\na result, if the x error data is to be plotted. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value logical Returns true if the y error bars are to be plotted; else, false. procedure, public :: get_use_error_box => pde_get_box private pure function pde_get_box(this) result(x) Checks to see if the x and y error boxes should be utilized. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value logical Returns true if the error boxes are to be plotted; else,\nfalse.  Notice, the error boxes are only utilized if there is \nboth x and y error data defined, regardless of the value of this \nproperty. procedure, public :: get_use_range => pde_get_use_range private pure function pde_get_use_range(this) result(x) Gets a value determining if a defined range is being used\nto define the error bar extremes. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value logical True if a defined range is being used; else, false. procedure, public :: pde_define_x_err private  subroutine pde_define_x_err(this, x, y, xerr, err) Defines the x error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xerr An N-element array containing the x errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_x_err_lim private  subroutine pde_define_x_err_lim(this, x, y, xmin, xmax, err) Defines the x error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xmin An N-element array containing the minimum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: xmax An N-element array containing the maximum x values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_xy_err private  subroutine pde_define_xy_err(this, x, y, xerr, yerr, err) Defines x and y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xerr An N-element array containing the x errors at each data point. real(kind=real64), intent(in), dimension(:) :: yerr An N-element array containing the y errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_xy_err_lim private  subroutine pde_define_xy_err_lim(this, x, y, xmin, xmax, ymin, ymax, err) Defines the x and y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xmin An N-element array containing the minimum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: xmax An N-element array containing the maximum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymin An N-element array containing the minimum y values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymax An N-element array containing the maximum x values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_y_err private  subroutine pde_define_y_err(this, x, y, yerr, err) Defines the y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: yerr An N-element array containing the y errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_y_err_lim private  subroutine pde_define_y_err_lim(this, x, y, ymin, ymax, err) Defines the y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: ymin An N-element array containing the minimum y values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymax An N-element array containing the maximum y values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_width => pde_set_line_width private  subroutine pde_set_line_width(this, x) Sets the line width. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_use_error_box => pde_set_box private  subroutine pde_set_box(this, x) Deterimines if the x and y error boxes should be utilized. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. logical, intent(in) :: x Set to true if the error boxes are to be plotted; else,\nfalse.  Notice, the error boxes are only utilized if there is \nboth x and y error data defined, regardless of the value of this \nproperty.","tags":"","loc":"type\\plot_data_error_bars.html"},{"title":"colormap – FPLOT ","text":"type, public, extends( plot_object ) :: colormap A colormap object for a surface plot. Type-Bound Procedures procedure( cm_get_string_result ), public, deferred :: get_color_string function cm_get_string_result(this) result(x) Prototype Retrieves a string result from a colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The string. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\colormap.html"},{"title":"cool_colormap – FPLOT ","text":"type, public, extends( colormap ) :: cool_colormap Defines a colormap consisting of \"cool\" colors. Type-Bound Procedures procedure, public :: get_color_string => ccm_get_clr private  function ccm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( cool_colormap ), intent(in) :: this The cool_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\cool_colormap.html"},{"title":"custom_colormap – FPLOT ","text":"type, public, extends( colormap ) :: custom_colormap Defines a custom colormap that utilizes the FORCOLORMAP library\nto provide the map. Finalization Procedures final :: custom_final private  subroutine custom_final(this) Arguments Type Intent Optional Attributes Name type( custom_colormap ), intent(inout) :: this The custom_colormap object. Type-Bound Procedures procedure, public :: get_color_string => custom_get_clr private  function custom_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( custom_colormap ), intent(in) :: this The custom_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colormap => custom_get private  function custom_get(this) result(rst) Gets a pointer to the FORCOLORMAP colormap object. Arguments Type Intent Optional Attributes Name class( custom_colormap ), intent(in) :: this The custom_colormap object. Return Value class(cmap), pointer A pointer to the FORCOLORMAP colormap object. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_colormap => custom_set private  subroutine custom_set(this, map, err) Sets the FORCOLORMAP colormap object. Arguments Type Intent Optional Attributes Name class( custom_colormap ), intent(inout) :: this The custom_colormap object. class(cmap), intent(in) :: map The FORCOLORMAP colormap object.  The custom_colormap object \nstores a copy of this object; therefore, any changes made to \nx after calls to this routine will not impact the behavior of \nthe custom_colormap object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\custom_colormap.html"},{"title":"earth_colormap – FPLOT ","text":"type, public, extends( colormap ) :: earth_colormap Defines an earthy-colored colormap. Type-Bound Procedures procedure, public :: get_color_string => ecm_get_clr private  function ecm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( earth_colormap ), intent(in) :: this The earth_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\earth_colormap.html"},{"title":"grey_colormap – FPLOT ","text":"type, public, extends( colormap ) :: grey_colormap Defines a grey-scaled colormap. Type-Bound Procedures procedure, public :: get_color_string => gcm_get_clr private  function gcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( grey_colormap ), intent(in) :: this The grey_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\grey_colormap.html"},{"title":"hot_colormap – FPLOT ","text":"type, public, extends( colormap ) :: hot_colormap Defines a colormap consisting of \"hot\" colors. Type-Bound Procedures procedure, public :: get_color_string => hcm_get_clr private  function hcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( hot_colormap ), intent(in) :: this The hot_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\hot_colormap.html"},{"title":"parula_colormap – FPLOT ","text":"type, public, extends( colormap ) :: parula_colormap Defines a colormap equivalent to the MATLAB parula colormap. Type-Bound Procedures procedure, public :: get_color_string => pcm_get_clr private  function pcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( parula_colormap ), intent(in) :: this The parula_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\parula_colormap.html"},{"title":"rainbow_colormap – FPLOT ","text":"type, public, extends( colormap ) :: rainbow_colormap Defines a rainbow colormap. Type-Bound Procedures procedure, public :: get_color_string => rcm_get_clr private  function rcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( rainbow_colormap ), intent(in) :: this The rainbow_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\rainbow_colormap.html"},{"title":"svg_terminal – FPLOT ","text":"type, public, extends( file_terminal ) :: svg_terminal An SVG terminal. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string private  function fterm_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => svg_get_term_string private  function svg_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( svg_terminal ), intent(in) :: this The svg_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\svg_terminal.html"},{"title":"delaunay_tri_surface – FPLOT ","text":"type, public, extends( delaunay_tri_2d ) :: delaunay_tri_surface Provides a type describing a triangulated surface. Type-Bound Procedures procedure, public :: create => d2d_init private  subroutine d2d_init(this, x, y, err) Creates an unconstrained 2D Delaunay triangulation given a \nset of x-y points. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(inout) :: this The delaunay_tri_2d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of each\ndata point. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of each\ndata point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: define_function_values => dts_define_fcn private  subroutine dts_define_fcn(this, z, err) Defines the function values that correspond to the x and y\ndata points. Arguments Type Intent Optional Attributes Name class( delaunay_tri_surface ), intent(inout) :: this The delaunay_tri_surface object. real(kind=real64), intent(in), dimension(:) :: z An N-element array containing the function values for\neach x and y coordinate.  Notice, the x and y coordinates must \nalready be defined prior to calling this routine. class( errors ), intent(inout), optional, target :: err An error handling object. generic, public :: evaluate => dts_interp_1, dts_interp_2 private pure function dts_interp_1(this, x, y) result(z) Evaluates the function at the requested point by means of \nlinear interpolation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_surface ), intent(in) :: this The delaunay_tri_surface object. real(kind=real64), intent(in) :: x The x-coordinate at which to evaluate the function. real(kind=real64), intent(in) :: y The y-coordinate at which to evaluate the function. Return Value real(kind=real64) The function value.  If the point (x, y) does not lie within the \nrange of defined values, then a value of NaN is returned. private pure function dts_interp_2(this, x, y) result(z) Evaluates the function at the requested point by means of \nlinear interpolation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_surface ), intent(in) :: this The delaunay_tri_surface object. real(kind=real64), intent(in), dimension(:) :: x The x data coordinates. real(kind=real64), intent(in), dimension(:) :: y The x data coordinates. Return Value real(kind=real64), allocatable, dimension(:) The interpolated z coordinate points.  If the point (x, y) does \nnot lie within the range of defined values, then a value of NaN \nis returned. procedure, public :: find_triangle => d2d_get_tri_with_pt private pure function d2d_get_tri_with_pt(this, x, y) result(rst) Finds the triangle that contains the specified point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. real(kind=real64), intent(in) :: x The x-coordinate of the point. real(kind=real64), intent(in) :: y The y-coordinate of the point. Return Value integer(kind=int32) Returns the index of the triangle containing the specified\npoint.  If no triangle contains the specified point, a value of\n-1 is returned. procedure, public :: get_indices => d2d_get_tris private pure function d2d_get_tris(this) result(rst) Gets a list of the indices of each triangle vertex. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32), allocatable, dimension(:,:) An N-by-3 matrix with each column containing the index of the\nvertex of each triangle where N is the number of triangles. procedure, public :: get_point_count => d2d_get_pt_count private pure function d2d_get_pt_count(this) result(rst) Gets the number of points in the triangulation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32) The number of points in the triangulation. procedure, public :: get_points_x => d2d_get_x_pts private pure function d2d_get_x_pts(this) result(rst) Gets the x-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value real(kind=real64), allocatable, dimension(:) An array of the x-coordinates of each point. procedure, public :: get_points_y => d2d_get_y_pts private pure function d2d_get_y_pts(this) result(rst) Gets the y-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value real(kind=real64), allocatable, dimension(:) An array of the y-coordinates of each point. procedure, public :: get_points_z => dts_get_z private pure function dts_get_z(this) result(rst) Gets the z-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_surface ), intent(in) :: this The delaunay_tri_surface object. Return Value real(kind=real64), allocatable, dimension(:) An array of the z-coordinates of each point. procedure, public :: get_triangle_count => d2d_get_tri_count private pure function d2d_get_tri_count(this) result(rst) Gets the number of triangles in the triangulation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32) The number of triangles in the triangulation.","tags":"","loc":"type\\delaunay_tri_surface.html"},{"title":"plot_arrow – FPLOT ","text":"type, public, extends( plot_object ) :: plot_arrow Defines an arrow that can be drawn on a plot. Type-Bound Procedures procedure, public :: get_color => par_get_color private pure function par_get_color(this) result(rst) Gets the color of the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value type( color ) The color. procedure, public :: get_command_string => par_get_cmd private  function par_get_cmd(this) result(rst) Returns the appropriate GNUPLOT command string to establish appropriate \nparameters. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_head_angle => par_get_head_angle private pure function par_get_head_angle(this) result(rst) Gets the angle of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32) The angle, in degrees. procedure, public :: get_head_back_angle => par_get_head_back_angle private pure function par_get_head_back_angle(this) result(rst) Gets the angle of the back of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32) The angle, in degrees. procedure, public :: get_head_fill => par_get_fill private pure function par_get_fill(this) result(rst) Gets a flag denoting the head fill type. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value integer(kind=int32) The flag denoting head fill. procedure, public :: get_head_location => par_get_head private pure function par_get_head(this) result(rst) Gets the coordinates of the arrow's head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32), dimension(3) A 3-element array containing the x, y, and z coordinates of the\narrow's head. procedure, public :: get_head_size => par_get_head_size private pure function par_get_head_size(this) result(rst) Gets the size of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32) The head size. procedure, public :: get_head_type => par_get_head_type private pure function par_get_head_type(this) result(rst) Gets the type of arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value integer(kind=int32) The arrow head type. procedure, public :: get_is_visible => par_get_is_visible private pure function par_get_is_visible(this) result(rst) Gets a value determining if the arrow is visible. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value logical True if the arrow is visible; else, false. procedure, public :: get_line_style => par_get_line_style private pure function par_get_line_style(this) result(rst) Gets the line style used to draw the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value integer(kind=int32) The line style. procedure, public :: get_line_width => par_get_line_width private pure function par_get_line_width(this) result(rst) Gets the width of the lines used to draw the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32) The width of the line. procedure, public :: get_move_to_front => par_get_move_to_front private pure function par_get_move_to_front(this) result(rst) Gets a value determining if the arrow should be moved to the front. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value logical True if the arrow should be moved to the front; else, false. procedure, public :: get_tail_location => par_get_tail private pure function par_get_tail(this) result(rst) Gets the coordinates of the arrow's tail. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32), dimension(3) A 3-element array containing the x, y, and z coordinates of the \narrow's tail. procedure, public :: get_use_default_size => par_get_use_default_size private pure function par_get_use_default_size(this) result(rst) Gets a value determining if arrow head sizing defaults should be used. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value logical True if the defaults should be used; else, false. procedure, public :: set_color => par_set_color private  subroutine par_set_color(this, x) Sets the color of the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. type( color ), intent(in) :: x The color. procedure, public :: set_head_angle => par_set_head_angle private  subroutine par_set_head_angle(this, x) Sets the angle of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The angle, in degrees. procedure, public :: set_head_back_angle => par_set_head_back_angle private  subroutine par_set_head_back_angle(this, x) Sets the angle of the back of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The angle, in degrees. procedure, public :: set_head_fill => par_set_fill private  subroutine par_set_fill(this, x) Sets a flag denoting the head fill type. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. integer(kind=int32), intent(in) :: x The flag denoting head fill.  It must be one of the following \nconstants. ARROW_FILLED ARROW_EMPTY ARROW_NO_BORDER ARROW_NO_FILL If the value is not one of the above, the command is ignored. generic, public :: set_head_location => par_set_head_1, par_set_head_2, par_set_head_3 private  subroutine par_set_head_1(this, x) Sets the location of the arrow's head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x (3) A 3-element array containing the x, y, and z coordinates of the\narrow's head. private  subroutine par_set_head_2(this, x, y) Sets the location of the arrow's head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The x-coordinate of the arrow's head. real(kind=real32), intent(in) :: y The y-coordinate of the arrow's head. private  subroutine par_set_head_3(this, x, y, z) Sets the location of the arrow's head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The x-coordinate of the arrow's head. real(kind=real32), intent(in) :: y The y-coordinate of the arrow's head. real(kind=real32), intent(in) :: z The z-coordinate of the arrow's head. procedure, public :: set_head_size => par_set_head_size private  subroutine par_set_head_size(this, x) Sets the size of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The head size. procedure, public :: set_head_type => par_set_head_type private  subroutine par_set_head_type(this, x) Sets the type of arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. integer(kind=int32), intent(in) :: x The arrow head type.  It must be one of the following constants. ARROW_HEAD ARROW_BACKHEAD ARROW_HEADS ARROW_NO_HEAD If the value is not one of the above, the command is ignored. procedure, public :: set_is_visible => par_set_is_visible private  subroutine par_set_is_visible(this, x) Sets a value determining if the arrow is visible. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. logical, intent(in) :: x True if the arrow is visible; else, false. procedure, public :: set_line_style => par_set_line_style private  subroutine par_set_line_style(this, x) Sets the line style used to draw the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. integer(kind=int32), intent(in) :: x The line style.  The value must be one of the following. LINE_SOLID LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED If the value is not one of the above, the command is ignored. procedure, public :: set_line_width => par_set_line_width private  subroutine par_set_line_width(this, x) Sets the width of the lines used to draw the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The width of the line. procedure, public :: set_move_to_front => par_set_move_to_front private  subroutine par_set_move_to_front(this, x) Sets a value determining if the arrow should be moved to the front. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. logical, intent(in) :: x True if the arrow should be moved to the front; else, false. generic, public :: set_tail_location => par_set_tail_1, par_set_tail_2, par_set_tail_3 private  subroutine par_set_tail_1(this, x) Sets the coordinates of the arrow's tail. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x (3) A 3-element array containing the x, y, and z coordinates of the \narrow's tail. private  subroutine par_set_tail_2(this, x, y) Sets the coordinates of the arrow's tail. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The x-coordinate of the arrow's tail. real(kind=real32), intent(in) :: y !! The y-coordinate of the arrow's tail. private  subroutine par_set_tail_3(this, x, y, z) Sets the coordinates of the arrow's tail. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The x-coordinate of the arrow's tail. real(kind=real32), intent(in) :: y The y-coordinate of the arrow's tail. real(kind=real32), intent(in) :: z The z-coordinate of the arrow's tail. procedure, public :: set_use_default_size => par_set_use_default_size private  subroutine par_set_use_default_size(this, x) Sets a value determining if arrow head sizing defaults should be used. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. logical, intent(in) :: x True if the defaults should be used; else, false.","tags":"","loc":"type\\plot_arrow.html"},{"title":"correlation_plot – FPLOT ","text":"type, public, extends( plot_object ) :: correlation_plot Defines a multiplot arrangement designed to illustrate correlation\nbetween data sets. Type-Bound Procedures procedure, public :: draw => cp_draw private  subroutine cp_draw(this, persist, err) Launches GNUPLOT and draws the correlation_plot per the current \nstate of the command list. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false\nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get => cp_get private  function cp_get(this, i, j) result(x) Gets the requested plot object. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. integer(kind=int32), intent(in) :: i The row index of the plot to retrieve. integer(kind=int32), intent(in) :: j The column index of the plot to retrieve. Return Value class( plot ), pointer A pointer to the plot object. procedure, public :: get_column_count => cp_get_cols private pure function cp_get_cols(this) result(x) Gets the number of columns of plots. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value integer(kind=int32) The column count. procedure, public :: get_command_string => cp_get_command private  function cp_get_command(this) result(x) Gets the GNUPLOT commands for this object. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value character(len=:), allocatable The command string. procedure, public :: get_font_name => cp_get_font private  function cp_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => cp_get_font_size private  function cp_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value integer(kind=int32) The font size. procedure, public :: get_plot_count => cp_get_count private pure function cp_get_count(this) result(x) Gets the total number of plots. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value integer(kind=int32) The plot count. procedure, public :: get_row_count => cp_get_rows private pure function cp_get_rows(this) result(x) Gets the number of rows of plots. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value integer(kind=int32) The row count. procedure, public :: get_terminal => cp_get_term private  function cp_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value class( terminal ), pointer A pointer to the terminal object. procedure, public :: initialize => cp_init private  subroutine cp_init(this, x, labels, term, width, height, err) Initializes the correlation_plot object. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(inout) :: this The correlation_plot object. real(kind=real64), intent(in), dimension(:,:) :: x The data to plot with each column representing a data set. type(string), intent(in), optional, dimension(:) :: labels An optional array containing a label to associate with each\ndata set in x.  If supplied, this array must have the same length\nas x has columns. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.  The \ndefault terminal is a WXT terminal.  The acceptable inputs are: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF integer(kind=int32), intent(in), optional :: width Optionally, the width of the plot window. integer(kind=int32), intent(in), optional :: height Optionally, the height of the plot window. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => cp_save private  subroutine cp_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_font_name => cp_set_font private  subroutine cp_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(inout) :: this The correlation_plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => cp_set_font_size private  subroutine cp_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(inout) :: this The correlation_plot object. integer(kind=int32), intent(in) :: x The font size.","tags":"","loc":"type\\correlation_plot.html"},{"title":"filled_plot_data – FPLOT ","text":"type, public, extends( plot_data_colored ) :: filled_plot_data Defines a two-dimensional filled plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => fpd_clear_data private  subroutine fpd_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(inout) :: this The filled_plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => fpd_define_data private  subroutine fpd_define_data(this, x, y, yc, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(inout) :: this The filled_plot_data object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinate data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinate data. real(kind=real64), intent(in), dimension(:) :: yc An N-element array containing the constraining curve y \ncoordinate data. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_axes_string => fpd_get_axes_cmd private  function fpd_get_axes_cmd(this) result(x) Gets the GNUPLOT command string defining which axes the data\nis to be plotted against. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(in) :: this The filled_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => fpd_get_cmd private  function fpd_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this\nfilled_plot_data object. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(in) :: this The filled_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => fpd_get_data_cmd private  function fpd_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data to plot. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(in) :: this The filled_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => fpd_get_draw_against_y2 private pure function fpd_get_draw_against_y2(this) result(x) Gets a value determining if the data should be plotted against\nthe secondary y-axis. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(in) :: this The filled_plot_data object. Return Value logical Returns true if the data should be plotted against the secondary\ny-axis; else, false to plot against the primary y-axis. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => fpd_set_draw_against_y2 private  subroutine fpd_set_draw_against_y2(this, x) Sets a value determining if the data should be plotted against\nthe secondary y-axis. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(inout) :: this The filled_plot_data object. logical, intent(in) :: x Set to true if the data should be plotted against the secondary\ny-axis; else, false to plot against the primary y-axis. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\filled_plot_data.html"},{"title":"plot_bar – FPLOT ","text":"type, public, extends( plot_2d ) :: plot_bar Defines a 2D plot tailored towards bar plotting. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_bar_width => pb_get_bar_width private pure function pb_get_bar_width(this) result(x) Gets the bar width scaling factor. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(in) :: this The plot_bar object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => pb_get_cmd private  function pb_get_cmd(this) result(x) Gets the GNUPLOT commands required to draw the plot. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(in) :: this The plot_bar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_jitter_overlap => p2d_get_jitter_overlap private pure function p2d_get_jitter_overlap(this) result(rst) Gets the jitter overalp. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value real(kind=real32) The jitter overlap. procedure, public :: get_jitter_spread => p2d_get_jitter_spread private pure function p2d_get_jitter_spread(this) result(rst) Gets the jitter horizontal spread. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value real(kind=real32) The jitter horizontal spread. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_spacing => pb_get_spacing private pure function pb_get_spacing(this) result(rst) Gets the spacing between clusters of data sets. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(in) :: this The [[plot+bar]] object. Return Value integer(kind=int32) The spacing. procedure, public :: get_square_axes => p2d_get_square_axes private pure function p2d_get_square_axes(this) result(rst) Gets a logical flag determining if the axes size should be squared\noff. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical Returns true if the axes are to be sized to a square; else,\nfalse. procedure, public :: get_stacked => pb_get_stacked private pure function pb_get_stacked(this) result(rst) Gets a value determining if data sets should be stacked (true) or\nleft side-by-side (false). Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(in) :: this The plot_bar object. Return Value logical True if multiple data sets should be stacked; else, false. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_use_jittering => p2d_get_use_jitter private pure function p2d_get_use_jitter(this) result(rst) Gets a logical value determining if jittering should be used. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical True if jittering should be used; else, false. procedure, public :: get_use_y2_axis => p2d_get_use_y2 private pure function p2d_get_use_y2(this) result(x) Gets a flag determining if the secondary y-axis should be\ndisplayed. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical Returns true if the axis should be displayed; else, false. procedure, public :: get_x_axis => p2d_get_x_axis private  function p2d_get_x_axis(this) result(ptr) Gets the x-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the x-axis object. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y2_axis => p2d_get_y2_axis private  function p2d_get_y2_axis(this) result(ptr) Gets the secondary y-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the secondary y-axis object. procedure, public :: get_y_axis => p2d_get_y_axis private  function p2d_get_y_axis(this) result(ptr) Gets the y-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the y-axis object. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: initialize => p2d_init private  subroutine p2d_init(this, term, fname, err) Initializes the plot_2d object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: p2d_push_data private  subroutine p2d_push_data(this, x, y, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , p2d_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine p2d_push_data(this, x, y, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_bar_width => pb_set_bar_width private  subroutine pb_set_bar_width(this, x) Sets the bar width scaling factor. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(inout) :: this The plot_bar object. real(kind=real32), intent(in) :: x The scaling factor.  The value must be in the set [0, 1]; else, the\nvalue will be shifted accordingly. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_jitter_overlap => p2d_set_jitter_overlap private  subroutine p2d_set_jitter_overlap(this, x) Sets the jitter overlap. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real32), intent(in) :: x The jitter overlap. procedure, public :: set_jitter_spread => p2d_set_jitter_spread private  subroutine p2d_set_jitter_spread(this, x) Sets the jitter horizontal spread. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real32), intent(in) :: x The jitter horizontal spread. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_spacing => pb_set_spacing private  subroutine pb_set_spacing(this, x) Sets the spacing between clusters of data sets. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(inout) :: this The [[plot+bar]] object. integer(kind=int32), intent(in) :: x The spacing. procedure, public :: set_square_axes => p2d_set_square_axes private  subroutine p2d_set_square_axes(this, x) Sets a logical flag determining if the axes size should be\nsquared off. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if the axes are to be sized to a square; else,\nfalse. procedure, public :: set_stacked => pb_set_stacked private  subroutine pb_set_stacked(this, x) Gets a value determining if data sets should be stacked (true) or\nleft side-by-side (false). Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(inout) :: this The plot_bar object. logical, intent(in) :: x True if multiple data sets should be stacked; else, false. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_use_jittering => p2d_set_use_jitter private  subroutine p2d_set_use_jitter(this, x) Sets a logical value determining if jittering should be used. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if jittering should be used; else, false. procedure, public :: set_use_y2_axis => p2d_set_use_y2 private  subroutine p2d_set_use_y2(this, x) Sets a flag determining if the secondary y-axis should be\ndisplayed. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if the axis should be displayed; else, false. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_axis_title => p2d_set_x_axis_title private  subroutine p2d_set_x_axis_title(this, x) Sets the title associated with the plot's x-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y2_axis_title => p2d_set_y2_axis_title private  subroutine p2d_set_y2_axis_title(this, x) Sets the title associated with the plot's secondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_axis_title => p2d_set_y_axis_title private  subroutine p2d_set_y_axis_title(this, x) Sets the title associated with the plot's y-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot_bar.html"},{"title":"plot_data_box_whisker – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_box_whisker A container for box-whisker plot data. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdbw_clear_data private  subroutine pdbw_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pdbw_define_data_xstring private  subroutine pdbw_define_data_xstring(this, x, boxmin, boxmax, whiskermin, whiskermax, mid, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. type(string), intent(in), dimension(:) :: x The x-coordinate data. real(kind=real64), intent(in), dimension(size(x)) :: boxmin The minimum y-values for each box. real(kind=real64), intent(in), dimension(size(x)) :: boxmax The maximum y-values for each box. real(kind=real64), intent(in), dimension(size(x)) :: whiskermin The minimum y-values for each whisker. real(kind=real64), intent(in), dimension(size(x)) :: whiskermax The maximum y-values for each whisker. real(kind=real64), intent(in), optional, dimension(size(x)) :: mid The mid-range values for each whisker.  Typically the mean or\nmedian of the data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_box_fill_opacity => pdbw_get_opacity private pure function pdbw_get_opacity(this) result(rst) Gets the opacity of the box fill color. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The opacity on a scale from 0 to 1. procedure, public :: get_box_width => pdbw_get_box_width private pure function pdbw_get_box_width(this) result(rst) Gets the box width.  By default the x-axis is incremented in units of 1;\ntherefore, a box width of 1 will fully fill the space. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The box width. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdbw_get_cmd private  function pdbw_get_cmd(this) result(rst) Gets the GNUPLOT command string for this object. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => pdbw_get_data_cmd private  function pdbw_get_data_cmd(this) result(rst) Gets the GNUPLOT command string defining the data for this object. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => pdbw_get_use_y2 private pure function pdbw_get_use_y2(this) result(rst) Gets a value determining if the data is to be plotted against the\nsecondary y axis. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value logical Returns true if the data is to be plotted against the secondary y \naxis; else, false for the primary y axis. procedure, public :: get_fill_boxes => pdbw_get_fill_boxes private pure function pdbw_get_fill_boxes(this) result(rst) Gets a value determining if the boxes should be filled. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value logical True if the boxes are to be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_width => pdbw_get_line_width private pure function pdbw_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The line width. procedure, public :: get_midline_color => pdbw_get_midline_color private pure function pdbw_get_midline_color(this) result(rst) Gets the color of the midline. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value type( color ) The line color. procedure, public :: get_midline_width => pdbw_get_midline_width private pure function pdbw_get_midline_width(this) result(rst) Gets the width of the midline. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The line width. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_use_whiskerbars => pdbw_get_use_whiskerbars private pure function pdbw_get_use_whiskerbars(this) result(rst) Gets a value determining if whiskerbars should be used. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value logical True if whiskerbars should be used; else, false. procedure, public :: get_whiskerbar_width => pdbw_get_whiskerbar_width private pure function pdbw_get_whiskerbar_width(this) result(rst) Gets the width of whiskerbar. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The width of the whiskerbar on a scale of 0:1 with 1 being the full\nwidth. procedure, public :: set_box_fill_opacity => pdbw_set_opacity private  subroutine pdbw_set_opacity(this, x) Sets the opacity of the box fill color. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The opacity on a scale from 0 to 1. procedure, public :: set_box_width => pdbw_set_box_width private  subroutine pdbw_set_box_width(this, x) Sets the box width.  By default the x-axis is incremented in units of 1;\ntherefore, a box width of 1 will fully fill the space. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The box width. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => pdbw_set_use_y2 private  subroutine pdbw_set_use_y2(this, x) Sets a value determining if the data is to be plotted against the\nsecondary y axis. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. logical, intent(in) :: x Set to true if the data is to be plotted against the secondary y \naxis; else, false for the primary y axis. procedure, public :: set_fill_boxes => pdbw_set_fill_boxes private  subroutine pdbw_set_fill_boxes(this, x) Sets a value determining if the boxes should be filled. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. logical, intent(in) :: x Set to true if the boxes are to be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_width => pdbw_set_line_width private  subroutine pdbw_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_midline_color => pdbw_set_midline_color private  subroutine pdbw_set_midline_color(this, x) Sets the color of the midline. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. type( color ), intent(in) :: x The line color. procedure, public :: set_midline_width => pdbw_set_midline_width private  subroutine pdbw_set_midline_width(this, x) Sets the width of the midline. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_use_whiskerbars => pdbw_set_use_whiskerbars private  subroutine pdbw_set_use_whiskerbars(this, x) Sets a value determining if whiskerbars should be used. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. logical, intent(in) :: x Set to true if whiskerbars should be used; else, false. procedure, public :: set_whiskerbar_width => pdbw_set_whiskerbar_width private  subroutine pdbw_set_whiskerbar_width(this, x) Sets the width of the whiskerbar. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The width of the whiskerbar.  This value is clamped to [0, 1] with\n1 representing full width.","tags":"","loc":"type\\plot_data_box_whisker.html"},{"title":"plot_data_tri_2d – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_tri_2d Defines a 2D triangulated data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdt2d_clear_data private  subroutine pdt2d_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(inout) :: this The plot_data_tri_2d object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pdt2d_define_data private  subroutine pdt2d_define_data(this, tri) Defines the data to plot. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(inout) :: this The plot_data_tri_2d object. class( delaunay_tri_2d ), intent(in) :: tri The triangulation data to plot. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdt2d_get_cmd private  function pdt2d_get_cmd(this) result(x) Gets the GNUPLOT command string for the object. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(in) :: this The plot_data_tri_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => pdt2d_get_data_cmd private  function pdt2d_get_data_cmd(this) result(x) Gets the GNUPLOT command string describing the data to plot. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(in) :: this The plot_data_tri_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => pdt2d_get_line_style private pure function pdt2d_get_line_style(this) result(rst) Gets the line style. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(in) :: this The plot_data_tri_2d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following\nconstants. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => pdt2d_get_line_width private pure function pdt2d_get_line_width(this) result(rst) Gets the width of the lines used to draw the triangulation. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(in) :: this The plot_data_tri_2d object. Return Value real(kind=real32) The line width. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => pdt2d_set_line_style private  subroutine pdt2d_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(inout) :: this The plot_data_tri_2d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following\nconstants. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => pdt2d_set_line_width private  subroutine pdt2d_set_line_width(this, x) Sets the width of the lines used to draw the triangulation. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(inout) :: this The plot_data_tri_2d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\plot_data_tri_2d.html"},{"title":"vector_field_plot_data – FPLOT ","text":"type, public, extends( plot_data_colored ) :: vector_field_plot_data Defines a two-dimensional vector-field plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => vfpd_clear_data private  subroutine vfpd_clear_data(this) Clears the data from the data set. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(inout) :: this The vector_field_plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => vfpd_define_data private  subroutine vfpd_define_data(this, x, y, dx, dy, c, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(inout) :: this The vector_field_plot_data object. real(kind=real64), intent(in), dimension(:,:) :: x An M-by-N matrix containing the x-locations of each arrow's \norigin. real(kind=real64), intent(in), dimension(:,:) :: y An M-by-N matrix containing the y-locations of each arrow's \norigin. real(kind=real64), intent(in), dimension(:,:) :: dx An M-by-N matrix containing the x-direction of each arrow. real(kind=real64), intent(in), dimension(:,:) :: dy An M-by-N matrix containing the y-direction of each arrow. real(kind=real64), intent(in), optional, dimension(:,:) :: c An optional M-by-N matrix containing information on how to color \nthe arrows.  The colors are determined by the active colormap. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_arrow_size => vfpd_get_arrow_size private pure function vfpd_get_arrow_size(this) result(rst) Gets the scaling factor used to determine the arrow size. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value real(kind=real64) The scaling factor. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => vfpd_get_cmd private  function vfpd_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this\nvector_field_plot_data object. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => vfpd_get_data_cmd private  function vfpd_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data to plot. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_fill_arrow => vfpd_get_fill_arrow private pure function vfpd_get_fill_arrow(this) result(rst) Gets a value determining if the arrow heads should be filled. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value logical True if the arrow heads should be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_use_data_dependent_colors => vfpd_get_use_data_dependent_colors private pure function vfpd_get_use_data_dependent_colors(this) result(rst) Gets a value indicating if data-dependent coloring should be\nused.  This is defined by supplying information on how to scale the\ncoloring when calling define_data. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value logical Returns true if data-dependent coloring is being used; else,\nfalse. procedure, public :: set_arrow_size => vfpd_set_arrow_size private  subroutine vfpd_set_arrow_size(this, x) Sets the scaling factor used to determine the arrow size. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(inout) :: this The vector_field_plot_data object. real(kind=real64), intent(in) :: x The scaling factor. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_fill_arrow => vfpd_set_fill_arrow private  subroutine vfpd_set_fill_arrow(this, x) Sets a value determining if the arrow heads should be filled. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(inout) :: this The vector_field_plot_data object. logical, intent(in) :: x True if the arrow heads should be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\vector_field_plot_data.html"},{"title":"plot_3d – FPLOT ","text":"type, public, extends( plot ) :: plot_3d A plot object defining a 3D plot. Finalization Procedures final :: p3d_clean_up private  subroutine p3d_clean_up(this) Cleans up resources held by the plot_3d object. Arguments Type Intent Optional Attributes Name type( plot_3d ), intent(inout) :: this The plot_3d object. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_azimuth => p3d_get_azimuth private pure function p3d_get_azimuth(this) result(x) Gets the plot azimuth angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real64) The azimuth angle, in degrees. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => p3d_get_cmd private  function p3d_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot_3d object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_coordinate_system => p3d_get_csys private pure function p3d_get_csys(this) result(rst) Gets a value determining the coordinate system. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The coordinate system ID, which must be one of the following. COORDINATES_CARTESIAN COORDINATES_CYLINDRICAL COORDINATES_SPHERICAL procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_elevation => p3d_get_elevation private pure function p3d_get_elevation(this) result(x) Gets the plot elevation angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real64) The elevation angle, in degrees. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_z_major_grid => p3d_get_show_z_major_grid private pure function p3d_get_show_z_major_grid(this) result(x) Gets a value determining if the z-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid private pure function p3d_get_show_z_minor_grid(this) result(x) Gets a value determining if the z-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_use_map_view => p3d_get_use_map_view private pure function p3d_get_use_map_view(this) result(rst) Gets a value determining if the view should be set to a 2D\nmap view.  If true, the azimuth and elevation terms are ignored. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical Returns true if the map view will be used; else, false. procedure, public :: get_x_axis => p3d_get_x_axis private  function p3d_get_x_axis(this) result(ptr) Gets the x-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the x-axis object. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_axis => p3d_get_y_axis private  function p3d_get_y_axis(this) result(ptr) Gets the y-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the y-axis object. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_z_axis => p3d_get_z_axis private  function p3d_get_z_axis(this) result(ptr) Gets the z-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the z-axis object. procedure, public :: get_z_intersect_xy => p3d_get_z_axis_intersect private pure function p3d_get_z_axis_intersect(this) result(x) Gets a value determining if the z-axis should intersect the\nx-y plane. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical Returns true if the z-axis should intersect the x-y plane; else,\nfalse to allow the z-axis to float. procedure, public :: get_z_major_grid_color => p3d_get_z_major_grid_color private pure function p3d_get_z_major_grid_color(this) result(x) Gets the color of the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value type( color ) The color. procedure, public :: get_z_major_grid_line_style => p3d_get_z_major_grid_line_style private pure function p3d_get_z_major_grid_line_style(this) result(x) Gets the line style used for the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_z_major_grid_line_width => p3d_get_z_major_grid_line_width private pure function p3d_get_z_major_grid_line_width(this) result(x) Gets the width of the z-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real32) The line width. procedure, public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color private pure function p3d_get_z_minor_grid_color(this) result(x) Gets the color of the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value type( color ) The color. procedure, public :: get_z_minor_grid_line_style => p3d_get_z_minor_grid_line_style private pure function p3d_get_z_minor_grid_line_style(this) result(x) Gets the line style used for the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_z_minor_grid_line_width => p3d_get_z_minor_grid_line_width private pure function p3d_get_z_minor_grid_line_width(this) result(x) Gets the width of the z-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real32) The line width. procedure, public :: initialize => p3d_init private  subroutine p3d_init(this, term, fname, err) Initializes the plot_3d object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: p3d_push_data private  subroutine p3d_push_data(this, x, y, z, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real64), intent(in), dimension(size(x)) :: z The z-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , p3d_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine p3d_push_data(this, x, y, z, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real64), intent(in), dimension(size(x)) :: z The z-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_azimuth => p3d_set_azimuth private  subroutine p3d_set_azimuth(this, x) Sets the plot azimuth angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in) :: x The azimuth angle, in degrees. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_coordinate_system => p3d_set_csys private  subroutine p3d_set_csys(this, x) Sets a value determining the coordinate system. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The coordinate system ID, which must be one of the following. COORDINATES_CARTESIAN COORDINATES_CYLINDRICAL COORDINATES_SPHERICAL procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_elevation => p3d_set_elevation private  subroutine p3d_set_elevation(this, x) Sets the plot elevation angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in) :: x The elevation angle, in degrees. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_z_major_grid => p3d_set_show_z_major_grid private  subroutine p3d_set_show_z_major_grid(this, x) Sets a value determining if the z-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid private  subroutine p3d_set_show_z_minor_grid(this, x) Sets a value determining if the z-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_use_map_view => p3d_set_use_map_view private  subroutine p3d_set_use_map_view(this, x) Sets a value determining if the view should be set to a 2D\nmap view.  If true, the azimuth and elevation terms are ignored. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x Seturns true if the map view will be used; else, false. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_axis_title => p3d_set_x_axis_title private  subroutine p3d_set_x_axis_title(this, x) Sets the title associated with the plot's x-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_axis_title => p3d_set_y_axis_title private  subroutine p3d_set_y_axis_title(this, x) Sets the title associated with the plot's y-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_z_axis_title => p3d_set_z_axis_title private  subroutine p3d_set_z_axis_title(this, x) Sets the title associated with the plot's z-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_z_intersect_xy => p3d_set_z_axis_intersect private  subroutine p3d_set_z_axis_intersect(this, x) Sets a value determining if the z-axis should intersect the\nx-y plane. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x Set to true if the z-axis should intersect the x-y plane; else,\nfalse to allow the z-axis to float. procedure, public :: set_z_major_grid_color => p3d_set_z_major_grid_color private  subroutine p3d_set_z_major_grid_color(this, x) Sets the color of the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. type( color ), intent(in) :: x The color. procedure, public :: set_z_major_grid_line_style => p3d_set_z_major_grid_line_style private  subroutine p3d_set_z_major_grid_line_style(this, x) Sets the line style used for the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_z_major_grid_line_width => p3d_set_z_major_grid_line_width private  subroutine p3d_set_z_major_grid_line_width(this, x) Sets the width of the z-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color private  subroutine p3d_set_z_minor_grid_color(this, x) Sets the color of the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. type( color ), intent(in) :: x The color. procedure, public :: set_z_minor_grid_line_style => p3d_set_z_minor_grid_line_style private  subroutine p3d_set_z_minor_grid_line_style(this, x) Sets the line style used for the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_z_minor_grid_line_width => p3d_set_z_minor_grid_line_width private  subroutine p3d_set_z_minor_grid_line_width(this, x) Sets the width of the z-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot_3d.html"},{"title":"file_terminal – FPLOT ","text":"type, public, extends( terminal ) :: file_terminal Defines a terminal meant to save results directly to file \n(e.g. PNG, SVG, etc.). Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string private  function fterm_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure( term_get_string_result ), public, deferred :: get_id_string function term_get_string_result(this) result(x) Prototype Retrieves a string from a terminal. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\file_terminal.html"},{"title":"terminal – FPLOT ","text":"type, public, extends( plot_object ) :: terminal A GNUPLOT terminal object. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string private  function term_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure( term_get_string_result ), public, deferred :: get_id_string function term_get_string_result(this) result(x) Prototype Retrieves a string from a terminal. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\terminal.html"},{"title":"line_plot_data – FPLOT ","text":"type, public, extends( plot_data_colored ) :: line_plot_data A plot_data object for describing line series data. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( pd_clear_action ), public, deferred :: clear_data subroutine pd_clear_action(this) Prototype Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => lpd_get_cmd public  function lpd_get_cmd (this) result(rst) Gets the GNUPLOT command string to represent this line_plot_data\nobject. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value character(len=:), allocatable The command string. procedure( pd_get_string_result ), public, deferred :: get_data_string function pd_get_string_result(this) result(x) Prototype Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\line_plot_data.html"},{"title":"plot_data – FPLOT ","text":"type, public, extends( plot_object ) :: plot_data A container for plot data. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( pd_clear_action ), public, deferred :: clear_data subroutine pd_clear_action(this) Prototype Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( get_string_result ), public, deferred :: get_command_string function get_string_result(this) result(x) Prototype Returns a string from a plot_object. Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:), allocatable The result string. procedure( pd_get_string_result ), public, deferred :: get_data_string function pd_get_string_result(this) result(x) Prototype Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\plot_data.html"},{"title":"plot_data_colored – FPLOT ","text":"type, public, extends( plot_data ) :: plot_data_colored Defines a colored plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( pd_clear_action ), public, deferred :: clear_data subroutine pd_clear_action(this) Prototype Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure( get_string_result ), public, deferred :: get_command_string function get_string_result(this) result(x) Prototype Returns a string from a plot_object. Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:), allocatable The result string. procedure( pd_get_string_result ), public, deferred :: get_data_string function pd_get_string_result(this) result(x) Prototype Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\plot_data_colored.html"},{"title":"scatter_plot_data – FPLOT ","text":"type, public, extends( line_plot_data ) :: scatter_plot_data A plot_data object for describing scatter plot data sets. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( pd_clear_action ), public, deferred :: clear_data subroutine pd_clear_action(this) Prototype Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( spd_get_string_result ), public, deferred :: get_axes_string function spd_get_string_result(this) result(x) Prototype Gets a string value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => spd_get_cmd public  function spd_get_cmd (this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string. procedure( spd_get_int_value ), public, deferred :: get_count pure function spd_get_int_value(this) result(x) Prototype Gets an integer value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value integer(kind=int32) The value. procedure( pd_get_string_result ), public, deferred :: get_data_string function pd_get_string_result(this) result(x) Prototype Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_fill_curve => spd_get_filled private pure function spd_get_filled(this) result(rst) Gets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the curve should be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_simplification_factor => spd_get_simplify_factor private pure function spd_get_simplify_factor(this) result(x) Gets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value real(kind=real64) The scaling factor. procedure, public :: get_simplify_data => spd_get_simplify_data private pure function spd_get_simplify_data(this) result(x) Gets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors private pure function spd_get_data_dependent_colors(this) result(rst) Gets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if data-dependent colors should be used; else, false. procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size private pure function spd_get_use_var_point_size(this) result(rst) Gets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if variable size points should be used; else, false. procedure( spd_get_value ), public, deferred :: get_x pure function spd_get_value(this, index) result(x) Prototype Gets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. Return Value real(kind=real64) The value. procedure( spd_get_value ), public, deferred :: get_y pure function spd_get_value(this, index) result(x) Prototype Gets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. Return Value real(kind=real64) The value. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_fill_curve => spd_set_filled private  subroutine spd_set_filled(this, x) Sets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the curve should be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_simplification_factor => spd_set_simplify_factor private  subroutine spd_set_simplify_factor(this, x) Sets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. real(kind=real64), intent(in) :: x The scaling factor. procedure, public :: set_simplify_data => spd_set_simplify_data private  subroutine spd_set_simplify_data(this, x) Sets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors private  subroutine spd_set_data_dependent_colors(this, x) Sets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if data-dependent colors should be used; else, false. procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size private  subroutine spd_set_use_var_point_size(this, x) Sets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if variable size points should be used; else, false. procedure( spd_set_value ), public, deferred :: set_x subroutine spd_set_value(this, index, x) Prototype Sets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. real(kind=real64), intent(in) :: x The value. procedure( spd_set_value ), public, deferred :: set_y subroutine spd_set_value(this, index, x) Prototype Sets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. real(kind=real64), intent(in) :: x The value.","tags":"","loc":"type\\scatter_plot_data.html"},{"title":"plot_data_bar – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_bar Defines a data set tailored to bar charts. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdb_clear_data private  subroutine pdb_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. generic, public :: define_data => pdb_set_data_1, pdb_set_data_2, pdb_set_data_3, pdb_set_data_4, pdb_set_data_5, pdb_set_data_6 private  subroutine pdb_set_data_1(this, x, err) Defines a single data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: x The data to plot. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_2(this, labels, x, err) Defines data along with associated axis labels. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. class(string), intent(in), dimension(:) :: labels The axis labels to associate with the data. real(kind=real64), intent(in), dimension(:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_3(this, labels, x, fmt, err) Defines data along with labels and formatting information. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: labels The axis labels to associate with the data. real(kind=real64), intent(in), dimension(:) :: x The data set. character(len=*), intent(in), optional :: fmt The format string for the labels (e.g. '(I0)', etc.). class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_4(this, x, err) Defines a single data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:,:) :: x The data to plot. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_5(this, labels, x, err) Defines data along with associated axis labels. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. class(string), intent(in), dimension(:) :: labels The axis labels to associate with the data. real(kind=real64), intent(in), dimension(:,:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_6(this, labels, x, fmt, err) Defines data along with labels and formatting information. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: labels The axis labels to associate with the data. real(kind=real64), intent(in), dimension(:,:) :: x The data set. character(len=*), intent(in), optional :: fmt The format string for the labels (e.g. '(I0)', etc.). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get => pdb_get_data private pure function pdb_get_data(this, index, col) result(x) Gets the requested data point. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The data point index. integer(kind=int32), intent(in) :: col The column index. Return Value real(kind=real64) The value. procedure, public :: get_axes_string => pdb_get_axes_cmd private  function pdb_get_axes_cmd(this) result(x) Gets the GNUPLOT command defining which axes to plot against. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_bar_color => pdb_get_bar_color private pure function pdb_get_bar_color(this, index) result(x) Gets the color to use for the requested data series (column).  If\nno color has been explicitly set, a default color cycle is used\nfor multi-series data, or the base line color for single-series\ndata. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data series (column). Return Value type( color ) The color. procedure, public :: get_bar_per_label_count => pdb_get_col_count private pure function pdb_get_col_count(this) result(x) Gets the number of data sets (columns). Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value integer(kind=int32) The count. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdb_get_cmd private  function pdb_get_cmd(this) result(x) Gets the GNUPLOT command string for this object. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => pdb_get_count private pure function pdb_get_count(this) result(x) Gets the number of stored data points. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value integer(kind=int32) The number of stored data points. procedure, public :: get_data => pdb_get_data_set private pure function pdb_get_data_set(this, col) result(x) Gets the requested data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: col The column index. Return Value real(kind=real64), allocatable, dimension(:) A copy of the data set. procedure, public :: get_data_string => pdb_get_data_cmd private  function pdb_get_data_cmd(this) result(x) Gets the GNUPLOT command string defining the data for this object. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => pdb_get_use_y2 private pure function pdb_get_use_y2(this) result(x) Gets a value determining if the data should be plotted against a\nsecondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value logical Returns true to plot against a secondary y-axis; else, false. procedure, public :: get_is_filled => pdb_get_is_filled private pure function pdb_get_is_filled(this) result(x) Gets a value determining if each bar is filled. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value logical Returns true if the bars are to be filled; else, false. procedure, public :: get_label => pdb_get_label private pure function pdb_get_label(this, index) result(x) Gets the axis label associated with a specific data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data set. Return Value character(len=:), allocatable The label. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_series_name => pdb_get_series_name private pure function pdb_get_series_name(this, index) result(x) Gets the legend title associated with the requested data series\n(column). Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data series (column). Return Value character(len=:), allocatable The title. procedure, public :: get_transparency => pdb_get_alpha private pure function pdb_get_alpha(this) result(x) Gets the alpha (transparency) for the bar color. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value real(kind=real32) The alpha value ([0, 1]). procedure, public :: get_use_labels => pdb_get_use_labels private pure function pdb_get_use_labels(this) result(x) Gets a value determining if labels are used to identify the data. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value logical Returns true if labels are used; else, false. procedure, public :: set => pdb_set_data private  subroutine pdb_set_data(this, index, col, x) Replaces the requested data point. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The data point index. integer(kind=int32), intent(in) :: col The column index. real(kind=real64), intent(in) :: x The new value. procedure, public :: set_bar_color => pdb_set_bar_color private  subroutine pdb_set_bar_color(this, index, x) Sets the color to use for the requested data series (column). Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data series (column). type( color ), intent(in) :: x The color. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_data_1 => pdb_set_data_1_core private  subroutine pdb_set_data_1_core(this, x, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_2 => pdb_set_data_2_core private  subroutine pdb_set_data_2_core(this, labels, x, err) Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. class(string), intent(in), dimension(:) :: labels The axis labels. real(kind=real64), intent(in), dimension(:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_3 => pdb_set_data_3_core private  subroutine pdb_set_data_3_core(this, labels, x, fmt, err) Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: labels The axis labels. real(kind=real64), intent(in), dimension(:) :: x The data set. character(len=*), intent(in), optional :: fmt The format string for the labels (e.g. '(I0)', etc.). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_4 => pdb_set_data_4_core private  subroutine pdb_set_data_4_core(this, x, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:,:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_5 => pdb_set_data_5_core private  subroutine pdb_set_data_5_core(this, labels, x, err) Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. class(string), intent(in), dimension(:) :: labels The axis labels. real(kind=real64), intent(in), dimension(:,:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_6 => pdb_set_data_6_core private  subroutine pdb_set_data_6_core(this, labels, x, fmt, err) Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: labels The axis labels. real(kind=real64), intent(in), dimension(:,:) :: x The data set. character(len=*), intent(in), optional :: fmt The format string for the labels (e.g. '(I0)', etc.). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => pdb_set_use_y2 private  subroutine pdb_set_use_y2(this, x) Sets a value determining if the data should be plotted against a\nsecondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. logical, intent(in) :: x Set to true to plot against a secondary y-axis; else, false. procedure, public :: set_is_filled => pdb_set_is_filled private  subroutine pdb_set_is_filled(this, x) Sets a value determining if each bar is filled. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. logical, intent(in) :: x Set to true if the bars are to be filled; else, false. procedure, public :: set_label => pdb_set_label private  subroutine pdb_set_label(this, index, txt) Sets the axis label for a specific data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. integer(kind=int32) :: index The index of the data set. character(len=*), intent(in) :: txt The label. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_series_name => pdb_set_series_name private  subroutine pdb_set_series_name(this, index, txt) Sets the legend title to associate with the requested data series\n(column). Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data series (column). character(len=*), intent(in) :: txt The title. procedure, public :: set_transparency => pdb_set_alpha private  subroutine pdb_set_alpha(this, x) Gets the alpha (transparency) for the bar color. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real32), intent(in) :: x The alpha value ([0, 1]). procedure, public :: set_use_labels => pdb_set_use_labels private  subroutine pdb_set_use_labels(this, x) Sets a value determining if labels are used to identify the data. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. logical, intent(in) :: x Set to true if labels are used; else, false.","tags":"","loc":"type\\plot_data_bar.html"},{"title":"pdf_terminal – FPLOT ","text":"type, public, extends( file_terminal ) :: pdf_terminal Defines a terminal used for producing PDF outputs. Type-Bound Procedures procedure, public :: get_command_string => pdf_get_command_string private  function pdf_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( pdf_terminal ), intent(in) :: this The pdf_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => pdf_get_term_string private  function pdf_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( pdf_terminal ), intent(in) :: this The pdf_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_resolution => pdf_get_resolution private pure function pdf_get_resolution(this) result(x) Gets the target device resolution. Arguments Type Intent Optional Attributes Name class( pdf_terminal ), intent(in) :: this The pdf_terminal object. Return Value integer(kind=int32) The resolution, in DPI. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_resolution => pdf_set_resolution private  subroutine pdf_set_resolution(this, x) Sets the target device resolution. Arguments Type Intent Optional Attributes Name class( pdf_terminal ), intent(inout) :: this The pdf_terminal object. integer(kind=int32), intent(in) :: x The resolution, in DPI. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\pdf_terminal.html"},{"title":"tri_surface_plot_data – FPLOT ","text":"type, public, extends( plot_data ) :: tri_surface_plot_data Provides a three-dimensional surface plot data set constructed of\ntriangulated points. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => tspd_clear_data private  subroutine tspd_clear_data(this) Clears the data from the data set. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(inout) :: this The tri_surface_plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => tspd_define_data private  subroutine tspd_define_data(this, tri) Defines the data to plot. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(inout) :: this The tri_surface_plot_data object. class( delaunay_tri_surface ), intent(in) :: tri The triangulation to plot. procedure, public :: get_command_string => tspd_get_cmd private  function tspd_get_cmd(this) result(x) Gets the GNUPLOT command string for the object. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(in) :: this The tri_surface_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => tspd_get_data_cmd private  function tspd_get_data_cmd(this) result(x) Gets the GNUPLOT command string for representing the data. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(in) :: this The tri_surface_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_use_wireframe => tspd_get_wireframe private pure function tspd_get_wireframe(this) result(rst) Gets a value determining if a wireframe mesh should be displayed. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(in) :: this The tri_surface_plot_data object. Return Value logical Returns true if the plot is to be drawn as a wireframe; else,\nfalse to draw as a surface. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_use_wireframe => tspd_set_wireframe private  subroutine tspd_set_wireframe(this, x) Sets a value determining if a wireframe mesh should be displayed. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(inout) :: this The tri_surface_plot_data object. logical, intent(in) :: x Set to true if the plot is to be drawn as a wireframe; else,\nfalse to draw as a surface.","tags":"","loc":"type\\tri_surface_plot_data.html"},{"title":"is_plot_data_function – FPLOT","text":"public pure function is_plot_data_function(x) result(rst) Tests to see if the supplied plot_data object is a plot_data_function based type. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: x The plot_data object. Return Value logical True if x is a plot_data_function based type.","tags":"","loc":"proc\\is_plot_data_function.html"},{"title":"report_array_size_mismatch_error – FPLOT","text":"public  subroutine report_array_size_mismatch_error(err, fcn, name, expected, actual) Reports an array size mismatch error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: name The variable name. integer(kind=int32), intent(in) :: expected The expected array size. integer(kind=int32), intent(in) :: actual The actual array size. Variables Type Visibility Attributes Name Initial character(len=256), public :: msg","tags":"","loc":"proc\\report_array_size_mismatch_error.html"},{"title":"report_error – FPLOT","text":"public  subroutine report_error(this, fcn, msg, code) Type Bound errors Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: this character(len=*), intent(in) :: fcn character(len=*), intent(in) :: msg integer(kind=int32), intent(in) :: code","tags":"","loc":"proc\\report_error.html"},{"title":"report_file_create_error – FPLOT","text":"public  subroutine report_file_create_error(err, fcn, fname, flag) Reports an I/O error related to file creating. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: fname The filename. integer(kind=int32), intent(in) :: flag The error flag returned by the system. Variables Type Visibility Attributes Name Initial character(len=2048), public :: msg","tags":"","loc":"proc\\report_file_create_error.html"},{"title":"report_matrix_size_mismatch_error – FPLOT","text":"public  subroutine report_matrix_size_mismatch_error(err, fcn, name, mexp, nexp, mact, nact) Reports a matrix size mismatch error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: name The variable name. integer(kind=int32), intent(in) :: mexp The expected number of rows. integer(kind=int32), intent(in) :: nexp The expected number of columns. integer(kind=int32), intent(in) :: mact The actual number of rows. integer(kind=int32), intent(in) :: nact The actual number of columns. Variables Type Visibility Attributes Name Initial character(len=256), public :: msg","tags":"","loc":"proc\\report_matrix_size_mismatch_error.html"},{"title":"report_memory_error – FPLOT","text":"public  subroutine report_memory_error(err, fcn, flag) Reports a memory allocation error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. integer(kind=int32), intent(in) :: flag The error flag returned by the system. Variables Type Visibility Attributes Name Initial character(len=256), public :: msg","tags":"","loc":"proc\\report_memory_error.html"},{"title":"operator(/=) – FPLOT","text":"public interface operator(/=) Module Procedures private pure function clr_not_equals(x, y) result(rst) Arguments Type Intent Optional Attributes Name type( color ), intent(in) :: x type( color ), intent(in) :: y Return Value logical","tags":"","loc":"interface\\operator(SLASH=).html"},{"title":"operator(==) – FPLOT","text":"public interface operator(==) Module Procedures private pure function clr_equals(x, y) result(rst) Arguments Type Intent Optional Attributes Name type( color ), intent(in) :: x type( color ), intent(in) :: y Return Value logical","tags":"","loc":"interface\\operator(==).html"},{"title":"pa_get_string_result – FPLOT","text":"interface public  function pa_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:),allocatable The string. Description Retrieves a string from a plot_axis.","tags":"","loc":"interface\\pa_get_string_result.html"},{"title":"linspace – FPLOT","text":"public pure function linspace(start, finish, npts) result(x) Constructs a linearly spaced array. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in) :: start The first value in the array. real(kind=real64), intent(in) :: finish The last value in the array. integer(kind=int32), intent(in) :: npts The number of values in the array. Return Value real(kind=real64), allocatable, dimension(:) The resulting array.","tags":"","loc":"proc\\linspace.html"},{"title":"logspace – FPLOT","text":"public pure function logspace(start, finish, npts) result(x) Construcst a logarithmically spaced array. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in) :: start The exponent of the first value in the array. real(kind=real64), intent(in) :: finish The exponent of the final value in the array. integer(kind=int32), intent(in) :: npts The number of values in the array. Return Value real(kind=real64), allocatable, dimension(:) The resulting array.","tags":"","loc":"proc\\logspace.html"},{"title":"meshgrid – FPLOT","text":"public pure function meshgrid(x, y) result(xy) Constructs two matrices (X and Y) from x and y data arrays. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An M-element array of x data points. real(kind=real64), intent(in), dimension(:) :: y An N-element array of y data points. Return Value real(kind=real64), allocatable, dimension(:,:,:) An N-by-M-by-2 array containing the x data matrix on the first \npage of the array, and the y data matrix on the second page.","tags":"","loc":"proc\\meshgrid.html"},{"title":"get_string_result – FPLOT","text":"interface public  function get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:),allocatable The result string. Description Returns a string from a plot_object.","tags":"","loc":"interface\\get_string_result.html"},{"title":"cm_get_string_result – FPLOT","text":"interface public  function cm_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:),allocatable The string. Description Retrieves a string result from a colormap object.","tags":"","loc":"interface\\cm_get_string_result.html"},{"title":"simplify_polyline – FPLOT","text":"public interface simplify_polyline Module Procedures private  function simplify_polyline_2d1(x, y, tol, err) result(ln) Simplifies a 2D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, and the second \ncolumn contains the y-coordinates. private  function simplify_polyline_3d1(x, y, z, tol, err) result(ln) Simplifies a 3D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: z An N-element array containing the z-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, the second \ncolumn contains the y-coordinates, and the third column contains \nthe z-coordinates. private  function simplify_polyline_mtx(xy, tol, err) result(ln) Simplifies a 2D or 3D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:,:) :: xy An N-by-2 or N-by-3 matrix containing the polyline vertex data. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, the second \ncolumn contains the y-coordinates, and if necessary, the third \ncolumn contains the z-coordinates.","tags":"","loc":"interface\\simplify_polyline.html"},{"title":"term_get_string_result – FPLOT","text":"interface public  function term_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:),allocatable The string. Description Retrieves a string from a terminal.","tags":"","loc":"interface\\term_get_string_result.html"},{"title":"lpd_get_cmd – FPLOT","text":"public  function lpd_get_cmd(this) result(rst) Gets the GNUPLOT command string to represent this line_plot_data\nobject. Type Bound line_plot_data Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value character(len=:), allocatable The command string.","tags":"","loc":"proc\\lpd_get_cmd.html"},{"title":"spd_get_cmd – FPLOT","text":"public  function spd_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Type Bound scatter_plot_data Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string.","tags":"","loc":"proc\\spd_get_cmd.html"},{"title":"pd_clear_action – FPLOT","text":"interface public  subroutine pd_clear_action(this) Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. Description Performs a clearing operation.","tags":"","loc":"interface\\pd_clear_action.html"},{"title":"pd_get_string_result – FPLOT","text":"interface public  function pd_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:),allocatable The string. Description Retrieves a string from a plot_data object.","tags":"","loc":"interface\\pd_get_string_result.html"},{"title":"spd_get_int_value – FPLOT","text":"interface public pure function spd_get_int_value(this) result(x) Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value integer(kind=int32) The value. Description Gets an integer value from the scatter_plot_data object.","tags":"","loc":"interface\\spd_get_int_value.html"},{"title":"spd_get_string_result – FPLOT","text":"interface public  function spd_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:),allocatable The string. Description Gets a string value from the scatter_plot_data object.","tags":"","loc":"interface\\spd_get_string_result.html"},{"title":"spd_get_value – FPLOT","text":"interface public pure function spd_get_value(this, index) result(x) Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. Return Value real(kind=real64) The value. Description Gets an indexed value from the scatter_plot_data object.","tags":"","loc":"interface\\spd_get_value.html"},{"title":"spd_set_value – FPLOT","text":"interface public  subroutine spd_set_value(this, index, x) Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. real(kind=real64), intent(in) :: x The value. Description Sets an indexed value from the scatter_plot_data object.","tags":"","loc":"interface\\spd_set_value.html"},{"title":"fplot_plot_data_3d – FPLOT","text":"Uses iso_fortran_env fplot_simplify strings fplot_plot_data fplot_errors Derived Types type, public, extends( scatter_plot_data ) :: plot_data_3d Defines a three-dimensional plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pd3d_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pd3d_set_data_1 procedure, public :: get_axes_string => pd3d_get_axes_cmd procedure, public :: get_color_data => pd3d_get_c_array procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => spd_get_cmd procedure, public :: get_count => pd3d_get_data_count procedure, public :: get_data_string => pd3d_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_fill_curve => spd_get_filled procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_name => pd_get_name procedure, public :: get_point_size_data => pd3d_get_c_array procedure, public :: get_simplification_factor => spd_get_simplify_factor procedure, public :: get_simplify_data => spd_get_simplify_data procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size procedure, public :: get_x => pd3d_get_x_data procedure, public :: get_x_data => pd3d_get_x_array procedure, public :: get_y => pd3d_get_y_data procedure, public :: get_y_data => pd3d_get_y_array procedure, public :: get_z => pd3d_get_z_data procedure, public :: get_z_data => pd3d_get_z_array procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_fill_curve => spd_set_filled procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_name => pd_set_name procedure, public :: set_simplification_factor => spd_set_simplify_factor procedure, public :: set_simplify_data => spd_set_simplify_data procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size procedure, public :: set_x => pd3d_set_x_data procedure, public :: set_y => pd3d_set_y_data procedure, public :: set_z => pd3d_set_z_data","tags":"","loc":"module\\fplot_plot_data_3d.html"},{"title":"fplot_plot_data_2d – FPLOT","text":"Uses iso_fortran_env fplot_simplify strings fplot_plot_data fplot_errors Derived Types type, public, extends( scatter_plot_data ) :: plot_data_2d Defines a two-dimensional plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pd2d_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name generic, public :: define_data => pd2d_set_data_1 , pd2d_set_data_2 procedure, public :: get_axes_string => pd2d_get_axes_cmd procedure, public :: get_color_data => pd2d_get_c_array procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => spd_get_cmd procedure, public :: get_count => pd2d_get_data_count procedure, public :: get_data_string => pd2d_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => pd2d_get_draw_against_y2 procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_fill_curve => spd_get_filled procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_name => pd_get_name procedure, public :: get_point_size_data => pd2d_get_ps_array procedure, public :: get_simplification_factor => spd_get_simplify_factor procedure, public :: get_simplify_data => spd_get_simplify_data procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size procedure, public :: get_x => pd2d_get_x_data procedure, public :: get_x_data => pd2d_get_x_array procedure, public :: get_y => pd2d_get_y_data procedure, public :: get_y_data => pd2d_get_y_array procedure, public :: pd2d_set_data_1 procedure, public :: pd2d_set_data_2 procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => pd2d_set_draw_against_y2 procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_fill_curve => spd_set_filled procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_name => pd_set_name procedure, public :: set_simplification_factor => spd_set_simplify_factor procedure, public :: set_simplify_data => spd_set_simplify_data procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size procedure, public :: set_x => pd2d_set_x_data procedure, public :: set_y => pd2d_set_y_data","tags":"","loc":"module\\fplot_plot_data_2d.html"},{"title":"fplot_windows_terminal – FPLOT","text":"Uses fplot_terminal iso_fortran_env Derived Types type, public, extends( terminal ) :: windows_terminal A Windows-specific terminal. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => wt_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_windows_terminal.html"},{"title":"fplot_latex_terminal – FPLOT","text":"Uses fplot_terminal fplot_constants iso_fortran_env strings Derived Types type, public, extends( file_terminal ) :: latex_terminal A LATEX terminal. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => tex_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_latex_terminal.html"},{"title":"fplot_plot_polar – FPLOT","text":"Uses fplot_terminal fplot_plot_data_2d iso_fortran_env fplot_constants fplot_colors fplot_plot_data fplot_legend strings fplot_plot fplot_errors Derived Types type, public, extends( plot ) :: plot_polar Finalizations Procedures final :: plr_clean_up Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_autoscale => plr_get_autoscale procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => plr_get_cmd procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_radial_limits => plr_get_limits procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_terminal => plt_get_term procedure, public :: get_theta_direction => plr_get_theta_direction procedure, public :: get_theta_start_position => plr_get_theta_start procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: initialize => plr_init procedure, public :: is_title_defined => plt_has_title procedure, public :: plr_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , plr_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_autoscale => plr_set_autoscale procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_radial_limits => plr_set_limits procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_theta_direction => plr_set_theta_direction procedure, public :: set_theta_start_position => plr_set_theta_start procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: show_legend => plt_show_legend","tags":"","loc":"module\\fplot_plot_polar.html"},{"title":"fplot_png_terminal – FPLOT","text":"Uses fplot_terminal fplot_constants iso_fortran_env strings Derived Types type, public, extends( file_terminal ) :: png_terminal Defines a terminal used for producing PNG outputs. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => png_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_png_terminal.html"},{"title":"fplot_plot_2d – FPLOT","text":"Uses fplot_plot_axis fplot_plot_data_2d iso_fortran_env fplot_plot fplot_colors fplot_legend strings fplot_plot_data fplot_errors Derived Types type, public, extends( plot ) :: plot_2d A plot object defining a 2D plot. Finalizations Procedures final :: p2d_clean_up Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => p2d_get_cmd procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_jitter_overlap => p2d_get_jitter_overlap procedure, public :: get_jitter_spread => p2d_get_jitter_spread procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_square_axes => p2d_get_square_axes procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_use_jittering => p2d_get_use_jitter procedure, public :: get_use_y2_axis => p2d_get_use_y2 procedure, public :: get_x_axis => p2d_get_x_axis procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y2_axis => p2d_get_y2_axis procedure, public :: get_y_axis => p2d_get_y_axis procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: initialize => p2d_init procedure, public :: is_title_defined => plt_has_title procedure, public :: p2d_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , p2d_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_jitter_overlap => p2d_set_jitter_overlap procedure, public :: set_jitter_spread => p2d_set_jitter_spread procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_square_axes => p2d_set_square_axes procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_use_jittering => p2d_set_use_jitter procedure, public :: set_use_y2_axis => p2d_set_use_y2 procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_axis_title => p2d_set_x_axis_title procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y2_axis_title => p2d_set_y2_axis_title procedure, public :: set_y_axis_title => p2d_set_y_axis_title procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: show_legend => plt_show_legend","tags":"","loc":"module\\fplot_plot_2d.html"},{"title":"fplot_plot – FPLOT","text":"Uses fplot_label fplot_legend fplot_plot_object fplot_plot_data fplot_terminal fplot_png_terminal fplot_svg_terminal fplot_colors fplot_qt_terminal fplot_plot_data_function fplot_pdf_terminal fplot_arrow collections fplot_windows_terminal iso_fortran_env strings fplot_errors fplot_latex_terminal fplot_wxt_terminal fplot_constants fplot_colormap Derived Types type, public, extends( plot_object ) :: plot Defines the basic GNUPLOT plot. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => plt_get_cmd procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: initialize => plt_init procedure, public :: is_title_defined => plt_has_title procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: show_legend => plt_show_legend Functions public pure function is_plot_data_function (x) result(rst) Tests to see if the supplied plot_data object is a plot_data_function based type. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: x The plot_data object. Return Value logical True if x is a plot_data_function based type.","tags":"","loc":"module\\fplot_plot.html"},{"title":"fplot_label – FPLOT","text":"Uses fplot_constants fplot_plot_object iso_fortran_env strings Derived Types type, public, extends( plot_object ) :: plot_label Defines a plot label. Type-Bound Procedures procedure, public :: get_angle => lbl_get_angle procedure, public :: get_command_string => lbl_get_cmd procedure, public :: get_is_visible => lbl_get_is_visible procedure, public :: get_position => lbl_get_position procedure, public :: get_text => lbl_get_txt procedure, public :: set_angle => lbl_set_angle procedure, public :: set_is_visible => lbl_set_is_visible procedure, public :: set_position => lbl_set_position procedure, public :: set_text => lbl_set_txt","tags":"","loc":"module\\fplot_label.html"},{"title":"fplot_plot_data_histogram – FPLOT","text":"Uses iso_fortran_env fplot_colors strings fplot_plot_data fplot_errors Derived Types type, public, extends( plot_data_colored ) :: plot_data_histogram A container for plotting data in the form of a histogram. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdh_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pdh_define_data procedure, public :: get => pdh_get_bin_data procedure, public :: get_axes_string => pdh_get_axes_cmd procedure, public :: get_bin_count => pdh_get_bin_count procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdh_get_cmd procedure, public :: get_data_string => pdh_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => pdh_get_use_y2 procedure, public :: get_is_filled => pdh_get_is_filled procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_maximum_value => pdh_get_max_x procedure, public :: get_minimum_value => pdh_get_min_x procedure, public :: get_name => pd_get_name procedure, public :: set_bin_count => pdh_set_bin_count procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => pdh_set_use_y2 procedure, public :: set_is_filled => pdh_set_is_filled procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name","tags":"","loc":"module\\fplot_plot_data_histogram.html"},{"title":"fplot_triangulations_delaunay_2d – FPLOT","text":"Uses geompack iso_fortran_env fplot_errors Derived Types type, public :: delaunay_tri_2d Provides a container for a 2D Delaunay triangulation. Type-Bound Procedures procedure, public :: create => d2d_init procedure, public :: find_triangle => d2d_get_tri_with_pt procedure, public :: get_indices => d2d_get_tris procedure, public :: get_point_count => d2d_get_pt_count procedure, public :: get_points_x => d2d_get_x_pts procedure, public :: get_points_y => d2d_get_y_pts procedure, public :: get_triangle_count => d2d_get_tri_count","tags":"","loc":"module\\fplot_triangulations_delaunay_2d.html"},{"title":"fplot_plot_data_function – FPLOT","text":"Uses iso_fortran_env fplot_constants fplot_colors strings fplot_plot_data Derived Types type, public, extends( line_plot_data ) :: plot_data_function Defines a function to plot. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdf_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pdf_define_data procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdf_get_cmd procedure, public :: get_data_string => pdf_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_function => pdf_get_function procedure, public :: get_function_name => pdf_get_function_name procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_maximum_x => pdf_get_max_x procedure, public :: get_minimum_x => pdf_get_min_x procedure, public :: get_name => pd_get_name procedure, public :: get_sample_count => pfd_get_sample_count procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_maximum_x => pdf_set_max_x procedure, public :: set_minimum_x => pdf_set_min_x procedure, public :: set_name => pd_set_name procedure, public :: set_sample_count => pfd_set_sample_count","tags":"","loc":"module\\fplot_plot_data_function.html"},{"title":"fplot_legend – FPLOT","text":"Uses fplot_constants fplot_plot_object iso_fortran_env strings Derived Types type, public, extends( plot_object ) :: legend Defines a legend object. Type-Bound Procedures procedure, public :: get_command_string => leg_get_command_txt procedure, public :: get_draw_border => leg_get_box procedure, public :: get_draw_inside_axes => leg_get_inside procedure, public :: get_horizontal_position => leg_get_horz_pos procedure, public :: get_is_opaque => leg_get_opaque procedure, public :: get_is_visible => leg_get_visible procedure, public :: get_layout => leg_get_layout procedure, public :: get_vertical_position => leg_get_vert_pos procedure, public :: set_draw_border => leg_set_box procedure, public :: set_draw_inside_axes => leg_set_inside procedure, public :: set_horizontal_position => leg_set_horz_pos procedure, public :: set_is_opaque => leg_set_opaque procedure, public :: set_is_visible => leg_set_visible procedure, public :: set_layout => leg_set_layout procedure, public :: set_vertical_position => leg_set_vert_pos","tags":"","loc":"module\\fplot_legend.html"},{"title":"fplot_errors – FPLOT","text":"Uses iso_fortran_env Variables Type Visibility Attributes Name Initial integer(kind=int32), public, parameter :: PLOT_ARRAY_SIZE_MISMATCH_ERROR = 1003 Occurs if there is an array size mismatch error. integer(kind=int32), public, parameter :: PLOT_GNUPLOT_FILE_ERROR = 1004 Occurs if there is a GNUPLOT file error. integer(kind=int32), public, parameter :: PLOT_INVALID_INPUT_ERROR = 1001 Occurs if an invalid input is provided. integer(kind=int32), public, parameter :: PLOT_INVALID_OPERATION_ERROR = 1002 Occurs if an attempt is made to perform an invalid operation. integer(kind=int32), public, parameter :: PLOT_OUT_OF_MEMORY_ERROR = 1000 Occurs if there is insufficient memory available for the\nrequested operation. Derived Types type, public :: errors Type-Bound Procedures procedure, public :: report_error Subroutines public  subroutine report_array_size_mismatch_error (err, fcn, name, expected, actual) Reports an array size mismatch error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: name The variable name. integer(kind=int32), intent(in) :: expected The expected array size. integer(kind=int32), intent(in) :: actual The actual array size. public  subroutine report_error (this, fcn, msg, code) Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: this character(len=*), intent(in) :: fcn character(len=*), intent(in) :: msg integer(kind=int32), intent(in) :: code public  subroutine report_file_create_error (err, fcn, fname, flag) Reports an I/O error related to file creating. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: fname The filename. integer(kind=int32), intent(in) :: flag The error flag returned by the system. public  subroutine report_matrix_size_mismatch_error (err, fcn, name, mexp, nexp, mact, nact) Reports a matrix size mismatch error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: name The variable name. integer(kind=int32), intent(in) :: mexp The expected number of rows. integer(kind=int32), intent(in) :: nexp The expected number of columns. integer(kind=int32), intent(in) :: mact The actual number of rows. integer(kind=int32), intent(in) :: nact The actual number of columns. public  subroutine report_memory_error (err, fcn, flag) Reports a memory allocation error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. integer(kind=int32), intent(in) :: flag The error flag returned by the system.","tags":"","loc":"module\\fplot_errors.html"},{"title":"fplot_surface_plot – FPLOT","text":"Uses iso_fortran_env fplot_surface_plot_data fplot_legend fplot_plot_3d strings fplot_errors Derived Types type, public, extends( plot_3d ) :: surface_plot Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_allow_smoothing => surf_get_smooth procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_azimuth => p3d_get_azimuth procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => surf_get_cmd procedure, public :: get_coordinate_system => p3d_get_csys procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_elevation => p3d_get_elevation procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_light_intensity => surf_get_light_intensity procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_contours => surf_get_show_contours procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_hidden => surf_get_show_hidden procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_show_z_major_grid => p3d_get_show_z_major_grid procedure, public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid procedure, public :: get_specular_intensity => surf_get_specular_intensity procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_transparency => surf_get_transparency procedure, public :: get_use_lighting => surf_get_use_lighting procedure, public :: get_use_map_view => p3d_get_use_map_view procedure, public :: get_x_axis => p3d_get_x_axis procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y_axis => p3d_get_y_axis procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: get_z_axis => p3d_get_z_axis procedure, public :: get_z_intersect_xy => p3d_get_z_axis_intersect procedure, public :: get_z_major_grid_color => p3d_get_z_major_grid_color procedure, public :: get_z_major_grid_line_style => p3d_get_z_major_grid_line_style procedure, public :: get_z_major_grid_line_width => p3d_get_z_major_grid_line_width procedure, public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color procedure, public :: get_z_minor_grid_line_style => p3d_get_z_minor_grid_line_style procedure, public :: get_z_minor_grid_line_width => p3d_get_z_minor_grid_line_width procedure, public :: initialize => surf_init procedure, public :: is_title_defined => plt_has_title procedure, public :: p3d_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , p3d_push_data , surf_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_allow_smoothing => surf_set_smooth procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_azimuth => p3d_set_azimuth procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_coordinate_system => p3d_set_csys procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_elevation => p3d_set_elevation procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_light_intensity => surf_set_light_intensity procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_contours => surf_set_show_contours procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_hidden => surf_set_show_hidden procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_show_z_major_grid => p3d_set_show_z_major_grid procedure, public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid procedure, public :: set_specular_intensity => surf_set_specular_intensity procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_transparency => surf_set_transparency procedure, public :: set_use_lighting => surf_set_use_lighting procedure, public :: set_use_map_view => p3d_set_use_map_view procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_axis_title => p3d_set_x_axis_title procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y_axis_title => p3d_set_y_axis_title procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: set_z_axis_title => p3d_set_z_axis_title procedure, public :: set_z_intersect_xy => p3d_set_z_axis_intersect procedure, public :: set_z_major_grid_color => p3d_set_z_major_grid_color procedure, public :: set_z_major_grid_line_style => p3d_set_z_major_grid_line_style procedure, public :: set_z_major_grid_line_width => p3d_set_z_major_grid_line_width procedure, public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color procedure, public :: set_z_minor_grid_line_style => p3d_set_z_minor_grid_line_style procedure, public :: set_z_minor_grid_line_width => p3d_set_z_minor_grid_line_width procedure, public :: show_legend => plt_show_legend procedure, public :: surf_push_data","tags":"","loc":"module\\fplot_surface_plot.html"},{"title":"fplot_colors – FPLOT","text":"Uses iso_fortran_env Variables Type Visibility Attributes Name Initial type( color ), public, parameter :: CLR_BLACK = color(0, 0, 0, 0) Black. type( color ), public, parameter :: CLR_BLUE = color(0, 0, 255, 0) Blue. type( color ), public, parameter :: CLR_CYAN = color(0, 255, 255, 0) Cyan. type( color ), public, parameter :: CLR_GRAY = color(128, 128, 128, 0) Gray. type( color ), public, parameter :: CLR_GREEN = color(0, 128, 0, 0) Green. type( color ), public, parameter :: CLR_LIME = color(0, 255, 0, 0) Lime. type( color ), public, parameter :: CLR_MAGENTA = color(255, 0, 255, 0) Magenta. type( color ), public, parameter :: CLR_MAROON = color(128, 0, 0, 0) Maroon. type( color ), public, parameter :: CLR_NAVY = color(0, 0, 128, 0) Navy. type( color ), public, parameter :: CLR_OLIVE = color(128, 128, 0, 0) Olive. type( color ), public, parameter :: CLR_ORANGE = color(255, 165, 0, 0) Orange. type( color ), public, parameter :: CLR_PURPLE = color(128, 0, 128, 0) Purple. type( color ), public, parameter :: CLR_RED = color(255, 0, 0, 0) Red. type( color ), public, parameter :: CLR_SILVER = color(192, 192, 192, 0) Silver. type( color ), public, parameter :: CLR_TEAL = color(0, 128, 128, 0) Teal. type( color ), public, parameter :: CLR_WHITE = color(255, 255, 255, 0) White. type( color ), public, parameter :: CLR_YELLOW = color(255, 255, 0, 0) Yellow. type( color ), public, parameter,               dimension(7) :: color_list = [color(0, int(0.447*255), int(0.741*255), 0), color(int(0.85*255), int(0.325*255), int(0.098*255), 0), color(int(0.929*255), int(0.694*255), int(0.125*255), 0), color(int(0.494*255), int(0.184*255), int(0.556*255), 0), color(int(0.466*255), int(0.674*255), int(0.188*255), 0), color(int(0.301*255), int(0.745*255), int(0.933*255), 0), color(int(0.635*255), int(0.078*255), int(0.184*255), 0)] Interfaces public        interface operator(/=) private pure function clr_not_equals(x, y) result(rst) Arguments Type Intent Optional Attributes Name type( color ), intent(in) :: x type( color ), intent(in) :: y Return Value logical public        interface operator(==) private pure function clr_equals(x, y) result(rst) Arguments Type Intent Optional Attributes Name type( color ), intent(in) :: x type( color ), intent(in) :: y Return Value logical Derived Types type, public :: color Describes an RGB color. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: alpha = 0 The alpha component of the color (must be between 0 and 255).\nNotice, 0 is fully opaque and 255 is fully transparent. integer(kind=int32), public :: blue = 255 The blue component of the color (must be between 0 and 255). integer(kind=int32), public :: green = 0 The green component of the color (must be between 0 and 255). integer(kind=int32), public :: red = 0 The red component of the color (must be between 0 and 255). Type-Bound Procedures procedure, public, pass :: copy_from => clr_copy_from procedure, public, pass :: rgb_to_hex_string => clr_rgb_to_hex_string procedure, public, pass :: to_hex_string => clr_to_hex_string","tags":"","loc":"module\\fplot_colors.html"},{"title":"fplot_plot_axis – FPLOT","text":"Uses fplot_constants fplot_plot_object iso_fortran_env strings Interfaces interface public  function pa_get_string_result(this) result(x) Retrieves a string from a plot_axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The string. Derived Types type, public :: name_value_pair Defines a name-value pair. Components Type Visibility Attributes Name Initial character(len=:), public, allocatable :: name The name. real(kind=real64), public :: value The associated value. type, public, extends( plot_object ) :: plot_axis Defines a plot axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure( pa_get_string_result ), public, deferred :: get_id_string procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width type, public, extends( plot_axis ) :: x_axis Defines an x-axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure, public :: get_id_string => xa_get_id procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width type, public, extends( plot_axis ) :: y2_axis Defines a secondary y-axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure, public :: get_id_string => y2a_get_id procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width type, public, extends( plot_axis ) :: y_axis Defines a y-axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure, public :: get_id_string => ya_get_id procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width type, public, extends( plot_axis ) :: z_axis Defines a z-axis object. Type-Bound Procedures procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure, public :: get_id_string => za_get_id procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width","tags":"","loc":"module\\fplot_plot_axis.html"},{"title":"fplot_surface_plot_data – FPLOT","text":"Uses fplot_plot_data iso_fortran_env strings fplot_errors Derived Types type, public, extends( plot_data ) :: surface_plot_data Provides a three-dimensional surface plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => surfd_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => surfd_set_data_1 procedure, public :: get_command_string => surfd_get_cmd procedure, public :: get_data_string => surfd_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_name => pd_get_name procedure, public :: get_size => surfd_get_size procedure, public :: get_use_wireframe => surfd_get_wireframe procedure, public :: get_x => surfd_get_x procedure, public :: get_y => surfd_get_y procedure, public :: get_z => surfd_get_z procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_name => pd_set_name procedure, public :: set_use_wireframe => surfd_set_wireframe procedure, public :: set_x => surfd_set_x procedure, public :: set_y => surfd_set_y procedure, public :: set_z => surfd_set_z","tags":"","loc":"module\\fplot_surface_plot_data.html"},{"title":"fplot_qt_terminal – FPLOT","text":"Uses fplot_terminal iso_fortran_env Derived Types type, public, extends( terminal ) :: qt_terminal Defines a terminal that utilizes QT. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => qt_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_qt_terminal.html"},{"title":"fplot_wxt_terminal – FPLOT","text":"Uses fplot_terminal iso_fortran_env Derived Types type, public, extends( terminal ) :: wxt_terminal A WXT terminal. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => wxt_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_wxt_terminal.html"},{"title":"fplot_multiplot – FPLOT","text":"Uses fplot_terminal fplot_windows_terminal fplot_latex_terminal iso_fortran_env fplot_wxt_terminal fplot_constants fplot_png_terminal fplot_svg_terminal fplot_qt_terminal fplot_plot_object strings fplot_pdf_terminal fplot_plot collections fplot_errors Derived Types type, public, extends( plot_object ) :: multiplot Defines a multi-plot layout. Components Type Visibility Attributes Name Initial class( terminal ), public, pointer :: m_terminal => null() The GNUPLOT terminal object to target. Finalizations Procedures final :: mp_clean Type-Bound Procedures procedure, public :: draw => mp_draw procedure, public :: get => mp_get procedure, public :: get_column_count => mp_get_cols procedure, public :: get_command_string => mp_get_command procedure, public :: get_font_name => mp_get_font procedure, public :: get_font_size => mp_get_font_size procedure, public :: get_plot_count => mp_get_count procedure, public :: get_row_count => mp_get_rows procedure, public :: get_terminal => mp_get_term procedure, public :: get_title => mp_get_title procedure, public :: initialize => mp_init procedure, public :: is_title_defined => mp_has_title procedure, public :: save_file => mp_save procedure, public :: set => mp_set procedure, public :: set_font_name => mp_set_font procedure, public :: set_font_size => mp_set_font_size procedure, public :: set_title => mp_set_title procedure, public :: set_window_size => mp_set_window_size","tags":"","loc":"module\\fplot_multiplot.html"},{"title":"fplot_core_routines – FPLOT","text":"Uses iso_fortran_env Functions public pure function linspace (start, finish, npts) result(x) Constructs a linearly spaced array. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in) :: start The first value in the array. real(kind=real64), intent(in) :: finish The last value in the array. integer(kind=int32), intent(in) :: npts The number of values in the array. Return Value real(kind=real64), allocatable, dimension(:) The resulting array. public pure function logspace (start, finish, npts) result(x) Construcst a logarithmically spaced array. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in) :: start The exponent of the first value in the array. real(kind=real64), intent(in) :: finish The exponent of the final value in the array. integer(kind=int32), intent(in) :: npts The number of values in the array. Return Value real(kind=real64), allocatable, dimension(:) The resulting array. public pure function meshgrid (x, y) result(xy) Constructs two matrices (X and Y) from x and y data arrays. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An M-element array of x data points. real(kind=real64), intent(in), dimension(:) :: y An N-element array of y data points. Return Value real(kind=real64), allocatable, dimension(:,:,:) An N-by-M-by-2 array containing the x data matrix on the first \npage of the array, and the y data matrix on the second page.","tags":"","loc":"module\\fplot_core_routines.html"},{"title":"fplot_plot_object – FPLOT","text":"Uses iso_fortran_env Interfaces interface public  function get_string_result(this) result(x) Returns a string from a plot_object. Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:), allocatable The result string. Derived Types type, public :: plot_object The base type for all plot objects. Type-Bound Procedures procedure( get_string_result ), public, deferred :: get_command_string","tags":"","loc":"module\\fplot_plot_object.html"},{"title":"fplot_plot_data_error_bars – FPLOT","text":"Uses iso_fortran_env fplot_colors strings fplot_plot_data fplot_errors Derived Types type, public, extends( plot_data_colored ) :: plot_data_error_bars Defines a 2D error-bar based data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pde_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name generic, public :: define_x_error_data => pde_define_x_err , pde_define_x_err_lim generic, public :: define_xy_error_data => pde_define_xy_err , pde_define_xy_err_lim generic, public :: define_y_error_data => pde_define_y_err , pde_define_y_err_lim procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pde_get_cmd procedure, public :: get_count => pde_get_count procedure, public :: get_data_string => pde_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_width => pde_get_line_width procedure, public :: get_name => pd_get_name procedure, public :: get_plot_x_error_bars => pde_get_plot_x_err procedure, public :: get_plot_y_error_bars => pde_get_plot_y_err procedure, public :: get_use_error_box => pde_get_box procedure, public :: get_use_range => pde_get_use_range procedure, public :: pde_define_x_err procedure, public :: pde_define_x_err_lim procedure, public :: pde_define_xy_err procedure, public :: pde_define_xy_err_lim procedure, public :: pde_define_y_err procedure, public :: pde_define_y_err_lim procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_width => pde_set_line_width procedure, public :: set_name => pd_set_name procedure, public :: set_use_error_box => pde_set_box","tags":"","loc":"module\\fplot_plot_data_error_bars.html"},{"title":"fplot_colormap – FPLOT","text":"Uses forcolormap iso_fortran_env fplot_colors fplot_plot_object strings fplot_errors Interfaces interface public  function cm_get_string_result(this) result(x) Retrieves a string result from a colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The string. Derived Types type, public, extends( plot_object ) :: colormap A colormap object for a surface plot. Type-Bound Procedures procedure( cm_get_string_result ), public, deferred :: get_color_string procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: cool_colormap Defines a colormap consisting of \"cool\" colors. Type-Bound Procedures procedure, public :: get_color_string => ccm_get_clr procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: custom_colormap Defines a custom colormap that utilizes the FORCOLORMAP library\nto provide the map. Finalizations Procedures final :: custom_final Type-Bound Procedures procedure, public :: get_color_string => custom_get_clr procedure, public :: get_colormap => custom_get procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_colormap => custom_set procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: earth_colormap Defines an earthy-colored colormap. Type-Bound Procedures procedure, public :: get_color_string => ecm_get_clr procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: grey_colormap Defines a grey-scaled colormap. Type-Bound Procedures procedure, public :: get_color_string => gcm_get_clr procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: hot_colormap Defines a colormap consisting of \"hot\" colors. Type-Bound Procedures procedure, public :: get_color_string => hcm_get_clr procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: parula_colormap Defines a colormap equivalent to the MATLAB parula colormap. Type-Bound Procedures procedure, public :: get_color_string => pcm_get_clr procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: rainbow_colormap Defines a rainbow colormap. Type-Bound Procedures procedure, public :: get_color_string => rcm_get_clr procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics","tags":"","loc":"module\\fplot_colormap.html"},{"title":"fplot_svg_terminal – FPLOT","text":"Uses fplot_terminal fplot_constants iso_fortran_env strings Derived Types type, public, extends( file_terminal ) :: svg_terminal An SVG terminal. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => svg_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_svg_terminal.html"},{"title":"fplot_delaunay_tri_surface – FPLOT","text":"Uses fplot_triangulations_delaunay_2d iso_fortran_env fplot_errors ieee_arithmetic Derived Types type, public, extends( delaunay_tri_2d ) :: delaunay_tri_surface Provides a type describing a triangulated surface. Type-Bound Procedures procedure, public :: create => d2d_init procedure, public :: define_function_values => dts_define_fcn generic, public :: evaluate => dts_interp_1, dts_interp_2 procedure, public :: find_triangle => d2d_get_tri_with_pt procedure, public :: get_indices => d2d_get_tris procedure, public :: get_point_count => d2d_get_pt_count procedure, public :: get_points_x => d2d_get_x_pts procedure, public :: get_points_y => d2d_get_y_pts procedure, public :: get_points_z => dts_get_z procedure, public :: get_triangle_count => d2d_get_tri_count","tags":"","loc":"module\\fplot_delaunay_tri_surface.html"},{"title":"fplot_arrow – FPLOT","text":"Uses iso_fortran_env fplot_constants fplot_colors fplot_plot_object strings Derived Types type, public, extends( plot_object ) :: plot_arrow Defines an arrow that can be drawn on a plot. Type-Bound Procedures procedure, public :: get_color => par_get_color procedure, public :: get_command_string => par_get_cmd procedure, public :: get_head_angle => par_get_head_angle procedure, public :: get_head_back_angle => par_get_head_back_angle procedure, public :: get_head_fill => par_get_fill procedure, public :: get_head_location => par_get_head procedure, public :: get_head_size => par_get_head_size procedure, public :: get_head_type => par_get_head_type procedure, public :: get_is_visible => par_get_is_visible procedure, public :: get_line_style => par_get_line_style procedure, public :: get_line_width => par_get_line_width procedure, public :: get_move_to_front => par_get_move_to_front procedure, public :: get_tail_location => par_get_tail procedure, public :: get_use_default_size => par_get_use_default_size procedure, public :: set_color => par_set_color procedure, public :: set_head_angle => par_set_head_angle procedure, public :: set_head_back_angle => par_set_head_back_angle procedure, public :: set_head_fill => par_set_fill generic, public :: set_head_location => par_set_head_1, par_set_head_2, par_set_head_3 procedure, public :: set_head_size => par_set_head_size procedure, public :: set_head_type => par_set_head_type procedure, public :: set_is_visible => par_set_is_visible procedure, public :: set_line_style => par_set_line_style procedure, public :: set_line_width => par_set_line_width procedure, public :: set_move_to_front => par_set_move_to_front generic, public :: set_tail_location => par_set_tail_1, par_set_tail_2, par_set_tail_3 procedure, public :: set_use_default_size => par_set_use_default_size","tags":"","loc":"module\\fplot_arrow.html"},{"title":"fplot_stats_plots – FPLOT","text":"Uses fplot_terminal fplot_plot_data_2d fplot_plot_axis iso_fortran_env fplot_plot_data_histogram fplot_constants fplot_colors fplot_plot_object fplot_multiplot fplot_errors strings fplot_plot collections fplot_plot_2d Derived Types type, public, extends( plot_object ) :: correlation_plot Defines a multiplot arrangement designed to illustrate correlation\nbetween data sets. Type-Bound Procedures procedure, public :: draw => cp_draw procedure, public :: get => cp_get procedure, public :: get_column_count => cp_get_cols procedure, public :: get_command_string => cp_get_command procedure, public :: get_font_name => cp_get_font procedure, public :: get_font_size => cp_get_font_size procedure, public :: get_plot_count => cp_get_count procedure, public :: get_row_count => cp_get_rows procedure, public :: get_terminal => cp_get_term procedure, public :: initialize => cp_init procedure, public :: save_file => cp_save procedure, public :: set_font_name => cp_set_font procedure, public :: set_font_size => cp_set_font_size","tags":"","loc":"module\\fplot_stats_plots.html"},{"title":"fplot_core – FPLOT","text":"FPLOT is a Fortran library providing a means of interacting with GNUPLOT from a Fortran program.  The library\nis designed in an object-oriented manner, and as such utilizes language \nfeatures that require a compiler that supports the 2003 standard. Additionally, it is expected that Gnuplot is installed on the system \npath.  For full functionallity, a minimum of GNUPLOT v5.2 is expected. Uses fplot_tri_surface_plot_data fplot_label fplot_legend fplot_plot_data_3d fplot_plot_object fplot_plot_bar fplot_plot_data fplot_triangulations_delaunay_2d fplot_vector_field_plot_data fplot_terminal fplot_plot_axis fplot_plot_data_2d fplot_plot_data_histogram fplot_png_terminal fplot_colors fplot_svg_terminal fplot_core_routines fplot_qt_terminal fplot_plot_3d fplot_plot_data_function fplot_stats_plots fplot_plot_polar fplot_pdf_terminal fplot_arrow fplot_plot_2d fplot_windows_terminal fplot_surface_plot fplot_plot_data_error_bars fplot_delaunay_tri_surface strings fplot_multiplot fplot_latex_terminal fplot_wxt_terminal fplot_surface_plot_data fplot_plot_data_tri_2d fplot_constants fplot_colormap fplot_plot_data_box_whisker fplot_plot fplot_plot_data_bar fplot_filled_plot_data","tags":"","loc":"module\\fplot_core.html"},{"title":"fplot_filled_plot_data – FPLOT","text":"Uses iso_fortran_env fplot_colors strings fplot_plot_data fplot_errors Derived Types type, public, extends( plot_data_colored ) :: filled_plot_data Defines a two-dimensional filled plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => fpd_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => fpd_define_data procedure, public :: get_axes_string => fpd_get_axes_cmd procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => fpd_get_cmd procedure, public :: get_data_string => fpd_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => fpd_get_draw_against_y2 procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_name => pd_get_name procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => fpd_set_draw_against_y2 procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name","tags":"","loc":"module\\fplot_filled_plot_data.html"},{"title":"fplot_constants – FPLOT","text":"Uses iso_fortran_env Variables Type Visibility Attributes Name Initial integer(kind=int32), public, parameter :: ARROW_BACKHEAD = 2 Defines an arrow with it's head at it's back end (tail). integer(kind=int32), public, parameter :: ARROW_EMPTY = 101 Defines an empty arrow head. integer(kind=int32), public, parameter :: ARROW_FILLED = 100 Defines a filled arrow head. integer(kind=int32), public, parameter :: ARROW_HEAD = 1 Defines an arrow with a traditional head. integer(kind=int32), public, parameter :: ARROW_HEADS = 3 Defines an arrow with a head on both ends. integer(kind=int32), public, parameter :: ARROW_NO_BORDER = 103 Defines an arrow head with no border. integer(kind=int32), public, parameter :: ARROW_NO_FILL = 102 Defines an arrow head without fill. integer(kind=int32), public, parameter :: ARROW_NO_HEAD = 0 Defines an arrow with no head. integer(kind=int32), public, parameter :: COORDINATES_CARTESIAN = 100 Defines a Cartesian coordinate system. integer(kind=int32), public, parameter :: COORDINATES_CYLINDRICAL = 102 Defines a cylindrical coordinate system. integer(kind=int32), public, parameter :: COORDINATES_SPHERICAL = 101 Defines a spherical coordinate system. character(len=*), public, parameter :: GNUPLOT_DEFAULT_FONTNAME = \"Arial\" Defines the default font used by text on the graph. integer(kind=int32), public, parameter :: GNUPLOT_DEFAULT_FONT_SIZE = 14 Defines the default font size used by text on the graph. integer(kind=int32), public, parameter :: GNUPLOT_DEFAULT_WINDOW_HEIGHT = 420 The default GNUPLOT window height, in pixels. integer(kind=int32), public, parameter :: GNUPLOT_DEFAULT_WINDOW_WIDTH = 640 The default GNUPLOT window width, in pixels. character(len=*), public, parameter :: GNUPLOT_HORIZONTAL_ALIGN_CENTER = \"center\" Defines the text should be centered. character(len=*), public, parameter :: GNUPLOT_HORIZONTAL_ALIGN_LEFT = \"left\" Defines the text should be aligned to the left. character(len=*), public, parameter :: GNUPLOT_HORIZONTAL_ALIGN_RIGHT = \"right\" Defines the text should be aligned to the right. integer(kind=int32), public, parameter :: GNUPLOT_MAX_LABEL_LENGTH = 128 Defines the maximum number of characters allowed in a graph label. integer(kind=int32), public, parameter :: GNUPLOT_MAX_PATH_LENGTH = 256 Defines the maximum number of characters allowed in a file path. character(len=*), public, parameter :: GNUPLOT_ROTATION_ORIGIN_CENTER = \"center\" Defines the text should be rotated around the center of the text. character(len=*), public, parameter :: GNUPLOT_ROTATION_ORIGIN_LEFT = \"left\" Defines the text should be rotated around the left side of the text. character(len=*), public, parameter :: GNUPLOT_ROTATION_ORIGIN_RIGHT = \"right\" Defines the text should be rotated around the right side of the text. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_LATEX = 5 Defines a LATEX terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_PDF = 7 Defines a PDF terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_PNG = 4 Defines a PNG terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_QT = 3 Defines a QT terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_SVG = 6 Defines an SVG terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_WIN32 = 1 Defines a Win32 terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_WXT = 2 Defines a WXT terminal. character(len=*), public, parameter :: LEGEND_ARRANGE_HORIZONTALLY = \"horizontal\" Defines the legend should be arranged such that the row count\nis minimized. character(len=*), public, parameter :: LEGEND_ARRANGE_VERTICALLY = \"vertical\" Defines the legend should be arranged such that the column count\nis minimized. character(len=*), public, parameter :: LEGEND_BOTTOM = \"bottom\" Defines the legend should be placed at the bottom of the plot. character(len=*), public, parameter :: LEGEND_CENTER = \"center\" Defines the legend should be centered on the plot. character(len=*), public, parameter :: LEGEND_LEFT = \"left\" Defines the legend should be placed at the left of the plot. character(len=*), public, parameter :: LEGEND_RIGHT = \"right\" Defines the legend should be placed at the right of the plot. character(len=*), public, parameter :: LEGEND_TOP = \"top\" Defines the legend should be placed at the top of the plot. integer(kind=int32), public, parameter :: LINE_DASHED = 2 Defines a dashed line. integer(kind=int32), public, parameter :: LINE_DASH_DOTTED = 4 Defines a dash-dotted line. integer(kind=int32), public, parameter :: LINE_DASH_DOT_DOT = 5 Defines a dash-dot-dotted line. integer(kind=int32), public, parameter :: LINE_DOTTED = 3 Defines a dotted line. integer(kind=int32), public, parameter :: LINE_SOLID = 1 Defines a solid line. integer(kind=int32), public, parameter :: MARKER_ASTERISK = 3 Defines an * data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_CIRCLE = 6 Defines an empty circle-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_NABLA = 10 Defines an empty nabla-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_RHOMBUS = 12 Defines an empty rhombus-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_SQUARE = 4 Defines an empty square-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_TRIANGLE = 8 Defines an empty triangle-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_CIRCLE = 7 Defines an filled circle-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_NABLA = 11 Defines an filled nabla-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_RHOMBUS = 13 Defines an filled rhombus-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_SQUARE = 5 Defines an filled square-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_TRIANGLE = 9 Defines an filled triangle-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_PLUS = 1 Defines a + data point marker. integer(kind=int32), public, parameter :: MARKER_X = 2 Defines an x data point marker. integer(kind=int32), public, parameter :: PLOTDATA_MAX_NAME_LENGTH = 128 Defines the maximum number of characters allowed in a graph label. character(len=*), public, parameter :: POLAR_THETA_BOTTOM = \"bottom\" States that theta should start at the bottom of the plot. character(len=*), public, parameter :: POLAR_THETA_CCW = \"ccw\" States that theta should proceed in a counter-clockwise direction. character(len=*), public, parameter :: POLAR_THETA_CW = \"cw\" States that theta should proceed in a clockwise direction. character(len=*), public, parameter :: POLAR_THETA_LEFT = \"left\" States that theta should start at the left of the plot. character(len=*), public, parameter :: POLAR_THETA_RIGHT = \"right\" States that theta should start at the right of the plot. character(len=*), public, parameter :: POLAR_THETA_TOP = \"top\" States that theta should start at the top of the plot.","tags":"","loc":"module\\fplot_constants.html"},{"title":"fplot_plot_bar – FPLOT","text":"Uses iso_fortran_env strings fplot_plot_2d Derived Types type, public, extends( plot_2d ) :: plot_bar Defines a 2D plot tailored towards bar plotting. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_bar_width => pb_get_bar_width procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => pb_get_cmd procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_jitter_overlap => p2d_get_jitter_overlap procedure, public :: get_jitter_spread => p2d_get_jitter_spread procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_spacing => pb_get_spacing procedure, public :: get_square_axes => p2d_get_square_axes procedure, public :: get_stacked => pb_get_stacked procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_use_jittering => p2d_get_use_jitter procedure, public :: get_use_y2_axis => p2d_get_use_y2 procedure, public :: get_x_axis => p2d_get_x_axis procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y2_axis => p2d_get_y2_axis procedure, public :: get_y_axis => p2d_get_y_axis procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: initialize => p2d_init procedure, public :: is_title_defined => plt_has_title procedure, public :: p2d_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , p2d_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_bar_width => pb_set_bar_width procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_jitter_overlap => p2d_set_jitter_overlap procedure, public :: set_jitter_spread => p2d_set_jitter_spread procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_spacing => pb_set_spacing procedure, public :: set_square_axes => p2d_set_square_axes procedure, public :: set_stacked => pb_set_stacked procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_use_jittering => p2d_set_use_jitter procedure, public :: set_use_y2_axis => p2d_set_use_y2 procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_axis_title => p2d_set_x_axis_title procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y2_axis_title => p2d_set_y2_axis_title procedure, public :: set_y_axis_title => p2d_set_y_axis_title procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: show_legend => plt_show_legend","tags":"","loc":"module\\fplot_plot_bar.html"},{"title":"fplot_plot_data_box_whisker – FPLOT","text":"Uses iso_fortran_env fplot_colors strings fplot_plot_data fplot_errors Derived Types type, public, extends( plot_data_colored ) :: plot_data_box_whisker A container for box-whisker plot data. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdbw_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pdbw_define_data_xstring procedure, public :: get_box_fill_opacity => pdbw_get_opacity procedure, public :: get_box_width => pdbw_get_box_width procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdbw_get_cmd procedure, public :: get_data_string => pdbw_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => pdbw_get_use_y2 procedure, public :: get_fill_boxes => pdbw_get_fill_boxes procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_width => pdbw_get_line_width procedure, public :: get_midline_color => pdbw_get_midline_color procedure, public :: get_midline_width => pdbw_get_midline_width procedure, public :: get_name => pd_get_name procedure, public :: get_use_whiskerbars => pdbw_get_use_whiskerbars procedure, public :: get_whiskerbar_width => pdbw_get_whiskerbar_width procedure, public :: set_box_fill_opacity => pdbw_set_opacity procedure, public :: set_box_width => pdbw_set_box_width procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => pdbw_set_use_y2 procedure, public :: set_fill_boxes => pdbw_set_fill_boxes procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_width => pdbw_set_line_width procedure, public :: set_midline_color => pdbw_set_midline_color procedure, public :: set_midline_width => pdbw_set_midline_width procedure, public :: set_name => pd_set_name procedure, public :: set_use_whiskerbars => pdbw_set_use_whiskerbars procedure, public :: set_whiskerbar_width => pdbw_set_whiskerbar_width","tags":"","loc":"module\\fplot_plot_data_box_whisker.html"},{"title":"fplot_simplify – FPLOT","text":"Uses iso_fortran_env fplot_errors Interfaces public        interface simplify_polyline private  function simplify_polyline_2d1(x, y, tol, err) result(ln) Simplifies a 2D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, and the second \ncolumn contains the y-coordinates. private  function simplify_polyline_3d1(x, y, z, tol, err) result(ln) Simplifies a 3D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: z An N-element array containing the z-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, the second \ncolumn contains the y-coordinates, and the third column contains \nthe z-coordinates. private  function simplify_polyline_mtx(xy, tol, err) result(ln) Simplifies a 2D or 3D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:,:) :: xy An N-by-2 or N-by-3 matrix containing the polyline vertex data. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, the second \ncolumn contains the y-coordinates, and if necessary, the third \ncolumn contains the z-coordinates.","tags":"","loc":"module\\fplot_simplify.html"},{"title":"fplot_plot_data_tri_2d – FPLOT","text":"Uses iso_fortran_env fplot_constants fplot_colors strings fplot_plot_data fplot_triangulations_delaunay_2d Derived Types type, public, extends( plot_data_colored ) :: plot_data_tri_2d Defines a 2D triangulated data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdt2d_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pdt2d_define_data procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdt2d_get_cmd procedure, public :: get_data_string => pdt2d_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => pdt2d_get_line_style procedure, public :: get_line_width => pdt2d_get_line_width procedure, public :: get_name => pd_get_name procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => pdt2d_set_line_style procedure, public :: set_line_width => pdt2d_set_line_width procedure, public :: set_name => pd_set_name","tags":"","loc":"module\\fplot_plot_data_tri_2d.html"},{"title":"fplot_vector_field_plot_data – FPLOT","text":"Uses iso_fortran_env fplot_colors strings fplot_plot_data fplot_errors Derived Types type, public, extends( plot_data_colored ) :: vector_field_plot_data Defines a two-dimensional vector-field plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => vfpd_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => vfpd_define_data procedure, public :: get_arrow_size => vfpd_get_arrow_size procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => vfpd_get_cmd procedure, public :: get_data_string => vfpd_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_fill_arrow => vfpd_get_fill_arrow procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_name => pd_get_name procedure, public :: get_use_data_dependent_colors => vfpd_get_use_data_dependent_colors procedure, public :: set_arrow_size => vfpd_set_arrow_size procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_fill_arrow => vfpd_set_fill_arrow procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name","tags":"","loc":"module\\fplot_vector_field_plot_data.html"},{"title":"fplot_plot_3d – FPLOT","text":"Uses fplot_plot_axis iso_fortran_env fplot_constants fplot_colors fplot_plot_data fplot_legend fplot_plot_data_3d strings fplot_plot fplot_errors Derived Types type, public, extends( plot ) :: plot_3d A plot object defining a 3D plot. Finalizations Procedures final :: p3d_clean_up Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_azimuth => p3d_get_azimuth procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => p3d_get_cmd procedure, public :: get_coordinate_system => p3d_get_csys procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_elevation => p3d_get_elevation procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_show_z_major_grid => p3d_get_show_z_major_grid procedure, public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_use_map_view => p3d_get_use_map_view procedure, public :: get_x_axis => p3d_get_x_axis procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y_axis => p3d_get_y_axis procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: get_z_axis => p3d_get_z_axis procedure, public :: get_z_intersect_xy => p3d_get_z_axis_intersect procedure, public :: get_z_major_grid_color => p3d_get_z_major_grid_color procedure, public :: get_z_major_grid_line_style => p3d_get_z_major_grid_line_style procedure, public :: get_z_major_grid_line_width => p3d_get_z_major_grid_line_width procedure, public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color procedure, public :: get_z_minor_grid_line_style => p3d_get_z_minor_grid_line_style procedure, public :: get_z_minor_grid_line_width => p3d_get_z_minor_grid_line_width procedure, public :: initialize => p3d_init procedure, public :: is_title_defined => plt_has_title procedure, public :: p3d_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , p3d_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_azimuth => p3d_set_azimuth procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_coordinate_system => p3d_set_csys procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_elevation => p3d_set_elevation procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_show_z_major_grid => p3d_set_show_z_major_grid procedure, public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_use_map_view => p3d_set_use_map_view procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_axis_title => p3d_set_x_axis_title procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y_axis_title => p3d_set_y_axis_title procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: set_z_axis_title => p3d_set_z_axis_title procedure, public :: set_z_intersect_xy => p3d_set_z_axis_intersect procedure, public :: set_z_major_grid_color => p3d_set_z_major_grid_color procedure, public :: set_z_major_grid_line_style => p3d_set_z_major_grid_line_style procedure, public :: set_z_major_grid_line_width => p3d_set_z_major_grid_line_width procedure, public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color procedure, public :: set_z_minor_grid_line_style => p3d_set_z_minor_grid_line_style procedure, public :: set_z_minor_grid_line_width => p3d_set_z_minor_grid_line_width procedure, public :: show_legend => plt_show_legend","tags":"","loc":"module\\fplot_plot_3d.html"},{"title":"fplot_terminal – FPLOT","text":"Uses fplot_constants fplot_plot_object iso_fortran_env strings Interfaces interface public  function term_get_string_result(this) result(x) Retrieves a string from a terminal. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The string. Derived Types type, public, extends( terminal ) :: file_terminal Defines a terminal meant to save results directly to file \n(e.g. PNG, SVG, etc.). Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure( term_get_string_result ), public, deferred :: get_id_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width type, public, extends( plot_object ) :: terminal A GNUPLOT terminal object. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure( term_get_string_result ), public, deferred :: get_id_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_terminal.html"},{"title":"fplot_plot_data – FPLOT","text":"Uses iso_fortran_env fplot_constants fplot_colors fplot_plot_object strings fplot_errors Interfaces interface public  subroutine pd_clear_action(this) Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. interface public  function pd_get_string_result(this) result(x) Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. interface public pure function spd_get_int_value(this) result(x) Gets an integer value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value integer(kind=int32) The value. interface public  function spd_get_string_result(this) result(x) Gets a string value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The string. interface public pure function spd_get_value(this, index) result(x) Gets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. Return Value real(kind=real64) The value. interface public  subroutine spd_set_value(this, index, x) Sets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. real(kind=real64), intent(in) :: x The value. Derived Types type, public, extends( plot_data_colored ) :: line_plot_data A plot_data object for describing line series data. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure( pd_clear_action ), public, deferred :: clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => lpd_get_cmd procedure( pd_get_string_result ), public, deferred :: get_data_string procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_name => pd_get_name procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_name => pd_set_name type, public, extends( plot_object ) :: plot_data A container for plot data. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure( pd_clear_action ), public, deferred :: clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure( get_string_result ), public, deferred :: get_command_string procedure( pd_get_string_result ), public, deferred :: get_data_string procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_name => pd_get_name procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_name => pd_set_name type, public, extends( plot_data ) :: plot_data_colored Defines a colored plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure( pd_clear_action ), public, deferred :: clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: get_color_index => pdc_get_color_index procedure( get_string_result ), public, deferred :: get_command_string procedure( pd_get_string_result ), public, deferred :: get_data_string procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_name => pd_get_name procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name type, public, extends( line_plot_data ) :: scatter_plot_data A plot_data object for describing scatter plot data sets. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure( pd_clear_action ), public, deferred :: clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure( spd_get_string_result ), public, deferred :: get_axes_string procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => spd_get_cmd procedure( spd_get_int_value ), public, deferred :: get_count procedure( pd_get_string_result ), public, deferred :: get_data_string procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_fill_curve => spd_get_filled procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_name => pd_get_name procedure, public :: get_simplification_factor => spd_get_simplify_factor procedure, public :: get_simplify_data => spd_get_simplify_data procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size procedure( spd_get_value ), public, deferred :: get_x procedure( spd_get_value ), public, deferred :: get_y procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_fill_curve => spd_set_filled procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_name => pd_set_name procedure, public :: set_simplification_factor => spd_set_simplify_factor procedure, public :: set_simplify_data => spd_set_simplify_data procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size procedure( spd_set_value ), public, deferred :: set_x procedure( spd_set_value ), public, deferred :: set_y Functions public  function lpd_get_cmd (this) result(rst) Gets the GNUPLOT command string to represent this line_plot_data\nobject. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value character(len=:), allocatable The command string. public  function spd_get_cmd (this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string.","tags":"","loc":"module\\fplot_plot_data.html"},{"title":"fplot_plot_data_bar – FPLOT","text":"Uses iso_fortran_env fplot_colors strings fplot_plot_data fplot_errors Derived Types type, public, extends( plot_data_colored ) :: plot_data_bar Defines a data set tailored to bar charts. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdb_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name generic, public :: define_data => pdb_set_data_1, pdb_set_data_2, pdb_set_data_3, pdb_set_data_4, pdb_set_data_5, pdb_set_data_6 procedure, public :: get => pdb_get_data procedure, public :: get_axes_string => pdb_get_axes_cmd procedure, public :: get_bar_color => pdb_get_bar_color procedure, public :: get_bar_per_label_count => pdb_get_col_count procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdb_get_cmd procedure, public :: get_count => pdb_get_count procedure, public :: get_data => pdb_get_data_set procedure, public :: get_data_string => pdb_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => pdb_get_use_y2 procedure, public :: get_is_filled => pdb_get_is_filled procedure, public :: get_label => pdb_get_label procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_name => pd_get_name procedure, public :: get_series_name => pdb_get_series_name procedure, public :: get_transparency => pdb_get_alpha procedure, public :: get_use_labels => pdb_get_use_labels procedure, public :: set => pdb_set_data procedure, public :: set_bar_color => pdb_set_bar_color procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_data_1 => pdb_set_data_1_core procedure, public :: set_data_2 => pdb_set_data_2_core procedure, public :: set_data_3 => pdb_set_data_3_core procedure, public :: set_data_4 => pdb_set_data_4_core procedure, public :: set_data_5 => pdb_set_data_5_core procedure, public :: set_data_6 => pdb_set_data_6_core procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => pdb_set_use_y2 procedure, public :: set_is_filled => pdb_set_is_filled procedure, public :: set_label => pdb_set_label procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name procedure, public :: set_series_name => pdb_set_series_name procedure, public :: set_transparency => pdb_set_alpha procedure, public :: set_use_labels => pdb_set_use_labels","tags":"","loc":"module\\fplot_plot_data_bar.html"},{"title":"fplot_pdf_terminal – FPLOT","text":"Uses fplot_terminal iso_fortran_env strings Derived Types type, public, extends( file_terminal ) :: pdf_terminal Defines a terminal used for producing PDF outputs. Type-Bound Procedures procedure, public :: get_command_string => pdf_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => pdf_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_resolution => pdf_get_resolution procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_resolution => pdf_set_resolution procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_pdf_terminal.html"},{"title":"fplot_tri_surface_plot_data – FPLOT","text":"Uses fplot_plot_data iso_fortran_env fplot_delaunay_tri_surface strings Derived Types type, public, extends( plot_data ) :: tri_surface_plot_data Provides a three-dimensional surface plot data set constructed of\ntriangulated points. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => tspd_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => tspd_define_data procedure, public :: get_command_string => tspd_get_cmd procedure, public :: get_data_string => tspd_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_name => pd_get_name procedure, public :: get_use_wireframe => tspd_get_wireframe procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_name => pd_set_name procedure, public :: set_use_wireframe => tspd_set_wireframe","tags":"","loc":"module\\fplot_tri_surface_plot_data.html"},{"title":"fplot_plot_data_3d.f90 – FPLOT","text":"Source Code module fplot_plot_data_3d use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_simplify use strings implicit none private public :: plot_data_3d type , extends ( scatter_plot_data ) :: plot_data_3d !! Defines a three-dimensional plot data set. real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! An N-by-3 matrix containing the x, y, and z data points. contains procedure , public :: get_count => pd3d_get_data_count procedure , public :: get_x => pd3d_get_x_data procedure , public :: set_x => pd3d_set_x_data procedure , public :: get_y => pd3d_get_y_data procedure , public :: set_y => pd3d_set_y_data procedure , public :: get_z => pd3d_get_z_data procedure , public :: set_z => pd3d_set_z_data procedure , public :: get_axes_string => pd3d_get_axes_cmd procedure , public :: get_data_string => pd3d_get_data_cmd procedure , public :: define_data => pd3d_set_data_1 procedure , public :: get_x_data => pd3d_get_x_array procedure , public :: get_y_data => pd3d_get_y_array procedure , public :: get_z_data => pd3d_get_z_array procedure , public :: get_color_data => pd3d_get_c_array procedure , public :: get_point_size_data => pd3d_get_c_array procedure , public :: clear_data => pd3d_clear_data end type contains ! ------------------------------------------------------------------------------ pure function pd3d_get_data_count ( this ) result ( x ) !! Gets the number of data points. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. integer ( int32 ) :: x !! The number of data points. if ( allocated ( this % m_data )) then x = size ( this % m_data , 1 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pd3d_get_x_data ( this , index ) result ( x ) !! Gets the requested X data point. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 1 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd3d_set_x_data ( this , index , x ) !! Sets the requested X data point. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 1 ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pd3d_get_y_data ( this , index ) result ( x ) !! Gets the requested Y data point. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 2 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd3d_set_y_data ( this , index , x ) !! Sets the requested Y data point. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 2 ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pd3d_get_z_data ( this , index ) result ( x ) !! Gets the requested Z data point. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 3 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd3d_set_z_data ( this , index , x ) !! Sets the requested Z data point. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 3 ) = x end if end subroutine ! ------------------------------------------------------------------------------ function pd3d_get_axes_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string defining which axes the data !! is to be plotted against. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. character ( len = :), allocatable :: x !! The command string. ! Output x = \"\" end function ! ------------------------------------------------------------------------------ function pd3d_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data to plot. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i character :: delimiter , nl real ( real64 ), allocatable , dimension (:) :: xv , yv , zv , cv , ps real ( real64 ), allocatable , dimension (:,:) :: pts real ( real64 ) :: tol , maxz , minz , eps logical :: usecolors , usevarpoints ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) usecolors = this % get_use_data_dependent_colors () usevarpoints = this % get_use_variable_size_points () ! Process xv = this % get_x_data () yv = this % get_y_data () zv = this % get_z_data () if ( usecolors . and . usevarpoints ) then cv = this % get_color_data () ps = this % get_point_size_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( zv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( ps ( i ))) call str % append ( delimiter ) call str % append ( to_string ( cv ( i ))) call str % append ( nl ) end do else if ( usecolors . and . . not . usevarpoints ) then cv = this % get_color_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( zv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( cv ( i ))) call str % append ( nl ) end do else if (. not . usecolors . and . usevarpoints ) then ps = this % get_point_size_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( zv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( ps ( i ))) call str % append ( nl ) end do else if ( this % get_simplify_data ()) then maxz = maxval ( zv ) minz = minval ( zv ) tol = abs ( this % get_simplification_factor () * ( maxz - minz )) eps = 1 0.0d0 * epsilon ( eps ) if ( tol < eps ) tol = eps pts = simplify_polyline ( xv , yv , zv , tol ) do i = 1 , size ( pts , 1 ) call str % append ( to_string ( pts ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( pts ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( pts ( i , 3 ))) call str % append ( nl ) end do else do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( zv ( i ))) call str % append ( nl ) end do end if end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine pd3d_set_data_1 ( this , x , y , z , c , ps , err ) !! Defines the data set. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinate data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinate data. real ( real64 ), intent ( in ), dimension (:) :: z !! An N-element array containing the z coordinate data. real ( real64 ), intent ( in ), dimension (:), optional :: c !! An N-element array defining how color should vary with the !! current colormap for each value. real ( real64 ), intent ( in ), dimension (:), optional :: ps !! An N-element array defining the size of each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag , ncols class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) ncols = 3 if ( present ( c )) ncols = ncols + 1 if ( present ( ps )) ncols = ncols + 1 if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pd3d_set_data_1\" , & \"y\" , n , size ( y )) return end if if ( size ( z ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pd3d_set_data_1\" , & \"z\" , n , size ( z )) return end if if ( present ( c )) then if ( size ( c ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pd3d_set_data_1\" , \"c\" , n , size ( c )) return end if end if if ( present ( ps )) then if ( size ( ps ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pd3d_set_data_1\" , \"ps\" , n , size ( ps )) end if end if ! Process if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , ncols ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pd3d_set_data_1\" , flag ) return end if if ( present ( c ) . and . present ( ps )) then call this % set_use_data_dependent_colors (. true .) call this % set_use_variable_size_points (. true .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = z ( i ) this % m_data ( i , 4 ) = ps ( i ) this % m_data ( i , 5 ) = c ( i ) end do else if ( present ( c ) . and . . not . present ( ps )) then call this % set_use_data_dependent_colors (. true .) call this % set_use_variable_size_points (. false .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = z ( i ) this % m_data ( i , 4 ) = c ( i ) end do else if (. not . present ( c ) . and . present ( ps )) then call this % set_use_data_dependent_colors (. false .) call this % set_use_variable_size_points (. true .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = z ( i ) this % m_data ( i , 4 ) = ps ( i ) end do else call this % set_use_data_dependent_colors (. false .) call this % set_use_variable_size_points (. false .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = z ( i ) end do end if end subroutine ! ------------------------------------------------------------------------------ function pd3d_get_x_array ( this ) result ( x ) !! Gets the stored X data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 1 ) end if end function ! ------------------------------------------------------------------------------ function pd3d_get_y_array ( this ) result ( x ) !! Gets the stored Y data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 2 ) end if end function ! ------------------------------------------------------------------------------ function pd3d_get_z_array ( this ) result ( x ) !! Gets the stored Z data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 3 ) end if end function ! ****************************************************************************** ! ADDED: OCT. 9, 2020 - JAC ! ------------------------------------------------------------------------------ function pd3d_get_c_array ( this ) result ( x ) !! Gets the stored color scaling data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then if ( size ( this % m_data , 2 ) == 4 ) then x = this % m_data (:, 4 ) else if ( size ( this % m_data , 2 ) == 5 ) then x = this % m_data (:, 5 ) end if end if end function ! ------------------------------------------------------------------------------ function pd3d_get_ps_array ( this ) result ( x ) !! Gets the stored point scaling data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then if ( size ( this % m_data , 2 ) > 3 ) then x = this % m_data (:, 4 ) end if end if end function ! ------------------------------------------------------------------------------ subroutine pd3d_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_3d.f90.html"},{"title":"fplot_plot_data_2d.f90 – FPLOT","text":"Source Code module fplot_plot_data_2d use iso_fortran_env use fplot_plot_data use fplot_simplify use fplot_errors use strings implicit none private public :: plot_data_2d type , extends ( scatter_plot_data ) :: plot_data_2d !! Defines a two-dimensional plot data set. real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! An N-by-2 matrix containing the x and y data points. !> Draw against the secondary y axis? logical , private :: m_useY2 = . false . !! Draw against the secondary y axis? contains procedure , public :: get_axes_string => pd2d_get_axes_cmd procedure , public :: get_data_string => pd2d_get_data_cmd procedure , public :: get_count => pd2d_get_data_count procedure , public :: get_x => pd2d_get_x_data procedure , public :: set_x => pd2d_set_x_data procedure , public :: get_y => pd2d_get_y_data procedure , public :: set_y => pd2d_set_y_data procedure , public :: get_draw_against_y2 => pd2d_get_draw_against_y2 procedure , public :: set_draw_against_y2 => pd2d_set_draw_against_y2 generic , public :: define_data => pd2d_set_data_1 , pd2d_set_data_2 procedure :: pd2d_set_data_1 procedure :: pd2d_set_data_2 procedure , public :: get_x_data => pd2d_get_x_array procedure , public :: get_y_data => pd2d_get_y_array procedure , public :: get_color_data => pd2d_get_c_array procedure , public :: get_point_size_data => pd2d_get_ps_array procedure , public :: clear_data => pd2d_clear_data end type contains ! ------------------------------------------------------------------------------ function pd2d_get_axes_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string defining which axes the data !! is to be plotted against. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. character ( len = :), allocatable :: x !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then x = \"axes x1y2\" else x = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ function pd2d_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data !! to plot. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i character :: delimiter , nl real ( real64 ), allocatable , dimension (:) :: xv , yv , cv , ps real ( real64 ), allocatable , dimension (:,:) :: pts real ( real64 ) :: tol , maxy , miny , eps logical :: usecolors , usevarpoints ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) usecolors = this % get_use_data_dependent_colors () usevarpoints = this % get_use_variable_size_points () ! Process xv = this % get_x_data () yv = this % get_y_data () if ( usecolors . and . usevarpoints ) then cv = this % get_color_data () ps = this % get_point_size_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( ps ( i ))) call str % append ( delimiter ) call str % append ( to_string ( cv ( i ))) call str % append ( nl ) end do else if ( usecolors . and . . not . usevarpoints ) then cv = this % get_color_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( cv ( i ))) call str % append ( nl ) end do else if (. not . usecolors . and . usevarpoints ) then ps = this % get_point_size_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( ps ( i ))) call str % append ( nl ) end do else if ( this % get_simplify_data ()) then maxy = maxval ( yv ) miny = minval ( yv ) tol = abs ( this % get_simplification_factor () * ( maxy - miny )) eps = 1 0.0d0 * epsilon ( eps ) if ( tol < eps ) tol = eps pts = simplify_polyline ( xv , yv , tol ) do i = 1 , size ( pts , 1 ) call str % append ( to_string ( pts ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( pts ( i , 2 ))) call str % append ( nl ) end do else do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( nl ) end do end if end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function pd2d_get_data_count ( this ) result ( x ) !! Gets the number of data points. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. integer ( int32 ) :: x !! The number of data points. if ( allocated ( this % m_data )) then x = size ( this % m_data , 1 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pd2d_get_x_data ( this , index ) result ( x ) !! Gets the requested X data point. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 1 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd2d_set_x_data ( this , index , x ) !! Sets the requested X data point. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 1 ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pd2d_get_y_data ( this , index ) result ( x ) !! Gets the requested Y data point. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 2 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd2d_set_y_data ( this , index , x ) !! Sets the requested Y data point. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 2 ) = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine pd2d_set_data_1 ( this , x , y , c , ps , err ) !! Defines the data set to plot. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinate data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinate data. real ( real64 ), intent ( in ), dimension (:), optional :: c !! An N-element array defining how color should vary with the !! current colormap for each value. real ( real64 ), intent ( in ), dimension (:), optional :: ps !! An N-element array defining the size of each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error-handling object. ! Local Variables integer ( int32 ) :: i , n , flag , ncols class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) ncols = 2 if ( present ( c )) ncols = ncols + 1 if ( present ( ps )) ncols = ncols + 1 if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pd2d_set_data_1\" , & \"y\" , n , size ( y )) return end if if ( present ( c )) then if ( size ( c ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pd2d_set_data_1\" , \"c\" , n , size ( c )) return end if end if if ( present ( ps )) then if ( size ( ps ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pd2d_set_data_1\" , \"ps\" , n , size ( ps )) return end if end if ! Process if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , ncols ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pd2d_set_data_1\" , flag ) return end if ! if (present(c)) then !     call this%set_use_data_dependent_colors(.true.) !     do concurrent (i = 1:n) !         this%m_data(i, 1) = x(i) !         this%m_data(i, 2) = y(i) !         this%m_data(i, 3) = c(i) !     end do ! else !     call this%set_use_data_dependent_colors(.false.) !     do concurrent (i = 1:n) !         this%m_data(i, 1) = x(i) !         this%m_data(i, 2) = y(i) !     end do ! end if if ( present ( c ) . and . present ( ps )) then call this % set_use_data_dependent_colors (. true .) call this % set_use_variable_size_points (. true .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = ps ( i ) this % m_data ( i , 4 ) = c ( i ) end do else if ( present ( c ) . and . . not . present ( ps )) then call this % set_use_data_dependent_colors (. true .) call this % set_use_variable_size_points (. false .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = c ( i ) end do else if (. not . present ( c ) . and . present ( ps )) then call this % set_use_data_dependent_colors (. false .) call this % set_use_variable_size_points (. true .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = ps ( i ) end do else call this % set_use_data_dependent_colors (. false .) call this % set_use_variable_size_points (. false .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) end do end if end subroutine ! ------------------------------------------------------------------------------ pure function pd2d_get_draw_against_y2 ( this ) result ( x ) !! Gets a value determining if the data should be plotted against !! the secondary y-axis. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. logical :: x !! Returns true if the data should be plotted against the secondary !! y-axis; else, false to plot against the primary y-axis. x = this % m_useY2 end function ! -------------------- subroutine pd2d_set_draw_against_y2 ( this , x ) !! Sets a value determining if the data should be plotted against !! the secondary y-axis. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. logical , intent ( in ) :: x !! Set to true if the data should be plotted against the !! secondary y-axis; else, false to plot against the primary y-axis. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ subroutine pd2d_set_data_2 ( this , y , err ) !! Defines the data set to plot. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y-coordinate data.  This !! data will be plotted against its own index. class ( errors ), intent ( inout ), optional , target :: err !! An error-handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( y ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Process if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 2 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pd2d_set_data_2\" , flag ) return end if do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = real ( i , real64 ) this % m_data ( i , 2 ) = y ( i ) end do end subroutine ! ------------------------------------------------------------------------------ function pd2d_get_x_array ( this ) result ( x ) !! Gets the stored X data array. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 1 ) end if end function ! ------------------------------------------------------------------------------ function pd2d_get_y_array ( this ) result ( x ) !! Gets the stored Y data array. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 2 ) end if end function ! ****************************************************************************** ! ADDED: OCT. 8, 2020 - JAC ! ------------------------------------------------------------------------------ function pd2d_get_c_array ( this ) result ( x ) !! Gets the stored color scaling data array. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then if ( size ( this % m_data , 2 ) == 3 ) then x = this % m_data (:, 3 ) else if ( size ( this % m_data , 2 ) == 4 ) then x = this % m_data (:, 4 ) end if end if end function ! ------------------------------------------------------------------------------ function pd2d_get_ps_array ( this ) result ( x ) !! Gets the stored point size data array. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then if ( size ( this % m_data , 2 ) > 2 ) then x = this % m_data (:, 3 ) end if end if end function ! ------------------------------------------------------------------------------ subroutine pd2d_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_2d.f90.html"},{"title":"fplot_windows_terminal.f90 – FPLOT","text":"Source Code ! fplot_windows_terminal.f90 module fplot_windows_terminal use iso_fortran_env use fplot_terminal implicit none private public :: windows_terminal type , extends ( terminal ) :: windows_terminal !! A Windows-specific terminal. character ( len = 3 ), private :: m_id = \"win\" !! The terminal ID string contains procedure , public :: get_id_string => wt_get_term_string end type contains function wt_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( windows_terminal ), intent ( in ) :: this !! The windows_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function end module","tags":"","loc":"sourcefile\\fplot_windows_terminal.f90.html"},{"title":"fplot_latex_terminal.f90 – FPLOT","text":"Source Code module fplot_latex_terminal use iso_fortran_env use fplot_terminal use fplot_constants use strings implicit none private public :: latex_terminal type , extends ( file_terminal ) :: latex_terminal !! A LATEX terminal. character ( len = 14 ), private :: m_id = \"epslatex color\" !! The terminal ID string contains procedure , public :: get_id_string => tex_get_term_string end type contains ! ------------------------------------------------------------------------------ function tex_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( latex_terminal ), intent ( in ) :: this !! The latex_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_latex_terminal.f90.html"},{"title":"fplot_plot_polar.f90 – FPLOT","text":"Source Code ! fplot_polar.f90 module fplot_plot_polar use iso_fortran_env use fplot_plot use fplot_terminal use fplot_errors use fplot_constants use fplot_legend use fplot_plot_data use fplot_plot_data_2d use fplot_colors use strings implicit none private public :: plot_polar type , extends ( plot ) :: plot_polar private !> @brief Allow the plot to autoscale? logical :: m_autoscale = . true . !> @brief The minimum radius value - only applicable if m_autoscale is !!  false. real ( real64 ) :: m_minrad = 0.0d0 !> @brief The maximum radius value - only applicable if m_autoscale is !!  false. real ( real64 ) :: m_maxrad = 1.0d0 !> @brief The location for theta = 0 character ( len = :), allocatable :: m_thetaStart !> @brief The direction for theta character ( len = :), allocatable :: m_thetaDirection contains final :: plr_clean_up procedure , public :: initialize => plr_init procedure , public :: get_command_string => plr_get_cmd procedure , public :: get_autoscale => plr_get_autoscale procedure , public :: set_autoscale => plr_set_autoscale procedure , public :: get_radial_limits => plr_get_limits procedure , public :: set_radial_limits => plr_set_limits procedure , public :: get_theta_start_position => plr_get_theta_start procedure , public :: set_theta_start_position => plr_set_theta_start procedure , public :: get_theta_direction => plr_get_theta_direction procedure , public :: set_theta_direction => plr_set_theta_direction procedure , public :: plr_push_data generic , public :: push => plr_push_data end type contains ! ------------------------------------------------------------------------------ subroutine plr_clean_up ( this ) !! Cleans up resources held by the plot_polar object. type ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. call this % free_resources () end subroutine ! ------------------------------------------------------------------------------ subroutine plr_init ( this , term , fname , err ) !! Initializes the plot_polar object. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !!  The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Initialize the base class ! call plt_init(this, term, fname, errmgr) call this % plot % initialize ( term , fname , errmgr ) ! Initialize the rest of the object this % m_thetaStart = POLAR_THETA_RIGHT this % m_thetaDirection = POLAR_THETA_CCW end subroutine ! ------------------------------------------------------------------------------ function plr_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot_polar object. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. character ( len = :), allocatable :: x !! The command string. ! Local Variables integer ( int32 ) :: i , n type ( string_builder ) :: str type ( legend ), pointer :: leg real ( real64 ) :: lmargin , rmargin , tmargin , bmargin real ( real64 ) :: lim ( 2 ) ! class(plot_label), pointer :: lbl class ( plot_data ), pointer :: ptr type ( color ) :: clr ! Initialization call str % initialize () ! Call the base routine call str % append ( this % plot % get_command_string ()) ! Margin lmargin = this % get_left_margin () rmargin = this % get_right_margin () tmargin = this % get_top_margin () bmargin = this % get_bottom_margin () if ( lmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set lmargin at screen \" ) call str % append ( to_string ( lmargin )) end if if ( rmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set rmargin at screen \" ) call str % append ( to_string ( rmargin )) end if if ( tmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set tmargin at screen \" ) call str % append ( to_string ( tmargin )) end if if ( bmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set bmargin at screen \" ) call str % append ( to_string ( bmargin )) end if ! Polar-Specific Settings call str % append ( new_line ( 'a' )) call str % append ( \"unset border\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set polar\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set size square\" ) call str % append ( new_line ( 'a' )) call str % append ( \"unset xtics\" ) call str % append ( new_line ( 'a' )) call str % append ( \"unset ytics\" ) call str % append ( new_line ( 'a' )) call str % append ( 'set ttics 0, 30 format \"%g\".GPVAL_DEGREE_SIGN' ) call str % append ( new_line ( 'a' )) call str % append ( \"set mttics 3\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set theta \" ) call str % append ( this % get_theta_start_position ()) call str % append ( \" \" ) call str % append ( this % get_theta_direction ()) ! Radial Limits if (. not . this % get_autoscale ()) then lim = this % get_radial_limits () call str % append ( new_line ( 'a' )) call str % append ( \"set rrange [\" ) call str % append ( to_string ( lim ( 1 ))) call str % append ( \":\" ) call str % append ( to_string ( lim ( 2 ))) call str % append ( \"]\" ) end if ! Grid if ( this % get_show_gridlines ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid r polar' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if ! Title n = len_trim ( this % get_title ()) if ( n > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( 'set title \"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if ! Border call str % append ( new_line ( 'a' )) if ( this % get_draw_border ()) then call str % append ( \"set border polar\" ) else call str % append ( \"set border 0\" ) end if call str % append ( new_line ( 'a' )) call str % append ( \"set border linewidth \" ) call str % append ( to_string ( this % get_border_line_width ())) ! Legend call str % append ( new_line ( 'a' )) leg => this % get_legend () if ( associated ( leg )) call str % append ( leg % get_command_string ()) ! ! Labels ! do i = 1, this%get_label_count() !     lbl => this%get_label(i) !     if (.not.associated(lbl)) cycle !     call str%append(new_line('a')) !     call str%append(lbl%get_command_string()) ! end do ! Define the datablock n = this % get_count () do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( new_line ( 'a' )) call str % append ( \"$\" ) call str % append ( ptr % get_datablock_name ()) call str % append ( \" << EOD\" ) call str % append ( new_line ( 'a' )) call str % append ( ptr % get_data_string ()) call str % append ( \"EOD\" ) end do ! Define the plot function and data formatting commands call str % append ( new_line ( 'a' )) call str % append ( \"plot \" ) do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( ptr % get_command_string ()) if ( i /= n ) call str % append ( \", \" ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function plr_get_autoscale ( this ) result ( rst ) !! Gets a logical value determining if the axis should be !! automatically scaled to fit the data. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. logical :: rst !! Returns true if the plot will autoscale; else, false. rst = this % m_autoscale end function ! -------------------- subroutine plr_set_autoscale ( this , x ) !! Sets a logical value determining if the axis should be !! automatically scaled to fit the data. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. logical , intent ( in ) :: x !! Set to true if the plot will autoscale; else, false. this % m_autoscale = x end subroutine ! ------------------------------------------------------------------------------ pure function plr_get_limits ( this ) result ( rst ) !! Gets the radial axis limits if autoscaling is inactive. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. real ( real64 ) :: rst ( 2 ) !! A 2-element array containing the minimum and maximum limit !! values in that order. rst = [ this % m_minrad , this % m_maxrad ] end function ! -------------------- subroutine plr_set_limits ( this , x ) !! Sets the radial axis limits if autoscaling is inactive. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. real ( real64 ), intent ( in ) :: x ( 2 ) !! A 2-element array containing the minimum and maximum limit !! values in that order. this % m_minrad = minval ( x ) this % m_maxrad = maxval ( x ) end subroutine ! ------------------------------------------------------------------------------ pure function plr_get_theta_start ( this ) result ( rst ) !! Gets the position for \\theta = 0. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. character ( len = :), allocatable :: rst !! The starting position.  It is one of the following flags. !! !!  - POLAR_THETA_BOTTOM !! !!  - POLAR_THETA_TOP !! !!  - POLAR_THETA_RIGHT !! !!  - POLAR_THETA_LEFT rst = this % m_thetaStart end function ! -------------------- subroutine plr_set_theta_start ( this , x ) !! Sets the position for \\theta = 0. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. character ( len = * ), intent ( in ) :: x !! The starting position.  It is one of the following flags. !! !!  - POLAR_THETA_BOTTOM !! !!  - POLAR_THETA_TOP !! !!  - POLAR_THETA_RIGHT !! !!  - POLAR_THETA_LEFT if ( x /= POLAR_THETA_BOTTOM . and . & x /= POLAR_THETA_TOP . and . & x /= POLAR_THETA_LEFT . and . & x /= POLAR_THETA_RIGHT ) & then ! Reset to default this % m_thetaStart = POLAR_THETA_RIGHT else this % m_thetaStart = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plr_get_theta_direction ( this ) result ( rst ) !! Gets the \\theta direction. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. character ( len = :), allocatable :: rst !! The direction.  It is one of the following flags. !! !!  - POLAR_THETA_CCW !! !!  - POLAR_THETA_CW rst = this % m_thetaDirection end function ! -------------------- subroutine plr_set_theta_direction ( this , x ) !! Sets the \\theta direction. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. character ( len = * ), intent ( in ) :: x !! The direction.  It is one of the following flags. !! !!  - POLAR_THETA_CCW !! !!  - POLAR_THETA_CW if ( x /= POLAR_THETA_CCW . and . x /= POLAR_THETA_CW ) then ! Reset to default this % m_thetaDirection = POLAR_THETA_CCW else this % m_thetaDirection = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine plr_push_data ( this , angle , radial , lw , name , ls , lc ) !! Adds a data set to the plot. class ( plot_polar ), intent ( inout ) :: this !! The [[plot_polar]] object. real ( real64 ), intent ( in ), dimension (:) :: angle !! The angular values. real ( real64 ), intent ( in ), dimension ( size ( angle )) :: radial !! The radial values. real ( real32 ), intent ( in ), optional :: lw !! The line width. character ( len = * ), intent ( in ), optional :: name !! A name to associate with the data set. integer ( int32 ), intent ( in ), optional :: ls !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID type ( color ), intent ( in ), optional :: lc !! The line color. type ( plot_data_2d ) :: pd call pd % define_data ( angle , radial ) if ( present ( lw )) call pd % set_line_width ( lw ) if ( present ( name )) call pd % set_name ( name ) if ( present ( ls )) call pd % set_line_style ( ls ) if ( present ( lc )) call pd % set_line_color ( lc ) call this % push ( pd ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_polar.f90.html"},{"title":"fplot_png_terminal.f90 – FPLOT","text":"Source Code ! fplot_png_terminal.f90 module fplot_png_terminal use iso_fortran_env use strings use fplot_terminal use fplot_constants implicit none private public :: png_terminal type , extends ( file_terminal ) :: png_terminal !! Defines a terminal used for producing PNG outputs. character ( len = 17 ), private :: m_id = \"pngcairo enhanced\" !! The terminal ID string contains procedure , public :: get_id_string => png_get_term_string end type contains ! ------------------------------------------------------------------------------ function png_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( png_terminal ), intent ( in ) :: this !! The png_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_png_terminal.f90.html"},{"title":"fplot_plot_2d.f90 – FPLOT","text":"Source Code ! fplot_plot_2d.f90 module fplot_plot_2d use iso_fortran_env use fplot_plot_data use fplot_plot use fplot_errors use fplot_plot_axis use fplot_legend use fplot_plot_data_2d use fplot_colors use strings implicit none private public :: plot_2d type , extends ( plot ) :: plot_2d !! A plot object defining a 2D plot. type ( x_axis ), private , pointer :: m_xAxis => null () !! The x-axis. type ( y_axis ), private , pointer :: m_yAxis => null () !! The y-axis. type ( y2_axis ), private , pointer :: m_y2Axis => null () !! The secondary y-axis. logical , private :: m_useY2 = . false . !! Display the secondary y axis? logical , private :: m_set2square = . false . !! Set to square scaling. logical , private :: m_useJitter = . false . !! Allow jittering? real ( real32 ), private :: m_jitterOverlap = 1.0 !! Jitter overlap. real ( real32 ), private :: m_jitterSpread = 1.0 !! Jitter horizontal spread. contains final :: p2d_clean_up procedure , public :: initialize => p2d_init procedure , public :: get_command_string => p2d_get_cmd procedure , public :: get_x_axis => p2d_get_x_axis procedure , public :: get_y_axis => p2d_get_y_axis procedure , public :: get_y2_axis => p2d_get_y2_axis procedure , public :: get_use_y2_axis => p2d_get_use_y2 procedure , public :: set_use_y2_axis => p2d_set_use_y2 procedure , public :: get_square_axes => p2d_get_square_axes procedure , public :: set_square_axes => p2d_set_square_axes procedure , public :: get_use_jittering => p2d_get_use_jitter procedure , public :: set_use_jittering => p2d_set_use_jitter procedure , public :: get_jitter_overlap => p2d_get_jitter_overlap procedure , public :: set_jitter_overlap => p2d_set_jitter_overlap procedure , public :: get_jitter_spread => p2d_get_jitter_spread procedure , public :: set_jitter_spread => p2d_set_jitter_spread procedure , public :: set_x_axis_title => p2d_set_x_axis_title procedure , public :: set_y_axis_title => p2d_set_y_axis_title procedure , public :: set_y2_axis_title => p2d_set_y2_axis_title procedure , public :: p2d_push_data generic , public :: push => p2d_push_data end type contains ! ------------------------------------------------------------------------------ subroutine p2d_clean_up ( this ) !! Cleans up resources held by the plot_2d object. type ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. call this % free_resources () if ( associated ( this % m_xAxis )) then deallocate ( this % m_xAxis ) nullify ( this % m_xAxis ) end if if ( associated ( this % m_yAxis )) then deallocate ( this % m_yAxis ) nullify ( this % m_yAxis ) end if if ( associated ( this % m_y2Axis )) then deallocate ( this % m_y2Axis ) nullify ( this % m_y2Axis ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_init ( this , term , fname , err ) !! Initializes the plot_2d object. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !!  The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Initialize the base class ! call plt_init(this, term, fname, errmgr) call this % plot % initialize ( term , fname , errmgr ) ! Process flag = 0 if (. not . associated ( this % m_xAxis )) then allocate ( this % m_xAxis , stat = flag ) end if if ( flag == 0 . and . . not . associated ( this % m_yAxis )) then allocate ( this % m_yAxis , stat = flag ) end if if ( flag == 0 . and . . not . associated ( this % m_y2Axis )) then allocate ( this % m_y2Axis , stat = flag ) end if ! Error Checking if ( flag /= 0 ) then call report_memory_error ( errmgr , \"p2d_init\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function p2d_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot_2d object. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , n real ( real32 ) :: lmargin , rmargin , tmargin , bmargin class ( plot_data ), pointer :: ptr class ( plot_axis ), pointer :: axis , xAxis , yAxis type ( legend ), pointer :: leg type ( color ) :: clr ! class(plot_label), pointer :: lbl ! Initialization call str % initialize () ! Call the base routine call str % append ( this % plot % get_command_string ()) ! Grid if ( this % get_show_x_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid xtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_x_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mxtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_y_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid ytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_y_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_gridlines ()) then ! X call str % append ( new_line ( 'a' )) call str % append ( 'set grid xtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) ! Y call str % append ( new_line ( 'a' )) call str % append ( 'set grid ytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if ! Title n = len_trim ( this % get_title ()) if ( n > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( 'set title \"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if ! Margin lmargin = this % get_left_margin () rmargin = this % get_right_margin () tmargin = this % get_top_margin () bmargin = this % get_bottom_margin () if ( lmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set lmargin at screen \" ) call str % append ( to_string ( lmargin )) end if if ( rmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set rmargin at screen \" ) call str % append ( to_string ( rmargin )) end if if ( tmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set tmargin at screen \" ) call str % append ( to_string ( tmargin )) end if if ( bmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set bmargin at screen \" ) call str % append ( to_string ( bmargin )) end if ! Axes call str % append ( new_line ( 'a' )) xAxis => this % get_x_axis () if ( associated ( xAxis )) call str % append ( xAxis % get_command_string ()) call str % append ( new_line ( 'a' )) yAxis => this % get_y_axis () if ( associated ( yAxis )) call str % append ( yAxis % get_command_string ()) ! Secondary Axes if ( this % get_use_y2_axis ()) then call str % append ( new_line ( 'a' )) axis => this % get_y2_axis () if ( associated ( axis )) then call str % append ( axis % get_command_string ()) call str % append ( new_line ( 'a' )) call str % append ( \"set y2tics\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set ytics nomirror\" ) end if end if ! Tic Marks if (. not . this % get_tics_inward ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set tics out\" ) end if if ( xAxis % get_zero_axis ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set xtics axis\" ) end if if ( yAxis % get_zero_axis ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set ytics axis\" ) end if ! Border call str % append ( new_line ( 'a' )) call str % append ( \"set border back\" ) if ( this % get_draw_border ()) then n = 31 else n = 0 if (. not . xAxis % get_zero_axis ()) n = n + 1 if (. not . yAxis % get_zero_axis ()) n = n + 2 call str % append ( new_line ( 'a' )) call str % append ( \"set xtics nomirror\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set ytics nomirror\" ) if ( this % get_use_y2_axis ()) then n = n + 8 end if end if call str % append ( new_line ( 'a' )) if ( n > 0 ) then call str % append ( \"set border \" ) call str % append ( to_string ( n )) else call str % append ( \"unset border\" ) end if call str % append ( new_line ( 'a' )) call str % append ( \"set border linewidth \" ) call str % append ( to_string ( this % get_border_line_width ())) ! Scaling if ( this % get_axis_equal ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set view equal xy\" ) end if if ( this % get_square_axes ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set size square\" ) end if ! Legend call str % append ( new_line ( 'a' )) leg => this % get_legend () if ( associated ( leg )) call str % append ( leg % get_command_string ()) ! ! Labels ! do i = 1, this%get_label_count() !     lbl => this%get_label(i) !     if (.not.associated(lbl)) cycle !     call str%append(new_line('a')) !     call str%append(lbl%get_command_string()) ! end do ! Jittering call str % append ( new_line ( 'a' )) if ( this % get_use_jittering ()) then call str % append ( \"set jitter overlap \" ) call str % append ( to_string ( this % get_jitter_overlap ())) call str % append ( \" spread \" ) call str % append ( to_string ( this % get_jitter_spread ())) else call str % append ( \"unset jitter\" ) end if ! Define the datablock n = this % get_count () do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( new_line ( 'a' )) if ( is_plot_data_function ( ptr )) then call str % append ( ptr % get_data_string ()) else call str % append ( \"$\" ) call str % append ( ptr % get_datablock_name ()) call str % append ( \" << EOD\" ) call str % append ( new_line ( 'a' )) call str % append ( ptr % get_data_string ()) call str % append ( \"EOD\" ) end if end do ! Define the plot function and data formatting commands call str % append ( new_line ( 'a' )) call str % append ( \"plot \" ) do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( ptr % get_command_string ()) if ( i /= n ) call str % append ( \", \" ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function p2d_get_x_axis ( this ) result ( ptr ) !! Gets the x-axis object. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. class ( plot_axis ), pointer :: ptr !! A pointer to the x-axis object. ptr => this % m_xAxis end function ! ------------------------------------------------------------------------------ function p2d_get_y_axis ( this ) result ( ptr ) !! Gets the y-axis object. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. class ( plot_axis ), pointer :: ptr !! A pointer to the y-axis object. ptr => this % m_yAxis end function ! ------------------------------------------------------------------------------ function p2d_get_y2_axis ( this ) result ( ptr ) !! Gets the secondary y-axis object. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. class ( plot_axis ), pointer :: ptr !! A pointer to the secondary y-axis object. ptr => this % m_y2Axis end function ! ------------------------------------------------------------------------------ pure function p2d_get_use_y2 ( this ) result ( x ) !! Gets a flag determining if the secondary y-axis should be !! displayed. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. logical :: x !! Returns true if the axis should be displayed; else, false. x = this % m_useY2 end function ! -------------------- subroutine p2d_set_use_y2 ( this , x ) !! Sets a flag determining if the secondary y-axis should be !! displayed. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. logical , intent ( in ) :: x !! Set to true if the axis should be displayed; else, false. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ pure function p2d_get_square_axes ( this ) result ( rst ) !! Gets a logical flag determining if the axes size should be squared !! off. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. logical :: rst !! Returns true if the axes are to be sized to a square; else, !! false. rst = this % m_set2square end function ! -------------------- subroutine p2d_set_square_axes ( this , x ) !! Sets a logical flag determining if the axes size should be !! squared off. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. logical , intent ( in ) :: x !! Set to true if the axes are to be sized to a square; else, !! false. this % m_set2square = x end subroutine ! ------------------------------------------------------------------------------ pure function p2d_get_use_jitter ( this ) result ( rst ) !! Gets a logical value determining if jittering should be used. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. logical :: rst !! True if jittering should be used; else, false. rst = this % m_useJitter end function ! -------------------- subroutine p2d_set_use_jitter ( this , x ) !! Sets a logical value determining if jittering should be used. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. logical , intent ( in ) :: x !! Set to true if jittering should be used; else, false. this % m_useJitter = x end subroutine ! ------------------------------------------------------------------------------ pure function p2d_get_jitter_overlap ( this ) result ( rst ) !! Gets the jitter overalp. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. real ( real32 ) :: rst !! The jitter overlap. rst = this % m_jitterOverlap end function ! -------------------- subroutine p2d_set_jitter_overlap ( this , x ) !! Sets the jitter overlap. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. real ( real32 ), intent ( in ) :: x !! The jitter overlap. this % m_jitterOverlap = x end subroutine ! ------------------------------------------------------------------------------ pure function p2d_get_jitter_spread ( this ) result ( rst ) !! Gets the jitter horizontal spread. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. real ( real32 ) :: rst !! The jitter horizontal spread. rst = this % m_jitterSpread end function ! -------------------- subroutine p2d_set_jitter_spread ( this , x ) !! Sets the jitter horizontal spread. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. real ( real32 ), intent ( in ) :: x !! The jitter horizontal spread. this % m_jitterSpread = x end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_set_x_axis_title ( this , x ) !! Sets the title associated with the plot's x-axis. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_xAxis )) then call this % m_xAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_set_y_axis_title ( this , x ) !! Sets the title associated with the plot's y-axis. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_yAxis )) then call this % m_yAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_set_y2_axis_title ( this , x ) !! Sets the title associated with the plot's secondary y-axis. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_y2Axis )) then call this % m_y2Axis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_push_data ( this , x , y , lw , name , ls , lc ) !! Adds a data set to the plot. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. real ( real64 ), intent ( in ), dimension (:) :: x !! The x-values. real ( real64 ), intent ( in ), dimension ( size ( x )) :: y !! The y-values. real ( real32 ), intent ( in ), optional :: lw !! The line width. character ( len = * ), intent ( in ), optional :: name !! A name to associate with the data set. integer ( int32 ), intent ( in ), optional :: ls !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID type ( color ), intent ( in ), optional :: lc !! The line color. type ( plot_data_2d ) :: pd call pd % define_data ( x , y ) if ( present ( lw )) call pd % set_line_width ( lw ) if ( present ( name )) call pd % set_name ( name ) if ( present ( ls )) call pd % set_line_style ( ls ) if ( present ( lc )) call pd % set_line_color ( lc ) call this % push ( pd ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_2d.f90.html"},{"title":"fplot_plot.f90 – FPLOT","text":"Source Code ! fplot_plot.f90 module fplot_plot use iso_fortran_env use fplot_plot_object use fplot_plot_data use fplot_terminal use fplot_windows_terminal use fplot_qt_terminal use fplot_wxt_terminal use fplot_png_terminal use fplot_latex_terminal use fplot_svg_terminal use fplot_pdf_terminal use fplot_colormap use fplot_colors use fplot_errors use fplot_constants use fplot_legend use fplot_label use fplot_arrow use fplot_plot_data_function use strings use collections implicit none private public :: plot public :: is_plot_data_function type , extends ( plot_object ) :: plot !! Defines the basic GNUPLOT plot. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_title = \"\" !! The plot title. logical , private :: m_hasTitle = . false . !! Has a title? class ( terminal ), private , pointer :: m_terminal => null () !! The GNUPLOT terminal object to target. type ( list ), private :: m_data !! A collection of plot_data items to plot. type ( legend ), private , pointer :: m_legend => null () !! The legend. logical , private :: m_showGrid = . false . !! Show grid lines? logical , private :: m_ticsIn = . true . !! Point tic marks in? logical , private :: m_drawBorder = . false . !! Draw the border? type ( list ), private :: m_labels ! Added 6/22/2018, JAC !! A collection of plot_label items to draw. integer ( int32 ), private :: m_colorIndex = 1 !! The color index to use for automatic line coloring for scatter plots. logical , private :: m_axisEqual = . false . !! Determines if the axes should be scaled proportionally. class ( colormap ), private , pointer :: m_colormap !! The colormap. logical , private :: m_showColorbar = . true . !! Show the colorbar? type ( list ), private :: m_arrows ! Added 1/3/2024, JAC !! A collection of plot_arrow items to draw. real ( real32 ), private :: m_leftMargin = - 1.0 real ( real32 ), private :: m_rightMargin = - 1.0 real ( real32 ), private :: m_topMargin = - 1.0 real ( real32 ), private :: m_bottomMargin = - 1.0 real ( real32 ), private :: m_borderLineWidth = 1.2 !! Border line width logical , private :: m_showXMajorGrid = . false . logical , private :: m_showXMinorGrid = . false . logical , private :: m_showYMajorGrid = . false . logical , private :: m_showYMinorGrid = . false . type ( color ), private :: m_xMajorGridColor = color ( 204 , 204 , 204 , 0 ) type ( color ), private :: m_xMinorGridColor = color ( 230 , 230 , 230 , 0 ) type ( color ), private :: m_yMajorGridColor = color ( 204 , 204 , 204 , 0 ) type ( color ), private :: m_yMinorGridColor = color ( 230 , 230 , 230 , 0 ) integer ( int32 ), private :: m_xMajorGridLineStyle = LINE_SOLID integer ( int32 ), private :: m_xMinorGridLineStyle = LINE_DASHED integer ( int32 ), private :: m_yMajorGridLineStyle = LINE_SOLID integer ( int32 ), private :: m_yMinorGridLineStyle = LINE_DASHED real ( real32 ), private :: m_xMajorGridLineWidth = 1.2 real ( real32 ), private :: m_xMinorGridLineWidth = 0.7 real ( real32 ), private :: m_yMajorGridLineWidth = 1.2 real ( real32 ), private :: m_yMinorGridLineWidth = 0.7 contains procedure , public :: free_resources => plt_clean_up procedure , public :: initialize => plt_init procedure , public :: get_title => plt_get_title procedure , public :: set_title => plt_set_title procedure , public :: is_title_defined => plt_has_title procedure , public :: get_legend => plt_get_legend procedure , public :: get_count => plt_get_count procedure , public :: plt_push_data generic , public :: push => plt_push_data procedure , public :: pop => plt_pop_data procedure , public :: clear_all => plt_clear_all procedure , public :: get => plt_get procedure , public :: set => plt_set procedure , public :: get_terminal => plt_get_term procedure , public :: get_show_gridlines => plt_get_show_grid procedure , public :: set_show_gridlines => plt_set_show_grid procedure , public :: draw => plt_draw procedure , public :: save_file => plt_save procedure , public :: get_font_name => plt_get_font procedure , public :: set_font_name => plt_set_font procedure , public :: get_font_size => plt_get_font_size procedure , public :: set_font_size => plt_set_font_size procedure , public :: get_tics_inward => plt_get_tics_in procedure , public :: set_tics_inward => plt_set_tics_in procedure , public :: get_draw_border => plt_get_draw_border procedure , public :: set_draw_border => plt_set_draw_border procedure , public :: push_label => plt_push_label procedure , public :: pop_label => plt_pop_label procedure , public :: get_label => plt_get_label procedure , public :: set_label => plt_set_label procedure , public :: get_label_count => plt_get_label_count procedure , public :: clear_all_labels => plt_clear_labels procedure , public :: get_axis_equal => plt_get_axis_equal procedure , public :: set_axis_equal => plt_set_axis_equal procedure , public :: get_colormap => plt_get_colormap procedure , public :: set_colormap => plt_set_colormap procedure , public :: get_show_colorbar => plt_get_show_colorbar procedure , public :: set_show_colorbar => plt_set_show_colorbar procedure , public :: get_command_string => plt_get_cmd procedure , public :: push_arrow => plt_push_arrow procedure , public :: pop_arrow => plt_pop_arrow procedure , public :: get_arrow => plt_get_arrow procedure , public :: set_arrow => plt_set_arrow procedure , public :: get_arrow_count => plt_get_arrow_count procedure , public :: clear_arrows => plt_clear_arrows procedure , public :: get_left_margin => plt_get_left_margin procedure , public :: set_left_margin => plt_set_left_margin procedure , public :: get_right_margin => plt_get_right_margin procedure , public :: set_right_margin => plt_set_right_margin procedure , public :: get_top_margin => plt_get_top_margin procedure , public :: set_top_margin => plt_set_top_margin procedure , public :: get_bottom_margin => plt_get_bottom_margin procedure , public :: set_bottom_margin => plt_set_bottom_margin procedure , public :: show_legend => plt_show_legend procedure , public :: set_window_size => plt_set_window_size procedure , public :: get_border_line_width => plt_get_border_line_width procedure , public :: set_border_line_width => plt_set_border_line_width procedure , public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure , public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure , public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure , public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure , public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure , public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure , public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure , public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure , public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure , public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure , public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure , public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure , public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure , public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure , public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure , public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure , public :: get_x_major_grid_line_style => & plt_get_x_major_grid_line_style procedure , public :: set_x_major_grid_line_style => & plt_set_x_major_grid_line_style procedure , public :: get_x_minor_grid_line_style => & plt_get_x_minor_grid_line_style procedure , public :: set_x_minor_grid_line_style => & plt_set_x_minor_grid_line_style procedure , public :: get_y_major_grid_line_style => & plt_get_y_major_grid_line_style procedure , public :: set_y_major_grid_line_style => & plt_set_y_major_grid_line_style procedure , public :: get_y_minor_grid_line_style => & plt_get_y_minor_grid_line_style procedure , public :: set_y_minor_grid_line_style => & plt_set_y_minor_grid_line_style procedure , public :: get_x_major_grid_line_width => & plt_get_x_major_grid_line_width procedure , public :: set_x_major_grid_line_width => & plt_set_x_major_grid_line_width procedure , public :: get_x_minor_grid_line_width => & plt_get_x_minor_grid_line_width procedure , public :: set_x_minor_grid_line_width => & plt_set_x_minor_grid_line_width procedure , public :: get_y_major_grid_line_width => & plt_get_y_major_grid_line_width procedure , public :: set_y_major_grid_line_width => & plt_set_y_major_grid_line_width procedure , public :: get_y_minor_grid_line_width => & plt_get_y_minor_grid_line_width procedure , public :: set_y_minor_grid_line_width => & plt_set_y_minor_grid_line_width end type contains ! ------------------------------------------------------------------------------ pure function is_plot_data_function ( x ) result ( rst ) !! Tests to see if the supplied [[plot_data]] object is a !! [[plot_data_function]] based type. class ( plot_data ), intent ( in ) :: x !! The [[plot_data]] object. logical :: rst !! True if x is a [[plot_data_function]] based type. select type ( x ) class is ( plot_data_function ) rst = . true . class default rst = . false . end select end function ! ------------------------------------------------------------------------------ subroutine plt_clean_up ( this ) !! Cleans up resources held by the plot object.  Inheriting !! classes are expected to call this routine to free internally held !! resources. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. if ( associated ( this % m_terminal )) then deallocate ( this % m_terminal ) nullify ( this % m_terminal ) end if if ( associated ( this % m_legend )) then deallocate ( this % m_legend ) nullify ( this % m_legend ) end if if ( associated ( this % m_colormap )) then deallocate ( this % m_colormap ) nullify ( this % m_colormap ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine plt_init ( this , term , fname , err ) !! Initializes the plot object. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !! The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag , t class ( errors ), pointer :: errmgr type ( errors ), target :: deferr type ( wxt_terminal ), pointer :: wxt type ( windows_terminal ), pointer :: win type ( qt_terminal ), pointer :: qt type ( png_terminal ), pointer :: png type ( latex_terminal ), pointer :: latex type ( svg_terminal ), pointer :: svg type ( pdf_terminal ), pointer :: pdf ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( present ( term )) then t = term else t = GNUPLOT_TERMINAL_WXT end if ! Process flag = 0 if ( associated ( this % m_terminal )) deallocate ( this % m_terminal ) select case ( t ) case ( GNUPLOT_TERMINAL_PNG ) allocate ( png , stat = flag ) if ( present ( fname )) call png % set_filename ( fname ) this % m_terminal => png case ( GNUPLOT_TERMINAL_QT ) allocate ( qt , stat = flag ) this % m_terminal => qt case ( GNUPLOT_TERMINAL_WIN32 ) allocate ( win , stat = flag ) this % m_terminal => win case ( GNUPLOT_TERMINAL_LATEX ) allocate ( latex , stat = flag ) if ( present ( fname )) call latex % set_filename ( fname ) this % m_terminal => latex case ( GNUPLOT_TERMINAL_SVG ) allocate ( svg , stat = flag ) if ( present ( fname )) call svg % set_filename ( fname ) this % m_terminal => svg case ( GNUPLOT_TERMINAL_PDF ) allocate ( pdf , stat = flag ) if ( present ( fname )) call pdf % set_filename ( fname ) this % m_terminal => pdf case default ! WXT is the default allocate ( wxt , stat = flag ) this % m_terminal => wxt end select ! Establish the colormap nullify ( this % m_colormap ) if ( flag == 0 . and . . not . associated ( this % m_legend )) then allocate ( this % m_legend , stat = flag ) end if ! Error Checking if ( flag /= 0 ) then call report_memory_error ( errmgr , \"plt_init\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function plt_get_title ( this ) result ( txt ) !! Gets the plot's title. class ( plot ), intent ( in ) :: this !! The [[plot]] object. character ( len = :), allocatable :: txt !! The title. integer ( int32 ) :: n n = len_trim ( this % m_title ) allocate ( character ( len = n ) :: txt ) txt = trim ( this % m_title ) end function ! -------------------- subroutine plt_set_title ( this , txt ) !! Sets the plot's title. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. character ( len = * ), intent ( in ) :: txt !! The title. integer :: n n = min ( len_trim ( txt ), PLOTDATA_MAX_NAME_LENGTH ) this % m_title = \"\" if ( n /= 0 ) then this % m_title ( 1 : n ) = txt ( 1 : n ) this % m_hasTitle = . true . else this % m_hasTitle = . false . end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_has_title ( this ) result ( x ) !! Gets a value determining if a title has been defined for the plot !! object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if a title has been defined for this plot; else, !! returns false. x = this % m_hasTitle end function ! ------------------------------------------------------------------------------ function plt_get_legend ( this ) result ( x ) !! Gets the plot's legend object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( legend ), pointer :: x !! A pointer to the legend object. x => this % m_legend end function ! ------------------------------------------------------------------------------ pure function plt_get_count ( this ) result ( x ) !! Gets the number of stored plot_data objects. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The number of plot_data objects. x = this % m_data % count () end function ! ------------------------------------------------------------------------------ subroutine plt_push_data ( this , x , err ) !! Pushes a plot_data object onto the stack. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. class ( plot_data ), intent ( inout ) :: x !! The plot_data object. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Index the color tracking index if the type is of plot_data_colored select type ( x ) class is ( plot_data_colored ) call x % set_color_index ( this % m_colorIndex ) if ( this % m_colorIndex == size ( color_list )) then this % m_colorIndex = 1 else this % m_colorIndex = this % m_colorIndex + 1 end if end select ! Store the object call this % m_data % push ( x ) end subroutine ! ------------------------------------------------------------------------------ subroutine plt_pop_data ( this ) !! Pops the last plot_data object from the stack. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. ! Process call this % m_data % pop () end subroutine ! ------------------------------------------------------------------------------ subroutine plt_clear_all ( this ) !! Removes all plot_data objects from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. ! Process this % m_colorIndex = 1 call this % m_data % clear () end subroutine ! ------------------------------------------------------------------------------ function plt_get ( this , i ) result ( x ) !! Gets a pointer to the requested plot_data object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_data object. class ( plot_data ), pointer :: x !! A pointer to the requested plot_data object. ! Local Variables class ( * ), pointer :: item ! Process item => this % m_data % get ( i ) select type ( item ) class is ( plot_data ) x => item class default nullify ( x ) end select end function ! -------------------- subroutine plt_set ( this , i , x ) !! Sets the requested plot_data object into the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_data object. class ( plot_data ), intent ( in ) :: x !! The plot_data object. call this % m_data % set ( i , x ) end subroutine ! ------------------------------------------------------------------------------ function plt_get_term ( this ) result ( x ) !! Gets the GNUPLOT terminal object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. class ( terminal ), pointer :: x !! A pointer to the GNUPLOT terminal object. x => this % m_terminal end function ! ------------------------------------------------------------------------------ pure function plt_get_show_grid ( this ) result ( x ) !! Gets a flag determining if the grid lines should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if the grid lines should be shown; else, false. x = this % m_showGrid end function ! -------------------- subroutine plt_set_show_grid ( this , x ) !! Sets a flag determining if the grid lines should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the grid lines should be shown; else, false. this % m_showGrid = x end subroutine ! ------------------------------------------------------------------------------ subroutine plt_draw ( this , persist , err ) !! Launches GNUPLOT and draws the plot per the current state of !! the command list. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical , intent ( in ), optional :: persist !! An optional parameter that can be used to keep GNUPLOT open. !! Set to true to force GNUPLOT to remain open; else, set to false !! to allow GNUPLOT to close after drawing.  The default is true. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Parameters character ( len = * ), parameter :: fname = \"temp_gnuplot_file.plt\" ! Local Variables logical :: p integer ( int32 ) :: fid , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr class ( terminal ), pointer :: term ! Initialization if ( present ( persist )) then p = persist else p = . true . end if if ( present ( err )) then errmgr => err else errmgr => deferr end if term => this % get_terminal () ! Open the file for writing, and write the contents to file open ( newunit = fid , file = fname , iostat = flag ) if ( flag > 0 ) then call report_file_create_error ( errmgr , \"plt_draw\" , fname , flag ) return end if write ( fid , '(A)' ) term % get_command_string () write ( fid , '(A)' ) new_line ( 'a' ) write ( fid , '(A)' ) this % get_command_string () close ( fid ) ! Launch GNUPLOT if ( p ) then call execute_command_line ( \"gnuplot --persist \" // fname ) else call execute_command_line ( \"gnuplot \" // fname ) end if ! Clean up by deleting the file open ( newunit = fid , file = fname ) close ( fid , status = \"delete\" ) end subroutine ! ------------------------------------------------------------------------------ subroutine plt_save ( this , fname , err ) !! Saves a GNUPLOT command file. class ( plot ), intent ( in ) :: this !! The [[plot]] object. character ( len = * ), intent ( in ) :: fname !! The filename. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: fid , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr class ( terminal ), pointer :: term ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if term => this % get_terminal () ! Open the file for writing, and write the contents to file open ( newunit = fid , file = fname , iostat = flag ) if ( flag > 0 ) then call report_file_create_error ( errmgr , \"plt_save\" , fname , flag ) return end if write ( fid , '(A)' ) term % get_command_string () write ( fid , '(A)' ) new_line ( 'a' ) write ( fid , '(A)' ) this % get_command_string () close ( fid ) end subroutine ! ------------------------------------------------------------------------------ function plt_get_font ( this ) result ( x ) !! Gets the name of the font used for plot text. class ( plot ), intent ( in ) :: this !! The [[plot]] object. character ( len = :), allocatable :: x !! The font name. class ( terminal ), pointer :: term term => this % get_terminal () x = term % get_font_name () end function ! -------------------- subroutine plt_set_font ( this , x ) !! Sets the name of the font used for plot text. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. character ( len = * ), intent ( in ) :: x !! The font name. class ( terminal ), pointer :: term term => this % get_terminal () call term % set_font_name ( x ) end subroutine ! ------------------------------------------------------------------------------ function plt_get_font_size ( this ) result ( x ) !! Gets the size of the font used by the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The size of the font, in points. class ( terminal ), pointer :: term term => this % get_terminal () x = term % get_font_size () end function ! -------------------- subroutine plt_set_font_size ( this , x ) !! Sets the size of the font used by the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The font size, in points.  If a value of zero is provided, !! the font size is reset to its default value; or, if a negative !! value is provided, the absolute value of the supplied value is !! utilized. class ( terminal ), pointer :: term term => this % get_terminal () call term % set_font_size ( x ) end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_tics_in ( this ) result ( x ) !! Gets a value determining if the axis tic marks should point inwards. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if the tic marks should point inwards; else, false !! if the tic marks should point outwards. x = this % m_ticsIn end function ! -------------------- subroutine plt_set_tics_in ( this , x ) !! Sets a value determining if the axis tic marks should point inwards. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the tic marks should point inwards; else, false !! if the tic marks should point outwards. this % m_ticsIn = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_draw_border ( this ) result ( x ) !! Gets a value determining if the border should be drawn. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if the border should be drawn; else, false. x = this % m_drawBorder end function ! -------------------- subroutine plt_set_draw_border ( this , x ) !! Sets a value determining if the border should be drawn. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the border should be drawn; else, false. this % m_drawBorder = x end subroutine ! ****************************************************************************** ! ADDED: JUNE 22, 2018 - JAC ! ------------------------------------------------------------------------------ subroutine plt_push_label ( this , lbl , err ) !! Adds a label to the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. class ( plot_label ), intent ( in ) :: lbl !! The plot label. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % m_labels % push ( lbl ) end subroutine ! ------------------------------------------------------------------------------ subroutine plt_pop_label ( this ) !! Removes the last label from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. call this % m_labels % pop () end subroutine ! ------------------------------------------------------------------------------ function plt_get_label ( this , i ) result ( x ) !! Gets the requested plot_label from the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_label object to retrieve. class ( plot_label ), pointer :: x !! A pointer to the requested plot_label object. ! Local Variables class ( * ), pointer :: item ! Process item => this % m_labels % get ( i ) select type ( item ) class is ( plot_label ) x => item class default nullify ( x ) end select end function ! -------------------- subroutine plt_set_label ( this , i , x ) !! Sets the specified plot_label object. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_label to replace. class ( plot_label ), intent ( in ) :: x !! The new plot_label object. call this % m_labels % set ( i , x ) end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_label_count ( this ) result ( x ) !! Gets the number of plot_label objects belonging to the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The number of plot_label objects. x = this % m_labels % count () end function ! ------------------------------------------------------------------------------ subroutine plt_clear_labels ( this ) !! Clears all plot_label objects from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. call this % m_labels % clear () end subroutine ! ****************************************************************************** ! ADDED: SEPT. 25, 2020 - JAC ! ------------------------------------------------------------------------------ pure function plt_get_axis_equal ( this ) result ( rst ) !! Gets a flag determining if the axes should be equally scaled. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: rst !! Returns true if the axes should be scaled equally; else, false. rst = this % m_axisEqual end function ! -------------------- subroutine plt_set_axis_equal ( this , x ) !! Sets a flag determining if the axes should be equally scaled. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the axes should be scaled equally; else, false. this % m_axisEqual = x end subroutine ! ****************************************************************************** ! ADDED: OCT. 8, 2020 - JAC ! ------------------------------------------------------------------------------ function plt_get_colormap ( this ) result ( x ) !! Gets a pointer to the colormap object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. class ( colormap ), pointer :: x !! A pointer to the colormap object.  If no colormap is defined, a !! null pointer is returned. x => this % m_colormap end function ! -------------------- subroutine plt_set_colormap ( this , x , err ) !! Sets the colormap object. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. class ( colormap ), intent ( in ) :: x !! The colormap object.  Notice, a copy of this object is !! stored, and the plot object then manages the lifetime of the !! copy. class ( errors ), intent ( inout ), optional , target :: err !! An error handler object. ! Local Variables integer ( int32 ) :: flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Process if ( associated ( this % m_colormap )) deallocate ( this % m_colormap ) allocate ( this % m_colormap , stat = flag , source = x ) if ( flag /= 0 ) then call errmgr % report_error ( \"surf_set_colormap\" , & \"Insufficient memory available.\" , PLOT_OUT_OF_MEMORY_ERROR ) return end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_colorbar ( this ) result ( x ) !! Gets a value determining if the colorbar should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if the colorbar should be drawn; else, false. x = this % m_showColorbar end function ! -------------------- subroutine plt_set_show_colorbar ( this , x ) !! Sets a value determining if the colorbar should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the colorbar should be drawn; else, false. this % m_showColorbar = x end subroutine ! ------------------------------------------------------------------------------ function plt_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. character ( len = :), allocatable :: x !! The command string. ! Local Variables integer ( int32 ) :: i type ( string_builder ) :: str class ( colormap ), pointer :: clr class ( plot_arrow ), pointer :: arrow class ( plot_label ), pointer :: lbl ! Initialization call str % initialize () ! Define the colormap clr => this % get_colormap () if ( associated ( clr )) then call str % append ( new_line ( 'a' )) call str % append ( clr % get_command_string ()) end if ! Show the colorbar if (. not . this % get_show_colorbar ()) then call str % append ( new_line ( 'a' )) call str % append ( \"unset colorbox\" ) end if ! Arrows do i = 1 , this % get_arrow_count () arrow => this % get_arrow ( i ) if (. not . associated ( arrow )) cycle call str % append ( new_line ( 'a' )) call str % append ( arrow % get_command_string ()) end do ! Labels do i = 1 , this % get_label_count () lbl => this % get_label ( i ) if (. not . associated ( lbl )) cycle call str % append ( new_line ( 'a' )) call str % append ( lbl % get_command_string ()) end do ! End x = char ( str % to_string ()) end function ! ****************************************************************************** ! ADDED: 1/3/2024 - JAC ! ------------------------------------------------------------------------------ subroutine plt_push_arrow ( this , x , err ) !! Pushes a new @ref plot_arrow object onto the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. class ( plot_arrow ), intent ( in ) :: x !! The plot_arrow object. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. call this % m_arrows % push ( x , manage = . true .) end subroutine ! ------------------------------------------------------------------------------ subroutine plt_pop_arrow ( this ) !! Pops the last plot_arrow object from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. call this % m_arrows % pop () end subroutine ! ------------------------------------------------------------------------------ function plt_get_arrow ( this , i ) result ( rst ) !! Gets a pointer to the requested plot_arrow object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_arrow to retrieve. class ( plot_arrow ), pointer :: rst !! The plot_arrow object to retrieve. class ( * ), pointer :: ptr ptr => this % m_arrows % get ( i ) select type ( ptr ) class is ( plot_arrow ) rst => ptr class default nullify ( rst ) end select end function ! ------------------------------------------------------------------------------ subroutine plt_set_arrow ( this , i , x ) !! Sets a plot_arrow into the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_arrow object to replace. class ( plot_arrow ), intent ( in ) :: x !! The new plot_arrow object. call this % m_arrows % set ( i , x ) end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_arrow_count ( this ) result ( rst ) !! Gets the number of plot_arrow objects held by the plot object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: rst !! The plot_arrow objects count. rst = this % m_arrows % count () end function ! ------------------------------------------------------------------------------ subroutine plt_clear_arrows ( this ) !! Clears all plot_arrow objects from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. call this % m_arrows % clear () end subroutine ! ****************************************************************************** ! ADDED: 4/7/2025 - JAC ! ------------------------------------------------------------------------------ pure function plt_get_left_margin ( this ) result ( x ) !! Gets the left margin of the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. x = this % m_leftMargin end function ! ---------- subroutine plt_set_left_margin ( this , x ) !! Sets the left margin of the plot.  If the value is negative, the !! default margin is used. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. this % m_leftMargin = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_right_margin ( this ) result ( x ) !! Gets the right margin of the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. x = this % m_rightMargin end function ! ---------- subroutine plt_set_right_margin ( this , x ) !! Sets the right margin of the plot.  If the value is negative, the !! default margin is used. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. this % m_rightMargin = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_top_margin ( this ) result ( x ) !! Gets the top margin of the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. x = this % m_topMargin end function ! ---------- subroutine plt_set_top_margin ( this , x ) !! Sets the top margin of the plot.  If the value is negative, the !! default margin is used. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. this % m_topMargin = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_bottom_margin ( this ) result ( x ) !! Gets the bottom margin of the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. x = this % m_bottomMargin end function ! ---------- subroutine plt_set_bottom_margin ( this , x ) !! Sets the bottom margin of the plot.  If the value is negative, the !! default margin is used. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. this % m_bottomMargin = x end subroutine ! ****************************************************************************** ! ADDED AUG. 16, 2026 - V1.9.0 ! ------------------------------------------------------------------------------ subroutine plt_show_legend ( this , x ) !! Sets a value determining the legend should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true to show the legend; else, set to false. if ( associated ( this % m_legend )) then call this % m_legend % set_is_visible ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine plt_set_window_size ( this , width , height ) !! Sets the height and width of the plot window. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: width !! The plot window width. integer ( int32 ), intent ( in ) :: height !! The plot window height. if ( associated ( this % m_terminal )) then call this % m_terminal % set_window_width ( width ) call this % m_terminal % set_window_height ( height ) end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_border_line_width ( this ) result ( x ) !! Gets the width of the lines used to draw the border. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_borderLineWidth end function ! -------------------- subroutine plt_set_border_line_width ( this , x ) !! Sets the width of the lines used to draw the border. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_borderLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_x_major_grid ( this ) result ( x ) !! Gets a value determining if the x-axis major grid should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showXMajorGrid end function ! -------------------- subroutine plt_set_show_x_major_grid ( this , x ) !! Sets a value determining if the x-axis major grid should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showXMajorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_x_minor_grid ( this ) result ( x ) !! Gets a value determining if the x-axis minor grid should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showXMinorGrid end function ! -------------------- subroutine plt_set_show_x_minor_grid ( this , x ) !! Sets a value determining if the x-axis minor grid should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showXMinorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_y_major_grid ( this ) result ( x ) !! Gets a value determining if the x-axis major grid should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showYMajorGrid end function ! -------------------- subroutine plt_set_show_y_major_grid ( this , x ) !! Sets a value determining if the x-axis major grid should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showYMajorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_y_minor_grid ( this ) result ( x ) !! Gets a value determining if the x-axis minor grid should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showYMinorGrid end function ! -------------------- subroutine plt_set_show_y_minor_grid ( this , x ) !! Sets a value determining if the x-axis minor grid should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showYMinorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_major_grid_color ( this ) result ( x ) !! Gets the color of the x-axis major grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( color ) :: x !! The color. x = this % m_xMajorGridColor end function ! -------------------- subroutine plt_set_x_major_grid_color ( this , x ) !! Sets the color of the x-axis major grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. type ( color ), intent ( in ) :: x !! The color. this % m_xMajorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_minor_grid_color ( this ) result ( x ) !! Gets the color of the x-axis minor grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( color ) :: x !! The color. x = this % m_xMinorGridColor end function ! -------------------- subroutine plt_set_x_minor_grid_color ( this , x ) !! Sets the color of the x-axis minor grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. type ( color ), intent ( in ) :: x !! The color. this % m_xMinorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_major_grid_color ( this ) result ( x ) !! Gets the color of the y-axis major grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( color ) :: x !! The color. x = this % m_yMajorGridColor end function ! -------------------- subroutine plt_set_y_major_grid_color ( this , x ) !! Sets the color of the y-axis major grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. type ( color ), intent ( in ) :: x !! The color. this % m_yMajorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_minor_grid_color ( this ) result ( x ) !! Gets the color of the y-axis minor grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( color ) :: x !! The color. x = this % m_yMinorGridColor end function ! -------------------- subroutine plt_set_y_minor_grid_color ( this , x ) !! Sets the color of the y-axis minor grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. type ( color ), intent ( in ) :: x !! The color. this % m_yMinorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_major_grid_line_style ( this ) result ( x ) !! Gets the line style used for the x-axis major grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_xMajorGridLineStyle end function ! -------------------- subroutine plt_set_x_major_grid_line_style ( this , x ) !! Sets the line style used for the x-axis major grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_xMajorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_minor_grid_line_style ( this ) result ( x ) !! Gets the line style used for the x-axis minor grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_xMinorGridLineStyle end function ! -------------------- subroutine plt_set_x_minor_grid_line_style ( this , x ) !! Sets the line style used for the x-axis minor grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_xMinorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_major_grid_line_style ( this ) result ( x ) !! Gets the line style used for the y-axis major grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_yMajorGridLineStyle end function ! -------------------- subroutine plt_set_y_major_grid_line_style ( this , x ) !! Sets the line style used for the y-axis major grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_yMajorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_minor_grid_line_style ( this ) result ( x ) !! Gets the line style used for the y-axis minor grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_yMinorGridLineStyle end function ! -------------------- subroutine plt_set_y_minor_grid_line_style ( this , x ) !! Sets the line style used for the y-axis minor grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_yMinorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_major_grid_line_width ( this ) result ( x ) !! Gets the width of the x-axis major grid lines, in pixels. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_xMajorGridLineWidth end function ! -------------------- subroutine plt_set_x_major_grid_line_width ( this , x ) !! Sets the width of the x-axis major grid lines, in pixels. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_xMajorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_minor_grid_line_width ( this ) result ( x ) !! Gets the width of the x-axis minor grid lines, in pixels. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_xMinorGridLineWidth end function ! -------------------- subroutine plt_set_x_minor_grid_line_width ( this , x ) !! Sets the width of the x-axis minor grid lines, in pixels. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_xMinorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_major_grid_line_width ( this ) result ( x ) !! Gets the width of the y-axis major grid lines, in pixels. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_yMajorGridLineWidth end function ! -------------------- subroutine plt_set_y_major_grid_line_width ( this , x ) !! Sets the width of the y-axis major grid lines, in pixels. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_yMajorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_minor_grid_line_width ( this ) result ( x ) !! Gets the width of the y-axis minor grid lines, in pixels. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_yMinorGridLineWidth end function ! -------------------- subroutine plt_set_y_minor_grid_line_width ( this , x ) !! Sets the width of the y-axis minor grid lines, in pixels. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_yMinorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ ! -------------------- ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot.f90.html"},{"title":"fplot_label.f90 – FPLOT","text":"Source Code ! fplot_label.f90 module fplot_label use iso_fortran_env use fplot_plot_object use fplot_constants use strings implicit none private public :: plot_label type , extends ( plot_object ) :: plot_label !! Defines a plot label. logical , private :: m_visible = . true . !! Is the label visible? real ( real32 ), private , dimension ( 3 ) :: m_position !! The x, y, and z coordinates of the label. real ( real32 ), private :: m_angle = 0.0 !! The rotation angle of the label. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_text !! The label text. contains procedure , public :: get_command_string => lbl_get_cmd procedure , public :: get_is_visible => lbl_get_is_visible procedure , public :: set_is_visible => lbl_set_is_visible procedure , public :: get_position => lbl_get_position procedure , public :: set_position => lbl_set_position procedure , public :: get_angle => lbl_get_angle procedure , public :: set_angle => lbl_set_angle procedure , public :: get_text => lbl_get_txt procedure , public :: set_text => lbl_set_txt end type contains ! ------------------------------------------------------------------------------ function lbl_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for the label. class ( plot_label ), intent ( in ) :: this !! The plot_label object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str real ( real32 ) :: pt ( 3 ) ! Initialization call str % initialize () pt = this % get_position () ! If visible, draw the label if ( this % get_is_visible ()) then call str % append ( 'set label \"' ) call str % append ( this % get_text ()) call str % append ( '\"' ) call str % append ( \" at \" ) call str % append ( to_string ( pt ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( pt ( 2 ))) call str % append ( \",\" ) call str % append ( to_string ( pt ( 3 ))) call str % append ( \" rotate by \" ) call str % append ( to_string ( this % get_angle ())) x = char ( str % to_string ()) end if end function ! ------------------------------------------------------------------------------ pure function lbl_get_is_visible ( this ) result ( x ) !! Gets a value determining if the label is to be drawn. class ( plot_label ), intent ( in ) :: this !! The plot_label object. logical :: x !! Returns true if the label is to be drawn; else, false. x = this % m_visible end function ! -------------------- subroutine lbl_set_is_visible ( this , x ) !! Sets a value determining if the label is to be drawn. class ( plot_label ), intent ( inout ) :: this !! The plot_label object. logical , intent ( in ) :: x !! Set to true if the label is to be drawn; else, false. this % m_visible = x end subroutine ! ------------------------------------------------------------------------------ pure function lbl_get_position ( this ) result ( x ) !! Gets the position of the label in terms of plot coordinates. class ( plot_label ), intent ( in ) :: this !! The plot_label object. real ( real32 ), dimension ( 3 ) :: x !! A 3-element array containing the X, Y, and Z position of the !! label. x = this % m_position end function ! -------------------- subroutine lbl_set_position ( this , x ) !! Sets the position of the label in terms of plot coordinates. class ( plot_label ), intent ( inout ) :: this !! The plot_label object. real ( real32 ), intent ( in ), dimension ( 3 ) :: x !! A 3-element array containing the X, Y, and Z position of the !! label. this % m_position = x end subroutine ! ------------------------------------------------------------------------------ pure function lbl_get_angle ( this ) result ( x ) !! Gets the angle of the label text, in degrees. class ( plot_label ), intent ( in ) :: this !! The plot_label object. real ( real32 ) :: x !! The angle, in degrees. x = this % m_angle end function ! -------------------- subroutine lbl_set_angle ( this , x ) !! Sets the angle of the label text, in degrees. class ( plot_label ), intent ( inout ) :: this !! The plot_label object. real ( real32 ), intent ( in ) :: x !! The angle, in degrees. this % m_angle = x end subroutine ! ------------------------------------------------------------------------------ function lbl_get_txt ( this ) result ( x ) !! Gets the text displayed by the label. class ( plot_label ), intent ( in ) :: this !! The plot_label object. character ( len = :), allocatable :: x !! The text string to display. x = trim ( this % m_text ) end function ! -------------------- subroutine lbl_set_txt ( this , x ) !! Sets the text displayed by the label. class ( plot_label ), intent ( inout ) :: this !! The plot_label object. character ( len = * ), intent ( in ) :: x !! The text string to display. integer ( int32 ) :: n n = min ( len ( x ), PLOTDATA_MAX_NAME_LENGTH ) this % m_text = \"\" this % m_text ( 1 : n ) = x ( 1 : n ) end subroutine ! ****************************************************************************** ! ADDED: JAN. 09, 2024 - JAC ! ------------------------------------------------------------------------------ ! pure subroutine lbl_assign(x, y) !     type(plot_label), intent(out) :: x !     class(plot_label), intent(in) :: y !     x%m_visible = y%m_visible !     x%m_position = y%m_position !     x%m_angle = y%m_angle !     x%m_text = y%m_text ! end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_label.f90.html"},{"title":"fplot_plot_data_histogram.f90 – FPLOT","text":"Source Code ! fplot_plot_data_histogram.f90 ! TO DO: ! - Allow naming of each data set at the define_data level as well as at the !   get/set level module fplot_plot_data_histogram use iso_fortran_env use fplot_plot_data use fplot_errors use strings use fplot_colors implicit none private public :: plot_data_histogram type , extends ( plot_data_colored ) :: plot_data_histogram !! A container for plotting data in the form of a histogram. integer ( int32 ), private :: m_binCount = 20 !! The number of bins. real ( real64 ), private :: m_minX !! The minimum data value. real ( real64 ), private :: m_maxX !! The maximum data value. real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! Column 1 is the center of each bin and column 2 is the number !! of items in each bin. logical , private :: m_filled = . true . !! Determines if each bar is filled. logical , private :: m_useY2 = . false . !! Draw against the secondary y axis? contains procedure , public :: get_bin_count => pdh_get_bin_count procedure , public :: set_bin_count => pdh_set_bin_count procedure , public :: get_minimum_value => pdh_get_min_x procedure , public :: get_maximum_value => pdh_get_max_x procedure , public :: define_data => pdh_define_data procedure , public :: get_command_string => pdh_get_cmd procedure , public :: get_data_string => pdh_get_data_cmd procedure , public :: get_axes_string => pdh_get_axes_cmd procedure , public :: get_is_filled => pdh_get_is_filled procedure , public :: set_is_filled => pdh_set_is_filled procedure , public :: get_draw_against_y2 => pdh_get_use_y2 procedure , public :: set_draw_against_y2 => pdh_set_use_y2 procedure , public :: get => pdh_get_bin_data procedure , public :: clear_data => pdh_clear_data end type contains ! ------------------------------------------------------------------------------ pure function pdh_get_bin_count ( this ) result ( x ) !! Gets the number of bins. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. integer ( int32 ) :: x !! The bin count. x = this % m_binCount end function ! ------------------------------------------------------------------------------ subroutine pdh_set_bin_count ( this , x ) !! Sets the bin count.  For this property to have an effect, call before !! calling the define_data subroutine or bin_data subroutine. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. integer ( int32 ), intent ( in ) :: x !! The bin count. this % m_binCount = x end subroutine ! ------------------------------------------------------------------------------ pure function pdh_get_min_x ( this ) result ( x ) !! Gets the minimum data value. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. real ( real64 ) :: x !! The minimum data value. x = this % m_minX end function ! ------------------------------------------------------------------------------ pure function pdh_get_max_x ( this ) result ( x ) !! Gets the maximum data value. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. real ( real64 ) :: x !! The maximum data value. x = this % m_maxX end function ! ------------------------------------------------------------------------------ subroutine pdh_define_data ( this , x , err ) !! Defines the data set to plot. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set to plot. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , j , n , nbins , flag real ( real64 ) :: maxX , minX , width , val real ( real64 ), allocatable , dimension (:,:) :: ranges class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) nbins = min ( n , this % get_bin_count ()) ! protects against the case where nbins > n however unlikely if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Get the max and min of the entire data set maxX = maxval ( x ) minX = minval ( x ) width = ( maxX - minX ) / ( nbins - 1.0 ) this % m_minX = minX this % m_maxX = maxX ! Allocate space for the output if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( nbins , 2 ), stat = flag , source = 0.0d0 ) if ( flag == 0 ) allocate ( ranges ( nbins , 2 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdh_define_data\" , flag ) return end if ! Define each range ranges ( 1 ,:) = [ minX , minX + width ] do i = 2 , nbins ranges ( i , 1 ) = ranges ( i - 1 , 2 ) ranges ( i , 2 ) = ranges ( i , 1 ) + width end do ! Construct the bins do i = 1 , n val = x ( i ) do j = 1 , nbins if (( val >= ranges ( j , 1 )) . and . ( val <= ranges ( j , 2 ))) then this % m_data ( j , 1 ) = this % m_data ( j , 1 ) + 1.0d0 ! Counter exit ! Exit the inner do loop end if end do end do ! Now compute the center of each bin - store in column 2 of this%m_data this % m_data (:, 2 ) = 0.5d0 * ( ranges (:, 1 ) + ranges (:, 2 )) end subroutine ! ------------------------------------------------------------------------------ function pdh_get_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string for this object. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n , ncols type ( color ) :: clr ! Process call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) call str % append ( \" with boxes \" ) ! Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Filled if ( this % get_is_filled ()) then call str % append ( \" fill solid \" ) else call str % append ( \" fill empty \" ) end if ! Define the axes structure call str % append ( \" \" ) call str % append ( this % get_axes_string ()) ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdh_get_data_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining the data for this object. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , nbars , cnt real ( real64 ) :: val character :: delimiter , nl ! Initialization delimiter = achar ( 9 ) nl = new_line ( nl ) nbars = size ( this % m_data , 1 ) ! Process do i = 1 , nbars call this % get ( i , val , cnt ) call str % append ( to_string ( val )) call str % append ( delimiter ) call str % append ( to_string ( cnt )) call str % append ( nl ) end do ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdh_get_axes_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining which axes the data is to be !! plotted against. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. character ( len = :), allocatable :: rst !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then rst = \"axes x1y2\" else rst = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ pure function pdh_get_is_filled ( this ) result ( rst ) !! Gets a value determining if each box is filled. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. logical :: rst !! Returns true if the boxes are filled; else, false for an empty box. rst = this % m_filled end function ! -------------------- subroutine pdh_set_is_filled ( this , x ) !! Sets a value determining if each box is filled. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. logical , intent ( in ) :: x !! Set to true if the boxes should be filled; else, false for an empty !! box. this % m_filled = x end subroutine ! ------------------------------------------------------------------------------ pure function pdh_get_use_y2 ( this ) result ( rst ) !! Gets a value determining if the data is to be plotted against the !! secondary y axis. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. logical :: rst !! Returns true if the data is to be plotted against the secondary y !! axis; else, false for the primary y axis. rst = this % m_useY2 end function ! -------------------- subroutine pdh_set_use_y2 ( this , x ) !! Sets a value determining if the data is to be plotted against the !! secondary y axis. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. logical , intent ( in ) :: x !! Set to true if the data is to be plotted against the secondary y !! axis; else, false for the primary y axis. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ subroutine pdh_get_bin_data ( this , i , x , cnt ) !! Gets the requested binned data. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. integer ( int32 ), intent ( in ) :: i !! The bin number to get. real ( real64 ), intent ( out ) :: x !! The center of the bin. integer ( int32 ), intent ( out ) :: cnt !! The number of items in the bin. ! Process if (. not . allocated ( this % m_data )) then cnt = 0 x = 0.0d0 return end if x = this % m_data ( i , 2 ) cnt = floor ( this % m_data ( i , 1 )) end subroutine ! ------------------------------------------------------------------------------ subroutine pdh_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_histogram.f90.html"},{"title":"fplot_triangulations_delaunay_2d.f90 – FPLOT","text":"Source Code module fplot_triangulations_delaunay_2d use iso_fortran_env use geompack use fplot_errors implicit none private public :: delaunay_tri_2d type delaunay_tri_2d !! Provides a container for a 2D Delaunay triangulation. real ( real64 ), private , allocatable , dimension (:) :: m_x !! An array of the x-coordinates of each point. real ( real64 ), private , allocatable , dimension (:) :: m_y !! An array of the y-coordinates of each point. integer ( int32 ), private , allocatable , dimension (:,:) :: m_indices !! A 3-column matrix containing the indices of each triangle's !! vertex. contains procedure , public :: create => d2d_init procedure , public :: get_point_count => d2d_get_pt_count procedure , public :: get_triangle_count => d2d_get_tri_count procedure , public :: get_points_x => d2d_get_x_pts procedure , public :: get_points_y => d2d_get_y_pts procedure , public :: get_indices => d2d_get_tris procedure , public :: find_triangle => d2d_get_tri_with_pt end type contains ! ------------------------------------------------------------------------------ subroutine d2d_init ( this , x , y , err ) !! Creates an unconstrained 2D Delaunay triangulation given a !! set of x-y points. class ( delaunay_tri_2d ), intent ( inout ) :: this !! The delaunay_tri_2d object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x-coordinates of each !! data point. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y-coordinates of each !! data point. class ( errors ), intent ( inout ), target , optional :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: i , npts , ntri , flag real ( real64 ), allocatable , dimension (:,:) :: nodexy integer ( int32 ), allocatable , dimension (:,:) :: trinode , trinbr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if npts = size ( x ) ! Input Check if ( size ( y ) /= npts ) then call report_array_size_mismatch_error ( errmgr , \"d2d_init\" , \"y\" , & npts , size ( y )) return end if ! Clean up incase of an existing triangulation if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) ! Allocate workspace arrays for the triangulation allocate ( nodexy ( 2 , npts ), stat = flag ) if ( flag == 0 ) allocate ( trinode ( 3 , 2 * npts ), stat = flag ) if ( flag == 0 ) allocate ( trinbr ( 3 , 2 * npts ), stat = flag ) if ( flag /= 0 ) go to 100 ! Generate the points list do i = 1 , npts nodexy ( 1 , i ) = x ( i ) nodexy ( 2 , i ) = y ( i ) end do ! Compute the triangulation call r8tris2 ( npts , nodexy , ntri , trinode , trinbr ) ! Populate the remainder of the object allocate ( this % m_x ( npts ), stat = flag ) if ( flag == 0 ) allocate ( this % m_y ( npts ), stat = flag ) if ( flag == 0 ) allocate ( this % m_indices ( ntri , 3 ), stat = flag ) do i = 1 , npts this % m_x ( i ) = nodexy ( 1 , i ) this % m_y ( i ) = nodexy ( 2 , i ) end do do i = 1 , ntri this % m_indices ( i ,:) = trinode (:, i ) end do ! End return ! Memory Error Handler 100 continue call report_memory_error ( errmgr , \"d2d_init\" , flag ) return end subroutine ! ------------------------------------------------------------------------------ pure function d2d_get_pt_count ( this ) result ( rst ) !! Gets the number of points in the triangulation. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. integer ( int32 ) :: rst !! The number of points in the triangulation. if ( allocated ( this % m_x )) then rst = size ( this % m_x ) else rst = 0 end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_tri_count ( this ) result ( rst ) !! Gets the number of triangles in the triangulation. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. integer ( int32 ) :: rst !! The number of triangles in the triangulation. if ( allocated ( this % m_indices )) then rst = size ( this % m_indices , 1 ) else rst = 0 end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_x_pts ( this ) result ( rst ) !! Gets the x-coordinates of each point. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. real ( real64 ), allocatable , dimension (:) :: rst !! An array of the x-coordinates of each point. if ( allocated ( this % m_x )) then rst = this % m_x else allocate ( rst ( 0 )) end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_y_pts ( this ) result ( rst ) !! Gets the y-coordinates of each point. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. real ( real64 ), allocatable , dimension (:) :: rst !! An array of the y-coordinates of each point. if ( allocated ( this % m_y )) then rst = this % m_y else allocate ( rst ( 0 )) end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_tris ( this ) result ( rst ) !! Gets a list of the indices of each triangle vertex. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. integer ( int32 ), allocatable , dimension (:,:) :: rst !! An N-by-3 matrix with each column containing the index of the !! vertex of each triangle where N is the number of triangles. if ( allocated ( this % m_indices )) then rst = this % m_indices else allocate ( rst ( 0 , 0 )) end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_tri_with_pt ( this , x , y ) result ( rst ) !! Finds the triangle that contains the specified point. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. real ( real64 ), intent ( in ) :: x !! The x-coordinate of the point. real ( real64 ), intent ( in ) :: y !! The y-coordinate of the point. integer ( int32 ) :: rst !! Returns the index of the triangle containing the specified !! point.  If no triangle contains the specified point, a value of !! -1 is returned. ! Local Variables integer ( int32 ) :: i , j real ( real64 ) :: x1 , y1 , x2 , y2 , x3 , y3 logical :: check ! Initialization rst = - 1 ! Process do i = 1 , this % get_triangle_count () j = this % m_indices ( i , 1 ) x1 = this % m_x ( j ) y1 = this % m_y ( j ) j = this % m_indices ( i , 2 ) x2 = this % m_x ( j ) y2 = this % m_y ( j ) j = this % m_indices ( i , 3 ) x3 = this % m_x ( j ) y3 = this % m_y ( j ) check = point_inside_triangle ( x1 , y1 , x2 , y2 , x3 , y3 , x , y ) if ( check ) then rst = i end if end do end function ! ------------------------------------------------------------------------------ ! Determine if a point lies within a triangle. ! https://stackoverflow.com/questions/2049582/how-to-determine-if-a-point-is-in-a-2d-triangle ! https://en.wikipedia.org/wiki/Barycentric_coordinate_system pure elemental function point_inside_triangle ( x1 , y1 , x2 , y2 , x3 , y3 , & x , y ) result ( rst ) ! Arguments real ( real64 ), intent ( in ) :: x1 , y1 , x2 , y2 , x3 , y3 , x , y logical :: rst ! Local Variables real ( real64 ) :: lambda1 , lambda2 , dT ! Initialization dT = ( y2 - y3 ) * ( x1 - x3 ) + ( x3 - x2 ) * ( y1 - y3 ) lambda1 = (( y2 - y3 ) * ( x - x3 ) + ( x3 - x2 ) * ( y - y3 )) / dT lambda2 = (( y3 - y1 ) * ( x - x3 ) + ( x1 - x3 ) * ( y - y3 )) / dT ! The point is within the triangle if: ! 0 <= lambda1 <= 1 ! 0 <= lambda2 <= 1 ! 0 <= lambda1 + lambda2 <= 1 rst = ( lambda1 <= 1.0d0 . and . lambda1 >= 0.0d0 ) . and . & ( lambda2 <= 1.0d0 . and . lambda2 >= 0.0d0 ) . and . & ( lambda1 + lambda2 >= 0.0d0 . and . lambda1 + lambda2 <= 1.0d0 ) end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_triangulations_delaunay_2d.f90.html"},{"title":"fplot_plot_data_function.f90 – FPLOT","text":"Source Code module fplot_plot_data_function use iso_fortran_env use fplot_plot_data use fplot_colors use fplot_constants use strings implicit none private public :: plot_data_function type , extends ( line_plot_data ) :: plot_data_function !! Defines a function to plot. character ( len = :), private , allocatable :: m_function !! The function to plot (e.g. sin(x)) character ( len = :), private , allocatable :: m_functionName !! The name of the function (e.g. f(x), g(x), etc.). real ( real64 ), private :: m_minX = - 1.0d0 !! The minimum X value of the plot range. real ( real64 ), private :: m_maxX = 1.0d0 integer ( int32 ), private :: m_sampleCount = 100 !! The number of times to sample the function contains procedure , public :: get_function => pdf_get_function procedure , public :: get_function_name => pdf_get_function_name procedure , public :: define_data => pdf_define_data procedure , public :: get_command_string => pdf_get_cmd procedure , public :: get_data_string => pdf_get_data_cmd procedure , public :: clear_data => pdf_clear_data procedure , public :: get_minimum_x => pdf_get_min_x procedure , public :: set_minimum_x => pdf_set_min_x procedure , public :: get_maximum_x => pdf_get_max_x procedure , public :: set_maximum_x => pdf_set_max_x ! procedure, public :: get_line_width => pdf_get_line_width ! procedure, public :: set_line_width => pdf_set_line_width ! procedure, public :: get_line_style => pdf_get_line_style ! procedure, public :: set_line_style => pdf_set_line_style procedure , public :: get_sample_count => pfd_get_sample_count procedure , public :: set_sample_count => pfd_set_sample_count end type contains ! ------------------------------------------------------------------------------ pure function pdf_get_function ( this ) result ( rst ) !! Gets the function to plot. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. character ( len = :), allocatable :: rst !! The function. if ( allocated ( this % m_function )) then rst = this % m_function else rst = \"\" end if end function ! ------------------------------------------------------------------------------ pure function pdf_get_function_name ( this ) result ( rst ) !! Gets the name of the function to plot (e.g. f(x), g(x), etc.). class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. character ( len = :), allocatable :: rst !! The function name. if ( allocated ( this % m_functionName )) then rst = this % m_functionName else rst = \"\" end if end function ! ------------------------------------------------------------------------------ subroutine pdf_define_data ( this , f , fname , minX , maxX , name ) !! Defines the function to plot. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. character ( len = * ), intent ( in ) :: f !! The function to plot (e.g. sin(x)). character ( len = * ), intent ( in ) :: fname !! The name of the function to plot (e.g. f(x)). real ( real64 ), intent ( in ), optional :: minX !! The minimum value to plot.  If not supplied, this will default !! to a value of -1. real ( real64 ), intent ( in ), optional :: maxX !! The maximum x value to plot. If not supplied, this will default !! to a value of 1. character ( len = * ), intent ( in ), optional :: name !! An optional input that specifies the name that will be displayed !! in the legend.  If nothing is supplied, the input string for !! parameter f will be utilized. this % m_function = f this % m_functionName = fname if ( present ( minX )) then this % m_minX = minX else this % m_minX = - 1.0d0 end if if ( present ( maxX )) then this % m_maxX = maxX else this % m_maxX = 1.0d0 end if if ( present ( name )) then call this % set_name ( name ) else call this % set_name ( f ) end if end subroutine ! ------------------------------------------------------------------------------ function pdf_get_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string for this object. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables integer ( int32 ) :: n type ( string_builder ) :: str type ( color ) :: clr ! Build the command string call str % initialize () call str % append ( \"[\" ) call str % append ( to_string ( this % get_minimum_x ())) call str % append ( \":\" ) call str % append ( to_string ( this % get_maximum_x ())) call str % append ( \"] \" ) call str % append ( this % get_function_name ()) ! Use the base object to define the line properties call str % append ( lpd_get_cmd ( this )) ! Return the complete command string rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdf_get_data_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining the data for this object. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str ! Build the command string call str % initialize () call str % append ( new_line ( 'a' )) call str % append ( this % get_function_name ()) call str % append ( \" = \" ) call str % append ( this % get_function ()) ! Samples call str % append ( new_line ( 'a' )) call str % append ( \"set samples \" ) call str % append ( to_string ( this % get_sample_count ())) ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine pdf_clear_data ( this ) !! Clears the function from this data set. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. this % m_function = \"\" this % m_functionName = \"\" end subroutine ! ------------------------------------------------------------------------------ pure function pdf_get_min_x ( this ) result ( rst ) !! Gets the minimum X plot range value. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. real ( real64 ) :: rst !! The value. rst = this % m_minX end function ! -------------------- subroutine pdf_set_min_x ( this , x ) !! Sets the minimum X plot range value. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. real ( real64 ), intent ( in ) :: x !! The value. this % m_minX = x end subroutine ! ------------------------------------------------------------------------------ pure function pdf_get_max_x ( this ) result ( rst ) !! Gets the maximum X plot range value. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. real ( real64 ) :: rst !! The value. rst = this % m_maxX end function ! -------------------- subroutine pdf_set_max_x ( this , x ) !! Sets the maximum X plot range value. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. real ( real64 ), intent ( in ) :: x !! The value. this % m_maxX = x end subroutine ! ------------------------------------------------------------------------------ pure function pfd_get_sample_count ( this ) result ( rst ) !! Gets the number of times to sample the function. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. integer ( int32 ) :: rst !! The sample count. rst = this % m_sampleCount end function ! -------------------- subroutine pfd_set_sample_count ( this , x ) !! Sets the number of times to sample the function.  This variable is !! global for all function plots as GNUPLOT does not allow inline !! sample modification currently.  Hopefully this will change somewhere !! down the road. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. integer ( int32 ), intent ( in ) :: x !! The sample count.  Must be greater than 1. if ( x <= 1 ) then this % m_sampleCount = 2 else this % m_sampleCount = x end if end subroutine ! ------------------------------------------------------------------------------ ! -------------------- ! ------------------------------------------------------------------------------ ! -------------------- ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_function.f90.html"},{"title":"fplot_legend.f90 – FPLOT","text":"Source Code ! fplot_legend.f90 module fplot_legend use iso_fortran_env use fplot_plot_object use fplot_constants use strings implicit none private public :: legend type , extends ( plot_object ) :: legend !! Defines a legend object. logical , private :: m_inside = . true . !! Inside or outside the axes? logical , private :: m_box = . true . !! Box around? character ( len = 20 ), private :: m_horzPosition = LEGEND_RIGHT !! Horizontal position. character ( len = 20 ), private :: m_vertPosition = LEGEND_TOP !! Verical position. logical , private :: m_show = . false . !! Is visible? character ( len = 20 ), private :: m_layout = LEGEND_ARRANGE_VERTICALLY !! Determines the legend layout. logical , private :: m_opaque = . true . !! Opaque background? contains procedure , public :: get_draw_inside_axes => leg_get_inside procedure , public :: set_draw_inside_axes => leg_set_inside procedure , public :: get_draw_border => leg_get_box procedure , public :: set_draw_border => leg_set_box procedure , public :: get_horizontal_position => leg_get_horz_pos procedure , public :: set_horizontal_position => leg_set_horz_pos procedure , public :: get_vertical_position => leg_get_vert_pos procedure , public :: set_vertical_position => leg_set_vert_pos procedure , public :: get_is_visible => leg_get_visible procedure , public :: set_is_visible => leg_set_visible procedure , public :: get_command_string => leg_get_command_txt procedure , public :: get_layout => leg_get_layout procedure , public :: set_layout => leg_set_layout procedure , public :: get_is_opaque => leg_get_opaque procedure , public :: set_is_opaque => leg_set_opaque end type contains ! ------------------------------------------------------------------------------ pure function leg_get_inside ( this ) result ( x ) !! Gets a value determining if the legend should be drawn inside !! or outside the axes border. class ( legend ), intent ( in ) :: this !! The legend object. logical :: x !! True to draw inside the axes border; else, false for outside. x = this % m_inside end function ! --------------------- subroutine leg_set_inside ( this , x ) !! Sets a value determining if the legend should be drawn inside !! or outside the axes border. class ( legend ), intent ( inout ) :: this !! The legend object. logical , intent ( in ) :: x !! True to draw inside the axes border; else, false for outside. this % m_inside = x end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_box ( this ) result ( x ) !! Gets a value determining if the legend should have a border. class ( legend ), intent ( in ) :: this !! The legend object. logical :: x !! True if the legend should have a border; else, false. x = this % m_box end function ! --------------------- subroutine leg_set_box ( this , x ) !! Sets a value determining if the legend should have a border. class ( legend ), intent ( inout ) :: this !! The legend object. logical , intent ( in ) :: x !! True if the legend should have a border; else, false. this % m_box = x end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_horz_pos ( this ) result ( x ) !! Gets the horizontal position of the legend. class ( legend ), intent ( in ) :: this !! The legend object. character ( len = :), allocatable :: x !! The horizontal position of the legend (LEGEND_LEFT, !! LEGEND_CENTER, or LEGEND_RIGHT). integer ( int32 ) :: n n = len_trim ( this % m_horzPosition ) allocate ( character ( len = n ) :: x ) x = trim ( this % m_horzPosition ) end function ! --------------------- subroutine leg_set_horz_pos ( this , x ) !! Sets the horizontal position of the legend. class ( legend ), intent ( inout ) :: this !! The legend object. character ( len = * ), intent ( in ) :: x !! The horizontal position of the legend.  The parameter must be !! set to one of the following: LEGEND_LEFT, LEGEND_CENTER, or !! LEGEND_RIGHT.  If not, the default LEGEND_RIGHT will be used. this % m_horzPosition = x if ( x /= LEGEND_LEFT . and . x /= LEGEND_RIGHT . and . x /= LEGEND_CENTER ) & this % m_horzPosition = LEGEND_RIGHT end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_vert_pos ( this ) result ( x ) !! Gets the vertical position of the legend. class ( legend ), intent ( in ) :: this !! The legend object. character ( len = :), allocatable :: x !! The vertical position of the legend (LEGEND_TOP, !! LEGEND_CENTER, or LEGEND_BOTTOM). integer ( int32 ) :: n n = len_trim ( this % m_vertPosition ) allocate ( character ( len = n ) :: x ) x = trim ( this % m_vertPosition ) end function ! --------------------- subroutine leg_set_vert_pos ( this , x ) !! Sets the vertical position of the legend. class ( legend ), intent ( inout ) :: this !! The legend object. character ( len = * ), intent ( in ) :: x !! The vertical position of the legend.  The parameter must be !! set to one of the following: LEGEND_TOP, LEGEND_CENTER, or !! LEGEND_BOTTOM.  If not, the default LEGEND_TOP will be used. this % m_vertPosition = x if ( x /= LEGEND_TOP . and . x /= LEGEND_CENTER . and . x /= LEGEND_BOTTOM ) & this % m_vertPosition = LEGEND_TOP end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_visible ( this ) result ( x ) !! Gets a value determining if the legend is visible. class ( legend ), intent ( in ) :: this !! The legend object. logical :: x !! True if the legend is visible; else, false. x = this % m_show end function ! --------------------- subroutine leg_set_visible ( this , x ) !! Sets a value determining if the legend is visible. class ( legend ), intent ( inout ) :: this !! The legend object. logical , intent ( in ) :: x !! True if the legend is visible; else, false. this % m_show = x end subroutine ! ------------------------------------------------------------------------------ function leg_get_command_txt ( this ) result ( txt ) !! Gets the command string defining the legend properties. class ( legend ), intent ( in ) :: this !! The legend object. character ( len = :), allocatable :: txt !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str ! Process call str % initialize () ! Visible? if (. not . this % get_is_visible ()) then txt = \"set key off\" return end if ! Inside vs Outside & Position if ( this % get_draw_inside_axes ()) then call str % append ( \"set key inside\" ) else call str % append ( \"set key outside\" ) end if call str % append ( \" \" ) call str % append ( this % get_vertical_position ()) call str % append ( \" \" ) call str % append ( this % get_horizontal_position ()) ! Border call str % append ( new_line ( 'a' )) if ( this % get_draw_border ()) then ! call str%append(\"set key box opaque\") call str % append ( \"set key box\" ) else call str % append ( \"set key nobox\" ) end if ! Layout call str % append ( new_line ( 'a' )) call str % append ( \"set key \" ) call str % append ( this % get_layout ()) ! Opaque call str % append ( new_line ( 'a' )) call str % append ( \"set key \" ) if ( this % get_is_opaque ()) then call str % append ( \"opaque\" ) else call str % append ( \"noopaque\" ) end if ! End txt = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function leg_get_layout ( this ) result ( rst ) !! Gets the layout of the legend. class ( legend ), intent ( in ) :: this !! The legend object. character ( len = :), allocatable :: rst !! The layout type, either LEGEND_ARRANGE_VERTICALLY or !! LEGEND_ARRANGE_HORIZONTALLY. rst = trim ( this % m_layout ) end function ! --------------------- subroutine leg_set_layout ( this , x ) !! Sets the layout of the legend. class ( legend ), intent ( inout ) :: this !! The legend object. character ( len = * ), intent ( in ) :: x !! The layout type, either LEGEND_ARRANGE_VERTICALLY or !! LEGEND_ARRANGE_HORIZONTALLY. if ( x == LEGEND_ARRANGE_HORIZONTALLY . or . & x == LEGEND_ARRANGE_VERTICALLY ) & then this % m_layout = x end if end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_opaque ( this ) result ( rst ) !! Gets a value determining if the legend is to be opaque. class ( legend ), intent ( in ) :: this !! The legend object. logical :: rst !! True if the legend is to be opaque; else, false. rst = this % m_opaque end function ! --------------------- subroutine leg_set_opaque ( this , x ) !! Sets a value determining if the legend is to be opaque. class ( legend ), intent ( inout ) :: this !! The legend object. logical :: x !! True if the legend is to be opaque; else, false. this % m_opaque = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_legend.f90.html"},{"title":"fplot_errors.f90 – FPLOT","text":"Source Code module fplot_errors use iso_fortran_env implicit none type :: errors contains procedure :: report_error end type ! ****************************************************************************** ! ERROR CODES ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: PLOT_OUT_OF_MEMORY_ERROR = 1000 !! Occurs if there is insufficient memory available for the !! requested operation. integer ( int32 ), parameter :: PLOT_INVALID_INPUT_ERROR = 1001 !! Occurs if an invalid input is provided. integer ( int32 ), parameter :: PLOT_INVALID_OPERATION_ERROR = 1002 !! Occurs if an attempt is made to perform an invalid operation. integer ( int32 ), parameter :: PLOT_ARRAY_SIZE_MISMATCH_ERROR = 1003 !! Occurs if there is an array size mismatch error. integer ( int32 ), parameter :: PLOT_GNUPLOT_FILE_ERROR = 1004 !! Occurs if there is a GNUPLOT file error. contains ! ------------------------------------------------------------------------------ subroutine report_error ( this , fcn , msg , code ) class ( errors ), intent ( inout ) :: this character ( len = * ), intent ( in ) :: fcn character ( len = * ), intent ( in ) :: msg integer ( int32 ), intent ( in ) :: code write ( error_unit , '(A)' ) trim ( fcn ) // ': ' // trim ( msg ) error stop code end subroutine ! ------------------------------------------------------------------------------ subroutine report_memory_error ( err , fcn , flag ) !! Reports a memory allocation error. class ( errors ), intent ( inout ) :: err !! The error handling object. character ( len = * ), intent ( in ) :: fcn !! The name of the function or subroutine in which the error occurred. integer ( int32 ), intent ( in ) :: flag !! The error flag returned by the system. ! Local Variables character ( len = 256 ) :: msg ! Define the error message write ( msg , 100 ) \"Memory allocation error returning flag \" , flag , \".\" call err % report_error ( fcn , trim ( msg ), PLOT_OUT_OF_MEMORY_ERROR ) ! Formatting 100 format ( A , I0 , A ) end subroutine ! ------------------------------------------------------------------------------ subroutine report_file_create_error ( err , fcn , fname , flag ) !! Reports an I/O error related to file creating. class ( errors ), intent ( inout ) :: err !! The error handling object. character ( len = * ), intent ( in ) :: fcn !! The name of the function or subroutine in which the error occurred. character ( len = * ), intent ( in ) :: fname !! The filename. integer ( int32 ), intent ( in ) :: flag !! The error flag returned by the system. ! Local Variables character ( len = 2048 ) :: msg ! Define the error message write ( msg , 100 ) \"File \" , fname , \" could not be created.  The error flag \" , & flag , \" was returned.\" call err % report_error ( fcn , trim ( msg ), PLOT_GNUPLOT_FILE_ERROR ) ! Formatting 100 format ( A , A , A , I0 , A ) end subroutine ! ------------------------------------------------------------------------------ subroutine report_array_size_mismatch_error ( err , fcn , name , expected , actual ) !! Reports an array size mismatch error. class ( errors ), intent ( inout ) :: err !! The error handling object. character ( len = * ), intent ( in ) :: fcn !! The name of the function or subroutine in which the error occurred. character ( len = * ), intent ( in ) :: name !! The variable name. integer ( int32 ), intent ( in ) :: expected !! The expected array size. integer ( int32 ), intent ( in ) :: actual !! The actual array size. ! Local Variables character ( len = 256 ) :: msg ! Define the message write ( msg , 100 ) \"Array \" , name , \" was found to be of length \" , actual , & \", but was expected to be of length \" , expected , \".\" call err % report_error ( fcn , trim ( msg ), PLOT_ARRAY_SIZE_MISMATCH_ERROR ) ! Formatting 100 format ( A , A , A , I0 , A , I0 , A ) end subroutine ! ------------------------------------------------------------------------------ subroutine report_matrix_size_mismatch_error ( err , fcn , name , mexp , nexp , & mact , nact ) !! Reports a matrix size mismatch error. class ( errors ), intent ( inout ) :: err !! The error handling object. character ( len = * ), intent ( in ) :: fcn !! The name of the function or subroutine in which the error occurred. character ( len = * ), intent ( in ) :: name !! The variable name. integer ( int32 ), intent ( in ) :: mexp !! The expected number of rows. integer ( int32 ), intent ( in ) :: nexp !! The expected number of columns. integer ( int32 ), intent ( in ) :: mact !! The actual number of rows. integer ( int32 ), intent ( in ) :: nact !! The actual number of columns. ! Local Variables character ( len = 256 ) :: msg ! Define the error write ( msg , 100 ) \"Matrix \" , name , \" was expected to be of size \" , mexp , & \"-by-\" , nexp , \", but was found to be of size \" , mact , \"-by-\" , nact , \".\" call err % report_error ( fcn , trim ( msg ), PLOT_ARRAY_SIZE_MISMATCH_ERROR ) ! Formatting 100 format ( A , A , A , I0 , A , I0 , A , I0 , A , I0 , A ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_errors.f90.html"},{"title":"fplot_surface_plot.f90 – FPLOT","text":"Source Code ! fplot_surface_plot.f90 module fplot_surface_plot use iso_fortran_env use fplot_plot_3d use fplot_errors use fplot_legend use fplot_surface_plot_data use strings implicit none private public :: surface_plot type , extends ( plot_3d ) :: surface_plot logical , private :: m_showHidden = . false . !! Show hidden lines? logical , private :: m_smooth = . true . !! Smooth the surface? logical , private :: m_contour = . false . !! Show a contour plot as well as the surface plot? logical , private :: m_useLighting = . false . !! Use lighting? real ( real32 ), private :: m_lightIntensity = 0.5 !! Lighting intensity (0 - 1) - default is 0.5 real ( real32 ), private :: m_specular = 0.5 !! Specular highlight intensity (0 - 1). real ( real32 ), private :: m_transparency = 1.0 !! Defines the translucency value.  Must exist on (0, 1]. contains procedure , public :: initialize => surf_init procedure , public :: get_show_hidden => surf_get_show_hidden procedure , public :: set_show_hidden => surf_set_show_hidden procedure , public :: get_command_string => surf_get_cmd procedure , public :: get_allow_smoothing => surf_get_smooth procedure , public :: set_allow_smoothing => surf_set_smooth procedure , public :: get_show_contours => surf_get_show_contours procedure , public :: set_show_contours => surf_set_show_contours procedure , public :: get_use_lighting => surf_get_use_lighting procedure , public :: set_use_lighting => surf_set_use_lighting procedure , public :: get_light_intensity => surf_get_light_intensity procedure , public :: set_light_intensity => surf_set_light_intensity procedure , public :: get_specular_intensity => surf_get_specular_intensity procedure , public :: set_specular_intensity => surf_set_specular_intensity procedure , public :: get_transparency => surf_get_transparency procedure , public :: set_transparency => surf_set_transparency procedure , public :: surf_push_data generic , public :: push => surf_push_data end type contains ! ------------------------------------------------------------------------------ subroutine surf_init ( this , term , fname , err ) !! Initializes the surface_plot object. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !!  The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables type ( legend ), pointer :: lgnd ! Initialize the base class call this % plot_3d % initialize ( term , fname , err ) ! Do not display the legend lgnd => this % get_legend () call lgnd % set_is_visible (. false .) end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_show_hidden ( this ) result ( x ) !! Gets a value indicating if hidden lines should be shown. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. logical :: x !! Returns true if hidden lines should be shown; else, false. x = this % m_showHidden end function ! ------------------------------------------------------------------------------ subroutine surf_set_show_hidden ( this , x ) !! Sets a value indicating if hidden lines should be shown. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. logical , intent ( in ) :: x !! Set to true if hidden lines should be shown; else, false. this % m_showHidden = x end subroutine ! ------------------------------------------------------------------------------ function surf_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot_3d !! object. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str ! class(colormap), pointer :: clr ! Initialization call str % initialize () ! Call the base routine call str % append ( this % plot % get_command_string ()) ! Hidden Stuff call str % append ( new_line ( 'a' )) if ( this % get_show_hidden ()) then call str % append ( \"unset hidden3d\" ) else call str % append ( \"set hidden3d\" ) end if ! Define the colormap ! clr => this%get_colormap() ! if (associated(clr)) then !     call str%append(new_line('a')) !     call str%append(clr%get_command_string()) ! end if ! Allow for smoothing interpolation if ( this % get_allow_smoothing ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set pm3d interpolate 0,0\" ) end if ! Draw a contour plot as well? if ( this % get_show_contours ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set contour\" ) end if ! Show colorbar ! if (.not.this%get_show_colorbar()) then !     call str%append(new_line('a')) !     call str%append(\"unset colorbox\") ! end if ! Lighting if ( this % get_use_lighting ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set pm3d lighting primary \" ) call str % append ( to_string ( this % get_light_intensity ())) call str % append ( \" specular \" ) call str % append ( to_string ( this % get_specular_intensity ())) end if ! Translucent if ( this % get_transparency () < 1.0 . and . this % get_transparency () > 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set style fill transparent solid \" ) call str % append ( to_string ( this % get_transparency ())) end if ! Call the base class to define the rest of the plot commands call str % append ( new_line ( 'a' )) call str % append ( this % plot_3d % get_command_string ()) ! Output x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ !     module function surf_get_colormap(this) result(x) !         class(surface_plot), intent(in) :: this !         class(colormap), pointer :: x !         x => this%m_colormap !     end function ! ! -------------------- !     module subroutine surf_set_colormap(this, x, err) !         ! Arguments !         class(surface_plot), intent(inout) :: this !         class(colormap), intent(in) :: x !         class(errors), intent(inout), optional, target :: err !         ! Local Variables !         integer(int32) :: flag !         class(errors), pointer :: errmgr !         type(errors), target :: deferr !         ! Initialization !         if (present(err)) then !             errmgr => err !         else !             errmgr => deferr !         end if !         ! Process !         if (associated(this%m_colormap)) deallocate(this%m_colormap) !         allocate(this%m_colormap, stat = flag, source = x) !         if (flag /= 0) then !             call errmgr%report_error(\"surf_set_colormap\", & !                 \"Insufficient memory available.\", PLOT_OUT_OF_MEMORY_ERROR) !             return !         end if !     end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_smooth ( this ) result ( x ) !! Gets a value determining if the plotted surfaces should be !! smoothed. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. logical :: x !! Returns true if the surface should be smoothed; else, false. x = this % m_smooth end function ! -------------------- subroutine surf_set_smooth ( this , x ) !! Sets a value determining if the plotted surfaces should be !! smoothed. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. logical , intent ( in ) :: x !! Set to true if the surface should be smoothed; else, false. this % m_smooth = x end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_show_contours ( this ) result ( x ) !! Gets a value determining if a contour plot should be drawn in !! conjunction with the surface plot. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. logical :: x !! Returns true if the contour plot should be drawn; else, false to !! only draw the surface. x = this % m_contour end function ! -------------------- subroutine surf_set_show_contours ( this , x ) !! Sets a value determining if a contour plot should be drawn in !! conjunction with the surface plot. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. logical , intent ( in ) :: x !! Set to true if the contour plot should be drawn; else, false to !! only draw the surface. this % m_contour = x end subroutine ! ------------------------------------------------------------------------------ !     pure module function surf_get_show_colorbar(this) result(x) !         class(surface_plot), intent(in) :: this !         logical :: x !         x = this%m_showColorbar !     end function ! ! -------------------- !     module subroutine surf_set_show_colorbar(this, x) !         class(surface_plot), intent(inout) :: this !         logical, intent(in) :: x !         this%m_showColorbar = x !     end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_use_lighting ( this ) result ( x ) !! Gets a value indicating if lighting, beyond the ambient !! light source, is to be used. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. logical :: x !! True if lighting should be used; else, false. x = this % m_useLighting end function ! -------------------- subroutine surf_set_use_lighting ( this , x ) !! Sets a value indicating if lighting, beyond the ambient !! light source, is to be used. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. logical , intent ( in ) :: x !! True if lighting should be used; else, false. this % m_useLighting = x end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_light_intensity ( this ) result ( x ) !! Gets the ratio of the strength of the light source relative !! to the ambient light. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. real ( real32 ) :: x !! The light intensity ratio. x = this % m_lightIntensity end function ! -------------------- subroutine surf_set_light_intensity ( this , x ) !! Sets the ratio of the strength of the light source relative !! to the ambient light. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. real ( real32 ), intent ( in ) :: x !! The light intensity ratio.  The value must exist in the !! set [0, 1]; else, it will be clipped to lie within the range. if ( x < 0.0 ) then this % m_lightIntensity = 0.0 else if ( x > 1.0 ) then this % m_lightIntensity = 1.0 else this % m_lightIntensity = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_specular_intensity ( this ) result ( x ) !! Gets the ratio of the strength of the specular light source !! relative to the ambient light. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. real ( real32 ) :: x !! The specular light intensity ratio. x = this % m_specular end function ! -------------------- subroutine surf_set_specular_intensity ( this , x ) !! Sets the ratio of the strength of the specular light source !! relative to the ambient light. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. real ( real32 ), intent ( in ) :: x !! The specular light intensity ratio.  The value must exist in the !! set [0, 1]; else, it will be clipped to lie within the range. if ( x < 0.0 ) then this % m_specular = 0.0 else if ( x > 1.0 ) then this % m_specular = 1.0 else this % m_specular = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_transparency ( this ) result ( x ) !! Gets a factor defining the transparency of plotted surfaces. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. real ( real32 ) :: x !! A value existing on the set (0 1] defining the level of !! transparency.  A value of 1 indicates a fully opaque surface. x = this % m_transparency end function ! -------------------- subroutine surf_set_transparency ( this , x ) !! Sets a factor defining the transparency of plotted surfaces. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. real ( real32 ), intent ( in ) :: x !! A value existing on the set (0 1] defining the level of !! transparency.  A value of 1 indicates a fully opaque surface. !! Any values supplied outside of the set are clipped to fit within !! (0 1]. if ( x > 1.0 ) then this % m_transparency = 1.0 else if ( x <= 0.0 ) then this % m_transparency = 0.1 else this % m_transparency = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine surf_push_data ( this , x , y , z ) !! Adds a data set to the plot. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! An M-by-N matrix containing the x-coordinate data. real ( real64 ), intent ( in ), dimension ( size ( x , 1 ), size ( x , 2 )) :: y !! An M-by-N matrix containing the y-coordinate data. real ( real64 ), intent ( in ), dimension ( size ( x , 1 ), size ( x , 2 )) :: z !! An M-by-N matrix containing the z-coordinate data. type ( surface_plot_data ) :: pd call pd % define_data ( x , y , z ) call this % push ( pd ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_surface_plot.f90.html"},{"title":"fplot_colors.f90 – FPLOT","text":"Source Code ! fplot_colors.f90 module fplot_colors use iso_fortran_env implicit none private public :: color public :: operator ( == ) public :: operator ( /= ) public :: CLR_BLACK public :: CLR_WHITE public :: CLR_RED public :: CLR_LIME public :: CLR_BLUE public :: CLR_YELLOW public :: CLR_CYAN public :: CLR_MAGENTA public :: CLR_SILVER public :: CLR_GRAY public :: CLR_MAROON public :: CLR_OLIVE public :: CLR_GREEN public :: CLR_PURPLE public :: CLR_TEAL public :: CLR_NAVY public :: CLR_ORANGE public :: color_list type color !! Describes an RGB color. integer ( int32 ), public :: red = 0 !! The red component of the color (must be between 0 and 255). integer ( int32 ), public :: green = 0 !! The green component of the color (must be between 0 and 255). integer ( int32 ), public :: blue = 255 !! The blue component of the color (must be between 0 and 255). integer ( int32 ), public :: alpha = 0 !! The alpha component of the color (must be between 0 and 255). !! Notice, 0 is fully opaque and 255 is fully transparent. contains procedure , public , pass :: to_hex_string => clr_to_hex_string procedure , public , pass :: rgb_to_hex_string => clr_rgb_to_hex_string procedure , public , pass :: copy_from => clr_copy_from end type interface operator ( == ) module procedure :: clr_equals end interface interface operator ( /= ) module procedure :: clr_not_equals end interface type ( color ), parameter :: CLR_BLACK = color ( 0 , 0 , 0 , 0 ) !! Black. type ( color ), parameter :: CLR_WHITE = color ( 255 , 255 , 255 , 0 ) !! White. type ( color ), parameter :: CLR_RED = color ( 255 , 0 , 0 , 0 ) !! Red. type ( color ), parameter :: CLR_LIME = color ( 0 , 255 , 0 , 0 ) !! Lime. type ( color ), parameter :: CLR_BLUE = color ( 0 , 0 , 255 , 0 ) !! Blue. type ( color ), parameter :: CLR_YELLOW = color ( 255 , 255 , 0 , 0 ) !! Yellow. type ( color ), parameter :: CLR_CYAN = color ( 0 , 255 , 255 , 0 ) !! Cyan. type ( color ), parameter :: CLR_MAGENTA = color ( 255 , 0 , 255 , 0 ) !! Magenta. type ( color ), parameter :: CLR_SILVER = color ( 192 , 192 , 192 , 0 ) !! Silver. type ( color ), parameter :: CLR_GRAY = color ( 128 , 128 , 128 , 0 ) !! Gray. type ( color ), parameter :: CLR_MAROON = color ( 128 , 0 , 0 , 0 ) !! Maroon. type ( color ), parameter :: CLR_OLIVE = color ( 128 , 128 , 0 , 0 ) !! Olive. type ( color ), parameter :: CLR_GREEN = color ( 0 , 128 , 0 , 0 ) !! Green. type ( color ), parameter :: CLR_PURPLE = color ( 128 , 0 , 128 , 0 ) !! Purple. type ( color ), parameter :: CLR_TEAL = color ( 0 , 128 , 128 , 0 ) !! Teal. type ( color ), parameter :: CLR_NAVY = color ( 0 , 0 , 128 , 0 ) !! Navy. type ( color ), parameter :: CLR_ORANGE = color ( 255 , 165 , 0 , 0 ) !! Orange. ! A list of colors that can be cycled through by plotting code type ( color ), parameter , dimension ( 7 ) :: color_list = [ & color ( 0 , int ( 0.447 * 255 ), int ( 0.741 * 255 ), 0 ), & color ( int ( 0.85 * 255 ), int ( 0.325 * 255 ), int ( 0.098 * 255 ), 0 ), & color ( int ( 0.929 * 255 ), int ( 0.694 * 255 ), int ( 0.125 * 255 ), 0 ), & color ( int ( 0.494 * 255 ), int ( 0.184 * 255 ), int ( 0.556 * 255 ), 0 ), & color ( int ( 0.466 * 255 ), int ( 0.674 * 255 ), int ( 0.188 * 255 ), 0 ), & color ( int ( 0.301 * 255 ), int ( 0.745 * 255 ), int ( 0.933 * 255 ), 0 ), & color ( int ( 0.635 * 255 ), int ( 0.078 * 255 ), int ( 0.184 * 255 ), 0 )] contains ! ------------------------------------------------------------------------------ pure function clr_to_hex_string ( this ) result ( txt ) !! Returns the color in hexadecimal format. class ( color ), intent ( in ) :: this !! The color object. character ( 8 ) :: txt !! A string containing the hexadecimal equivalent. ! Local Variables integer ( int32 ) :: r , g , b , a , clr ! Clip each color if necessary if ( this % red < 0 ) then r = 0 else if ( this % red > 255 ) then r = 255 else r = this % red end if if ( this % green < 0 ) then g = 0 else if ( this % green > 255 ) then g = 255 else g = this % green end if if ( this % blue < 0 ) then b = 0 else if ( this % blue > 255 ) then b = 255 else b = this % blue end if if ( this % alpha < 0 ) then a = 0 else if ( this % alpha > 255 ) then a = 255 else a = this % alpha end if ! Build the color information clr = ishft ( a , 24 ) + ishft ( r , 16 ) + ishft ( g , 8 ) + b ! Convert the integer to a hexadecimal string write ( txt , '(Z8.8)' ) clr end function ! ------------------------------------------------------------------------------ pure function clr_rgb_to_hex_string ( this ) result ( txt ) !! Returns the color in hexadecimal format ignoring any alpha channel. class ( color ), intent ( in ) :: this !! The color object. character ( 6 ) :: txt !! A string containing the hexadecimal equivalent. ! Local Variables integer ( int32 ) :: r , g , b , clr ! Clip each color if necessary if ( this % red < 0 ) then r = 0 else if ( this % red > 255 ) then r = 255 else r = this % red end if if ( this % green < 0 ) then g = 0 else if ( this % green > 255 ) then g = 255 else g = this % green end if if ( this % blue < 0 ) then b = 0 else if ( this % blue > 255 ) then b = 255 else b = this % blue end if ! Build the color information clr = ishft ( r , 16 ) + ishft ( g , 8 ) + b ! Convert the integer to a hexadecimal string write ( txt , '(Z6.6)' ) clr end function ! ------------------------------------------------------------------------------ subroutine clr_copy_from ( this , clr ) !! Copies another color to this color. class ( color ), intent ( inout ) :: this !! The color object. class ( color ), intent ( in ) :: clr !! The color to copy. this % red = clr % red this % green = clr % green this % blue = clr % blue end subroutine ! ****************************************************************************** ! ADDED: JAN. 09, 2024 - JAC ! ------------------------------------------------------------------------------ ! pure subroutine clr_assign(x, y) !     type(color), intent(out) :: x !     class(color), intent(in) :: y !     call x%copy_from(y) ! end subroutine ! ------------------------------------------------------------------------------ pure function clr_equals ( x , y ) result ( rst ) type ( color ), intent ( in ) :: x , y logical :: rst rst = . true . if ( x % red /= y % red . or . & x % green /= y % green . or . & x % blue /= y % blue & ) then rst = . false . end if end function ! ------------------------------------------------------------------------------ pure function clr_not_equals ( x , y ) result ( rst ) type ( color ), intent ( in ) :: x , y logical :: rst rst = . not . clr_equals ( x , y ) end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_colors.f90.html"},{"title":"fplot_plot_axis.f90 – FPLOT","text":"Source Code ! fplot_plot_axis.f90 module fplot_plot_axis use iso_fortran_env use fplot_plot_object use fplot_constants use strings implicit none private public :: plot_axis public :: pa_get_string_result public :: x_axis public :: y_axis public :: y2_axis public :: z_axis public :: name_value_pair type name_value_pair !! Defines a name-value pair. character ( len = :), allocatable :: name !! The name. real ( real64 ) :: value !! The associated value. end type type , abstract , extends ( plot_object ) :: plot_axis !! Defines a plot axis object. logical , private :: m_hasTitle = . false . !! Has a title? character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_title = \"\" !! Axis title. logical , private :: m_autoscale = . true . !! Autoscale? real ( real64 ), private , dimension ( 2 ) :: m_limits = [ 0.0d0 , 1.0d0 ] !! Display limits. logical , private :: m_logScale = . false . !! Log scaled? logical , private :: m_zeroAxis = . false . !! Has a zero axis? real ( real32 ), private :: m_axisWidth = 1.5 !! The width, in pixels, of the zero-axis line. logical , private :: m_defaultTicLabels = . true . !! Use default tic label format? character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_ticLabelFmt = \"%g\" !! The tic lablel format. logical , private :: m_showTicLabels = . true . !! Show tic labels? integer ( int32 ), private :: m_ticXOffset = 0 !! The tic label x-offset, in characters. integer ( int32 ), private :: m_ticYOffset = 0 !! The tic label y-offset, in characters. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: & m_ticLabelAlignment = GNUPLOT_HORIZONTAL_ALIGN_CENTER !! The tic label alignment. !! !! - GNUPLOT_HORIZONTAL_ALIGN_LEFT !! !! - GNUPLOT_HORIZONTAL_ALIGN_CENTER !! !! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT logical , private :: m_offsetTics = . false . !! Offset tics? real ( real32 ), private :: m_ticLabelAngle = 0.0 !! The tic label angle, in degrees. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_ticRotationOrigin = & GNUPLOT_ROTATION_ORIGIN_CENTER !! The tic label rotation origin. !! !! - GNUPLOT_ROTATION_ORIGIN_RIGHT !! !! - GNUPLOT_ROTATION_ORIGIN_LEFT !! !! - GNUPLOT_ROTATION_ORIGIN_CENTER integer ( int32 ), private :: m_titleXOffset = 0 !! The axis title x offset, in characters. integer ( int32 ), private :: m_titleYOffset = 0 !! The axis title y offset, in characters. logical , private :: m_useManualTicLabels = . false . !! Use manual (user-defined) tic labels? type ( name_value_pair ), private , allocatable , dimension (:) :: m_ticLabels !! A list of user-defined tic labels. contains procedure , public :: get_title => pa_get_title procedure , public :: set_title => pa_set_title procedure , public :: is_title_defined => pa_has_title procedure , public :: get_autoscale => pa_get_autoscale procedure , public :: set_autoscale => pa_set_autoscale procedure , public :: get_limits => pa_get_axis_limits procedure , public :: set_limits => pa_set_axis_limits procedure , public :: get_is_log_scaled => pa_get_log_scale procedure , public :: set_is_log_scaled => pa_set_log_scale procedure , public :: get_command_string => pa_get_cmd_string procedure , public :: get_zero_axis => pa_get_zero_axis procedure , public :: set_zero_axis => pa_set_zero_axis procedure , public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure , public :: set_zero_axis_line_width => pa_set_zero_axis_width procedure ( pa_get_string_result ), deferred , public :: get_id_string procedure , public :: get_use_default_tic_label_format => & pa_get_use_dft_tic_lbl_fmt procedure , public :: set_use_default_tic_label_format => & pa_set_use_dft_tic_lbl_fmt procedure , public :: get_tic_label_format => pa_get_tic_label_fmt procedure , public :: set_tic_label_format => pa_set_tic_label_fmt procedure , public :: get_show_tic_labels => pa_get_show_tic_labels procedure , public :: set_show_tic_labels => pa_set_show_tic_labels procedure , public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure , public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure , public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure , public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure , public :: get_tic_label_angle => pa_get_tic_label_angle procedure , public :: set_tic_label_angle => pa_set_tic_label_angle procedure , public :: get_tic_label_rotation_origin => & pa_get_tic_rotation_origin procedure , public :: set_tic_label_rotation_origin => & pa_set_tic_rotation_origin procedure , public :: get_tic_label_alignment => & pa_get_tic_label_alignment procedure , public :: set_tic_label_alignment => & pa_set_tic_label_alignment procedure , public :: get_offset_tics => pa_get_offset_tics procedure , public :: set_offset_tics => pa_set_offset_tics procedure , public :: get_title_x_offset => pa_get_title_x_offset procedure , public :: set_title_x_offset => pa_set_title_x_offset procedure , public :: get_title_y_offset => pa_get_title_y_offset procedure , public :: set_title_y_offset => pa_set_title_y_offset procedure , public :: get_use_manual_tic_labels => & pa_get_use_manual_tic_labels procedure , public :: set_use_manual_tic_labels => & pa_set_use_manual_tic_labels procedure , public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure , public :: set_manual_tic_labels => pa_set_manual_tic_labels end type interface function pa_get_string_result ( this ) result ( x ) !! Retrieves a string from a plot_axis. import plot_axis class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: x !! The string. end function end interface type , extends ( plot_axis ) :: x_axis !! Defines an x-axis object. character , private :: m_id = \"x\" !! The ID character. contains procedure , public :: get_id_string => xa_get_id end type type , extends ( plot_axis ) :: y_axis !! Defines a y-axis object. character , private :: m_id = \"y\" !! The ID character. contains procedure , public :: get_id_string => ya_get_id end type type , extends ( plot_axis ) :: y2_axis !! Defines a secondary y-axis object. character ( len = 2 ), private :: m_id = \"y2\" !! The ID character. contains procedure , public :: get_id_string => y2a_get_id end type type , extends ( plot_axis ) :: z_axis !! Defines a z-axis object. character , private :: m_id = \"z\" !! The ID character. contains procedure , public :: get_id_string => za_get_id end type contains ! ------------------------------------------------------------------------------ function pa_get_title ( this ) result ( txt ) !! Gets the axis title. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: txt !! The title. integer ( int32 ) :: n n = len_trim ( this % m_title ) allocate ( character ( len = n ) :: txt ) txt = trim ( this % m_title ) end function ! -------------------- subroutine pa_set_title ( this , txt ) !! Sets the axis title. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. character ( len = * ), intent ( in ) :: txt !! The title. ! Local Variables integer ( int32 ) :: n ! Process n = min ( len_trim ( txt ), PLOTDATA_MAX_NAME_LENGTH ) this % m_title = \"\" if ( n /= 0 ) then this % m_title ( 1 : n ) = txt ( 1 : n ) this % m_hasTitle = . true . else this % m_hasTitle = . false . end if end subroutine ! ------------------------------------------------------------------------------ pure function pa_has_title ( this ) result ( x ) !! Gets a value determining if a title has been defined for this axis. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true if a title has been defined; else, false. x = this % m_hasTitle end function ! ------------------------------------------------------------------------------ pure function pa_get_autoscale ( this ) result ( x ) !! Gets a value determining if the axis should be automatically scaled !! to fit the data. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true if the axis should be automatically scaled; else, !! false. x = this % m_autoscale end function ! -------------------- subroutine pa_set_autoscale ( this , x ) !! Sets a value determining if the axis should be automatically scaled !! to fit the data. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true if the axis should be automatically scaled; else, !! set to false. this % m_autoscale = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_axis_limits ( this ) result ( x ) !! Gets the axis display limits, assuming autoscaling is not !! active for this axis. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. real ( real64 ), dimension ( 2 ) :: x !! A two-element array containing the limits as follows: !! [lower, upper]. x ( 1 ) = minval ( this % m_limits ) x ( 2 ) = maxval ( this % m_limits ) end function ! -------------------- subroutine pa_set_axis_limits ( this , lower , upper ) !! Gets the axis display limits, assuming autoscaling is not !! active for this axis.  This routine also calls set_autoscale and !! sets the property value to false. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. real ( real64 ), intent ( in ) :: lower !! The lower display limit. real ( real64 ), intent ( in ) :: upper !! The upper display limit. this % m_limits ( 1 ) = min ( lower , upper ) this % m_limits ( 2 ) = max ( lower , upper ) call this % set_autoscale (. false .) end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_log_scale ( this ) result ( x ) !! Gets a logical value defining if the axis should be log scaled. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true if log scaling is applied to the axis; else, false. x = this % m_logScale end function ! -------------------- subroutine pa_set_log_scale ( this , x ) !! Sets a logical value defining if the axis should be log scaled. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true if log scaling is applied to the axis; else, false. this % m_logScale = x end subroutine ! ------------------------------------------------------------------------------ function pa_get_cmd_string ( this ) result ( txt ) !! Returns the appropriate GNUPLOT command string to define the !! plot_axis properties. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: txt !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str real ( real32 ) :: angle character ( len = :), allocatable :: axis , fmt real ( real64 ) :: lim ( 2 ) integer ( int32 ) :: i type ( name_value_pair ), allocatable , dimension (:) :: ticLabels ! Process axis = this % get_id_string () fmt = this % get_tic_label_format () lim = this % get_limits () call str % initialize () ! Formatting if (. not . this % get_use_default_tic_label_format ()) then call str % append ( \"set format \" ) call str % append ( axis ) call str % append ( '\"' ) call str % append ( fmt ) call str % append ( '\"' ) call str % append ( new_line ( 'a' )) end if ! Show Tic Labels? if ( this % get_show_tic_labels ()) then call str % append ( \"set \" ) else call str % append ( \"unset \" ) end if call str % append ( axis ) call str % append ( \"tics\" ) call str % append ( new_line ( 'a' )) ! Tic Label Offsets if ( this % get_show_tic_labels () . and . this % get_offset_tics ()) then call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"tics \" ) call str % append ( this % get_tic_label_alignment ()) call str % append ( \" offset \" ) call str % append ( to_string ( this % get_tic_label_x_offset ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_tic_label_y_offset ())) call str % append ( new_line ( 'a' )) end if ! Tic Label Rotation angle = this % get_tic_label_angle () if ( this % get_show_tic_labels () . and . angle /= 0.0 ) then call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"tics rotate by \" ) call str % append ( to_string ( angle )) call str % append ( \" \" ) call str % append ( this % get_tic_label_rotation_origin ()) call str % append ( new_line ( 'a' )) end if ! Axis Limits if ( this % get_autoscale ()) then call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"range [*:*]\" ) else call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"range [\" ) call str % append ( to_string ( lim ( 1 ))) call str % append ( \":\" ) call str % append ( to_string ( lim ( 2 ))) call str % append ( \"]\" ) end if ! Titles call str % append ( new_line ( 'a' )) if ( this % is_title_defined ()) then ! Title call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"label \" ) call str % append ( '\"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) ! Offsets if ( this % get_title_x_offset () /= 0 . or . & this % get_title_y_offset () /= 0 ) & then call str % append ( \" offset \" ) call str % append ( to_string ( this % get_title_x_offset ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_title_y_offset ())) end if else call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"label \" ) call str % append ( '\"\"' ) end if call str % append ( new_line ( 'a' )) ! Scaling call str % append ( new_line ( 'a' )) if ( this % get_is_log_scaled ()) then call str % append ( \"set log \" ) call str % append ( axis ) else call str % append ( \"unset log \" ) call str % append ( axis ) end if ! Zero Axis if ( this % get_zero_axis ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set \" ) call str % append ( this % get_id_string ()) call str % append ( \"zeroaxis linestyle -1 linewidth \" ) call str % append ( to_string ( this % get_zero_axis_line_width ())) end if ! Use manual labels ticLabels = this % get_manual_tic_labels () if ( this % get_use_manual_tic_labels () . and . size ( ticLabels ) > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set \" ) call str % append ( this % get_id_string () // \"tics(\" ) do i = 1 , size ( ticLabels ) call str % append ( '\"' ) call str % append ( ticLabels ( i )% name ) call str % append ( '\" ' ) call str % append ( to_string ( ticLabels ( i )% value )) if ( i /= size ( ticLabels )) call str % append ( \", \" ) end do call str % append ( \")\" ) end if ! Output txt = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function pa_get_zero_axis ( this ) result ( x ) !! Gets a value determining if the axis should be drawn through !! zero of opposing axes. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true to draw as a zero axis; else, set to false. x = this % m_zeroAxis end function ! -------------------- subroutine pa_set_zero_axis ( this , x ) !! Sets a value determining if the axis should be drawn through !! zero of opposing axes. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true to draw as a zero axis; else, set to false. this % m_zeroAxis = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_zero_axis_width ( this ) result ( x ) !! Gets the width of the line used to represent the zero axis line, if !! active. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. real ( real32 ) :: x !! The width of the line, in pixels. x = this % m_axisWidth end function ! -------------------- subroutine pa_set_zero_axis_width ( this , x ) !! Sets the width of the line used to represent the zero axis line, if !! active. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. real ( real32 ), intent ( in ) :: x !! The width of the line, in pixels. this % m_axisWidth = x end subroutine ! ADDED March 29, 2023 - JAC ! ------------------------------------------------------------------------------ pure function pa_get_use_dft_tic_lbl_fmt ( this ) result ( rst ) !! Gets a value determining if the default tic label format will be !! used. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: rst !! Returns true if the default tic label format will be used; else, !! false. rst = this % m_defaultTicLabels end function ! -------------------- subroutine pa_set_use_dft_tic_lbl_fmt ( this , x ) !! Sets a value determining if the default tic label format will be !! used. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true if the default tic label format will be used; else, !! false. this % m_defaultTicLabels = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_label_fmt ( this ) result ( rst ) !! Gets the tic label format.  The format string can be any format !! string accepted by the C command 'printf.' class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: rst !! The tic label format string. rst = trim ( this % m_ticLabelFmt ) end function ! -------------------- subroutine pa_set_tic_label_fmt ( this , x ) !! Sets the tic label format.  The format string can be any format !! string accepted by the C command 'printf.' class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. character ( len = * ), intent ( in ) :: x !! The tic label format string. this % m_ticLabelFmt = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_show_tic_labels ( this ) result ( x ) !! Gets a value determining if tic labels should be shown. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true to show tic labels; else, set to false. x = this % m_showTicLabels end function ! -------------------- subroutine pa_set_show_tic_labels ( this , x ) !! Sets a value determining if tic labels should be shown. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true to show tic labels; else, set to false. this % m_showTicLabels = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_x_offset ( this ) result ( x ) !! Gets the tic label x-offset, in characters. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. integer ( int32 ) :: x !! The tic label x-offset, in characters. x = this % m_ticXOffset end function ! -------------------- subroutine pa_set_tic_x_offset ( this , x ) !! Sets the tic label x-offset, in characters. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. integer ( int32 ), intent ( in ) :: x !! The tic label x-offset, in characters. this % m_ticXOffset = x call this % set_offset_tics (. true .) end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_y_offset ( this ) result ( x ) !! Gets the tic label y-offset, in characters. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. integer ( int32 ) :: x !! The tic label y-offset, in characters. x = this % m_ticYOffset end function ! -------------------- subroutine pa_set_tic_y_offset ( this , x ) !! Sets the tic label y-offset, in characters. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. integer ( int32 ), intent ( in ) :: x !! The tic label y-offset, in characters. this % m_ticYOffset = x call this % set_offset_tics (. true .) end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_label_angle ( this ) result ( x ) !! Gets the tic label angle, in degrees. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. real ( real32 ) :: x !! The tic label angle, in degrees. x = this % m_ticLabelAngle end function ! -------------------- subroutine pa_set_tic_label_angle ( this , x ) !! Sets the tic label angle, in degrees. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. real ( real32 ), intent ( in ) :: x !! The tic label angle, in degrees. this % m_ticLabelAngle = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_rotation_origin ( this ) result ( x ) !! Gets the tic label rotation origin. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: x !! The tic label rotation origin.  The tic label rotation origin !! must be one of the following: !! !! - GNUPLOT_ROTATION_ORIGIN_RIGHT !! !! - GNUPLOT_ROTATION_ORIGIN_LEFT !! !! - GNUPLOT_ROTATION_ORIGIN_CENTER integer ( int32 ) :: n n = len_trim ( this % m_ticRotationOrigin ) allocate ( character ( len = n ) :: x ) x = trim ( this % m_ticRotationOrigin ) end function ! -------------------- subroutine pa_set_tic_rotation_origin ( this , x ) !! Sets the tic label rotation origin. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. character ( len = * ), intent ( in ) :: x !! The tic label rotation origin.  The tic label rotation origin !! must be one of the following: !! !! - GNUPLOT_ROTATION_ORIGIN_RIGHT !! !! - GNUPLOT_ROTATION_ORIGIN_LEFT !! !! - GNUPLOT_ROTATION_ORIGIN_CENTER this % m_ticRotationOrigin = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_label_alignment ( this ) result ( x ) !! Gets the tic label alignment. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: x !! The tic label alignment.  The tic label alignment must be one of !! the following: !! !! - GNUPLOT_HORIZONTAL_ALIGN_LEFT !! !! - GNUPLOT_HORIZONTAL_ALIGN_CENTER !! !! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT integer ( int32 ) :: n n = len_trim ( this % m_ticLabelAlignment ) allocate ( character ( len = n ) :: x ) x = trim ( this % m_ticLabelAlignment ) end function ! -------------------- subroutine pa_set_tic_label_alignment ( this , x ) !! Sets the tic label alignment. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. character ( len = * ), intent ( in ) :: x !! The tic label alignment.  The tic label alignment must be one of !! the following: !! !! - GNUPLOT_HORIZONTAL_ALIGN_LEFT !! !! - GNUPLOT_HORIZONTAL_ALIGN_CENTER !! !! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT this % m_ticLabelAlignment = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_offset_tics ( this ) result ( x ) !! Gets a value determining if the tics should be offset. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true to offset the tics; else, set to false. x = this % m_offsetTics end function ! -------------------- subroutine pa_set_offset_tics ( this , x ) !! Sets a value determining if the tics should be offset. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true to offset the tics; else, set to false. this % m_offsetTics = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_title_x_offset ( this ) result ( x ) !! Gets the axis title x-offset, in characters. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. integer ( int32 ) :: x !! The axis title x-offset, in characters. x = this % m_titleXOffset end function ! -------------------- subroutine pa_set_title_x_offset ( this , x ) !! Sets the axis title x-offset, in characters. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. integer ( int32 ), intent ( in ) :: x !! The axis title x-offset, in characters. this % m_titleXOffset = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_title_y_offset ( this ) result ( x ) !! Gets the axis title y-offset, in characters. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. integer ( int32 ) :: x !! The axis title y-offset, in characters. x = this % m_titleYOffset end function ! -------------------- subroutine pa_set_title_y_offset ( this , x ) !! Sets the axis title y-offset, in characters. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. integer ( int32 ), intent ( in ) :: x !! The axis title y-offset, in characters. this % m_titleYOffset = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_use_manual_tic_labels ( this ) result ( rst ) !! Gets a value determining if manual tic labels should be used. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: rst !! True if manual tic labels should be used; else, false. rst = this % m_useManualTicLabels end function ! -------------------- subroutine pa_set_use_manual_tic_labels ( this , x ) !! Sets a value determining if manual tic labels should be used. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true if manual tic labels should be used; else, false. this % m_useManualTicLabels = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_manual_tic_labels ( this ) result ( rst ) !! Gets a list of manual tic labels. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. type ( name_value_pair ), allocatable , dimension (:) :: rst !! A list of name-value pairs where the name defines the label !! shown with the corresponding axis value. if ( allocated ( this % m_ticLabels )) then rst = this % m_ticLabels else allocate ( rst ( 0 )) end if end function ! -------------------- subroutine pa_set_manual_tic_labels ( this , x ) !! Sets a list of manual tic labels.  This routine also sets !! set_use_manual_tic_labels to true. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. type ( name_value_pair ), intent ( in ), dimension (:) :: x !! The list of tic values with the name component representing the !! displayed label text and the value is the associated axis value. if ( allocated ( this % m_ticLabels )) deallocate ( this % m_ticLabels ) allocate ( this % m_ticLabels ( size ( x )), source = x ) call this % set_use_manual_tic_labels (. true .) end subroutine ! ****************************************************************************** ! X_AXIS MEMBERS ! ------------------------------------------------------------------------------ function xa_get_id ( this ) result ( x ) !! Gets the axis identification string. class ( x_axis ), intent ( in ) :: this !! The x_axis object. character ( len = :), allocatable :: x !! The identification string. x = this % m_id end function ! ****************************************************************************** ! Y_AXIS MEMBERS ! ------------------------------------------------------------------------------ function ya_get_id ( this ) result ( x ) !! Gets the axis identification string. class ( y_axis ), intent ( in ) :: this !! The y_axis object. character ( len = :), allocatable :: x !! The identification string. x = this % m_id end function ! ****************************************************************************** ! Y2_AXIS MEMBERS ! ------------------------------------------------------------------------------ function y2a_get_id ( this ) result ( x ) !! Gets the axis identification string. class ( y2_axis ), intent ( in ) :: this !! The y2_axis object. character ( len = :), allocatable :: x !! The identification string. x = this % m_id end function ! ****************************************************************************** ! Z_AXIS MEMBERS ! ------------------------------------------------------------------------------ function za_get_id ( this ) result ( x ) !! Gets the axis identification string. class ( z_axis ), intent ( in ) :: this !! The z_axis object. character ( len = :), allocatable :: x !! The identification string. x = this % m_id end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_axis.f90.html"},{"title":"fplot_surface_plot_data.f90 – FPLOT","text":"Source Code module fplot_surface_plot_data use iso_fortran_env use fplot_plot_data use fplot_errors use strings implicit none private public :: surface_plot_data type , extends ( plot_data ) :: surface_plot_data !! Provides a three-dimensional surface plot data set. real ( real64 ), private , allocatable , dimension (:,:) :: m_x !! Stores the x-coordinate data real ( real64 ), private , allocatable , dimension (:,:) :: m_y !! Stores the y-coordinate data real ( real64 ), private , allocatable , dimension (:,:) :: m_z !! Stores the z-coordinate data logical , private :: m_wireframe = . false . !! Set to true to display a wireframe of the surface; else, just a !! smooth surface will be drawn contains procedure , public :: get_size => surfd_get_size procedure , public :: get_x => surfd_get_x procedure , public :: set_x => surfd_set_x procedure , public :: get_y => surfd_get_y procedure , public :: set_y => surfd_set_y procedure , public :: get_z => surfd_get_z procedure , public :: set_z => surfd_set_z procedure , public :: get_use_wireframe => surfd_get_wireframe procedure , public :: set_use_wireframe => surfd_set_wireframe procedure , public :: get_command_string => surfd_get_cmd procedure , public :: get_data_string => surfd_get_data_cmd procedure , public :: define_data => surfd_set_data_1 procedure , public :: clear_data => surfd_clear_data end type contains ! ------------------------------------------------------------------------------ pure function surfd_get_size ( this , dim ) result ( x ) !! Gets the size of the stored data set. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: dim !! The dimension of interest.  Notice, data is stored as a !! 2D matrix (i.e. only 1 and 2 are valid inputs). integer ( int32 ) :: x !! The size of the requested dimension. if ( allocated ( this % m_x )) then x = size ( this % m_x , dim ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function surfd_get_x ( this , i , j ) result ( x ) !! Gets the requested X data point. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ) :: x !! The value. if ( allocated ( this % m_x )) then x = this % m_x ( i , j ) else x = 0.0d0 end if end function ! -------------------- subroutine surfd_set_x ( this , i , j , x ) !! Sets the requested X data point. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ), intent ( in ) :: x !! The value. if ( allocated ( this % m_x )) then this % m_x ( i , j ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surfd_get_y ( this , i , j ) result ( x ) !! Gets the requested Y data point. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ) :: x !! The value. if ( allocated ( this % m_y )) then x = this % m_y ( i , j ) else x = 0.0d0 end if end function ! -------------------- subroutine surfd_set_y ( this , i , j , x ) !! Sets the requested Y data point. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ), intent ( in ) :: x !! The value. if ( allocated ( this % m_y )) then this % m_y ( i , j ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surfd_get_z ( this , i , j ) result ( x ) !! Gets the requested Z data point. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ) :: x !! The value. if ( allocated ( this % m_z )) then x = this % m_z ( i , j ) else x = 0.0d0 end if end function ! -------------------- subroutine surfd_set_z ( this , i , j , x ) !! Sets the requested Z data point. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ), intent ( in ) :: x !! The value. if ( allocated ( this % m_z )) then this % m_z ( i , j ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surfd_get_wireframe ( this ) result ( x ) !! Gets a value determining if a wireframe mesh should be displayed. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. logical :: x !! Returns true if a wireframe mesh should be displayed; else, !! false to display a solid surface. x = this % m_wireframe end function ! -------------------- subroutine surfd_set_wireframe ( this , x ) !! Sets a value determining if a wireframe mesh should be displayed. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. logical , intent ( in ) :: x !! Set to true if a wireframe mesh should be displayed; else, !! false to display a solid surface. this % m_wireframe = x end subroutine ! ------------------------------------------------------------------------------ function surfd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this surface_plot_data !! object. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! PM3D or wireframe? if ( this % get_use_wireframe ()) then call str % append ( \" with lines\" ) else call str % append ( \" with pm3d\" ) end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function surfd_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data to plot. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. character ( len = :), allocatable :: x !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , m , n character :: delimiter , nl ! Initialization call str % initialize () m = this % get_size ( 1 ) n = this % get_size ( 2 ) delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) ! Process do j = 1 , n do i = 1 , m call str % append ( to_string ( this % get_x ( i , j ))) call str % append ( delimiter ) call str % append ( to_string ( this % get_y ( i , j ))) call str % append ( delimiter ) call str % append ( to_string ( this % get_z ( i , j ))) call str % append ( nl ) end do if ( j /= n ) call str % append ( nl ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine surfd_set_data_1 ( this , x , y , z , err ) !! Defines the data set. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! An M-by-N matrix containing the x-coordinate data. real ( real64 ), intent ( in ), dimension (:,:) :: y !! An M-by-N matrix containing the y-coordinate data. real ( real64 ), intent ( in ), dimension (:,:) :: z !! An M-by-N matrix containing the z-coordinate data. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , j , m , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization m = size ( x , 1 ) n = size ( x , 2 ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( y , 1 ) /= m . or . size ( y , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"surfd_set_data_1\" , & \"y\" , m , n , size ( y , 1 ), size ( y , 2 )) return end if if ( size ( z , 1 ) /= m . or . size ( z , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"surfd_set_data_1\" , & \"z\" , m , n , size ( z , 1 ), size ( z , 2 )) return end if ! Process if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_z )) deallocate ( this % m_z ) allocate ( this % m_x ( m , n ), stat = flag ) if ( flag == 0 ) allocate ( this % m_y ( m , n ), stat = flag ) if ( flag == 0 ) allocate ( this % m_z ( m , n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"surfd_set_data_1\" , flag ) return end if do concurrent ( j = 1 : n ) do i = 1 , m this % m_x ( i , j ) = x ( i , j ) this % m_y ( i , j ) = y ( i , j ) this % m_z ( i , j ) = z ( i , j ) end do end do end subroutine ! ------------------------------------------------------------------------------ subroutine surfd_clear_data ( this ) !! Clears the data from this data set. class ( surface_plot_data ), intent ( inout ) :: this !! The surface_plot_data object. if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_z )) deallocate ( this % m_z ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_surface_plot_data.f90.html"},{"title":"fplot_qt_terminal.f90 – FPLOT","text":"Source Code ! fplot_qt_terminal.f90 module fplot_qt_terminal use iso_fortran_env use fplot_terminal implicit none private public :: qt_terminal type , extends ( terminal ) :: qt_terminal !! Defines a terminal that utilizes QT. character ( len = 2 ), private :: m_id = \"qt\" !! The terminal ID string contains procedure , public :: get_id_string => qt_get_term_string end type contains function qt_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( qt_terminal ), intent ( in ) :: this !! The qt_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function end module","tags":"","loc":"sourcefile\\fplot_qt_terminal.f90.html"},{"title":"fplot_wxt_terminal.f90 – FPLOT","text":"Source Code ! fplot_wxt_terminal.f90 module fplot_wxt_terminal use iso_fortran_env use fplot_terminal implicit none private public :: wxt_terminal type , extends ( terminal ) :: wxt_terminal !! A WXT terminal. character ( len = 3 ), private :: m_id = \"wxt\" !! The terminal ID string contains procedure , public :: get_id_string => wxt_get_term_string end type contains function wxt_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( wxt_terminal ), intent ( in ) :: this !! The wxt_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function end module","tags":"","loc":"sourcefile\\fplot_wxt_terminal.f90.html"},{"title":"fplot_multiplot.f90 – FPLOT","text":"Source Code ! fplot_multiplot.f90 module fplot_multiplot use iso_fortran_env use fplot_plot_object use fplot_plot use fplot_terminal use fplot_windows_terminal use fplot_qt_terminal use fplot_wxt_terminal use fplot_png_terminal use fplot_latex_terminal use fplot_svg_terminal use fplot_pdf_terminal use fplot_constants use fplot_errors use collections use strings implicit none private public :: multiplot type , extends ( plot_object ) :: multiplot !! Defines a multi-plot layout. type ( list ), private :: m_plots !! The collection of plot objects. integer ( int32 ), private :: m_rows = 0 !! The number of rows of plots. integer ( int32 ), private :: m_cols = 0 !! The number of columns of plots. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_title !! The page title. logical , private :: m_hasTitle = . false . !! Has a title? class ( terminal ), pointer :: m_terminal => null () !! The GNUPLOT terminal object to target. contains final :: mp_clean procedure , public :: get_command_string => mp_get_command procedure , public :: initialize => mp_init procedure , public :: get_row_count => mp_get_rows procedure , public :: get_column_count => mp_get_cols procedure , public :: get_plot_count => mp_get_count procedure , public :: get_title => mp_get_title procedure , public :: set_title => mp_set_title procedure , public :: draw => mp_draw procedure , public :: get => mp_get procedure , public :: set => mp_set procedure , public :: is_title_defined => mp_has_title procedure , public :: get_terminal => mp_get_term procedure , public :: save_file => mp_save procedure , public :: get_font_name => mp_get_font procedure , public :: set_font_name => mp_set_font procedure , public :: get_font_size => mp_get_font_size procedure , public :: set_font_size => mp_set_font_size procedure , public :: set_window_size => mp_set_window_size end type contains ! ------------------------------------------------------------------------------ function mp_get_command ( this ) result ( x ) !! Gets the GNUPLOT commands for this object. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , m , n class ( plot ), pointer :: ptr ! Initialization call str % initialize () m = this % get_row_count () n = this % get_column_count () ! Set up the multiplot call str % append ( \"set multiplot layout \" ) call str % append ( to_string ( m )) call str % append ( \",\" ) call str % append ( to_string ( n )) call str % append ( \" columnsfirst\" ) if ( this % is_title_defined ()) then call str % append ( \" title \" ) call str % append ( '\"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if call str % append ( new_line ( 'a' )) ! Write commands for each plot object do j = 1 , n do i = 1 , m ptr => this % get ( i , j ) call str % append ( new_line ( 'a' )) call str % append ( ptr % get_command_string ()) end do end do ! Close out the multiplot call str % append ( new_line ( 'a' )) call str % append ( \"unset multiplot\" ) ! Get the string x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine mp_init ( this , m , n , term , width , height , fname , err ) !! Initializes the multiplot object. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: m !! The number of rows of plots. integer ( int32 ), intent ( in ) :: n !! The number of columns of plots. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal.  The !! default terminal is a WXT terminal.  The acceptable inputs are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF integer ( int32 ), intent ( in ), optional :: width !! Optionally, the width of the plot window. integer ( int32 ), intent ( in ), optional :: height !! Optionally, the height of the plot window. character ( len = * ), intent ( in ), optional :: fname !! A filename to associate with terminals that print to file. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag , t , i class ( errors ), pointer :: errmgr type ( errors ), target :: deferr type ( wxt_terminal ), pointer :: wxt type ( windows_terminal ), pointer :: win type ( qt_terminal ), pointer :: qt type ( png_terminal ), pointer :: png type ( latex_terminal ), pointer :: latex type ( svg_terminal ), pointer :: svg type ( pdf_terminal ), pointer :: pdf ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( present ( term )) then t = term else t = GNUPLOT_TERMINAL_WXT end if ! Process call this % m_plots % clear () this % m_rows = m this % m_cols = n flag = 0 ! Populate the list with a dummy variable at the outset.  This allows ! the list to be appropriately sized so the user may use the \"set\" ! subroutine appropriately do i = 1 , m * n call this % m_plots % push ( i ) end do ! Define the terminal if ( associated ( this % m_terminal )) deallocate ( this % m_terminal ) select case ( t ) case ( GNUPLOT_TERMINAL_PNG ) allocate ( png , stat = flag ) if ( present ( fname )) call png % set_filename ( fname ) this % m_terminal => png case ( GNUPLOT_TERMINAL_QT ) allocate ( qt , stat = flag ) this % m_terminal => qt case ( GNUPLOT_TERMINAL_WIN32 ) allocate ( win , stat = flag ) this % m_terminal => win case ( GNUPLOT_TERMINAL_LATEX ) allocate ( latex , stat = flag ) if ( present ( fname )) call latex % set_filename ( fname ) this % m_terminal => latex case ( GNUPLOT_TERMINAL_SVG ) allocate ( svg ) if ( present ( fname )) call svg % set_filename ( fname ) this % m_terminal => svg case ( GNUPLOT_TERMINAL_PDF ) allocate ( pdf , stat = flag ) if ( present ( fname )) call pdf % set_filename ( fname ) this % m_terminal => pdf case default ! WXT is the default allocate ( wxt , stat = flag ) this % m_terminal => wxt end select ! Error Checking if ( flag /= 0 ) then call report_memory_error ( errmgr , \"mp_init\" , flag ) return end if ! Size the window? if ( present ( width )) then call this % m_terminal % set_window_width ( width ) end if if ( present ( height )) then call this % m_terminal % set_window_height ( height ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine mp_clean ( this ) !! Cleans up resources held by the multiplot object. type ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. if ( associated ( this % m_terminal )) deallocate ( this % m_terminal ) nullify ( this % m_terminal ) end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_rows ( this ) result ( x ) !! Gets the number of rows of plots. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ) :: x !! The row count. x = this % m_rows end function ! -------------------- pure function mp_get_cols ( this ) result ( x ) !! Gets the number of columns of plots. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ) :: x !! The column count. x = this % m_cols end function ! -------------------- pure function mp_get_count ( this ) result ( x ) !! Gets the total number of plots. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ) :: x !! The plot count. x = this % m_plots % count () end function ! ------------------------------------------------------------------------------ function mp_get_title ( this ) result ( x ) !! Gets the multiplot's title. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. character ( len = :), allocatable :: x !! The title. x = this % m_title end function ! -------------------- subroutine mp_set_title ( this , x ) !! Sets the multiplot's title. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. character ( len = * ), intent ( in ) :: x !! The title. ! Local Variables integer ( int32 ) :: n ! Process n = min ( len ( x ), PLOTDATA_MAX_NAME_LENGTH ) this % m_title = \"\" if ( n /= 0 ) then this % m_title ( 1 : n ) = x ( 1 : n ) this % m_hasTitle = . true . else this % m_hasTitle = . false . end if end subroutine ! ------------------------------------------------------------------------------ subroutine mp_draw ( this , persist , err ) !! Launches GNUPLOT and draws the multiplot per the current state of !! the command list. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. logical , intent ( in ), optional :: persist !! An optional parameter that can be used to keep GNUPLOT open. !! Set to true to force GNUPLOT to remain open; else, set to false !! to allow GNUPLOT to close after drawing.  The default is true. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Parameters character ( len = * ), parameter :: fname = \"temp_gnuplot_file.plt\" ! Local Variables logical :: p integer ( int32 ) :: fid , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr class ( terminal ), pointer :: term ! Initialization if ( present ( persist )) then p = persist else p = . true . end if if ( present ( err )) then errmgr => err else errmgr => deferr end if term => this % get_terminal () ! Open the file for writing, and write the contents to file open ( newunit = fid , file = fname , iostat = flag ) if ( flag > 0 ) then call report_file_create_error ( errmgr , \"mp_draw\" , fname , flag ) return end if write ( fid , '(A)' ) term % get_command_string () write ( fid , '(A)' ) new_line ( 'a' ) write ( fid , '(A)' ) this % get_command_string () close ( fid ) ! Launch GNUPLOT if ( p ) then call execute_command_line ( \"gnuplot --persist \" // fname ) else call execute_command_line ( \"gnuplot \" // fname ) end if ! Clean up by deleting the file open ( newunit = fid , file = fname ) close ( fid , status = \"delete\" ) end subroutine ! ------------------------------------------------------------------------------ function mp_get ( this , i , j ) result ( x ) !! Gets the requested plot object. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: i !! The row index of the plot to retrieve. integer ( int32 ), intent ( in ) :: j !! The column index of the plot to retrieve. class ( plot ), pointer :: x !! A pointer to the plot object. ! Local Variables class ( * ), pointer :: item integer ( int32 ) :: ind ! Process ind = this % m_rows * ( j - 1 ) + i item => this % m_plots % get ( ind ) select type ( item ) class is ( plot ) x => item class default nullify ( x ) end select end function ! -------------------- subroutine mp_set ( this , i , j , x ) !! Replaces the specified plot. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: i !! The row index of the plot to replace. integer ( int32 ), intent ( in ) :: j !! The column index of the plot to replace. class ( plot ), intent ( in ) :: x !! The new plot. ! Local Variables integer ( int32 ) :: ind ! Process ind = this % m_rows * ( j - 1 ) + i call this % m_plots % set ( ind , x ) end subroutine ! ------------------------------------------------------------------------------ pure function mp_has_title ( this ) result ( x ) !! Gets a value determining if a title has been defined for the !! multiplot object. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. logical :: x !! Returns true if a title has been defined for this multiplot; !! else, returns false. x = this % m_hasTitle end function ! ------------------------------------------------------------------------------ function mp_get_term ( this ) result ( x ) !! Gets the GNUPLOT terminal object. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. class ( terminal ), pointer :: x !! A pointer to the terminal object. x => this % m_terminal end function ! ------------------------------------------------------------------------------ subroutine mp_save ( this , fname , err ) !! Saves a GNUPLOT command file. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. character ( len = * ), intent ( in ) :: fname !! The filename. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: fid , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr class ( terminal ), pointer :: term ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if term => this % get_terminal () ! Open the file for writing, and write the contents to file open ( newunit = fid , file = fname , iostat = flag ) if ( flag > 0 ) then call report_file_create_error ( errmgr , \"mp_save\" , fname , flag ) return end if write ( fid , '(A)' ) term % get_command_string () write ( fid , '(A)' ) new_line ( 'a' ) write ( fid , '(A)' ) this % get_command_string () close ( fid ) end subroutine ! ------------------------------------------------------------------------------ function mp_get_font ( this ) result ( x ) !! Gets the name of the font used for plot text. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. character ( len = :), allocatable :: x !! The font name. class ( terminal ), pointer :: term term => this % get_terminal () x = term % get_font_name () end function ! -------------------- subroutine mp_set_font ( this , x ) !! Sets the name of the font used for plot text. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. character ( len = * ), intent ( in ) :: x !! The font name. class ( terminal ), pointer :: term term => this % get_terminal () call term % set_font_name ( x ) end subroutine ! ------------------------------------------------------------------------------ function mp_get_font_size ( this ) result ( x ) !! Gets the size of the font used by the plot. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ) :: x !! The font size. class ( terminal ), pointer :: term term => this % get_terminal () x = term % get_font_size () end function ! -------------------- subroutine mp_set_font_size ( this , x ) !! Sets the size of the font used by the plot. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: x !! The font size. class ( terminal ), pointer :: term term => this % get_terminal () call term % set_font_size ( x ) end subroutine ! ****************************************************************************** ! ADDED AUG. 16, 2026 - V1.9.0 ! ------------------------------------------------------------------------------ subroutine mp_set_window_size ( this , width , height ) !! Sets the height and width of the plot window. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: width !! The plot window width. integer ( int32 ), intent ( in ) :: height !! The plot window height. if ( associated ( this % m_terminal )) then call this % m_terminal % set_window_width ( width ) call this % m_terminal % set_window_height ( height ) end if end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_multiplot.f90.html"},{"title":"fplot_core_routines.f90 – FPLOT","text":"Source Code ! fplot_core_routines.f90 module fplot_core_routines use iso_fortran_env implicit none private public :: linspace public :: logspace public :: meshgrid contains ! ------------------------------------------------------------------------------ pure function linspace ( start , finish , npts ) result ( x ) !! Constructs a linearly spaced array. real ( real64 ), intent ( in ) :: start !! The first value in the array. real ( real64 ), intent ( in ) :: finish !! The last value in the array. integer ( int32 ), intent ( in ) :: npts !! The number of values in the array. real ( real64 ), allocatable , dimension (:) :: x !! The resulting array. ! Local Variables integer ( int32 ) :: i real ( real64 ) :: dx ! Process allocate ( x ( npts )) dx = ( finish - start ) / ( npts - 1.0d0 ) x ( 1 ) = start do i = 2 , npts x ( i ) = x ( i - 1 ) + dx end do end function ! ------------------------------------------------------------------------------ pure function logspace ( start , finish , npts ) result ( x ) !! Construcst a logarithmically spaced array. real ( real64 ), intent ( in ) :: start !! The exponent of the first value in the array. real ( real64 ), intent ( in ) :: finish !! The exponent of the final value in the array. integer ( int32 ), intent ( in ) :: npts !! The number of values in the array. real ( real64 ), allocatable , dimension (:) :: x !! The resulting array. ! Local Variables integer ( int32 ) :: i real ( real64 ) :: dx , exponent ! Process allocate ( x ( npts )) dx = ( finish - start ) / ( npts - 1.0d0 ) exponent = start do i = 1 , npts x ( i ) = 1.0d1 ** exponent exponent = exponent + dx end do end function ! ------------------------------------------------------------------------------ pure function meshgrid ( x , y ) result ( xy ) !! Constructs two matrices (X and Y) from x and y data arrays. real ( real64 ), intent ( in ), dimension (:) :: x !! An M-element array of x data points. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array of y data points. real ( real64 ), allocatable , dimension (:,:,:) :: xy !! An N-by-M-by-2 array containing the x data matrix on the first !! page of the array, and the y data matrix on the second page. ! Local Variables integer ( int32 ) :: i , nx , ny ! Process nx = size ( x ) ny = size ( y ) allocate ( xy ( ny , nx , 2 )) do i = 1 , ny xy ( i ,:, 1 ) = x end do do i = 1 , nx xy (:, i , 2 ) = y end do end function end module","tags":"","loc":"sourcefile\\fplot_core_routines.f90.html"},{"title":"fplot_plot_object.f90 – FPLOT","text":"Source Code module fplot_plot_object use iso_fortran_env implicit none type , abstract :: plot_object !! The base type for all plot objects. contains procedure ( get_string_result ), deferred , public :: get_command_string end type interface function get_string_result ( this ) result ( x ) !! Returns a string from a plot_object. import plot_object class ( plot_object ), intent ( in ) :: this !! The plot_object object. character ( len = :), allocatable :: x !! The result string. end function end interface end module","tags":"","loc":"sourcefile\\fplot_plot_object.f90.html"},{"title":"fplot_plot_data_error_bars.f90 – FPLOT","text":"Source Code ! fplot_plot_data_error_bars.f90 module fplot_plot_data_error_bars use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: plot_data_error_bars type , extends ( plot_data_colored ) :: plot_data_error_bars !! Defines a 2D error-bar based data set. logical , private :: m_xBars = . false . !! Display x error bars? logical , private :: m_yBars = . false . !! Display y error bars? real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! A matrix containing the raw and error data.  Column 1 is for the !! x coordinate, column 2 for the y coordinate, and the remaining !! columns are for the error data (x, then y if applicable). logical , private :: m_box = . false . !! Display an error box for the case where x and y errors are !! defined. logical , private :: m_range = . false . !! Plot error bars using a defined range vs. a +/- value. real ( real32 ), private :: m_lineWidth = 2.0 !! Line width contains procedure , public :: get_command_string => pde_get_cmd procedure , public :: get_data_string => pde_get_data_cmd generic , public :: define_x_error_data => pde_define_x_err , & pde_define_x_err_lim generic , public :: define_y_error_data => pde_define_y_err , & pde_define_y_err_lim generic , public :: define_xy_error_data => pde_define_xy_err , & pde_define_xy_err_lim procedure , public :: get_plot_x_error_bars => pde_get_plot_x_err procedure , public :: get_plot_y_error_bars => pde_get_plot_y_err procedure , public :: get_count => pde_get_count procedure , public :: get_use_error_box => pde_get_box procedure , public :: set_use_error_box => pde_set_box procedure , public :: get_use_range => pde_get_use_range procedure , public :: clear_data => pde_clear_data procedure :: pde_define_x_err procedure :: pde_define_y_err procedure :: pde_define_xy_err procedure :: pde_define_x_err_lim procedure :: pde_define_y_err_lim procedure :: pde_define_xy_err_lim procedure , public :: get_line_width => pde_get_line_width procedure , public :: set_line_width => pde_set_line_width end type contains ! ------------------------------------------------------------------------------ function pde_get_cmd ( this ) result ( cmd ) !! Gets the appropriate GNUPLOT command string for the object. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. character ( len = :), allocatable :: cmd !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Error Bars if ( this % get_plot_x_error_bars () . and . this % get_plot_y_error_bars ()) then if ( this % get_use_error_box ()) then call str % append ( \" w boxxyerr\" ) else call str % append ( \" w xyerr\" ) end if else if ( this % get_plot_x_error_bars () . and . . not . this % get_plot_y_error_bars ()) then call str % append ( \" w xerr\" ) else if (. not . this % get_plot_x_error_bars () . and . this % get_plot_y_error_bars ()) then call str % append ( \" w yerr\" ) end if ! Output cmd = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pde_get_data_cmd ( this ) result ( cmd ) !! Gets the appropriate GNUPLOT commands to plot the data itself. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. character ( len = :), allocatable :: cmd !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , n character :: delimiter , nl ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) n = this % get_count () ! Process if ( this % get_plot_x_error_bars () . and . this % get_plot_y_error_bars ()) then if ( this % get_use_range ()) then do i = 1 , n call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 4 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 5 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 6 ))) call str % append ( nl ) end do else do i = 1 , n call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 4 ))) call str % append ( nl ) end do end if else if ( this % get_use_range ()) then do i = 1 , n call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 4 ))) call str % append ( nl ) end do else do i = 1 , n call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( nl ) end do end if end if ! if (this%get_plot_x_error_bars() .and. this%get_plot_y_error_bars()) then !     do i = 1, n !         call str%append(to_string(this%m_data(i, 1))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 2))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 3))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 4))) !         call str%append(nl) !     end do ! else !     do i = 1, n !         call str%append(to_string(this%m_data(i, 1))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 2))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 3))) !         call str%append(nl) !     end do ! end if ! End cmd = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine pde_define_x_err ( this , x , y , xerr , err ) !! Defines the x error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: xerr !! An N-element array containing the x errors at each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_x_err\" , & \"y\" , n , size ( y )) return end if if ( size ( xerr ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_x_err\" , & \"xerr\" , n , size ( xerr )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 3 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_x_err\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = xerr ( i ) end do this % m_xBars = . true . this % m_range = . false . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_define_y_err ( this , x , y , yerr , err ) !! Defines the y error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: yerr !! An N-element array containing the y errors at each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_y_err\" , & \"y\" , n , size ( y )) return end if if ( size ( yerr ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_y_err\" , & \"yerr\" , n , size ( yerr )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 3 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_y_err\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = yerr ( i ) end do this % m_yBars = . true . this % m_range = . false . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_define_xy_err ( this , x , y , xerr , yerr , err ) !! Defines x and y error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: xerr !! An N-element array containing the x errors at each data point. real ( real64 ), intent ( in ), dimension (:) :: yerr !! An N-element array containing the y errors at each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_xy_err\" , & \"y\" , n , size ( y )) return end if if ( size ( xerr ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_xy_err\" , & \"xerr\" , n , size ( xerr )) return end if if ( size ( yerr ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_xy_err\" , & \"yerr\" , n , size ( yerr )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 4 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_xy_err\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = xerr ( i ) this % m_data ( i , 4 ) = yerr ( i ) end do this % m_xBars = . true . this % m_yBars = . true . this % m_range = . false . end subroutine ! ------------------------------------------------------------------------------ pure function pde_get_plot_x_err ( this ) result ( x ) !! Checks to see if the x error bar data has been defined, and as !! a result, if the x error data is to be plotted. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. logical :: x !! Returns true if the x error bars are to be plotted; else, false. x = this % m_xBars end function ! ------------------------------------------------------------------------------ pure function pde_get_plot_y_err ( this ) result ( x ) !! Checks to see if the y error bar data has been defined, and as !! a result, if the x error data is to be plotted. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. logical :: x !! Returns true if the y error bars are to be plotted; else, false. x = this % m_yBars end function ! ------------------------------------------------------------------------------ pure function pde_get_count ( this ) result ( x ) !! Gets the number of stored data points. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. integer ( int32 ) :: x !! The number of data points. if ( allocated ( this % m_data )) then x = size ( this % m_data , 1 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pde_get_box ( this ) result ( x ) !! Checks to see if the x and y error boxes should be utilized. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. logical :: x !! Returns true if the error boxes are to be plotted; else, !! false.  Notice, the error boxes are only utilized if there is !! both x and y error data defined, regardless of the value of this !! property. x = this % m_box end function ! -------------------- subroutine pde_set_box ( this , x ) !! Deterimines if the x and y error boxes should be utilized. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. logical , intent ( in ) :: x !! Set to true if the error boxes are to be plotted; else, !! false.  Notice, the error boxes are only utilized if there is !! both x and y error data defined, regardless of the value of this !! property. this % m_box = x end subroutine ! ------------------------------------------------------------------------------ pure function pde_get_use_range ( this ) result ( x ) !! Gets a value determining if a defined range is being used !! to define the error bar extremes. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. logical :: x !! True if a defined range is being used; else, false. x = this % m_range end function ! ------------------------------------------------------------------------------ subroutine pde_define_x_err_lim ( this , x , y , xmin , xmax , err ) !! Defines the x error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: xmin !! An N-element array containing the minimum x values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: xmax !! An N-element array containing the maximum x values at each data !! point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_x_err_lim\" , \"y\" , n , size ( y )) return end if if ( size ( xmin ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_x_err_lim\" , \"xmin\" , n , size ( xmin )) return end if if ( size ( xmax ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_x_err_lim\" , \"xmax\" , n , size ( xmax )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 4 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_x_err_lim\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = xmin ( i ) this % m_data ( i , 4 ) = xmax ( i ) end do this % m_xBars = . true . this % m_range = . true . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_define_y_err_lim ( this , x , y , ymin , ymax , err ) !! Defines the y error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: ymin !! An N-element array containing the minimum y values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: ymax !! An N-element array containing the maximum y values at each data !! point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_y_err_lim\" , \"y\" , n , size ( y )) return end if if ( size ( ymin ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_y_err_lim\" , \"ymin\" , n , size ( ymin )) return end if if ( size ( ymax ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_y_err_lim\" , \"ymax\" , n , size ( ymax )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 4 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_y_err_lim\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = ymin ( i ) this % m_data ( i , 4 ) = ymax ( i ) end do this % m_yBars = . true . this % m_range = . true . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_define_xy_err_lim ( this , x , y , xmin , xmax , ymin , & ymax , err ) !! Defines the x and y error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: xmin !! An N-element array containing the minimum x values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: xmax !! An N-element array containing the maximum x values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: ymin !! An N-element array containing the minimum y values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: ymax !! An N-element array containing the maximum x values at each data !! point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"y\" , n , size ( y )) return end if if ( size ( xmin ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"xmin\" , n , size ( xmin )) return end if if ( size ( xmax ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"xmax\" , n , size ( xmax )) return end if if ( size ( ymin ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"ymin\" , n , size ( ymin )) return end if if ( size ( ymax ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"ymax\" , n , size ( ymax )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 6 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_xy_err_lim\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = xmin ( i ) this % m_data ( i , 4 ) = xmax ( i ) this % m_data ( i , 5 ) = ymin ( i ) this % m_data ( i , 6 ) = ymax ( i ) end do this % m_xBars = . true . this % m_yBars = . true . this % m_range = . true . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ pure function pde_get_line_width ( this ) result ( x ) !! Gets the line width. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. real ( real32 ) :: x !! The line width. x = this % m_lineWidth end function ! -------------------- subroutine pde_set_line_width ( this , x ) !! Sets the line width. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_lineWidth = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_error_bars.f90.html"},{"title":"fplot_colormap.f90 – FPLOT","text":"Source Code ! fplot_colormap.f90 module fplot_colormap use iso_fortran_env use fplot_plot_object use strings use fplot_errors use fplot_colors use forcolormap , cmap => Colormap ! avoid conflict with the internally defined colormap type implicit none private public :: cmap public :: colormap public :: cm_get_string_result public :: rainbow_colormap public :: hot_colormap public :: cool_colormap public :: parula_colormap public :: grey_colormap public :: earth_colormap public :: custom_colormap type , abstract , extends ( plot_object ) :: colormap !! A colormap object for a surface plot. character ( len = :), private , allocatable :: m_label !! The label to associate with the colormap. logical , private :: m_horizontal = . false . !! The colormap should be drawn horizontally. logical , private :: m_drawBorder = . true . !! Draw the colormap border. logical , private :: m_showTics = . true . !! Show the tic marks. contains procedure , public :: get_command_string => cm_get_cmd procedure ( cm_get_string_result ), deferred , public :: get_color_string procedure , public :: get_label => cm_get_label procedure , public :: set_label => cm_set_label procedure , public :: get_horizontal => cm_get_horizontal procedure , public :: set_horizontal => cm_set_horizontal procedure , public :: get_draw_border => cm_get_draw_border procedure , public :: set_draw_border => cm_set_draw_border procedure , public :: get_show_tics => cm_get_show_tics procedure , public :: set_show_tics => cm_set_show_tics end type interface function cm_get_string_result ( this ) result ( x ) !! Retrieves a string result from a colormap object. import colormap class ( colormap ), intent ( in ) :: this !! The colormap object. character ( len = :), allocatable :: x !! The string. end function end interface ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: rainbow_colormap !! Defines a rainbow colormap. contains procedure , public :: get_color_string => rcm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: hot_colormap !! Defines a colormap consisting of \"hot\" colors. contains procedure , public :: get_color_string => hcm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: cool_colormap !! Defines a colormap consisting of \"cool\" colors. contains procedure , public :: get_color_string => ccm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: parula_colormap !! Defines a colormap equivalent to the MATLAB parula colormap. contains procedure , public :: get_color_string => pcm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: grey_colormap !! Defines a grey-scaled colormap. contains procedure , public :: get_color_string => gcm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: earth_colormap !! Defines an earthy-colored colormap. contains procedure , public :: get_color_string => ecm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: custom_colormap !! Defines a custom colormap that utilizes the FORCOLORMAP library !! to provide the map. class ( cmap ), private , pointer :: m_map => null () !! The FORCOLORMAP object. contains final :: custom_final procedure , public :: get_color_string => custom_get_clr procedure , public :: set_colormap => custom_set procedure , public :: get_colormap => custom_get end type ! ------------------------------------------------------------------------------ contains ! ****************************************************************************** ! COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function cm_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this colormap object. class ( colormap ), intent ( in ) :: this !! The colormap object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str ! Initialization call str % initialize () ! Palette Definition call str % append ( \"set palette defined (\" ) call str % append ( this % get_color_string ()) call str % append ( \")\" ) if ( len ( this % get_label ()) > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( 'set cblabel \"' ) call str % append ( this % get_label ()) call str % append ( '\"' ) end if ! Orientation if ( this % get_horizontal ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set colorbox horizontal\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set size 0.8,0.8; set origin 0.1,0.2\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set colorbox user origin 0.1,0.175 size 0.8,0.055\" ) if ( len ( this % get_label ()) > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set cblabel offset 0,0.8\" ) end if end if ! Border & Tic Marks if (. not . this % get_draw_border ()) then ! Eliminate the border call str % append ( new_line ( 'a' )) call str % append ( \"set colorbox noborder\" ) ! Hide the tic marks call str % append ( new_line ( 'a' )) call str % append ( \"set cbtic scale 0\" ) else ! Respect the tic mark visibility setting if the border is shown if (. not . this % get_show_tics ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set cbtic scale 0\" ) end if end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function cm_get_label ( this ) result ( rst ) !! Gets the label to associate with the colorbar. class ( colormap ), intent ( in ) :: this !! The colormap object. character ( len = :), allocatable :: rst !! The label. if ( allocated ( this % m_label )) then rst = this % m_label else rst = \"\" end if end function ! -------------------- subroutine cm_set_label ( this , x ) !! Sets the label to associate with the colorbar. class ( colormap ), intent ( inout ) :: this !! The colormap object. character ( len = * ), intent ( in ) :: x !! The label. this % m_label = x end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_horizontal ( this ) result ( rst ) !! Gets a logical value determining if the colormap should be !! drawn horizontally and below the plot. class ( colormap ), intent ( in ) :: this !! The colormap object. logical :: rst !! Returns true if the colormap should be drawn horizontally; !! else, false. rst = this % m_horizontal end function ! -------------------- subroutine cm_set_horizontal ( this , x ) !! Sets a logical value determining if the colormap should be !! drawn horizontally and below the plot. class ( colormap ), intent ( inout ) :: this !! The colormap object. logical , intent ( in ) :: x !! Set to true if the colormap should be drawn horizontally; !! else, false. this % m_horizontal = x end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_draw_border ( this ) result ( rst ) !! Gets a logical value determining if the border should be drawn. class ( colormap ), intent ( in ) :: this !! The colormap object. logical :: rst !! Returns true if the border should be drawn; else, false. rst = this % m_drawBorder end function ! -------------------- subroutine cm_set_draw_border ( this , x ) !! Sets a logical value determining if the border should be drawn. class ( colormap ), intent ( inout ) :: this !! The colormap object. logical , intent ( in ) :: x !! Set to true if the border should be drawn; else, false. this % m_drawBorder = x end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_show_tics ( this ) result ( rst ) !! Gets a logical value determining if the tic marks should be drawn. class ( colormap ), intent ( in ) :: this !! The colormap object. logical :: rst !! Returns true if the tic marks should be drawn; else, false. rst = this % m_showTics end function ! -------------------- subroutine cm_set_show_tics ( this , x ) !! Sets a logical value determining if the tic marks should be drawn. class ( colormap ), intent ( inout ) :: this !! The colormap object. logical , intent ( in ) :: x !! Set to true if the tic marks should be drawn; else, false. this % m_showTics = x end subroutine ! ------------------------------------------------------------------------------ ! TO DO: !   - Set user-defined tic labels & limits (ref: http://gnuplot.sourceforge.net/demo_5.4/cerf.html) ! ****************************************************************************** ! RAINBOW_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function rcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( rainbow_colormap ), intent ( in ) :: this !! The rainbow_colormap object. character ( len = :), allocatable :: x !! The command string. x = '0 \"dark-blue\", 1 \"blue\", 2 \"cyan\", 3 \"green\", 4 \"yellow\", ' // & '5 \"orange\", 6 \"red\", 7 \"dark-red\"' end function ! ****************************************************************************** ! HOT_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function hcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( hot_colormap ), intent ( in ) :: this !! The hot_colormap object. character ( len = :), allocatable :: x !! The command string. x = '0 \"black\", 1 \"red\", 2 \"orange\", 3 \"yellow\", 4 \"white\"' end function ! ****************************************************************************** ! COOL_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function ccm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( cool_colormap ), intent ( in ) :: this !! The cool_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#08589E',\" ) call str % append ( \"1 '#2B8CBE',\" ) call str % append ( \"2 '#4EB3D3',\" ) call str % append ( \"3 '#7BCCC4',\" ) call str % append ( \"4 '#A8DDB5',\" ) call str % append ( \"5 '#CCEBC5',\" ) call str % append ( \"6 '#E0F3DB',\" ) call str % append ( \"7 '#F7FCF0'\" ) x = char ( str % to_string ()) ! x = '0 \"blue\", 1 \"turquoise\", 2 \"light-green\"' end function ! ****************************************************************************** ! PARULA_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function pcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( parula_colormap ), intent ( in ) :: this !! The parula_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#352a87',\" ) call str % append ( \"1 '#0363e1',\" ) call str % append ( \"2 '#1485d4',\" ) call str % append ( \"3 '#06a7c6',\" ) call str % append ( \"4 '#38b99e',\" ) call str % append ( \"5 '#92bf73',\" ) call str % append ( \"6 '#d9ba56',\" ) call str % append ( \"7 '#fcce2e',\" ) call str % append ( \"8 '#f9fb0e'\" ) x = char ( str % to_string ()) end function ! ****************************************************************************** ! GREY_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function gcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( grey_colormap ), intent ( in ) :: this !! The grey_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#FFFFFF',\" ) call str % append ( \"1 '#F0F0F0',\" ) call str % append ( \"2 '#D9D9D9',\" ) call str % append ( \"3 '#BDBDBD',\" ) call str % append ( \"4 '#969696',\" ) call str % append ( \"5 '#737373',\" ) call str % append ( \"6 '#525252',\" ) call str % append ( \"7 '#252525'\" ) x = char ( str % to_string ()) end function ! ****************************************************************************** ! EARTH_COLORMAP ! ------------------------------------------------------------------------------ function ecm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( earth_colormap ), intent ( in ) :: this !! The earth_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#8C510A',\" ) call str % append ( \"1 '#BF812D',\" ) call str % append ( \"2 '#DFC27D',\" ) call str % append ( \"3 '#F6E8C3',\" ) call str % append ( \"4 '#D9F0D3',\" ) call str % append ( \"5 '#A6DBA0',\" ) call str % append ( \"6 '#5AAE61',\" ) call str % append ( \"7 '#1B7837'\" ) x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ ! Additional Color Maps: ! https://github.com/Gnuplotting/gnuplot-palettes ! ****************************************************************************** ! ADDED: Jan. 08, 2024 - JAC ! CUSTOM_COLORMAP ! ------------------------------------------------------------------------------ function custom_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( custom_colormap ), intent ( in ) :: this !! The custom_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str integer ( int32 ) :: i , n , r , g , b , c character ( len = 6 ) :: ctxt if (. not . associated ( this % m_map )) then allocate ( character ( len = 0 ) :: x ) return end if n = this % m_map % get_levels () do i = 0 , n - 1 ! Get the RGB triple call this % m_map % get_RGB ( i , r , g , b ) c = ishft ( r , 16 ) + ishft ( g , 8 ) + b write ( ctxt , '(Z6.6)' ) c ! Append the color information call str % append ( to_string ( i )) call str % append ( \" '#\" ) call str % append ( ctxt ) call str % append ( \"'\" ) if ( i /= n - 1 ) then call str % append ( \",\" ) end if end do x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine custom_set ( this , map , err ) !! Sets the FORCOLORMAP colormap object. class ( custom_colormap ), intent ( inout ) :: this !! The custom_colormap object. class ( cmap ), intent ( in ) :: map !! The FORCOLORMAP colormap object.  The custom_colormap object !! stores a copy of this object; therefore, any changes made to !! x after calls to this routine will not impact the behavior of !! the custom_colormap object. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Process if ( associated ( this % m_map )) deallocate ( this % m_map ) allocate ( this % m_map , source = map , stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"custom_set\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function custom_get ( this ) result ( rst ) !! Gets a pointer to the FORCOLORMAP colormap object. class ( custom_colormap ), intent ( in ) :: this !! The custom_colormap object. class ( cmap ), pointer :: rst !! A pointer to the FORCOLORMAP colormap object. rst => this % m_map end function ! ------------------------------------------------------------------------------ subroutine custom_final ( this ) type ( custom_colormap ), intent ( inout ) :: this !! The custom_colormap object. if ( associated ( this % m_map )) then deallocate ( this % m_map ) nullify ( this % m_map ) end if end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_colormap.f90.html"},{"title":"fplot_svg_terminal.f90 – FPLOT","text":"Source Code module fplot_svg_terminal use iso_fortran_env use fplot_terminal use fplot_constants use strings implicit none private public :: svg_terminal type , extends ( file_terminal ) :: svg_terminal !! An SVG terminal. character ( len = 47 ), private :: m_id = 'svg enhanced background \"white\" dynamic mousing' !! The terminal ID string contains procedure , public :: get_id_string => svg_get_term_string end type contains ! ------------------------------------------------------------------------------ function svg_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( svg_terminal ), intent ( in ) :: this !! The svg_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_svg_terminal.f90.html"},{"title":"fplot_delaunay_tri_surface.f90 – FPLOT","text":"Source Code ! fplot_delaunay_tri_surface.f90 module fplot_delaunay_tri_surface use iso_fortran_env use ieee_arithmetic use fplot_triangulations_delaunay_2d use fplot_errors implicit none private public :: delaunay_tri_surface type , extends ( delaunay_tri_2d ) :: delaunay_tri_surface !! Provides a type describing a triangulated surface. real ( real64 ), private , allocatable , dimension (:) :: m_z !! An array of the z-coordinates of each point. contains procedure , public :: define_function_values => dts_define_fcn procedure , public :: get_points_z => dts_get_z generic , public :: evaluate => dts_interp_1 , dts_interp_2 procedure , private :: dts_interp_1 procedure , private :: dts_interp_2 end type contains ! ------------------------------------------------------------------------------ subroutine dts_define_fcn ( this , z , err ) !! Defines the function values that correspond to the x and y !! data points. class ( delaunay_tri_surface ), intent ( inout ) :: this !! The delaunay_tri_surface object. real ( real64 ), intent ( in ), dimension (:) :: z !! An N-element array containing the function values for !! each x and y coordinate.  Notice, the x and y coordinates must !! already be defined prior to calling this routine. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = this % get_point_count () ! Input Check if ( n == 0 ) then call errmgr % report_error ( \"dts_define_fcn\" , & \"No x-y coordinates have been defined.\" , & PLOT_INVALID_OPERATION_ERROR ) return end if if ( size ( z ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"dts_define_fcn\" , & \"z\" , n , size ( z )) return end if ! Store the data if ( allocated ( this % m_z )) deallocate ( this % m_z ) allocate ( this % m_z ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"dts_define_fcn\" , flag ) return end if this % m_z = z end subroutine ! ------------------------------------------------------------------------------ pure function dts_get_z ( this ) result ( rst ) !! Gets the z-coordinates of each point. class ( delaunay_tri_surface ), intent ( in ) :: this !! The delaunay_tri_surface object. real ( real64 ), allocatable , dimension (:) :: rst !! An array of the z-coordinates of each point. if ( allocated ( this % m_z )) then rst = this % m_z else allocate ( rst ( 0 )) end if end function ! ------------------------------------------------------------------------------ ! Interpolation Routine - Barycentric Coordinate Approach ! https://www.iue.tuwien.ac.at/phd/nentchev/node25.html ! https://academic.csuohio.edu/duffy_s/CVE_512_11.pdf pure function dts_interp_1 ( this , x , y ) result ( z ) !! Evaluates the function at the requested point by means of !! linear interpolation. class ( delaunay_tri_surface ), intent ( in ) :: this !! The delaunay_tri_surface object. real ( real64 ), intent ( in ) :: x !! The x-coordinate at which to evaluate the function. real ( real64 ), intent ( in ) :: y !! The y-coordinate at which to evaluate the function. real ( real64 ) :: z !! The function value.  If the point (x, y) does not lie within the !! range of defined values, then a value of NaN is returned. ! Local Variables integer ( int32 ) :: i , n1 , n2 , n3 real ( real64 ) :: x1 , x2 , x3 , y1 , y2 , y3 , z1 , z2 , z3 integer ( int32 ), allocatable , dimension (:,:) :: indices real ( real64 ), allocatable , dimension (:) :: xc , yc , zc ! Initialization z = ieee_value ( z , ieee_quiet_nan ) indices = this % get_indices () xc = this % get_points_x () yc = this % get_points_y () zc = this % get_points_z () ! Quick Return if ( this % get_triangle_count () == 0 . or . & this % get_point_count () == 0 . or . & size ( zc ) == 0 ) return ! Locate the triangle to which the point (x, y) belongs.  If no triangle ! is found, simply return NaN i = this % find_triangle ( x , y ) if ( i == - 1 ) return ! Get the triangle vertices n1 = indices ( i , 1 ) n2 = indices ( i , 2 ) n3 = indices ( i , 3 ) x1 = xc ( n1 ) y1 = yc ( n1 ) z1 = zc ( n1 ) x2 = xc ( n2 ) y2 = yc ( n2 ) z2 = zc ( n2 ) x3 = xc ( n3 ) y3 = yc ( n3 ) z3 = zc ( n3 ) ! Perform the interpolation z = linear_interp ( x1 , y1 , z1 , x2 , y2 , z2 , x3 , y3 , z3 , x , y ) end function ! -------------------- pure function dts_interp_2 ( this , x , y ) result ( z ) !! Evaluates the function at the requested point by means of !! linear interpolation. class ( delaunay_tri_surface ), intent ( in ) :: this !! The delaunay_tri_surface object. real ( real64 ), intent ( in ), dimension (:) :: x !! The x data coordinates. real ( real64 ), intent ( in ), dimension (:) :: y !! The x data coordinates. real ( real64 ), allocatable , dimension (:) :: z !! The interpolated z coordinate points.  If the point (x, y) does !! not lie within the range of defined values, then a value of NaN !! is returned. ! Local Variables integer ( int32 ) :: i , j , n1 , n2 , n3 , nxy real ( real64 ) :: x1 , x2 , x3 , y1 , y2 , y3 , z1 , z2 , z3 , nan integer ( int32 ), allocatable , dimension (:,:) :: indices real ( real64 ), allocatable , dimension (:) :: xc , yc , zc ! Initialization nxy = min ( size ( x ), size ( y )) nan = ieee_value ( nan , ieee_quiet_nan ) allocate ( z ( nxy )) z = nan indices = this % get_indices () xc = this % get_points_x () yc = this % get_points_y () zc = this % get_points_z () ! Quick Return if ( this % get_triangle_count () == 0 . or . & this % get_point_count () == 0 . or . & size ( zc ) == 0 ) return ! Locate the triangle to which the point (x, y) belongs.  If no triangle ! is found, simply return NaN do i = 1 , nxy ! Find the index of the triangle j = this % find_triangle ( x ( i ), y ( i )) if ( j == - 1 ) cycle ! Skip if we couldn't find a triangle ! Get the vertices n1 = indices ( j , 1 ) n2 = indices ( j , 2 ) n3 = indices ( j , 3 ) x1 = xc ( n1 ) y1 = yc ( n1 ) z1 = zc ( n1 ) x2 = xc ( n2 ) y2 = yc ( n2 ) z2 = zc ( n2 ) x3 = xc ( n3 ) y3 = yc ( n3 ) z3 = zc ( n3 ) ! Perform the interpolation z ( i ) = linear_interp ( x1 , y1 , z1 , x2 , y2 , z2 , x3 , y3 , z3 , x ( i ), y ( i )) end do end function ! ------------------------------------------------------------------------------ ! Utilizes linear shape functions to interpolate on a triangle given its ! vertex locations, and the desired interpolation location.  Notice, the ! interpolation location is expected to lie within the triangle.  This is ! not checked. pure elemental function linear_interp ( x1 , y1 , z1 , x2 , y2 , z2 , x3 , & y3 , z3 , x , y ) result ( z ) real ( real64 ), intent ( in ) :: x1 , y1 , z1 , x2 , y2 , z2 , x3 , y3 , z3 , x , y real ( real64 ) :: a1 , a2 , a3 , j , z j = ( x2 - x1 ) * y3 + ( x1 - x3 ) * y2 + ( x3 - x2 ) * y1 a1 = ( x2 * y3 - x3 * y2 + ( y2 - y3 ) * x + ( x3 - x2 ) * y ) a2 = ( x3 * y1 - x1 * y3 + ( y3 - y1 ) * x + ( x1 - x3 ) * y ) a3 = ( x1 * y2 - x2 * y1 + ( y1 - y2 ) * x + ( x2 - x1 ) * y ) z = ( a1 * z1 + a2 * z2 + a3 * z3 ) / j end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_delaunay_tri_surface.f90.html"},{"title":"fplot_arrow.f90 – FPLOT","text":"Source Code module fplot_arrow use iso_fortran_env use fplot_plot_object use fplot_colors use fplot_constants use strings implicit none private public :: plot_arrow type , extends ( plot_object ) :: plot_arrow !! Defines an arrow that can be drawn on a plot. logical , private :: m_visible = . true . !! Visible? real ( real32 ), private , dimension ( 3 ) :: m_tail = [ 0.0 , 0.0 , 0.0 ] !! The x, y, z coordinates of the tail. real ( real32 ), private , dimension ( 3 ) :: m_head = [ 0.0 , 0.0 , 0.0 ] !! The x, y, z coordinates of the head. type ( color ), private :: m_color = CLR_BLACK !! The arrow color. integer ( int32 ), private :: m_linestyle = LINE_SOLID !! The line style. real ( real32 ), private :: m_linewidth = 1.5 !! The line width. integer ( int32 ), private :: m_head_type = ARROW_HEAD !! The head configuration. integer ( int32 ), private :: m_filling = ARROW_FILLED !! Arrow filling. logical , private :: m_front = . true . !! Move to front? real ( real32 ), private :: m_size = 0.375 !! Arrow head size. real ( real32 ), private :: m_angle = 1 0.0 !! Arrow head angle. real ( real32 ), private :: m_backangle = 9 0.0 !! Arrow head back angle. logical , private :: m_use_default_size = . true . !! Use default head size. contains procedure , public :: get_is_visible => par_get_is_visible procedure , public :: set_is_visible => par_set_is_visible procedure , public :: get_tail_location => par_get_tail generic , public :: set_tail_location => par_set_tail_1 , & par_set_tail_2 , par_set_tail_3 procedure , private :: par_set_tail_1 procedure , private :: par_set_tail_2 procedure , private :: par_set_tail_3 procedure , public :: get_head_location => par_get_head generic , public :: set_head_location => par_set_head_1 , & par_set_head_2 , par_set_head_3 procedure , private :: par_set_head_1 procedure , private :: par_set_head_2 procedure , private :: par_set_head_3 procedure , public :: get_color => par_get_color procedure , public :: set_color => par_set_color procedure , public :: get_line_style => par_get_line_style procedure , public :: set_line_style => par_set_line_style procedure , public :: get_line_width => par_get_line_width procedure , public :: set_line_width => par_set_line_width procedure , public :: get_head_type => par_get_head_type procedure , public :: set_head_type => par_set_head_type procedure , public :: get_head_fill => par_get_fill procedure , public :: set_head_fill => par_set_fill procedure , public :: get_move_to_front => par_get_move_to_front procedure , public :: set_move_to_front => par_set_move_to_front procedure , public :: get_head_size => par_get_head_size procedure , public :: set_head_size => par_set_head_size procedure , public :: get_head_angle => par_get_head_angle procedure , public :: set_head_angle => par_set_head_angle procedure , public :: get_head_back_angle => par_get_head_back_angle procedure , public :: set_head_back_angle => par_set_head_back_angle procedure , public :: get_use_default_size => par_get_use_default_size procedure , public :: set_use_default_size => par_set_use_default_size procedure , public :: get_command_string => par_get_cmd end type contains ! ------------------------------------------------------------------------------ pure function par_get_is_visible ( this ) result ( rst ) !! Gets a value determining if the arrow is visible. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. logical :: rst !! True if the arrow is visible; else, false. rst = this % m_visible end function ! -------------------- subroutine par_set_is_visible ( this , x ) !! Sets a value determining if the arrow is visible. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. logical , intent ( in ) :: x !! True if the arrow is visible; else, false. this % m_visible = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_tail ( this ) result ( rst ) !! Gets the coordinates of the arrow's tail. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ), dimension ( 3 ) :: rst !! A 3-element array containing the x, y, and z coordinates of the !! arrow's tail. rst = this % m_tail end function ! -------------------- subroutine par_set_tail_1 ( this , x ) !! Sets the coordinates of the arrow's tail. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x ( 3 ) !! A 3-element array containing the x, y, and z coordinates of the !! arrow's tail. this % m_tail = x end subroutine ! -------------------- subroutine par_set_tail_2 ( this , x , y ) !! Sets the coordinates of the arrow's tail. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The x-coordinate of the arrow's tail. real ( real32 ), intent ( in ) :: y !! !! The y-coordinate of the arrow's tail. this % m_tail = [ x , y , 0.0 ] end subroutine ! -------------------- subroutine par_set_tail_3 ( this , x , y , z ) !! Sets the coordinates of the arrow's tail. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The x-coordinate of the arrow's tail. real ( real32 ), intent ( in ) :: y !! The y-coordinate of the arrow's tail. real ( real32 ), intent ( in ) :: z !! The z-coordinate of the arrow's tail. this % m_tail = [ x , y , z ] end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head ( this ) result ( rst ) !! Gets the coordinates of the arrow's head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ), dimension ( 3 ) :: rst !! A 3-element array containing the x, y, and z coordinates of the !! arrow's head. rst = this % m_head end function ! -------------------- subroutine par_set_head_1 ( this , x ) !! Sets the location of the arrow's head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x ( 3 ) !! A 3-element array containing the x, y, and z coordinates of the !! arrow's head. this % m_head = x end subroutine ! -------------------- subroutine par_set_head_2 ( this , x , y ) !! Sets the location of the arrow's head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The x-coordinate of the arrow's head. real ( real32 ), intent ( in ) :: y !! The y-coordinate of the arrow's head. this % m_head = [ x , y , 0.0 ] end subroutine ! -------------------- subroutine par_set_head_3 ( this , x , y , z ) !! Sets the location of the arrow's head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The x-coordinate of the arrow's head. real ( real32 ), intent ( in ) :: y !! The y-coordinate of the arrow's head. real ( real32 ), intent ( in ) :: z !! The z-coordinate of the arrow's head. this % m_head = [ x , y , z ] end subroutine ! ------------------------------------------------------------------------------ pure function par_get_color ( this ) result ( rst ) !! Gets the color of the arrow. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. type ( color ) :: rst !! The color. rst = this % m_color end function ! -------------------- subroutine par_set_color ( this , x ) !! Sets the color of the arrow. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. type ( color ), intent ( in ) :: x !! The color. this % m_color = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_line_style ( this ) result ( rst ) !! Gets the line style used to draw the arrow. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. integer ( int32 ) :: rst !! The line style. rst = this % m_linestyle end function ! -------------------- subroutine par_set_line_style ( this , x ) !! Sets the line style used to draw the arrow. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. integer ( int32 ), intent ( in ) :: x !! The line style.  The value must be one of the following. !! !!  - LINE_SOLID !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !! If the value is not one of the above, the command is ignored. if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_linestyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function par_get_line_width ( this ) result ( rst ) !! Gets the width of the lines used to draw the arrow. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ) :: rst !! The width of the line. rst = this % m_linewidth end function ! -------------------- subroutine par_set_line_width ( this , x ) !! Sets the width of the lines used to draw the arrow. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The width of the line. this % m_linewidth = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head_type ( this ) result ( rst ) !! Gets the type of arrow head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. integer ( int32 ) :: rst !! The arrow head type. rst = this % m_head_type end function ! -------------------- subroutine par_set_head_type ( this , x ) !! Sets the type of arrow head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. integer ( int32 ), intent ( in ) :: x !! The arrow head type.  It must be one of the following constants. !! !! - ARROW_HEAD !! !! - ARROW_BACKHEAD !! !! - ARROW_HEADS !! !! - ARROW_NO_HEAD !! !! If the value is not one of the above, the command is ignored. if ( x == ARROW_BACKHEAD . or . & x == ARROW_HEAD . or . & x == ARROW_HEADS . or . & x == ARROW_NO_HEAD & ) then this % m_head_type = x end if end subroutine ! ------------------------------------------------------------------------------ pure function par_get_fill ( this ) result ( rst ) !! Gets a flag denoting the head fill type. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. integer ( int32 ) :: rst !! The flag denoting head fill. rst = this % m_filling end function ! -------------------- subroutine par_set_fill ( this , x ) !! Sets a flag denoting the head fill type. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. integer ( int32 ), intent ( in ) :: x !! The flag denoting head fill.  It must be one of the following !! constants. !! !! - ARROW_FILLED !! !! - ARROW_EMPTY !! !! - ARROW_NO_BORDER !! !! - ARROW_NO_FILL !! !! If the value is not one of the above, the command is ignored. if ( x == ARROW_FILLED . or . & x == ARROW_EMPTY . or . & x == ARROW_NO_BORDER . or . & x == ARROW_NO_FILL & ) then this % m_filling = x end if end subroutine ! ------------------------------------------------------------------------------ pure function par_get_move_to_front ( this ) result ( rst ) !! Gets a value determining if the arrow should be moved to the front. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. logical :: rst !! True if the arrow should be moved to the front; else, false. rst = this % m_front end function ! -------------------- subroutine par_set_move_to_front ( this , x ) !! Sets a value determining if the arrow should be moved to the front. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. logical , intent ( in ) :: x !! True if the arrow should be moved to the front; else, false. this % m_front = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head_size ( this ) result ( rst ) !! Gets the size of the arrow head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ) :: rst !! The head size. rst = this % m_size end function ! -------------------- subroutine par_set_head_size ( this , x ) !! Sets the size of the arrow head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The head size. this % m_size = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head_angle ( this ) result ( rst ) !! Gets the angle of the arrow head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ) :: rst !! The angle, in degrees. rst = this % m_angle end function ! -------------------- subroutine par_set_head_angle ( this , x ) !! Sets the angle of the arrow head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The angle, in degrees. this % m_angle = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head_back_angle ( this ) result ( rst ) !! Gets the angle of the back of the arrow head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ) :: rst !! The angle, in degrees. rst = this % m_backangle end function ! -------------------- subroutine par_set_head_back_angle ( this , x ) !! Sets the angle of the back of the arrow head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The angle, in degrees. this % m_backangle = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_use_default_size ( this ) result ( rst ) !! Gets a value determining if arrow head sizing defaults should be used. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. logical :: rst !! True if the defaults should be used; else, false. rst = this % m_use_default_size end function ! -------------------- subroutine par_set_use_default_size ( this , x ) !! Sets a value determining if arrow head sizing defaults should be used. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. logical , intent ( in ) :: x !! True if the defaults should be used; else, false. this % m_use_default_size = x end subroutine ! ------------------------------------------------------------------------------ function par_get_cmd ( this ) result ( rst ) !! Returns the appropriate GNUPLOT command string to establish appropriate !! parameters. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. character ( len = :), allocatable :: rst !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str type ( color ) :: clr real ( real32 ) :: tail ( 3 ), head ( 3 ) ! Quick Return if (. not . this % get_is_visible ()) then rst = \"\" return end if ! Command call str % append ( \"set arrow\" ) ! Position Info tail = this % get_tail_location () head = this % get_head_location () call str % append ( \" from \" ) call str % append ( to_string ( tail ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( tail ( 2 ))) call str % append ( \",\" ) call str % append ( to_string ( tail ( 3 ))) call str % append ( \" to \" ) call str % append ( to_string ( head ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( head ( 2 ))) call str % append ( \",\" ) call str % append ( to_string ( head ( 3 ))) ! Head Type select case ( this % get_head_type ()) case ( ARROW_BACKHEAD ) call str % append ( \" backhead\" ) case ( ARROW_HEAD ) call str % append ( \" head\" ) case ( ARROW_HEADS ) call str % append ( \" heads\" ) case ( ARROW_NO_HEAD ) call str % append ( \" nohead\" ) end select if ( this % get_head_type () /= ARROW_NO_HEAD ) then ! Fill Info select case ( this % get_head_fill ()) case ( ARROW_FILLED ) call str % append ( \" filled\" ) case ( ARROW_EMPTY ) call str % append ( \" empty\" ) case ( ARROW_NO_BORDER ) call str % append ( \" noborder\" ) case ( ARROW_NO_FILL ) call str % append ( \" nofilled\" ) end select ! Size if (. not . this % get_use_default_size ()) then call str % append ( \" size \" ) call str % append ( to_string ( this % get_head_size ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_head_angle ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_head_back_angle ())) end if end if ! Front/Back if ( this % get_move_to_front ()) then call str % append ( \" front\" ) else call str % append ( \" back\" ) end if ! Line Color clr = this % get_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Line Style call str % append ( \" lt \" ) call str % append ( to_string ( this % get_line_style ())) if ( this % get_line_style () /= LINE_SOLID ) then call str % append ( \" dashtype \" ) call str % append ( to_string ( this % get_line_style ())) end if ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ ! pure subroutine par_assign(x, y) !     type(plot_arrow), intent(out) :: x !     class(plot_arrow), intent(in) :: y !     x%m_visible = y%m_visible !     x%m_tail = y%m_tail !     x%m_head = y%m_head !     x%m_color = y%m_color !     x%m_linestyle = y%m_linestyle !     x%m_linewidth = y%m_linewidth !     x%m_head_type = y%m_head_type !     x%m_filling = y%m_filling !     x%m_front = y%m_front !     x%m_size = y%m_size !     x%m_angle = y%m_angle !     x%m_backangle = y%m_backangle !     x%m_use_default_size = y%m_use_default_size ! end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_arrow.f90.html"},{"title":"fplot_stats_plots.f90 – FPLOT","text":"Source Code module fplot_stats_plots use iso_fortran_env use fplot_plot_object use fplot_plot use fplot_plot_data_2d use fplot_plot_data_histogram use fplot_plot_2d use fplot_multiplot use fplot_terminal use fplot_constants use fplot_errors use fplot_colors use fplot_plot_axis use collections use strings implicit none private public :: correlation_plot type , extends ( plot_object ) :: correlation_plot !! Defines a multiplot arrangement designed to illustrate correlation !! between data sets. type ( multiplot ), private :: m_plt !! The multiplot object. contains procedure , public :: get_command_string => cp_get_command procedure , public :: initialize => cp_init procedure , public :: get_row_count => cp_get_rows procedure , public :: get_column_count => cp_get_cols procedure , public :: get_plot_count => cp_get_count procedure , public :: draw => cp_draw procedure , public :: save_file => cp_save procedure , public :: get => cp_get procedure , public :: get_terminal => cp_get_term procedure , public :: get_font_name => cp_get_font procedure , public :: set_font_name => cp_set_font procedure , public :: get_font_size => cp_get_font_size procedure , public :: set_font_size => cp_set_font_size end type contains ! ------------------------------------------------------------------------------ function cp_get_command ( this ) result ( x ) !! Gets the GNUPLOT commands for this object. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. character ( len = :), allocatable :: x !! The command string. end function ! ------------------------------------------------------------------------------ subroutine cp_init ( this , x , labels , term , width , height , err ) !! Initializes the correlation_plot object. class ( correlation_plot ), intent ( inout ) :: this !! The correlation_plot object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data to plot with each column representing a data set. type ( string ), intent ( in ), optional , dimension (:) :: labels !! An optional array containing a label to associate with each !! data set in x.  If supplied, this array must have the same length !! as x has columns. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal.  The !! default terminal is a WXT terminal.  The acceptable inputs are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF integer ( int32 ), intent ( in ), optional :: width !! Optionally, the width of the plot window. integer ( int32 ), intent ( in ), optional :: height !! Optionally, the height of the plot window. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , j , k , t , n , flag real ( real64 ) :: m , b real ( real64 ), allocatable , dimension (:) :: mdl class ( errors ), pointer :: errmgr type ( errors ), target :: deferr type ( plot_2d ), allocatable , dimension (:) :: plts type ( plot_data_2d ) :: pdata , mdata type ( plot_data_histogram ) :: hdata class ( plot_axis ), pointer :: xAxis , yAxis ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x , 2 ) call this % m_plt % initialize ( n , n , term = term , width = width , & height = height , err = errmgr ) allocate ( plts ( n * n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"cp_init\" , flag ) return end if call this % m_plt % set_font_size ( 11 ) ! use a small font size ! Input Checking if ( present ( labels )) then if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"cp_init\" , & \"labels\" , n , size ( labels )) return end if end if ! Create plots k = 0 call pdata % set_draw_line (. false .) call pdata % set_draw_markers (. true .) call pdata % set_marker_style ( MARKER_FILLED_CIRCLE ) call pdata % set_marker_scaling ( 0.5 ) call mdata % set_line_width ( 2.0 ) call mdata % set_line_color ( CLR_BLACK ) do j = 1 , n do i = 1 , n k = k + 1 call plts ( k )% initialize ( err = errmgr ) if ( i == j ) then ! Plot a histogram of the data call hdata % define_data ( x (:, i ), err = errmgr ) call plts ( k )% push ( hdata ) else ! Plot a scatter plot call pdata % define_data ( x (:, j ), x (:, i ), err = errmgr ) call plts ( k )% push ( pdata ) ! Fit a line to the data call compute_linear_fit ( x (:, j ), x (:, i ), m , b ) mdl = m * x (:, j ) + b ! Plot the fitted line call mdata % define_data ( x (:, j ), mdl , err = err ) call plts ( k )% push ( mdata ) end if ! Deal with axis labels if ( j == 1 ) then ! Display y axis labels for these plots yAxis => plts ( k )% get_y_axis () if ( present ( labels )) then call yAxis % set_title ( char ( labels ( i ))) else call yAxis % set_title ( char ( \"x_{\" // to_string ( i ) // \"}\" )) end if end if ! Get an x-axis object for the plot xAxis => plts ( k )% get_x_axis () ! Define axis labels if ( i == n ) then ! Display x axis labels for these plots if ( present ( labels )) then call xAxis % set_title ( char ( labels ( j ))) else call xAxis % set_title ( char ( \"x_{\" // to_string ( j ) // \"}\" )) end if end if ! Rotate histogram tic labels call xAxis % set_tic_label_angle ( 4 5.0 ) call xAxis % set_tic_label_rotation_origin ( GNUPLOT_ROTATION_ORIGIN_RIGHT ) ! Store the plot - the collection makes a copy of the plot and ! manages it's lifetime call this % m_plt % set ( i , j , plts ( k )) end do end do end subroutine ! ------------------------------------------------------------------------------ pure function cp_get_rows ( this ) result ( x ) !! Gets the number of rows of plots. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ) :: x !! The row count. x = this % m_plt % get_row_count () end function ! -------------------- pure function cp_get_cols ( this ) result ( x ) !! Gets the number of columns of plots. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ) :: x !! The column count. x = this % m_plt % get_column_count () end function ! -------------------- pure function cp_get_count ( this ) result ( x ) !! Gets the total number of plots. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ) :: x !! The plot count. x = this % m_plt % get_plot_count () end function ! ------------------------------------------------------------------------------ subroutine cp_draw ( this , persist , err ) !! Launches GNUPLOT and draws the correlation_plot per the current !! state of the command list. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. logical , intent ( in ), optional :: persist !! An optional parameter that can be used to keep GNUPLOT open. !! Set to true to force GNUPLOT to remain open; else, set to false !! to allow GNUPLOT to close after drawing.  The default is true. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. call this % m_plt % draw ( persist , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine cp_save ( this , fname , err ) !! Saves a GNUPLOT command file. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. character ( len = * ), intent ( in ) :: fname !! The filename. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. call this % m_plt % save_file ( fname , err ) end subroutine ! ------------------------------------------------------------------------------ function cp_get ( this , i , j ) result ( x ) !! Gets the requested plot object. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ), intent ( in ) :: i !! The row index of the plot to retrieve. integer ( int32 ), intent ( in ) :: j !! The column index of the plot to retrieve. class ( plot ), pointer :: x !! A pointer to the plot object. x => this % m_plt % get ( i , j ) end function ! ------------------------------------------------------------------------------ function cp_get_term ( this ) result ( x ) !! Gets the GNUPLOT terminal object. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. class ( terminal ), pointer :: x !! A pointer to the terminal object. x => this % m_plt % get_terminal () end function ! ------------------------------------------------------------------------------ function cp_get_font ( this ) result ( x ) !! Gets the name of the font used for plot text. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. character ( len = :), allocatable :: x !! The font name. x = this % m_plt % get_font_name () end function ! -------------------- subroutine cp_set_font ( this , x ) !! Sets the name of the font used for plot text. class ( correlation_plot ), intent ( inout ) :: this !! The correlation_plot object. character ( len = * ), intent ( in ) :: x !! The font name. call this % m_plt % set_font_name ( x ) end subroutine ! ------------------------------------------------------------------------------ function cp_get_font_size ( this ) result ( x ) !! Gets the size of the font used by the plot. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ) :: x !! The font size. x = this % m_plt % get_font_size () end function ! -------------------- subroutine cp_set_font_size ( this , x ) !! Sets the size of the font used by the plot. class ( correlation_plot ), intent ( inout ) :: this !! The correlation_plot object. integer ( int32 ), intent ( in ) :: x !! The font size. call this % m_plt % set_font_size ( x ) end subroutine ! ****************************************************************************** ! PRIVATE HELPER ROUTINES ! ------------------------------------------------------------------------------ subroutine compute_linear_fit ( x , y , m , b ) !! Computes the coefficients of a linear equation (y = m * x + b) using a !! least-squares approach. real ( real64 ), intent ( in ), dimension (:) :: x !! The x-coordinate data. real ( real64 ), intent ( in ), dimension (:) :: y !! The y-coordinate data. real ( real64 ), intent ( out ) :: m !! The slope term. real ( real64 ), intent ( out ) :: b !! The intercept term. ! Local Variables integer ( int32 ) :: i , n real ( real64 ) :: sumX , sumY , sumX2 , sumY2 , sumXY ! Initialization n = size ( x ) sumX = 0.0d0 sumY = 0.0d0 sumX2 = 0.0d0 sumY2 = 0.0d0 sumXY = 0.0d0 ! Process do i = 1 , n sumX = sumX + x ( i ) sumY = sumY + y ( i ) sumXY = sumXY + x ( i ) * y ( i ) sumX2 = sumX2 + ( x ( i )) ** 2 sumY2 = sumY2 + ( y ( i )) ** 2 end do m = ( n * sumXY - sumX * sumY ) / ( n * sumX2 - sumX ** 2 ) b = ( sumY * sumX2 - sumX * sumXY ) / ( n * sumX2 - sumX ** 2 ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_stats_plots.f90.html"},{"title":"fplot_core.f90 – FPLOT","text":"Source Code module fplot_core !! FPLOT is a Fortran library providing a means of interacting with !! [GNUPLOT](http://www.gnuplot.info/) from a Fortran program.  The library !! is designed in an object-oriented manner, and as such utilizes language !! features that require a compiler that supports the 2003 standard. !! Additionally, it is expected that Gnuplot is installed on the system !! path.  For full functionallity, a minimum of GNUPLOT v5.2 is expected. use fplot_constants use fplot_core_routines use fplot_colors use fplot_plot_object use fplot_plot_data use fplot_plot_axis use fplot_terminal use fplot_windows_terminal use fplot_qt_terminal use fplot_wxt_terminal use fplot_png_terminal use fplot_latex_terminal use fplot_label use fplot_arrow use fplot_legend use fplot_plot_data_2d use fplot_plot_data_3d use fplot_surface_plot_data use fplot_plot_data_error_bars use fplot_plot_data_bar use fplot_plot_data_histogram use fplot_colormap use fplot_filled_plot_data use fplot_triangulations_delaunay_2d use fplot_plot_data_tri_2d use fplot_delaunay_tri_surface use fplot_tri_surface_plot_data use fplot_vector_field_plot_data use fplot_plot use fplot_plot_2d use fplot_plot_3d use fplot_surface_plot use fplot_multiplot use fplot_plot_bar use fplot_plot_polar use fplot_stats_plots use fplot_plot_data_box_whisker use fplot_plot_data_function use strings use fplot_svg_terminal use fplot_pdf_terminal implicit none end module","tags":"","loc":"sourcefile\\fplot_core.f90.html"},{"title":"fplot_filled_plot_data.f90 – FPLOT","text":"Source Code ! fplot_filled_plot_data.f90 module fplot_filled_plot_data use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: filled_plot_data type , extends ( plot_data_colored ) :: filled_plot_data !! Defines a two-dimensional filled plot data set. logical , private :: m_useY2 = . false . !! Plot against the secondary y-axis. real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! The data set (column 1 = x, column 2 = y, column 3 = constraint y) contains procedure , public :: get_axes_string => fpd_get_axes_cmd procedure , public :: get_draw_against_y2 => fpd_get_draw_against_y2 procedure , public :: set_draw_against_y2 => fpd_set_draw_against_y2 procedure , public :: get_command_string => fpd_get_cmd procedure , public :: get_data_string => fpd_get_data_cmd procedure , public :: define_data => fpd_define_data procedure , public :: clear_data => fpd_clear_data end type contains ! ------------------------------------------------------------------------------ function fpd_get_axes_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string defining which axes the data !! is to be plotted against. class ( filled_plot_data ), intent ( in ) :: this !! The filled_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then x = \"axes x1y2\" else x = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ pure function fpd_get_draw_against_y2 ( this ) result ( x ) !! Gets a value determining if the data should be plotted against !! the secondary y-axis. class ( filled_plot_data ), intent ( in ) :: this !! The filled_plot_data object. logical :: x !! Returns true if the data should be plotted against the secondary !! y-axis; else, false to plot against the primary y-axis. x = this % m_useY2 end function ! -------------------- subroutine fpd_set_draw_against_y2 ( this , x ) !! Sets a value determining if the data should be plotted against !! the secondary y-axis. class ( filled_plot_data ), intent ( inout ) :: this !! The filled_plot_data object. logical , intent ( in ) :: x !! Set to true if the data should be plotted against the secondary !! y-axis; else, false to plot against the primary y-axis. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ function fpd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this !! filled_plot_data object. class ( filled_plot_data ), intent ( in ) :: this !! The filled_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Establish filled data call str % append ( \" with filledcurves\" ) ! Line Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Define the axes structure call str % append ( \" \" ) call str % append ( this % get_axes_string ()) ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function fpd_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data to plot. class ( filled_plot_data ), intent ( in ) :: this !! The filled_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i character ( len = :), allocatable :: nl , delimiter ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) ! Process do i = 1 , size ( this % m_data , 1 ) call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( nl ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine fpd_define_data ( this , x , y , yc , err ) !! Defines the data set. class ( filled_plot_data ), intent ( inout ) :: this !! The filled_plot_data object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinate data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinate data. real ( real64 ), intent ( in ), dimension (:) :: yc !! An N-element array containing the constraining curve y !! coordinate data. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables type ( errors ), target :: deferr class ( errors ), pointer :: errmgr integer ( int32 ) :: i , n , flag ! Set up error handling if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Input Checking n = size ( x ) if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"fpd_define_data\" , & \"y\" , n , size ( y )) return end if if ( size ( yc ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"fpd_define_data\" , & \"yc\" , n , size ( yc )) return end if ! Allocate space for the data if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 3 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"fpd_define_data\" , flag ) return end if ! Create a name if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Store the data do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = yc ( i ) end do end subroutine ! ------------------------------------------------------------------------------ subroutine fpd_clear_data ( this ) !! Clears the data from this data set. class ( filled_plot_data ), intent ( inout ) :: this !! The filled_plot_data object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_filled_plot_data.f90.html"},{"title":"fplot_constants.f90 – FPLOT","text":"Source Code module fplot_constants use iso_fortran_env implicit none ! ****************************************************************************** ! GNUPLOT TERMINAL CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: GNUPLOT_TERMINAL_WIN32 = 1 !! Defines a Win32 terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_WXT = 2 !! Defines a WXT terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_QT = 3 !! Defines a QT terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_PNG = 4 !! Defines a PNG terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_LATEX = 5 !! Defines a LATEX terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_SVG = 6 !! Defines an SVG terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_PDF = 7 !! Defines a PDF terminal. ! ****************************************************************************** ! MARKER CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: MARKER_PLUS = 1 !! Defines a + data point marker. integer ( int32 ), parameter :: MARKER_X = 2 !! Defines an x data point marker. integer ( int32 ), parameter :: MARKER_ASTERISK = 3 !! Defines an * data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_SQUARE = 4 !! Defines an empty square-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_SQUARE = 5 !! Defines an filled square-shaped data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_CIRCLE = 6 !! Defines an empty circle-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_CIRCLE = 7 !! Defines an filled circle-shaped data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_TRIANGLE = 8 !! Defines an empty triangle-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_TRIANGLE = 9 !! Defines an filled triangle-shaped data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_NABLA = 10 !! Defines an empty nabla-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_NABLA = 11 !! Defines an filled nabla-shaped data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_RHOMBUS = 12 !! Defines an empty rhombus-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_RHOMBUS = 13 !! Defines an filled rhombus-shaped data point marker. ! ****************************************************************************** ! LINE CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: LINE_SOLID = 1 !! Defines a solid line. integer ( int32 ), parameter :: LINE_DASHED = 2 !! Defines a dashed line. integer ( int32 ), parameter :: LINE_DOTTED = 3 !! Defines a dotted line. integer ( int32 ), parameter :: LINE_DASH_DOTTED = 4 !! Defines a dash-dotted line. integer ( int32 ), parameter :: LINE_DASH_DOT_DOT = 5 !! Defines a dash-dot-dotted line. ! ****************************************************************************** ! LEGEND CONSTANTS ! ------------------------------------------------------------------------------ character ( len = * ), parameter :: LEGEND_TOP = \"top\" !! Defines the legend should be placed at the top of the plot. character ( len = * ), parameter :: LEGEND_CENTER = \"center\" !! Defines the legend should be centered on the plot. character ( len = * ), parameter :: LEGEND_LEFT = \"left\" !! Defines the legend should be placed at the left of the plot. character ( len = * ), parameter :: LEGEND_RIGHT = \"right\" !! Defines the legend should be placed at the right of the plot. character ( len = * ), parameter :: LEGEND_BOTTOM = \"bottom\" !! Defines the legend should be placed at the bottom of the plot. character ( len = * ), parameter :: LEGEND_ARRANGE_VERTICALLY = \"vertical\" !! Defines the legend should be arranged such that the column count !! is minimized. character ( len = * ), parameter :: LEGEND_ARRANGE_HORIZONTALLY = \"horizontal\" !! Defines the legend should be arranged such that the row count !! is minimized. ! ****************************************************************************** ! POLAR PLOT CONSTANTS ! ------------------------------------------------------------------------------ character ( len = * ), parameter :: POLAR_THETA_TOP = \"top\" !! States that theta should start at the top of the plot. character ( len = * ), parameter :: POLAR_THETA_RIGHT = \"right\" !! States that theta should start at the right of the plot. character ( len = * ), parameter :: POLAR_THETA_BOTTOM = \"bottom\" !! States that theta should start at the bottom of the plot. character ( len = * ), parameter :: POLAR_THETA_LEFT = \"left\" !! States that theta should start at the left of the plot. character ( len = * ), parameter :: POLAR_THETA_CCW = \"ccw\" !! States that theta should proceed in a counter-clockwise direction. character ( len = * ), parameter :: POLAR_THETA_CW = \"cw\" !! States that theta should proceed in a clockwise direction. ! ****************************************************************************** ! COORDINATE SYSTEM CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: COORDINATES_CARTESIAN = 100 !! Defines a Cartesian coordinate system. integer ( int32 ), parameter :: COORDINATES_SPHERICAL = 101 !! Defines a spherical coordinate system. integer ( int32 ), parameter :: COORDINATES_CYLINDRICAL = 102 !! Defines a cylindrical coordinate system. ! ****************************************************************************** ! ARROW CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: ARROW_NO_HEAD = 0 !! Defines an arrow with no head. integer ( int32 ), parameter :: ARROW_HEAD = 1 !! Defines an arrow with a traditional head. integer ( int32 ), parameter :: ARROW_BACKHEAD = 2 !! Defines an arrow with it's head at it's back end (tail). integer ( int32 ), parameter :: ARROW_HEADS = 3 !! Defines an arrow with a head on both ends. integer ( int32 ), parameter :: ARROW_FILLED = 100 !! Defines a filled arrow head. integer ( int32 ), parameter :: ARROW_EMPTY = 101 !! Defines an empty arrow head. integer ( int32 ), parameter :: ARROW_NO_FILL = 102 !! Defines an arrow head without fill. integer ( int32 ), parameter :: ARROW_NO_BORDER = 103 !! Defines an arrow head with no border. ! ****************************************************************************** ! PLOT DATA CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: PLOTDATA_MAX_NAME_LENGTH = 128 !! Defines the maximum number of characters allowed in a graph label. ! ****************************************************************************** ! PRIVATE/DEFAULT CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: GNUPLOT_DEFAULT_WINDOW_WIDTH = 640 !! The default GNUPLOT window width, in pixels. integer ( int32 ), parameter :: GNUPLOT_DEFAULT_WINDOW_HEIGHT = 420 !! The default GNUPLOT window height, in pixels. integer ( int32 ), parameter :: GNUPLOT_MAX_LABEL_LENGTH = 128 !! Defines the maximum number of characters allowed in a graph label. character ( len = * ), parameter :: GNUPLOT_DEFAULT_FONTNAME = \"Arial\" !! Defines the default font used by text on the graph. integer ( int32 ), parameter :: GNUPLOT_DEFAULT_FONT_SIZE = 14 !! Defines the default font size used by text on the graph. integer ( int32 ), parameter :: GNUPLOT_MAX_PATH_LENGTH = 256 !! Defines the maximum number of characters allowed in a file path. ! ****************************************************************************** ! HORIZONTAL ALIGNMENT CONSTANTS ! ------------------------------------------------------------------------------ character ( len = * ), parameter :: GNUPLOT_HORIZONTAL_ALIGN_LEFT = \"left\" !! Defines the text should be aligned to the left. character ( len = * ), parameter :: GNUPLOT_HORIZONTAL_ALIGN_CENTER = \"center\" !! Defines the text should be centered. character ( len = * ), parameter :: GNUPLOT_HORIZONTAL_ALIGN_RIGHT = \"right\" !! Defines the text should be aligned to the right. ! ****************************************************************************** ! ROTATION ORIGIN CONSTANTS ! ------------------------------------------------------------------------------ character ( len = * ), parameter :: GNUPLOT_ROTATION_ORIGIN_RIGHT = \"right\" !! Defines the text should be rotated around the right side of the text. character ( len = * ), parameter :: GNUPLOT_ROTATION_ORIGIN_CENTER = \"center\" !! Defines the text should be rotated around the center of the text. character ( len = * ), parameter :: GNUPLOT_ROTATION_ORIGIN_LEFT = \"left\" !! Defines the text should be rotated around the left side of the text. end module","tags":"","loc":"sourcefile\\fplot_constants.f90.html"},{"title":"fplot_plot_bar.f90 – FPLOT","text":"Source Code ! fplot_plot_bar.f90 module fplot_plot_bar use iso_fortran_env use fplot_plot_2d use strings implicit none private public :: plot_bar type , extends ( plot_2d ) :: plot_bar !! Defines a 2D plot tailored towards bar plotting. real ( real32 ), private :: m_barWidth = 1.0d0 !! A relative scaling of the width of a single bar.  The value !! must be between 0 and 1 with 1 being full width. integer ( int32 ), private :: m_gap = 1 !! The default gap size between groups logical , private :: m_stacked = . false . !! True if bars should be stacked; else, false for side-by-side contains procedure , public :: get_bar_width => pb_get_bar_width procedure , public :: set_bar_width => pb_set_bar_width procedure , public :: get_command_string => pb_get_cmd procedure , public :: get_stacked => pb_get_stacked procedure , public :: set_stacked => pb_set_stacked procedure , public :: get_spacing => pb_get_spacing procedure , public :: set_spacing => pb_set_spacing end type contains ! ------------------------------------------------------------------------------ pure function pb_get_bar_width ( this ) result ( x ) !! Gets the bar width scaling factor. class ( plot_bar ), intent ( in ) :: this !! The plot_bar object. real ( real32 ) :: x !! The scaling factor. x = this % m_barWidth end function ! ------------------------------------------------------------------------------ subroutine pb_set_bar_width ( this , x ) !! Sets the bar width scaling factor. class ( plot_bar ), intent ( inout ) :: this !! The plot_bar object. real ( real32 ), intent ( in ) :: x !! The scaling factor.  The value must be in the set [0, 1]; else, the !! value will be shifted accordingly. if ( x > 1.0 ) then this % m_barWidth = 1.0 else if ( x < 0.0 ) then this % m_barWidth = 0.0 else this % m_barWidth = x end if end subroutine ! ------------------------------------------------------------------------------ function pb_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT commands required to draw the plot. class ( plot_bar ), intent ( in ) :: this !! The plot_bar object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str ! Initialization call str % initialize () ! Style call str % append ( new_line ( 'a' )) call str % append ( \"set style data histogram\" ) if ( this % get_stacked ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set style histogram rowstacked\" ) else call str % append ( new_line ( 'a' )) call str % append ( \"set style histogram cluster gap \" ) call str % append ( to_string ( this % get_spacing ())) end if ! Box Width call str % append ( new_line ( 'a' )) call str % append ( \"set boxwidth \" ) call str % append ( to_string ( this % get_bar_width ())) call str % append ( \" relative\" ) ! Call the base routine to establish the remainder of the plot call str % append ( this % plot_2d % get_command_string ()) ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function pb_get_stacked ( this ) result ( rst ) !! Gets a value determining if data sets should be stacked (true) or !! left side-by-side (false). class ( plot_bar ), intent ( in ) :: this !! The [[plot_bar]] object. logical :: rst !! True if multiple data sets should be stacked; else, false. rst = this % m_stacked end function ! -------------------- subroutine pb_set_stacked ( this , x ) !! Gets a value determining if data sets should be stacked (true) or !! left side-by-side (false). class ( plot_bar ), intent ( inout ) :: this !! The [[plot_bar]] object. logical , intent ( in ) :: x !! True if multiple data sets should be stacked; else, false. this % m_stacked = x end subroutine ! ------------------------------------------------------------------------------ pure function pb_get_spacing ( this ) result ( rst ) !! Gets the spacing between clusters of data sets. class ( plot_bar ), intent ( in ) :: this !! The [[plot+bar]] object. integer ( int32 ) :: rst !! The spacing. rst = this % m_gap end function ! -------------------- subroutine pb_set_spacing ( this , x ) !! Sets the spacing between clusters of data sets. class ( plot_bar ), intent ( inout ) :: this !! The [[plot+bar]] object. integer ( int32 ), intent ( in ) :: x !! The spacing. this % m_gap = x end subroutine ! ------------------------------------------------------------------------------ ! TO DO YET: ! - lighting end module","tags":"","loc":"sourcefile\\fplot_plot_bar.f90.html"},{"title":"fplot_plot_data_box_whisker.f90 – FPLOT","text":"Source Code module fplot_plot_data_box_whisker use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: plot_data_box_whisker type , extends ( plot_data_colored ) :: plot_data_box_whisker !! A container for box-whisker plot data. type ( string ), private , allocatable , dimension (:) :: m_x !! The x-coordinate data. real ( real64 ), private , allocatable , dimension (:) :: m_boxMin !! The minimum y-values for each box. real ( real64 ), private , allocatable , dimension (:) :: m_boxMax !! The maximum y-values for each box. real ( real64 ), private , allocatable , dimension (:) :: m_whiskerMin !! The minimum y-values for each whisker. real ( real64 ), private , allocatable , dimension (:) :: m_whiskerMax !! The maximum y-values for each whisker. real ( real64 ), private , allocatable , dimension (:) :: m_mid !! The mid-range y-values for each whisker.  Typically the mean !! or median. logical , private :: m_useY2 = . false . !! Plot against the secondary y-axis? logical , private :: m_whiskerbars = . true . !! Use horizontal whisker bar caps? real ( real32 ), private :: m_whiskerWidth = 1.5 !! On a scale of 0 -> 1, the whiskerwidth. real ( real32 ), private :: m_lineWidth = 2.0 !! The line width. real ( real32 ), private :: m_boxWidth = 0.05 !! The box width. logical , private :: m_fillBoxes = . true . !! Fill the boxes? real ( real32 ), private :: m_boxOpacity = 1.0 !! Box opacity [0, 1.0]. logical , private :: m_drawBorder = . true . !! Draw the box border? real ( real32 ), private :: m_midLineWidth = 2.0 !! The mid-line width. type ( color ), private :: m_midLineColor = CLR_BLACK !! The mid-line color. contains procedure , public :: define_data => pdbw_define_data_xstring procedure , public :: get_command_string => pdbw_get_cmd procedure , public :: get_data_string => pdbw_get_data_cmd procedure , public :: get_draw_against_y2 => pdbw_get_use_y2 procedure , public :: set_draw_against_y2 => pdbw_set_use_y2 procedure , public :: get_use_whiskerbars => pdbw_get_use_whiskerbars procedure , public :: set_use_whiskerbars => pdbw_set_use_whiskerbars procedure , public :: get_whiskerbar_width => pdbw_get_whiskerbar_width procedure , public :: set_whiskerbar_width => pdbw_set_whiskerbar_width procedure , public :: get_line_width => pdbw_get_line_width procedure , public :: set_line_width => pdbw_set_line_width procedure , public :: get_box_width => pdbw_get_box_width procedure , public :: set_box_width => pdbw_set_box_width procedure , public :: get_fill_boxes => pdbw_get_fill_boxes procedure , public :: set_fill_boxes => pdbw_set_fill_boxes procedure , public :: get_box_fill_opacity => pdbw_get_opacity procedure , public :: set_box_fill_opacity => pdbw_set_opacity procedure , public :: clear_data => pdbw_clear_data procedure , public :: get_midline_width => pdbw_get_midline_width procedure , public :: set_midline_width => pdbw_set_midline_width procedure , public :: get_midline_color => pdbw_get_midline_color procedure , public :: set_midline_color => pdbw_set_midline_color end type contains ! ------------------------------------------------------------------------------ subroutine pdbw_define_data_xstring ( this , x , boxmin , boxmax , whiskermin , & whiskermax , mid , err ) !! Defines the data set to plot. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. type ( string ), intent ( in ), dimension (:) :: x !! The x-coordinate data. real ( real64 ), intent ( in ), dimension ( size ( x )) :: boxmin !! The minimum y-values for each box. real ( real64 ), intent ( in ), dimension ( size ( x )) :: boxmax !! The maximum y-values for each box. real ( real64 ), intent ( in ), dimension ( size ( x )) :: whiskermin !! The minimum y-values for each whisker. real ( real64 ), intent ( in ), dimension ( size ( x )) :: whiskermax !! The maximum y-values for each whisker. real ( real64 ), intent ( in ), optional , dimension ( size ( x )) :: mid !! The mid-range values for each whisker.  Typically the mean or !! median of the data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Allocations if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_boxMin )) deallocate ( this % m_boxMin ) if ( allocated ( this % m_boxMax )) deallocate ( this % m_boxMax ) if ( allocated ( this % m_whiskerMin )) deallocate ( this % m_whiskerMin ) if ( allocated ( this % m_whiskerMax )) deallocate ( this % m_whiskerMax ) if ( allocated ( this % m_mid )) deallocate ( this % m_mid ) allocate ( this % m_x ( n ), source = x , stat = flag ) if ( flag == 0 ) allocate ( this % m_boxMin ( n ), source = boxmin , stat = flag ) if ( flag == 0 ) allocate ( this % m_boxMax ( n ), source = boxmax , stat = flag ) if ( flag == 0 ) allocate ( this % m_whiskerMin ( n ), source = whiskermin , stat = flag ) if ( flag == 0 ) allocate ( this % m_whiskerMax ( n ), source = whiskermax , stat = flag ) if ( flag == 0 . and . present ( mid )) allocate ( this % m_mid ( n ), source = mid , stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdbw_define_data_xstring\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function pdbw_get_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string for this object. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n , nname type ( color ) :: clr ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Style call str % append ( ' using ($0+1):2:3:4:5:(' ) call str % append ( to_string ( this % get_box_width ())) call str % append ( \"):xtic(1) with candlesticks\" ) ! Title nname = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Whisker bars if ( this % get_use_whiskerbars ()) then call str % append ( \" whiskerbars \" ) call str % append ( to_string ( this % get_whiskerbar_width ())) end if ! Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Fill Boxes if ( this % get_fill_boxes ()) then call str % append ( \" fill solid \" ) call str % append ( to_string ( this % get_box_fill_opacity ())) call str % append ( \" border\" ) end if ! Mid Values if ( allocated ( this % m_mid )) then call str % append ( \", $\" ) call str % append ( this % get_datablock_name ()) call str % append ( ' using ($0+1):6:6:6:6:(' ) call str % append ( to_string ( this % get_box_width ())) call str % append ( \"):xtic(1) with candlesticks\" ) call str % append ( \" lt -1\" ) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_midline_width ())) clr = this % get_midline_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) call str % append ( \" notitle\" ) end if ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdbw_get_data_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining the data for this object. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , n character :: delimiter , nl ! Initialization delimiter = achar ( 9 ) nl = new_line ( nl ) n = size ( this % m_x ) ! Process do i = 1 , n call str % append ( this % m_x ( i )) call str % append ( delimiter ) call str % append ( to_string ( this % m_boxMin ( i ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_whiskerMin ( i ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_whiskerMax ( i ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_boxMax ( i ))) if ( allocated ( this % m_mid )) then call str % append ( delimiter ) call str % append ( to_string ( this % m_mid ( i ))) end if call str % append ( nl ) end do ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdbw_get_axes_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining which axes the data is to be !! plotted against. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. character ( len = :), allocatable :: rst !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then rst = \"axes x1y2\" else rst = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ pure function pdbw_get_use_y2 ( this ) result ( rst ) !! Gets a value determining if the data is to be plotted against the !! secondary y axis. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. logical :: rst !! Returns true if the data is to be plotted against the secondary y !! axis; else, false for the primary y axis. rst = this % m_useY2 end function ! -------------------- subroutine pdbw_set_use_y2 ( this , x ) !! Sets a value determining if the data is to be plotted against the !! secondary y axis. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. logical , intent ( in ) :: x !! Set to true if the data is to be plotted against the secondary y !! axis; else, false for the primary y axis. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_use_whiskerbars ( this ) result ( rst ) !! Gets a value determining if whiskerbars should be used. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. logical :: rst !! True if whiskerbars should be used; else, false. rst = this % m_whiskerbars end function ! -------------------- subroutine pdbw_set_use_whiskerbars ( this , x ) !! Sets a value determining if whiskerbars should be used. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. logical , intent ( in ) :: x !! Set to true if whiskerbars should be used; else, false. this % m_whiskerbars = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_whiskerbar_width ( this ) result ( rst ) !! Gets the width of whiskerbar. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: rst !! The width of the whiskerbar on a scale of 0:1 with 1 being the full !! width. rst = this % m_whiskerWidth end function ! -------------------- subroutine pdbw_set_whiskerbar_width ( this , x ) !! Sets the width of the whiskerbar. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The width of the whiskerbar.  This value is clamped to [0, 1] with !! 1 representing full width. if ( x < 0.0d0 ) then this % m_whiskerWidth = 0.0d0 else if ( x > 1.0d0 ) then this % m_whiskerWidth = 1.0d0 else this % m_whiskerWidth = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_line_width ( this ) result ( x ) !! Gets the width of the line, in pixels. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: x !! The line width. x = this % m_lineWidth end function ! -------------------- subroutine pdbw_set_line_width ( this , x ) !! Sets the width of the line, in pixels. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_lineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_box_width ( this ) result ( rst ) !! Gets the box width.  By default the x-axis is incremented in units of 1; !! therefore, a box width of 1 will fully fill the space. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: rst !! The box width. rst = this % m_boxWidth end function ! -------------------- subroutine pdbw_set_box_width ( this , x ) !! Sets the box width.  By default the x-axis is incremented in units of 1; !! therefore, a box width of 1 will fully fill the space. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The box width. this % m_boxWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_fill_boxes ( this ) result ( rst ) !! Gets a value determining if the boxes should be filled. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. logical :: rst !! True if the boxes are to be filled; else, false. rst = this % m_fillBoxes end function ! -------------------- subroutine pdbw_set_fill_boxes ( this , x ) !! Sets a value determining if the boxes should be filled. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. logical , intent ( in ) :: x !! Set to true if the boxes are to be filled; else, false. this % m_fillBoxes = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_opacity ( this ) result ( rst ) !! Gets the opacity of the box fill color. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: rst !! The opacity on a scale from 0 to 1. rst = this % m_boxOpacity end function ! -------------------- subroutine pdbw_set_opacity ( this , x ) !! Sets the opacity of the box fill color. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The opacity on a scale from 0 to 1. this % m_boxOpacity = x end subroutine ! ------------------------------------------------------------------------------ subroutine pdbw_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_boxMin )) deallocate ( this % m_boxMin ) if ( allocated ( this % m_boxMax )) deallocate ( this % m_boxMax ) if ( allocated ( this % m_whiskerMin )) deallocate ( this % m_whiskerMin ) if ( allocated ( this % m_whiskerMin )) deallocate ( this % m_whiskerMin ) if ( allocated ( this % m_mid )) deallocate ( this % m_mid ) end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_midline_width ( this ) result ( rst ) !! Gets the width of the midline. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: rst !! The line width. rst = this % m_midLineWidth end function ! -------------------- subroutine pdbw_set_midline_width ( this , x ) !! Sets the width of the midline. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_midLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_midline_color ( this ) result ( rst ) !! Gets the color of the midline. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. type ( color ) :: rst !! The line color. rst = this % m_midLineColor end function ! -------------------- subroutine pdbw_set_midline_color ( this , x ) !! Sets the color of the midline. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. type ( color ) , intent ( in ) :: x !! The line color. this % m_midLineColor = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_box_whisker.f90.html"},{"title":"fplot_simplify.f90 – FPLOT","text":"Source Code ! fplot_simplify.f90 ! References: ! - https://www.codeproject.com/Articles/114797/Polyline-Simplification ! - https://en.wikipedia.org/wiki/Ramer%E2%80%93Douglas%E2%80%93Peucker_algorithm module fplot_simplify use iso_fortran_env use fplot_errors implicit none private public :: simplify_polyline interface simplify_polyline module procedure :: simplify_polyline_2d1 module procedure :: simplify_polyline_3d1 module procedure :: simplify_polyline_mtx end interface contains function simplify_polyline_2d1 ( x , y , tol , err ) result ( ln ) !! Simplifies a 2D polyline by removing points too close to !! discern given a specified tolerance. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ) :: tol !! The distance tolerance to use when simplifying the polyline. !! This value must be positive, and larger than machine epsilon. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. real ( real64 ), allocatable , dimension (:,:) :: ln !! A matrix containing the simplified polyline vertices.  The first !! column of the matrix contains the x-coordinates, and the second !! column contains the y-coordinates. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n real ( real64 ) :: eps ! Initialization n = size ( x ) eps = epsilon ( eps ) if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Input Check if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"simplify_polyline_2d1\" , \"y\" , n , size ( y )) return end if if ( tol < eps ) then call errmgr % report_error ( \"simplify_polyline_2d1\" , & \"The tolerance value is either negative or less \" // & \"than machine precision.\" , PLOT_INVALID_INPUT_ERROR ) return end if ! Process ln = radial_distance_2d ( x , y , tol , err ) end function function simplify_polyline_3d1 ( x , y , z , tol , err ) result ( ln ) !! Simplifies a 3D polyline by removing points too close to !! discern given a specified tolerance. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ), dimension (:) :: z !! An N-element array containing the z-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ) :: tol !! The distance tolerance to use when simplifying the polyline. !! This value must be positive, and larger than machine epsilon. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. real ( real64 ), allocatable , dimension (:,:) :: ln !! A matrix containing the simplified polyline vertices.  The first !! column of the matrix contains the x-coordinates, the second !! column contains the y-coordinates, and the third column contains !! the z-coordinates. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n real ( real64 ) :: eps ! Initialization n = size ( x ) eps = epsilon ( eps ) if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Input Check if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"simplify_polyline_3d1\" , \"y\" , n , size ( y )) return end if if ( size ( z ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"simplify_polyline_3d1\" , \"z\" , n , size ( z )) return end if if ( tol < eps ) then call errmgr % report_error ( \"simplify_polyline_3d1\" , & \"The tolerance value is either negative or less \" // & \"than machine precision.\" , PLOT_INVALID_INPUT_ERROR ) return end if ! Process ln = radial_distance_3d ( x , y , z , tol , errmgr ) end function function simplify_polyline_mtx ( xy , tol , err ) result ( ln ) !! Simplifies a 2D or 3D polyline by removing points too close to !! discern given a specified tolerance. real ( real64 ), intent ( in ), dimension (:,:) :: xy !! An N-by-2 or N-by-3 matrix containing the polyline vertex data. real ( real64 ), intent ( in ) :: tol !! The distance tolerance to use when simplifying the polyline. !! This value must be positive, and larger than machine epsilon. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. real ( real64 ), allocatable , dimension (:,:) :: ln !! A matrix containing the simplified polyline vertices.  The first !! column of the matrix contains the x-coordinates, the second !! column contains the y-coordinates, and if necessary, the third !! column contains the z-coordinates. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Ensure there are at least 2 columns of data in XY if ( size ( xy , 2 ) < 2 ) then call report_matrix_size_mismatch_error ( errmgr , & \"simplify_polyline_mtx\" , \"xy\" , size ( xy , 1 ), 2 , size ( xy , 1 ), & size ( xy , 2 )) return end if ! Process if ( size ( xy , 2 ) == 2 ) then ln = simplify_polyline_2d1 ( xy (:, 1 ), xy (:, 2 ), tol , errmgr ) else ln = simplify_polyline_3d1 ( xy (:, 1 ), xy (:, 2 ), xy (:, 3 ), tol , errmgr ) end if end function function radial_distance_2d ( x , y , tol , err ) result ( pts ) ! Arguments real ( real64 ), intent ( in ), dimension (:) :: x , y real ( real64 ), intent ( in ) :: tol class ( errors ), intent ( inout ) :: err real ( real64 ), allocatable , dimension (:,:) :: pts ! Local Variables integer ( int32 ) :: i , j , n , nvalid , flag logical , allocatable , dimension (:) :: valid real ( real64 ) :: r , xref , yref ! Initialization n = size ( x ) if ( n == 0 ) return i = 2 xref = x ( 1 ) yref = y ( 1 ) nvalid = 1 ! Local Memory Allocation allocate ( valid ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( err , \"radial_distance_2d\" , flag ) return end if valid ( 1 ) = . true . ! Cycle through and determine which points to keep do if ( i > n ) exit r = pythag2 ( x ( i ), y ( i ), xref , yref ) if ( r < tol ) then ! The point is too close, reject it valid ( i ) = . false . else ! The point is outside the tolerance, and is OK valid ( i ) = . true . nvalid = nvalid + 1 ! Move the reference point xref = x ( i ) yref = y ( i ) end if i = i + 1 end do ! Allocate space, and collect all valid points allocate ( pts ( nvalid , 2 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( err , \"radial_distance_2d\" , flag ) return end if j = 1 do i = 1 , n if ( valid ( i )) then pts ( j , 1 ) = x ( i ) pts ( j , 2 ) = y ( i ) j = j + 1 end if end do end function function radial_distance_3d ( x , y , z , tol , err ) result ( pts ) ! Arguments real ( real64 ), intent ( in ), dimension (:) :: x , y , z real ( real64 ), intent ( in ) :: tol class ( errors ), intent ( inout ) :: err real ( real64 ), allocatable , dimension (:,:) :: pts ! Local Variables integer ( int32 ) :: i , j , n , nvalid , flag logical , allocatable , dimension (:) :: valid real ( real64 ) :: r , xref , yref , zref ! Initialization n = size ( x ) if ( n == 0 ) return i = 2 xref = x ( 1 ) yref = y ( 1 ) zref = z ( 1 ) nvalid = 1 ! Local Memory Allocation allocate ( valid ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( err , \"radial_distance_3d\" , flag ) return end if valid ( 1 ) = . true . ! Cycle through and determine which points to keep do if ( i > n ) exit r = pythag3 ( x ( i ), y ( i ), z ( i ), xref , yref , zref ) if ( r < tol ) then ! The point is too close, reject it valid ( i ) = . false . else ! The point is outside the tolerance, and is OK valid ( i ) = . true . nvalid = nvalid + 1 ! Move the reference point xref = x ( i ) yref = y ( i ) zref = z ( i ) end if i = i + 1 end do ! Allocate space, and collect all valid points allocate ( pts ( nvalid , 3 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( err , \"radial_distance_3d\" , flag ) return end if j = 1 do i = 1 , n if ( valid ( i )) then pts ( j , 1 ) = x ( i ) pts ( j , 2 ) = y ( i ) pts ( j , 3 ) = z ( i ) j = j + 1 end if end do end function pure function pythag2 ( x , y , xo , yo ) result ( r ) ! Arguments real ( real64 ), intent ( in ) :: x , y , xo , yo real ( real64 ) :: r ! Local Variables real ( real64 ) :: w , xabs , yabs ! Process xabs = abs ( x - xo ) yabs = abs ( y - yo ) w = max ( xabs , yabs ) if ( w < epsilon ( w )) then r = xabs + yabs else r = w * sqrt (( xabs / w ) ** 2 + ( yabs / w ) ** 2 ) end if end function pure function pythag3 ( x , y , z , xo , yo , zo ) result ( r ) ! Arguments real ( real64 ), intent ( in ) :: x , y , z , xo , yo , zo real ( real64 ) :: r ! Local Variables real ( real64 ) :: w , xabs , yabs , zabs ! Process xabs = abs ( x - xo ) yabs = abs ( y - yo ) zabs = abs ( z - zo ) w = max ( xabs , yabs , zabs ) if ( w < epsilon ( w )) then r = xabs + yabs + zabs else r = w * sqrt (( xabs / w ) ** 2 + ( yabs / w ) ** 2 + ( zabs / w ) ** 2 ) end if end function end module","tags":"","loc":"sourcefile\\fplot_simplify.f90.html"},{"title":"fplot_plot_data_tri_2d.f90 – FPLOT","text":"Source Code ! fplot_plot_data_tri_2d.f90 module fplot_plot_data_tri_2d use iso_fortran_env use fplot_plot_data use fplot_constants use fplot_triangulations_delaunay_2d use fplot_colors use strings implicit none private public :: plot_data_tri_2d type , extends ( plot_data_colored ) :: plot_data_tri_2d !! Defines a 2D triangulated data set. real ( real64 ), private , allocatable , dimension (:) :: m_x !! An array of the x-coordinates of each point. real ( real64 ), private , allocatable , dimension (:) :: m_y !! An array of the y-coordinates of each point. integer ( int32 ), private , allocatable , dimension (:,:) :: m_indices !! A 3-column matrix containing the indices of each triangle's !! vertex. real ( real32 ), private :: m_lineWidth = 1.0 !! The line width. integer ( int32 ), private :: m_lineStyle = LINE_SOLID !! The line style contains procedure , public :: get_data_string => pdt2d_get_data_cmd procedure , public :: get_command_string => pdt2d_get_cmd procedure , public :: define_data => pdt2d_define_data procedure , public :: get_line_width => pdt2d_get_line_width procedure , public :: set_line_width => pdt2d_set_line_width procedure , public :: get_line_style => pdt2d_get_line_style procedure , public :: set_line_style => pdt2d_set_line_style procedure , public :: clear_data => pdt2d_clear_data end type contains ! ------------------------------------------------------------------------------ function pdt2d_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string describing the data to plot. class ( plot_data_tri_2d ), intent ( in ) :: this !! The plot_data_tri_2d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , n character :: delimiter , nl ! Initialization call str % initialize () n = size ( this % m_indices , 1 ) delimiter = achar ( 9 ) nl = new_line ( nl ) ! Process ! https://stackoverflow.com/questions/42784369/drawing-triangular-mesh-using-gnuplot ! http://www.gnuplot.info/faq/faq.html#x1-530005.10 ! https://codeyarns.com/2011/01/25/gnuplot-plotting-a-3d-triangulation/ do i = 1 , n ! Line 1-2 ! Vertex 1 j = this % m_indices ( i , 1 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Vertex 2 j = this % m_indices ( i , 2 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Line 2-3 ! Vertex 2 call str % append ( nl ) j = this % m_indices ( i , 2 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Vertex 3 j = this % m_indices ( i , 3 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Line 3-1 ! Vertex 3 call str % append ( nl ) j = this % m_indices ( i , 3 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Vertex 1 j = this % m_indices ( i , 1 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Add in the two blank lines if ( i /= n ) then call str % append ( nl ) call str % append ( nl ) end if end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdt2d_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for the object. class ( plot_data_tri_2d ), intent ( in ) :: this !! The plot_data_tri_2d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Lines call str % append ( \" with lines\" ) ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Line Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Line Style call str % append ( \" lt \" ) call str % append ( to_string ( this % get_line_style ())) if ( this % get_line_style () /= LINE_SOLID ) then call str % append ( \" dashtype \" ) call str % append ( to_string ( this % get_line_style ())) end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine pdt2d_define_data ( this , tri ) !! Defines the data to plot. class ( plot_data_tri_2d ), intent ( inout ) :: this !! The plot_data_tri_2d object. class ( delaunay_tri_2d ), intent ( in ) :: tri !! The triangulation data to plot. ! Process if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if this % m_x = tri % get_points_x () this % m_y = tri % get_points_y () this % m_indices = tri % get_indices () end subroutine ! ------------------------------------------------------------------------------ pure function pdt2d_get_line_width ( this ) result ( rst ) !! Gets the width of the lines used to draw the triangulation. class ( plot_data_tri_2d ), intent ( in ) :: this !! The plot_data_tri_2d object. real ( real32 ) :: rst !! The line width. rst = this % m_lineWidth end function ! -------------------- subroutine pdt2d_set_line_width ( this , x ) !! Sets the width of the lines used to draw the triangulation. class ( plot_data_tri_2d ), intent ( inout ) :: this !! The plot_data_tri_2d object. real ( real32 ), intent ( in ) :: x !! The line width. if ( x <= 0.0d0 ) then this % m_lineWidth = 1.0d0 else this % m_lineWidth = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pdt2d_get_line_style ( this ) result ( rst ) !! Gets the line style. class ( plot_data_tri_2d ), intent ( in ) :: this !! The plot_data_tri_2d object. integer ( int32 ) :: rst !! The line style.  The line style must be one of the following !! constants. !! !! - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID rst = this % m_lineStyle end function ! -------------------- subroutine pdt2d_set_line_style ( this , x ) !! Sets the line style. class ( plot_data_tri_2d ), intent ( inout ) :: this !! The plot_data_tri_2d object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following !! constants. !! !! - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_lineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine pdt2d_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_tri_2d ), intent ( inout ) :: this !! The plot_data_tri_2d object. if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_tri_2d.f90.html"},{"title":"fplot_vector_field_plot_data.f90 – FPLOT","text":"Source Code ! fplot_vector_field_plot_data.f90 ! REF: ! http://www.gnuplotting.org/vector-field-from-data-file/ ! http://gnuplot.sourceforge.net/demo_5.4/vector.html ! http://www.gnuplot.info/docs_5.4/Gnuplot_5_4.pdf (pg 79) module fplot_vector_field_plot_data use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: vector_field_plot_data type , extends ( plot_data_colored ) :: vector_field_plot_data !! Defines a two-dimensional vector-field plot data set. real ( real64 ), private , allocatable , dimension (:,:,:) :: m_data !! An M-by-N-by-4 array containing the x, y, dx, and dy plot !! data points.  Optionally, a 5th page can be added to define the !! color for each arrow. real ( real64 ), private :: m_arrowSize = 1.0d0 !! The vector size (scaling factor). logical , private :: m_filledHeads = . false . !! Fill the arrow heads? contains procedure , public :: get_data_string => vfpd_get_data_cmd procedure , public :: get_command_string => vfpd_get_cmd procedure , public :: define_data => vfpd_define_data procedure , public :: get_arrow_size => vfpd_get_arrow_size procedure , public :: set_arrow_size => vfpd_set_arrow_size procedure , public :: get_fill_arrow => vfpd_get_fill_arrow procedure , public :: set_fill_arrow => vfpd_set_fill_arrow procedure , public :: get_use_data_dependent_colors => & vfpd_get_use_data_dependent_colors procedure , public :: clear_data => vfpd_clear_data end type contains ! ------------------------------------------------------------------------------ function vfpd_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data to plot. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , m , n character :: delimiter , nl real ( real64 ) :: scaling ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) scaling = this % get_arrow_size () ! Fix later if (. not . allocated ( this % m_data )) then x = \"\" return end if m = size ( this % m_data , 1 ) n = size ( this % m_data , 2 ) ! Need a quick return in the event no data exists ! Process if ( this % get_use_data_dependent_colors ()) then do j = 1 , n do i = 1 , m ! ORDER: X, Y, DX, DY call str % append ( to_string ( this % m_data ( i , j , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , j , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( scaling * this % m_data ( i , j , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( scaling * this % m_data ( i , j , 4 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , j , 5 ))) call str % append ( nl ) end do end do else do j = 1 , n do i = 1 , m ! ORDER: X, Y, DX, DY call str % append ( to_string ( this % m_data ( i , j , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , j , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( scaling * this % m_data ( i , j , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( scaling * this % m_data ( i , j , 4 ))) call str % append ( nl ) end do end do end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function vfpd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this !! vector_field_plot_data object. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Property Definition call str % append ( \" with vectors\" ) if ( this % get_fill_arrow ()) then call str % append ( \" filled head\" ) end if if ( this % get_use_data_dependent_colors ()) then call str % append ( \" lc palette\" ) else clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine vfpd_define_data ( this , x , y , dx , dy , c , err ) !! Defines the data set. class ( vector_field_plot_data ), intent ( inout ) :: this !! The vector_field_plot_data object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! An M-by-N matrix containing the x-locations of each arrow's !! origin. real ( real64 ), intent ( in ), dimension (:,:) :: y !! An M-by-N matrix containing the y-locations of each arrow's !! origin. real ( real64 ), intent ( in ), dimension (:,:) :: dx !! An M-by-N matrix containing the x-direction of each arrow. real ( real64 ), intent ( in ), dimension (:,:) :: dy !! An M-by-N matrix containing the y-direction of each arrow. real ( real64 ), intent ( in ), dimension (:,:), optional :: c !! An optional M-by-N matrix containing information on how to color !! the arrows.  The colors are determined by the active colormap. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , j , m , n , flag type ( errors ), target :: deferr class ( errors ), pointer :: errmgr character ( len = 256 ) :: errmsg ! Set up error handling if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Input Checking m = size ( x , 1 ) n = size ( x , 2 ) if ( size ( y , 1 ) /= m . or . size ( y , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"vfpd_define_data\" , & \"y\" , m , n , size ( y , 1 ), size ( y , 2 )) return end if if ( size ( dx , 1 ) /= m . or . size ( dx , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"vfpd_define_data\" , & \"dx\" , m , n , size ( dx , 1 ), size ( dx , 2 )) return end if if ( size ( dy , 1 ) /= m . or . size ( dy , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"vfpd_define_data\" , & \"dy\" , m , n , size ( dy , 1 ), size ( dy , 2 )) return end if if ( present ( c )) then if ( size ( c , 1 ) /= m . or . size ( c , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , & \"vfpd_define_data\" , \"c\" , m , n , size ( c , 1 ), size ( c , 2 )) return end if end if ! Create a name if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Allocate space for the data if ( allocated ( this % m_data )) deallocate ( this % m_data ) if ( present ( c )) then allocate ( this % m_data ( m , n , 5 ), stat = flag ) else allocate ( this % m_data ( m , n , 4 ), stat = flag ) end if if ( flag /= 0 ) then call report_memory_error ( errmgr , \"vfpd_define_data\" , flag ) return end if ! Store the data if ( present ( c )) then do concurrent ( j = 1 : n ) do i = 1 , m this % m_data ( i , j , 1 ) = x ( i , j ) this % m_data ( i , j , 2 ) = y ( i , j ) this % m_data ( i , j , 3 ) = dx ( i , j ) this % m_data ( i , j , 4 ) = dy ( i , j ) this % m_data ( i , j , 5 ) = c ( i , j ) end do end do else do concurrent ( j = 1 : n ) do i = 1 , m this % m_data ( i , j , 1 ) = x ( i , j ) this % m_data ( i , j , 2 ) = y ( i , j ) this % m_data ( i , j , 3 ) = dx ( i , j ) this % m_data ( i , j , 4 ) = dy ( i , j ) end do end do end if ! End return end subroutine ! ------------------------------------------------------------------------------ pure function vfpd_get_arrow_size ( this ) result ( rst ) !! Gets the scaling factor used to determine the arrow size. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. real ( real64 ) :: rst !! The scaling factor. rst = this % m_arrowSize end function ! -------------------- subroutine vfpd_set_arrow_size ( this , x ) !! Sets the scaling factor used to determine the arrow size. class ( vector_field_plot_data ), intent ( inout ) :: this !! The vector_field_plot_data object. real ( real64 ), intent ( in ) :: x !! The scaling factor. this % m_arrowSize = x end subroutine ! ------------------------------------------------------------------------------ pure function vfpd_get_fill_arrow ( this ) result ( rst ) !! Gets a value determining if the arrow heads should be filled. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. logical :: rst !! True if the arrow heads should be filled; else, false. rst = this % m_filledHeads end function ! -------------------- subroutine vfpd_set_fill_arrow ( this , x ) !! Sets a value determining if the arrow heads should be filled. class ( vector_field_plot_data ), intent ( inout ) :: this !! The vector_field_plot_data object. logical , intent ( in ) :: x !! True if the arrow heads should be filled; else, false. this % m_filledHeads = x end subroutine ! ------------------------------------------------------------------------------ pure function vfpd_get_use_data_dependent_colors ( this ) result ( rst ) !! Gets a value indicating if data-dependent coloring should be !! used.  This is defined by supplying information on how to scale the !! coloring when calling define_data. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. logical :: rst !! Returns true if data-dependent coloring is being used; else, !! false. rst = . false . if (. not . allocated ( this % m_data )) return rst = size ( this % m_data , 3 ) >= 5 end function ! ------------------------------------------------------------------------------ subroutine vfpd_clear_data ( this ) !! Clears the data from the data set. class ( vector_field_plot_data ), intent ( inout ) :: this !! The vector_field_plot_data object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_vector_field_plot_data.f90.html"},{"title":"fplot_plot_3d.f90 – FPLOT","text":"Source Code ! fplot_plot_3d.f90 module fplot_plot_3d use iso_fortran_env use fplot_plot use fplot_errors use fplot_plot_axis use fplot_constants use fplot_plot_data use fplot_legend use fplot_plot_data_3d use fplot_colors use strings implicit none private public :: plot_3d type , extends ( plot ) :: plot_3d !! A plot object defining a 3D plot. type ( x_axis ), private , pointer :: m_xAxis => null () !! The x-axis. type ( y_axis ), private , pointer :: m_yAxis => null () !! The y-axis. type ( z_axis ), private , pointer :: m_zAxis => null () !! The z-axis. real ( real64 ), private :: m_elevation = 6 0.0d0 !! The elevation angle. real ( real64 ), private :: m_azimuth = 3 0.0d0 !! The azimuth. logical , private :: m_zIntersect = . true . !! Z-axis intersect X-Y plane? logical , private :: m_setMap = . false . !! Set map projection. integer ( int32 ), private :: m_csys = COORDINATES_CARTESIAN !! Plot coordinate system. logical , private :: m_showZMajorGrid = . false . logical , private :: m_showZMinorGrid = . false . type ( color ), private :: m_zMajorGridColor = color ( 204 , 204 , 204 , 0 ) type ( color ), private :: m_zMinorGridColor = color ( 230 , 230 , 230 , 0 ) integer ( int32 ), private :: m_zMajorGridLineStyle = LINE_SOLID integer ( int32 ), private :: m_zMinorGridLineStyle = LINE_DASHED real ( real32 ), private :: m_zMajorGridLineWidth = 1.2 real ( real32 ), private :: m_zMinorGridLineWidth = 0.7 contains final :: p3d_clean_up procedure , public :: initialize => p3d_init procedure , public :: get_command_string => p3d_get_cmd procedure , public :: get_x_axis => p3d_get_x_axis procedure , public :: get_y_axis => p3d_get_y_axis procedure , public :: get_z_axis => p3d_get_z_axis procedure , public :: get_elevation => p3d_get_elevation procedure , public :: set_elevation => p3d_set_elevation procedure , public :: get_azimuth => p3d_get_azimuth procedure , public :: set_azimuth => p3d_set_azimuth procedure , public :: get_z_intersect_xy => p3d_get_z_axis_intersect procedure , public :: set_z_intersect_xy => p3d_set_z_axis_intersect procedure , public :: get_use_map_view => p3d_get_use_map_view procedure , public :: set_use_map_view => p3d_set_use_map_view procedure , public :: get_coordinate_system => p3d_get_csys procedure , public :: set_coordinate_system => p3d_set_csys procedure , public :: set_x_axis_title => p3d_set_x_axis_title procedure , public :: set_y_axis_title => p3d_set_y_axis_title procedure , public :: set_z_axis_title => p3d_set_z_axis_title procedure , public :: get_show_z_major_grid => p3d_get_show_z_major_grid procedure , public :: set_show_z_major_grid => p3d_set_show_z_major_grid procedure , public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid procedure , public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid procedure , public :: get_z_major_grid_color => p3d_get_z_major_grid_color procedure , public :: set_z_major_grid_color => p3d_set_z_major_grid_color procedure , public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color procedure , public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color procedure , public :: get_z_major_grid_line_style => & p3d_get_z_major_grid_line_style procedure , public :: set_z_major_grid_line_style => & p3d_set_z_major_grid_line_style procedure , public :: get_z_minor_grid_line_style => & p3d_get_z_minor_grid_line_style procedure , public :: set_z_minor_grid_line_style => & p3d_set_z_minor_grid_line_style procedure , public :: get_z_major_grid_line_width => & p3d_get_z_major_grid_line_width procedure , public :: set_z_major_grid_line_width => & p3d_set_z_major_grid_line_width procedure , public :: get_z_minor_grid_line_width => & p3d_get_z_minor_grid_line_width procedure , public :: set_z_minor_grid_line_width => & p3d_set_z_minor_grid_line_width procedure , public :: p3d_push_data generic , public :: push => p3d_push_data end type contains ! ------------------------------------------------------------------------------ subroutine p3d_clean_up ( this ) !! Cleans up resources held by the plot_3d object. type ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. call this % free_resources () if ( associated ( this % m_xAxis )) then deallocate ( this % m_xAxis ) nullify ( this % m_xAxis ) end if if ( associated ( this % m_yAxis )) then deallocate ( this % m_yAxis ) nullify ( this % m_yAxis ) end if if ( associated ( this % m_zAxis )) then deallocate ( this % m_zAxis ) nullify ( this % m_zAxis ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_init ( this , term , fname , err ) !! Initializes the plot_3d object. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !!  The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Initialize the base class ! call plt_init(this, term, fname, errmgr) call this % plot % initialize ( term , fname , errmgr ) ! Process flag = 0 if (. not . associated ( this % m_xAxis )) then allocate ( this % m_xAxis , stat = flag ) end if if ( flag == 0 . and . . not . associated ( this % m_yAxis )) then allocate ( this % m_yAxis , stat = flag ) end if if ( flag == 0 . and . . not . associated ( this % m_zAxis )) then allocate ( this % m_zAxis , stat = flag ) end if ! Error Checking if ( flag /= 0 ) then call report_memory_error ( errmgr , \"p3d_init\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function p3d_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot_3d object. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , n real ( real64 ) :: lmargin , rmargin , tmargin , bmargin class ( plot_data ), pointer :: ptr class ( plot_axis ), pointer :: xAxis , yAxis , zAxis type ( legend ), pointer :: leg type ( color ) :: clr ! class(plot_label), pointer :: lbl ! Initialization call str % initialize () ! Call the base routine call str % append ( this % plot % get_command_string ()) ! Grid if ( this % get_show_x_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid xtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_x_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mxtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_y_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid ytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_y_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_z_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid ztics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_z_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_z_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_z_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_z_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mztics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_z_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_z_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_z_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_gridlines ()) then ! X call str % append ( new_line ( 'a' )) call str % append ( 'set grid xtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) ! Y call str % append ( new_line ( 'a' )) call str % append ( 'set grid ytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) ! Z call str % append ( new_line ( 'a' )) call str % append ( 'set grid ztics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_z_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_z_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_z_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if ! Title n = len_trim ( this % get_title ()) if ( n > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( 'set title \"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if ! Margin lmargin = this % get_left_margin () rmargin = this % get_right_margin () tmargin = this % get_top_margin () bmargin = this % get_bottom_margin () if ( lmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set lmargin at screen \" ) call str % append ( to_string ( lmargin )) end if if ( rmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set rmargin at screen \" ) call str % append ( to_string ( rmargin )) end if if ( tmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set tmargin at screen \" ) call str % append ( to_string ( tmargin )) end if if ( bmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set bmargin at screen \" ) call str % append ( to_string ( bmargin )) end if ! Axes call str % append ( new_line ( 'a' )) xAxis => this % get_x_axis () if ( associated ( xAxis )) call str % append ( xAxis % get_command_string ()) call str % append ( new_line ( 'a' )) yAxis => this % get_y_axis () if ( associated ( yAxis )) call str % append ( yAxis % get_command_string ()) call str % append ( new_line ( 'a' )) zAxis => this % get_z_axis () if ( associated ( zAxis )) call str % append ( zAxis % get_command_string ()) ! Tic Marks if (. not . this % get_tics_inward ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set tics out\" ) end if if ( xAxis % get_zero_axis () . or . yAxis % get_zero_axis () . or . & zAxis % get_zero_axis ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set tics axis\" ) end if ! Border if ( this % get_draw_border ()) then n = 31 else n = 0 if (. not . xAxis % get_zero_axis ()) n = n + 1 if (. not . yAxis % get_zero_axis ()) n = n + 4 if (. not . zAxis % get_zero_axis ()) n = n + 16 call str % append ( new_line ( 'a' )) call str % append ( \"set xtics nomirror\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set ytics nomirror\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set ztics nomirror\" ) end if call str % append ( new_line ( 'a' )) if ( n > 0 ) then call str % append ( \"set border \" ) call str % append ( to_string ( n )) else call str % append ( \"unset border\" ) end if call str % append ( new_line ( 'a' )) call str % append ( \"set border linewidth \" ) call str % append ( to_string ( this % get_border_line_width ())) ! Force the z-axis to move to the x-y plane if ( this % get_z_intersect_xy ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set ticslevel 0\" ) end if ! Scaling if ( this % get_axis_equal ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set view equal xyz\" ) end if ! Legend call str % append ( new_line ( 'a' )) leg => this % get_legend () if ( associated ( leg )) call str % append ( leg % get_command_string ()) ! ! Labels ! do i = 1, this%get_label_count() !     lbl => this%get_label(i) !     if (.not.associated(lbl)) cycle !     call str%append(new_line('a')) !     call str%append(lbl%get_command_string()) ! end do ! Orientation call str % append ( new_line ( 'a' )) call str % append ( \"set view \" ) if ( this % get_use_map_view ()) then call str % append ( \"map\" ) else call str % append ( to_string ( this % get_elevation ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_azimuth ())) end if ! Coordinate system if ( this % get_coordinate_system () == COORDINATES_CYLINDRICAL ) then call str % append ( new_line ( 'a' )) call str % append ( \"set mapping cylindrical\" ) else if ( this % get_coordinate_system () == COORDINATES_SPHERICAL ) then call str % append ( new_line ( 'a' )) call str % append ( \"set mapping spherical\" ) end if ! Define the datablock n = this % get_count () do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( new_line ( 'a' )) call str % append ( \"$\" ) call str % append ( ptr % get_datablock_name ()) call str % append ( \" << EOD\" ) call str % append ( new_line ( 'a' )) call str % append ( ptr % get_data_string ()) call str % append ( \"EOD\" ) end do ! Define the plot function and data formatting commands call str % append ( new_line ( 'a' )) call str % append ( \"splot \" ) do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( ptr % get_command_string ()) if ( i /= n ) call str % append ( \", \" ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function p3d_get_x_axis ( this ) result ( ptr ) !! Gets the x-axis object. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. class ( plot_axis ), pointer :: ptr !! A pointer to the x-axis object. ptr => this % m_xAxis end function ! ------------------------------------------------------------------------------ function p3d_get_y_axis ( this ) result ( ptr ) !! Gets the y-axis object. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. class ( plot_axis ), pointer :: ptr !! A pointer to the y-axis object. ptr => this % m_yAxis end function ! ------------------------------------------------------------------------------ function p3d_get_z_axis ( this ) result ( ptr ) !! Gets the z-axis object. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. class ( plot_axis ), pointer :: ptr !! A pointer to the z-axis object. ptr => this % m_zAxis end function ! ------------------------------------------------------------------------------ pure function p3d_get_elevation ( this ) result ( x ) !! Gets the plot elevation angle. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. real ( real64 ) :: x !! The elevation angle, in degrees. x = this % m_elevation end function ! -------------------- subroutine p3d_set_elevation ( this , x ) !! Sets the plot elevation angle. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. real ( real64 ), intent ( in ) :: x !! The elevation angle, in degrees. this % m_elevation = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_azimuth ( this ) result ( x ) !! Gets the plot azimuth angle. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. real ( real64 ) :: x !! The azimuth angle, in degrees. x = this % m_azimuth end function ! -------------------- subroutine p3d_set_azimuth ( this , x ) !! Sets the plot azimuth angle. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. real ( real64 ), intent ( in ) :: x !! The azimuth angle, in degrees. this % m_azimuth = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_axis_intersect ( this ) result ( x ) !! Gets a value determining if the z-axis should intersect the !! x-y plane. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. logical :: x !! Returns true if the z-axis should intersect the x-y plane; else, !! false to allow the z-axis to float. x = this % m_zIntersect end function ! -------------------- subroutine p3d_set_z_axis_intersect ( this , x ) !! Sets a value determining if the z-axis should intersect the !! x-y plane. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. logical , intent ( in ) :: x !! Set to true if the z-axis should intersect the x-y plane; else, !! false to allow the z-axis to float. this % m_zIntersect = x end subroutine ! ADDED March 29, 2023 - JAC ! ------------------------------------------------------------------------------ pure function p3d_get_use_map_view ( this ) result ( rst ) !! Gets a value determining if the view should be set to a 2D !! map view.  If true, the azimuth and elevation terms are ignored. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. logical :: rst !! Returns true if the map view will be used; else, false. rst = this % m_setMap end function ! -------------------- subroutine p3d_set_use_map_view ( this , x ) !! Sets a value determining if the view should be set to a 2D !! map view.  If true, the azimuth and elevation terms are ignored. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. logical , intent ( in ) :: x !! Seturns true if the map view will be used; else, false. this % m_setMap = x end subroutine ! ADDED Sept. 15, 2023 - JAC ! ------------------------------------------------------------------------------ pure function p3d_get_csys ( this ) result ( rst ) !! Gets a value determining the coordinate system. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. integer ( int32 ) :: rst !! The coordinate system ID, which must be one of the following. !! !! - COORDINATES_CARTESIAN !! !! - COORDINATES_CYLINDRICAL !! !! - COORDINATES_SPHERICAL rst = this % m_csys end function ! -------------------- subroutine p3d_set_csys ( this , x ) !! Sets a value determining the coordinate system. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. integer ( int32 ), intent ( in ) :: x !! The coordinate system ID, which must be one of the following. !! !! - COORDINATES_CARTESIAN !! !! - COORDINATES_CYLINDRICAL !! !! - COORDINATES_SPHERICAL if ( x /= COORDINATES_CARTESIAN . and . & x /= COORDINATES_CYLINDRICAL . and . & x /= COORDINATES_SPHERICAL ) & then ! Set to default as the input is nonsensical this % m_csys = COORDINATES_CARTESIAN else this % m_csys = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_set_x_axis_title ( this , x ) !! Sets the title associated with the plot's x-axis. class ( plot_3d ), intent ( inout ) :: this !! The [[plot_3d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_xAxis )) then call this % m_xAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_set_y_axis_title ( this , x ) !! Sets the title associated with the plot's y-axis. class ( plot_3d ), intent ( inout ) :: this !! The [[plot_3d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_yAxis )) then call this % m_yAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_set_z_axis_title ( this , x ) !! Sets the title associated with the plot's z-axis. class ( plot_3d ), intent ( inout ) :: this !! The [[plot_3d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_zAxis )) then call this % m_zAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_show_z_major_grid ( this ) result ( x ) !! Gets a value determining if the z-axis major grid should be shown. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showZMajorGrid end function ! -------------------- subroutine p3d_set_show_z_major_grid ( this , x ) !! Sets a value determining if the z-axis major grid should be shown. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showZMajorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_show_z_minor_grid ( this ) result ( x ) !! Gets a value determining if the z-axis minor grid should be shown. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showZMinorGrid end function ! -------------------- subroutine p3d_set_show_z_minor_grid ( this , x ) !! Sets a value determining if the z-axis minor grid should be shown. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showZMinorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_major_grid_color ( this ) result ( x ) !! Gets the color of the z-axis major grid lines. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. type ( color ) :: x !! The color. x = this % m_zMajorGridColor end function ! -------------------- subroutine p3d_set_z_major_grid_color ( this , x ) !! Sets the color of the z-axis major grid lines. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. type ( color ), intent ( in ) :: x !! The color. this % m_zMajorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_minor_grid_color ( this ) result ( x ) !! Gets the color of the z-axis minor grid lines. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. type ( color ) :: x !! The color. x = this % m_zMinorGridColor end function ! -------------------- subroutine p3d_set_z_minor_grid_color ( this , x ) !! Sets the color of the z-axis minor grid lines. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. type ( color ), intent ( in ) :: x !! The color. this % m_zMinorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_major_grid_line_style ( this ) result ( x ) !! Gets the line style used for the z-axis major grid lines. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_zMajorGridLineStyle end function ! -------------------- subroutine p3d_set_z_major_grid_line_style ( this , x ) !! Sets the line style used for the z-axis major grid lines. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_zMajorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_minor_grid_line_style ( this ) result ( x ) !! Gets the line style used for the z-axis minor grid lines. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_zMinorGridLineStyle end function ! -------------------- subroutine p3d_set_z_minor_grid_line_style ( this , x ) !! Sets the line style used for the z-axis minor grid lines. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_zMinorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_major_grid_line_width ( this ) result ( x ) !! Gets the width of the z-axis major grid lines, in pixels. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. real ( real32 ) :: x !! The line width. x = this % m_zMajorGridLineWidth end function ! -------------------- subroutine p3d_set_z_major_grid_line_width ( this , x ) !! Sets the width of the z-axis major grid lines, in pixels. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_zMajorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_minor_grid_line_width ( this ) result ( x ) !! Gets the width of the z-axis minor grid lines, in pixels. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. real ( real32 ) :: x !! The line width. x = this % m_zMinorGridLineWidth end function ! -------------------- subroutine p3d_set_z_minor_grid_line_width ( this , x ) !! Sets the width of the z-axis minor grid lines, in pixels. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_zMinorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_push_data ( this , x , y , z , lw , name , ls , lc ) !! Adds a data set to the plot. class ( plot_3d ), intent ( inout ) :: this !! The [[plot_3d]] object. real ( real64 ), intent ( in ), dimension (:) :: x !! The x-values. real ( real64 ), intent ( in ), dimension ( size ( x )) :: y !! The y-values. real ( real64 ), intent ( in ), dimension ( size ( x )) :: z !! The z-values. real ( real32 ), intent ( in ), optional :: lw !! The line width. character ( len = * ), intent ( in ), optional :: name !! A name to associate with the data set. integer ( int32 ), intent ( in ), optional :: ls !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID type ( color ), intent ( in ), optional :: lc !! The line color. type ( plot_data_3d ) :: pd call pd % define_data ( x , y , z ) if ( present ( lw )) call pd % set_line_width ( lw ) if ( present ( name )) call pd % set_name ( name ) if ( present ( ls )) call pd % set_line_style ( ls ) if ( present ( lc )) call pd % set_line_color ( lc ) call this % push ( pd ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_3d.f90.html"},{"title":"fplot_terminal.f90 – FPLOT","text":"Source Code ! fplot_terminal.f90 module fplot_terminal use iso_fortran_env use fplot_plot_object use fplot_constants use strings implicit none private public :: terminal public :: file_terminal public :: term_get_string_result type , abstract , extends ( plot_object ) :: terminal !! A GNUPLOT terminal object. private integer ( int32 ) :: m_windowHeight = GNUPLOT_DEFAULT_WINDOW_HEIGHT !! The window height, in pixels. integer ( int32 ) :: m_windowWidth = GNUPLOT_DEFAULT_WINDOW_WIDTH !! The window width, in pixels. integer ( int32 ) :: m_termID = 0 !! The terminal ID number. character ( len = GNUPLOT_MAX_LABEL_LENGTH ) :: m_title = \"\" !! The plot window title. logical :: m_hasTitle = . false . !! Determines if the plot title is defined. character ( len = GNUPLOT_MAX_LABEL_LENGTH ) :: m_fontName = & GNUPLOT_DEFAULT_FONTNAME !! The font used by the graph. integer ( int32 ) :: m_fontSize = GNUPLOT_DEFAULT_FONT_SIZE !! The size of the font used by the graph. contains procedure , public :: get_window_width => term_get_window_width procedure , public :: set_window_width => term_set_window_width procedure , public :: get_window_height => term_get_window_height procedure , public :: set_window_height => term_set_window_height procedure , public :: get_command_string => term_get_command_string procedure , public :: get_plot_window_number => & term_get_plot_window_number procedure , public :: set_plot_window_number => & term_set_plot_window_number procedure , public :: get_title => term_get_title procedure , public :: set_title => term_set_title procedure , public :: get_font_name => term_get_font_name procedure , public :: set_font_name => term_set_font_name procedure , public :: get_font_size => term_get_font_size procedure , public :: set_font_size => term_set_font_size procedure ( term_get_string_result ), deferred , public :: get_id_string end type interface function term_get_string_result ( this ) result ( x ) !! Retrieves a string from a terminal. import terminal class ( terminal ), intent ( in ) :: this !! The terminal object. character ( len = :), allocatable :: x !! The string. end function end interface type , abstract , extends ( terminal ) :: file_terminal !! Defines a terminal meant to save results directly to file !! (e.g. PNG, SVG, etc.). character ( len = GNUPLOT_MAX_PATH_LENGTH ), private :: m_fname = \"default.plt\" !! The filename. contains procedure , public :: get_filename => fterm_get_filename procedure , public :: set_filename => fterm_set_filename procedure , public :: get_command_string => fterm_get_command_string end type contains ! ------------------------------------------------------------------------------ pure function term_get_window_width ( this ) result ( x ) !! Gets the width of the plot window. class ( terminal ), intent ( in ) :: this !! The terminal object. integer :: x !! The width of the plot window. x = this % m_windowWidth end function ! -------------------- subroutine term_set_window_width ( this , x ) !! Sets the width of the plot window. class ( terminal ), intent ( inout ) :: this !! The terminal object. integer , intent ( in ) :: x !! The width of the plot window. if ( x == 0 ) then this % m_windowWidth = GNUPLOT_DEFAULT_WINDOW_WIDTH else this % m_windowWidth = abs ( x ) end if end subroutine ! ------------------------------------------------------------------------------ pure function term_get_window_height ( this ) result ( x ) !! Gets the height of the plot window. class ( terminal ), intent ( in ) :: this !! The terminal object. integer :: x !! The height of the plot window. x = this % m_windowHeight end function ! -------------------- subroutine term_set_window_height ( this , x ) !! Sets the height of the plot window. class ( terminal ), intent ( inout ) :: this !! The terminal object. integer , intent ( in ) :: x !! The height of the plot window. if ( x == 0 ) then this % m_windowHeight = GNUPLOT_DEFAULT_WINDOW_HEIGHT else this % m_windowHeight = abs ( x ) end if end subroutine ! ------------------------------------------------------------------------------ pure function term_get_plot_window_number ( this ) result ( x ) !! Gets the targeted plot window number. class ( terminal ), intent ( in ) :: this !! The terminal object. integer ( int32 ) :: x !! The plot window number. x = this % m_termID end function ! -------------------- subroutine term_set_plot_window_number ( this , x ) !! Sets the targeted plot window number. class ( terminal ), intent ( inout ) :: this !! The terminal object. integer ( int32 ), intent ( in ) :: x !! The plot window number. this % m_termID = x end subroutine ! ------------------------------------------------------------------------------ function term_get_title ( this ) result ( str ) !! Gets the plot window's title. class ( terminal ), intent ( in ) :: this !! The terminal object. character ( len = :), allocatable :: str !! The title. integer ( int32 ) :: n n = len_trim ( str ) allocate ( character ( len = n ) :: str ) str = trim ( this % m_title ) end function ! -------------------- subroutine term_set_title ( this , txt ) !! Sets the plot window's title. class ( terminal ), intent ( inout ) :: this !! The terminal object. character ( len = * ), intent ( in ) :: txt !! The title. integer ( int32 ) :: n n = min ( len_trim ( txt ), GNUPLOT_MAX_LABEL_LENGTH ) this % m_title = \"\" if ( n /= 0 ) then this % m_title ( 1 : n ) = txt ( 1 : n ) this % m_hasTitle = . true . else this % m_hasTitle = . false . end if end subroutine ! ------------------------------------------------------------------------------ function term_get_font_name ( this ) result ( name ) !! Gets the name of the font used for text displayed by the graph. class ( terminal ), intent ( in ) :: this !! The terminal object. character ( len = :), allocatable :: name !! The font name. integer ( int32 ) :: n n = len_trim ( this % m_fontName ) allocate ( character ( len = n ) :: name ) name = trim ( this % m_fontName ) end function ! -------------------- subroutine term_set_font_name ( this , name ) !! Sets the name of the font used for text displayed by the graph. class ( terminal ), intent ( inout ) :: this !! The terminal object. character ( len = * ), intent ( in ) :: name !! The font name. integer ( int32 ) :: n n = min ( len_trim ( name ), GNUPLOT_MAX_LABEL_LENGTH ) this % m_fontName = \"\" if ( n == 0 ) then this % m_fontName = GNUPLOT_DEFAULT_FONTNAME else this % m_fontName ( 1 : n ) = name ( 1 : n ) end if end subroutine ! ------------------------------------------------------------------------------ pure function term_get_font_size ( this ) result ( sz ) !! Gets the size of the font used by the graph. class ( terminal ), intent ( in ) :: this !! The terminal object. integer ( int32 ) :: sz !! The font size, in points. sz = this % m_fontSize end function ! -------------------- subroutine term_set_font_size ( this , sz ) !! Sets the size of the font used by the graph. class ( terminal ), intent ( inout ) :: this !! The terminal object. integer ( int32 ), intent ( in ) :: sz !! The font size, in points. if ( sz == 0 ) then this % m_fontSize = GNUPLOT_DEFAULT_FONT_SIZE else this % m_fontSize = abs ( sz ) end if end subroutine ! ------------------------------------------------------------------------------ function term_get_command_string ( this ) result ( x ) !! Returns the appropriate GNUPLOT command string to establish !! appropriate parameters. class ( terminal ), intent ( in ) :: this !! The terminal object. character ( len = :), allocatable :: x !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str ! Process call str % initialize () call str % append ( \"set term \" ) call str % append ( this % get_id_string ()) call str % append ( \" enhanced \" ) call str % append ( to_string ( this % get_plot_window_number ())) call str % append ( \" font \" ) call str % append ( '\"' ) call str % append ( this % get_font_name ()) call str % append ( ',' ) call str % append ( to_string ( this % get_font_size ())) call str % append ( '\"' ) call str % append ( \" size \" ) call str % append ( to_string ( this % get_window_width ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_window_height ())) if ( this % m_hasTitle ) then call str % append ( ' title \"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if x = char ( str % to_string ()) end function ! ****************************************************************************** ! FILE_TERMINAL ! ------------------------------------------------------------------------------ pure function fterm_get_filename ( this ) result ( txt ) !! Gets the filename for the output file. class ( file_terminal ), intent ( in ) :: this !! The file_terminal object. character ( len = :), allocatable :: txt !! The filename. integer ( int32 ) :: n n = len_trim ( this % m_fname ) allocate ( character ( len = n ) :: txt ) txt = trim ( this % m_fname ) end function ! -------------------- subroutine fterm_set_filename ( this , txt ) !! Sets the filename for the output file. class ( file_terminal ), intent ( inout ) :: this !! The file_terminal object. character ( len = * ), intent ( in ) :: txt !! The filename. integer ( int32 ) :: n n = min ( len_trim ( txt ), GNUPLOT_MAX_PATH_LENGTH ) this % m_fname = \"\" if ( n /= 0 ) then this % m_fname ( 1 : n ) = txt ( 1 : n ) else this % m_fname = \"default.plt\" end if end subroutine ! ------------------------------------------------------------------------------ function fterm_get_command_string ( this ) result ( x ) !! Returns the appropriate GNUPLOT command string to establish !! appropriate parameters. class ( file_terminal ), intent ( in ) :: this !! The file_terminal object. character ( len = :), allocatable :: x !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str ! Process call str % initialize () call str % append ( \"set term \" ) call str % append ( this % get_id_string ()) call str % append ( \" font \" ) call str % append ( '\"' ) call str % append ( this % get_font_name ()) call str % append ( ',' ) call str % append ( to_string ( this % get_font_size ())) call str % append ( '\"' ) call str % append ( \" size \" ) call str % append ( to_string ( this % get_window_width ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_window_height ())) call str % append ( new_line ( 'a' )) call str % append ( \"set output \" ) call str % append ( '\"' ) call str % append ( this % get_filename ()) call str % append ( '\"' ) x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_terminal.f90.html"},{"title":"fplot_plot_data.f90 – FPLOT","text":"Source Code ! fplot_plot_data.f90 module fplot_plot_data use iso_fortran_env use fplot_plot_object use fplot_constants use fplot_colors use strings use fplot_errors implicit none private public :: plot_data public :: pd_get_string_result public :: pd_clear_action public :: plot_data_colored public :: scatter_plot_data public :: line_plot_data public :: spd_get_int_value public :: spd_get_string_result public :: spd_get_value public :: spd_set_value public :: lpd_get_cmd public :: spd_get_cmd type , abstract , extends ( plot_object ) :: plot_data !! A container for plot data. private character ( len = PLOTDATA_MAX_NAME_LENGTH ) :: m_name = \"\" !! The name to associate with the data set. character ( len = PLOTDATA_MAX_NAME_LENGTH ) :: m_datablockName = \"\" !! The name to associate with the datablock used to store the data !! in the actual plot file. contains procedure , public :: get_name => pd_get_name procedure , public :: set_name => pd_set_name procedure , public :: get_datablock_name => pd_get_datablock_name procedure , public :: set_datablock_name => pd_set_datablock_name procedure , public :: create_unique_datablock_name => & pd_create_unique_datablock_name procedure , public :: clear_all => pd_clear procedure ( pd_get_string_result ), deferred , public :: get_data_string procedure ( pd_clear_action ), deferred , public :: clear_data end type interface function pd_get_string_result ( this ) result ( x ) !! Retrieves a string from a plot_data object. import plot_data class ( plot_data ), intent ( in ) :: this !! The plot_data object. character ( len = :), allocatable :: x !! The string. end function subroutine pd_clear_action ( this ) !! Performs a clearing operation. import plot_data class ( plot_data ), intent ( inout ) :: this !! The plot_data object. end subroutine end interface type , abstract , extends ( plot_data ) :: plot_data_colored !! Defines a colored plot data set. private type ( color ) :: m_color = CLR_BLUE !! The line color. logical :: m_useAutoColor = . true . !! Let the object choose colors automatically? integer ( int32 ) :: m_colorIndex = 1 !! The color index to use, assuming we're using auto color contains procedure , public :: get_line_color => pdc_get_line_color procedure , public :: set_line_color => pdc_set_line_color procedure , public :: get_color_index => pdc_get_color_index procedure , public :: set_color_index => pdc_set_color_index end type type , abstract , extends ( plot_data_colored ) :: line_plot_data !! A plot_data object for describing line series data. logical , private :: m_drawLine = . true . !! Draw a line connecting the dots? logical , private :: m_drawMarkers = . false . !! Draw the markers? real ( real32 ), private :: m_lineWidth = 2.0 !! Line width. integer ( int32 ), private :: m_lineStyle = LINE_SOLID !! Line style. integer ( int32 ), private :: m_markerType = MARKER_FILLED_CIRCLE !! Marker type. real ( real32 ), private :: m_markerSize = 1.5 !! Marker size multiplier. integer ( int32 ), private :: m_markerFrequency = 1 !! Marker frequency. logical , private :: m_impulses = . false . !! Draw the impulse lines? contains procedure , public :: get_command_string => lpd_get_cmd procedure , public :: get_line_width => lpd_get_line_width procedure , public :: set_line_width => lpd_set_line_width procedure , public :: get_line_style => lpd_get_line_style procedure , public :: set_line_style => lpd_set_line_style procedure , public :: get_draw_line => lpd_get_draw_line procedure , public :: set_draw_line => lpd_set_draw_line procedure , public :: get_draw_markers => lpd_get_draw_markers procedure , public :: set_draw_markers => lpd_set_draw_markers procedure , public :: get_marker_style => lpd_get_marker_style procedure , public :: set_marker_style => lpd_set_marker_style procedure , public :: get_marker_scaling => lpd_get_marker_scaling procedure , public :: set_marker_scaling => lpd_set_marker_scaling procedure , public :: get_marker_frequency => lpd_get_marker_frequency procedure , public :: set_marker_frequency => lpd_set_marker_frequency procedure , public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure , public :: set_draw_impulses => lpd_set_draw_impulse_lines end type type , abstract , extends ( line_plot_data ) :: scatter_plot_data !! A plot_data object for describing scatter plot data sets. logical , private :: m_simplifyData = . true . !! True if large data sets should be simplified before sending to !! GNUPLOT. real ( real64 ), private :: m_simplifyFactor = 1.0d-3 !! A scaling factor used to establish the simplification tolerance. !! The simplification tolerance is established by multiplying this !! factor by the range in the dependent variable data. logical , private :: m_dataDependentColors = . false . !! Determines if the data should utilize data-dependent colors. logical , private :: m_filledCurve = . false . !! Fill the curve? logical , private :: m_useVariableSizePoints = . false . !! Use variable size data points? contains procedure , public :: get_command_string => spd_get_cmd procedure ( spd_get_int_value ), deferred , public :: get_count procedure ( spd_get_value ), deferred , public :: get_x procedure ( spd_set_value ), deferred , public :: set_x procedure ( spd_get_value ), deferred , public :: get_y procedure ( spd_set_value ), deferred , public :: set_y procedure ( spd_get_string_result ), deferred , public :: get_axes_string procedure , public :: get_simplify_data => spd_get_simplify_data procedure , public :: set_simplify_data => spd_set_simplify_data procedure , public :: get_simplification_factor => spd_get_simplify_factor procedure , public :: set_simplification_factor => spd_set_simplify_factor procedure , public :: get_use_data_dependent_colors => & spd_get_data_dependent_colors procedure , public :: set_use_data_dependent_colors => & spd_set_data_dependent_colors procedure , public :: get_fill_curve => spd_get_filled procedure , public :: set_fill_curve => spd_set_filled procedure , public :: get_use_variable_size_points => spd_get_use_var_point_size procedure , public :: set_use_variable_size_points => spd_set_use_var_point_size end type interface pure function spd_get_value ( this , index ) result ( x ) !! Gets an indexed value from the scatter_plot_data object. use , intrinsic :: iso_fortran_env , only : int32 , real64 import scatter_plot_data class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. integer ( int32 ), intent ( in ) :: index !! The index. real ( real64 ) :: x !! The value. end function subroutine spd_set_value ( this , index , x ) !! Sets an indexed value from the scatter_plot_data object. use , intrinsic :: iso_fortran_env , only : int32 , real64 import scatter_plot_data class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. integer ( int32 ), intent ( in ) :: index !! The index. real ( real64 ), intent ( in ) :: x !! The value. end subroutine pure function spd_get_int_value ( this ) result ( x ) !! Gets an integer value from the scatter_plot_data object. use , intrinsic :: iso_fortran_env , only : int32 import scatter_plot_data class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. integer ( int32 ) :: x !! The value. end function function spd_get_string_result ( this ) result ( x ) !! Gets a string value from the scatter_plot_data object. import scatter_plot_data class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. character ( len = :), allocatable :: x !! The string. end function end interface contains ! ------------------------------------------------------------------------------ pure function pd_get_name ( this ) result ( txt ) !! Gets the name to associate with this data set. class ( plot_data ), intent ( in ) :: this !! The plot_data object. character ( len = :), allocatable :: txt !! The name. txt = trim ( this % m_name ) end function ! -------------------- subroutine pd_set_name ( this , txt ) !! Sets the name to associate with this data set. class ( plot_data ), intent ( inout ) :: this !! The plot_data object. character ( len = * ), intent ( in ) :: txt !! The name. integer ( int32 ) :: n n = min ( len ( txt ), PLOTDATA_MAX_NAME_LENGTH ) this % m_name = \"\" if ( n /= 0 ) then this % m_name ( 1 : n ) = txt ( 1 : n ) end if end subroutine ! ------------------------------------------------------------------------------ pure function pd_get_datablock_name ( this ) result ( rst ) !! Gets the name to associate with the datablock in the actual GNUPLOT !! plot file. class ( plot_data ), intent ( in ) :: this !! The plot_data object. character ( len = :), allocatable :: rst !! The name. rst = trim ( this % m_datablockName ) end function ! -------------------- subroutine pd_set_datablock_name ( this , x ) !! Sets the name to associate with the datablock in the actual GNUPLOT !! plot file. class ( plot_data ), intent ( inout ) :: this !! The plot_data object. character ( len = * ), intent ( in ) :: x !! The name. integer ( int32 ) :: n n = min ( len ( x ), PLOTDATA_MAX_NAME_LENGTH ) this % m_datablockName = \"\" if ( n /= 0 ) then this % m_datablockName ( 1 : n ) = x ( 1 : n ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine pd_create_unique_datablock_name ( this ) !! Creates a unique name for the GNUPLOT datablock representing this !! data set. class ( plot_data ), intent ( inout ) :: this !! The plot_data object. type ( string ) :: str real ( real64 ) :: r , rng integer ( int32 ) :: count call random_seed () call random_number ( r ) r = r * huge ( count ) count = floor ( r ) str = \"PlotData\" // to_string ( count ) call this % set_datablock_name ( char ( str )) end subroutine ! ------------------------------------------------------------------------------ subroutine pd_clear ( this ) !! Clears the data set by removing stored data and clearing the !! GNUPLOT datablock name.  This routine also calls clear_data to !! ensure the data is cleared from the data set as well as the datablock !! name. class ( plot_data ), intent ( inout ) :: this !! The plot_data object. call this % set_datablock_name ( \"\" ) call this % clear_data () end subroutine ! ****************************************************************************** ! PLOT_DATA_COLORED ! ------------------------------------------------------------------------------ pure function pdc_get_line_color ( this ) result ( x ) !! Gets the object color. class ( plot_data_colored ), intent ( in ) :: this !! The plot_data_colored object. type ( color ) :: x !! The color. if ( this % m_useAutoColor ) then x = color_list ( this % get_color_index ()) else x = this % m_color end if end function ! -------------------- subroutine pdc_set_line_color ( this , x ) !! Sets the object color. class ( plot_data_colored ), intent ( inout ) :: this !! The plot_data_colored object. type ( color ), intent ( in ) :: x !! The color. this % m_color = x this % m_useAutoColor = . false . end subroutine ! ------------------------------------------------------------------------------ pure function pdc_get_color_index ( this ) result ( x ) !! Gets the color index. class ( plot_data_colored ), intent ( in ) :: this !! The plot_data_colored object. integer ( int32 ) :: x !! The index value. x = this % m_colorIndex end function ! -------------------- subroutine pdc_set_color_index ( this , x ) !! Sets the color index. class ( plot_data_colored ), intent ( inout ) :: this !! The plot_data_colored object. integer ( int32 ), intent ( in ) :: x !! The index value. this % m_colorIndex = x end subroutine ! ****************************************************************************** ! LINE_PLOT_DATA ! ------------------------------------------------------------------------------ pure function lpd_get_line_width ( this ) result ( x ) !! Gets the width of the line, in pixels. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. real ( real32 ) :: x !! The line width. x = this % m_lineWidth end function ! -------------------- subroutine lpd_set_line_width ( this , x ) !! Sets the width of the line, in pixels. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_lineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_line_style ( this ) result ( x ) !! Gets the line style. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_lineStyle end function ! -------------------- subroutine lpd_set_line_style ( this , x ) !! Sets the line style. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_lineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_draw_line ( this ) result ( x ) !! Gets a value determining if a line should be drawn. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. logical :: x !! Returns true if the line should be drawn; else, false. x = this % m_drawLine end function ! -------------------- subroutine lpd_set_draw_line ( this , x ) !! Sets a value determining if a line should be drawn. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. logical , intent ( in ) :: x !! Set to true if the line should be drawn; else, false. this % m_drawLine = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_draw_markers ( this ) result ( x ) !! Gets a value determining if data point markers should be drawn. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. logical :: x !! Returns true if the markers should be drawn; else, false. x = this % m_drawMarkers end function ! -------------------- subroutine lpd_set_draw_markers ( this , x ) !! Sets a value determining if data point markers should be drawn. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. logical , intent ( in ) :: x !! Set to true if the markers should be drawn; else, false. this % m_drawMarkers = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_marker_style ( this ) result ( x ) !! Gets the marker style. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. integer ( int32 ) :: x !! The marker type.  The marker type must be one of the following: !! !!  - MARKER_ASTERISK !! !!  - MARKER_EMPTY_CIRCLE !! !!  - MARKER_EMPTY_NABLA !! !!  - MARKER_EMPTY_RHOMBUS !! !!  - MARKER_EMPTY_SQUARE !! !!  - MARKER_EMPTY_TRIANGLE !! !!  - MARKER_FILLED_CIRCLE !! !!  - MARKER_FILLED_NABLA !! !!  - MARKER_FILLED_RHOMBUS !! !!  - MARKER_FILLED_SQUARE !! !!  - MARKER_FILLED_TRIANGLE !! !!  - MARKER_PLUS !! !!  - MARKER_X x = this % m_markerType end function ! -------------------- subroutine lpd_set_marker_style ( this , x ) !! Sets the marker style. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. integer ( int32 ), intent ( in ) :: x !! The marker type.  The marker type must be one of the following: !! !!  - MARKER_ASTERISK !! !!  - MARKER_EMPTY_CIRCLE !! !!  - MARKER_EMPTY_NABLA !! !!  - MARKER_EMPTY_RHOMBUS !! !!  - MARKER_EMPTY_SQUARE !! !!  - MARKER_EMPTY_TRIANGLE !! !!  - MARKER_FILLED_CIRCLE !! !!  - MARKER_FILLED_NABLA !! !!  - MARKER_FILLED_RHOMBUS !! !!  - MARKER_FILLED_SQUARE !! !!  - MARKER_FILLED_TRIANGLE !! !!  - MARKER_PLUS !! !!  - MARKER_X if ( x == MARKER_ASTERISK . or . & x == MARKER_EMPTY_CIRCLE . or . & x == MARKER_EMPTY_NABLA . or . & x == MARKER_EMPTY_RHOMBUS . or . & x == MARKER_EMPTY_SQUARE . or . & x == MARKER_EMPTY_TRIANGLE . or . & x == MARKER_FILLED_CIRCLE . or . & x == MARKER_FILLED_NABLA . or . & x == MARKER_FILLED_RHOMBUS . or . & x == MARKER_FILLED_SQUARE . or . & x == MARKER_FILLED_TRIANGLE . or . & x == MARKER_PLUS . or . & x == MARKER_X ) then ! Only alter the value if the marker is a known type this % m_markerType = x end if end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_marker_scaling ( this ) result ( x ) !! Gets the marker scaling. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. real ( real32 ) :: x !! The scaling factor. x = this % m_markerSize end function ! -------------------- subroutine lpd_set_marker_scaling ( this , x ) !! Sets the marker scaling. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. real ( real32 ), intent ( in ) :: x !! The scaling factor. this % m_markerSize = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_marker_frequency ( this ) result ( x ) !! Gets the marker frequency. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. integer ( int32 ) :: x !! The marker frequency. x = this % m_markerFrequency end function ! -------------------- subroutine lpd_set_marker_frequency ( this , x ) !! Sets the marker frequency. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. integer ( int32 ), intent ( in ) :: x !! The marker frequency. this % m_markerFrequency = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_draw_impulse_lines ( this ) result ( x ) !! Gets a value determining if impulse lines should be drawn. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. logical :: x !! True if impulse lines should be drawn; else, false. x = this % m_impulses end function ! -------------------- subroutine lpd_set_draw_impulse_lines ( this , x ) !! Sets a value determining if impulse lines should be drawn. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. logical , intent ( in ) :: x !! True if impulse lines should be drawn; else, false. this % m_impulses = x end subroutine ! ------------------------------------------------------------------------------ function lpd_get_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string to represent this line_plot_data !! object. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Lines or points if ( this % get_draw_impulses ()) then call str % append ( \" with impulses\" ) else if ( this % get_draw_line () . and . this % get_draw_markers ()) then call str % append ( \" with linespoints\" ) else if (. not . this % get_draw_line () . and . this % get_draw_markers ()) then call str % append ( \" with points\" ) else call str % append ( \" with lines\" ) end if end if ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Line Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Define other properties specific to the lines and points if ( this % get_draw_line ()) then call str % append ( \" lt \" ) call str % append ( to_string ( this % get_line_style ())) if ( this % get_line_style () /= LINE_SOLID ) then call str % append ( \" dashtype \" ) call str % append ( to_string ( this % get_line_style ())) end if end if if ( this % get_draw_markers ()) then call str % append ( \" pi \" ) call str % append ( to_string ( this % get_marker_frequency ())) call str % append ( \" pt \" ) call str % append ( to_string ( this % get_marker_style ())) call str % append ( \" ps \" ) call str % append ( to_string ( this % get_marker_scaling ())) end if ! End rst = char ( str % to_string ()) end function ! ****************************************************************************** ! SCATTER_PLOT_DATA ! ------------------------------------------------------------------------------ function spd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this !! scatter_plot_data object. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Lines, points, or filled if ( this % get_fill_curve ()) then call str % append ( \" with filledcurves\" ) else if ( this % get_draw_impulses ()) then call str % append ( \" with impulses\" ) else if ( this % get_draw_line () . and . this % get_draw_markers ()) then call str % append ( \" with linespoints\" ) else if (. not . this % get_draw_line () . and . this % get_draw_markers ()) then call str % append ( \" with points\" ) else call str % append ( \" with lines\" ) end if end if ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Line Color if ( this % get_use_data_dependent_colors ()) then ! http://www.gnuplotting.org/using-a-palette-as-line-color/ call str % append ( \" lc palette\" ) else clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) end if ! Define other properties specific to the lines and points if ( this % get_draw_line ()) then call str % append ( \" lt \" ) call str % append ( to_string ( this % get_line_style ())) if ( this % get_line_style () /= LINE_SOLID ) then call str % append ( \" dashtype \" ) call str % append ( to_string ( this % get_line_style ())) end if end if if ( this % get_draw_markers ()) then call str % append ( \" pi \" ) call str % append ( to_string ( this % get_marker_frequency ())) call str % append ( \" pt \" ) call str % append ( to_string ( this % get_marker_style ())) call str % append ( \" ps \" ) if ( this % get_use_variable_size_points ()) then call str % append ( \"variable\" ) else call str % append ( to_string ( this % get_marker_scaling ())) end if end if ! Define the axes structure call str % append ( \" \" ) call str % append ( this % get_axes_string ()) ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function spd_get_simplify_data ( this ) result ( x ) !! Gets a value determining if the stored data should be !! simplified (reduced) before passing to GNUPLOT. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. logical :: x !! True if the data should be simplified prior to sending !! to GNUPLOT; else, false to leave the data alone. x = this % m_simplifyData end function ! -------------------- subroutine spd_set_simplify_data ( this , x ) !! Sets a value determining if the stored data should be !! simplified (reduced) before passing to GNUPLOT. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. logical , intent ( in ) :: x !! True if the data should be simplified prior to sending !! to GNUPLOT; else, false to leave the data alone. this % m_simplifyData = x end subroutine ! ------------------------------------------------------------------------------ pure function spd_get_simplify_factor ( this ) result ( x ) !! Gets a factor used to establish the simplification tolerance. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. real ( real64 ) :: x !! The scaling factor. x = this % m_simplifyFactor end function ! -------------------- subroutine spd_set_simplify_factor ( this , x ) !! Sets a factor used to establish the simplification tolerance. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. real ( real64 ), intent ( in ) :: x !! The scaling factor. this % m_simplifyFactor = x end subroutine ! ------------------------------------------------------------------------------ pure function spd_get_data_dependent_colors ( this ) result ( rst ) !! Gets a value determing if data-dependent colors should be used. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. logical :: rst !! True if data-dependent colors should be used; else, false. rst = this % m_dataDependentColors end function ! -------------------- subroutine spd_set_data_dependent_colors ( this , x ) !! Sets a value determing if data-dependent colors should be used. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. logical , intent ( in ) :: x !! True if data-dependent colors should be used; else, false. this % m_dataDependentColors = x end subroutine ! ****************************************************************************** ! ADDED: JUNE 28, 2021 - JAC ! ------------------------------------------------------------------------------ pure function spd_get_filled ( this ) result ( rst ) !! Gets a logical value determining if a filled curve should be drawn. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. logical :: rst !! True if the curve should be filled; else, false. rst = this % m_filledCurve end function ! -------------------- subroutine spd_set_filled ( this , x ) !! Sets a logical value determining if a filled curve should be drawn. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. logical , intent ( in ) :: x !! True if the curve should be filled; else, false. this % m_filledCurve = x end subroutine ! ****************************************************************************** ! ADDED: JAN 12, 2024 - JAC ! ------------------------------------------------------------------------------ pure function spd_get_use_var_point_size ( this ) result ( rst ) !! Gets a logical value determining if variable sized data points !! should be used.  The default is false, such that points will be of !! a constant size. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. logical :: rst !! True if variable size points should be used; else, false. rst = this % m_useVariableSizePoints end function ! -------------------- subroutine spd_set_use_var_point_size ( this , x ) !! Sets a logical value determining if variable sized data points !! should be used.  The default is false, such that points will be of !! a constant size. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. logical , intent ( in ) :: x !! True if variable size points should be used; else, false. this % m_useVariableSizePoints = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data.f90.html"},{"title":"fplot_plot_data_bar.f90 – FPLOT","text":"Source Code ! fplot_plot_data_bar.f90 ! TO DO: ! - Allow naming of each data set at the define_data level as well module fplot_plot_data_bar use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: plot_data_bar type , extends ( plot_data_colored ) :: plot_data_bar !! Defines a data set tailored to bar charts. type ( string ), private , allocatable , dimension (:) :: m_axisLabels !! An array containing axis labels to associate with each bar. real ( real64 ), private , allocatable , dimension (:,:) :: m_barData !! An array of data defining each bar - the matrix contains !! multiple columns to allow multiple bars per label. logical , private :: m_useAxisLabels = . true . !! Determines if the axis labels should be used - only applicable !! if there is existing data stored in m_axisLabels & m_axisLabels !! is the same size as m_barData. logical , private :: m_useY2 = . false . !! Draw against the secondary y axis? logical , private :: m_filled = . true . !! Determines if each bar is filled. real ( real32 ), private :: m_alpha = 1.0 !! The alpha value (transparency) for each bar. type ( color ), private , allocatable , dimension (:) :: m_barColors !! The color to use for each data series (column).  If not !! set, a default color cycle is used for multi-series data, !! or the base line color is used for single-series data. type ( string ), private , allocatable , dimension (:) :: m_seriesNames !! The legend title to associate with each data series (column). contains procedure , public :: get_count => pdb_get_count procedure , public :: get => pdb_get_data procedure , public :: set => pdb_set_data procedure , public :: get_data => pdb_get_data_set procedure , public :: get_label => pdb_get_label procedure , public :: set_label => pdb_set_label procedure , public :: get_use_labels => pdb_get_use_labels procedure , public :: set_use_labels => pdb_set_use_labels procedure , public :: get_command_string => pdb_get_cmd procedure , public :: get_data_string => pdb_get_data_cmd procedure , public :: get_axes_string => pdb_get_axes_cmd procedure , public :: get_bar_per_label_count => pdb_get_col_count procedure , public :: get_draw_against_y2 => pdb_get_use_y2 procedure , public :: set_draw_against_y2 => pdb_set_use_y2 procedure , public :: get_is_filled => pdb_get_is_filled procedure , public :: set_is_filled => pdb_set_is_filled procedure , public :: get_transparency => pdb_get_alpha procedure , public :: set_transparency => pdb_set_alpha procedure , public :: get_bar_color => pdb_get_bar_color procedure , public :: set_bar_color => pdb_set_bar_color procedure , public :: get_series_name => pdb_get_series_name procedure , public :: set_series_name => pdb_set_series_name generic , public :: define_data => pdb_set_data_1 , pdb_set_data_2 , & pdb_set_data_3 , pdb_set_data_4 , pdb_set_data_5 , pdb_set_data_6 procedure , private :: pdb_set_data_1 procedure , private :: pdb_set_data_2 procedure , private :: pdb_set_data_3 procedure , private :: pdb_set_data_4 procedure , private :: pdb_set_data_5 procedure , private :: pdb_set_data_6 procedure , public :: set_data_1 => pdb_set_data_1_core procedure , public :: set_data_2 => pdb_set_data_2_core procedure , public :: set_data_3 => pdb_set_data_3_core procedure , public :: set_data_4 => pdb_set_data_4_core procedure , public :: set_data_5 => pdb_set_data_5_core procedure , public :: set_data_6 => pdb_set_data_6_core procedure , public :: clear_data => pdb_clear_data end type contains ! ------------------------------------------------------------------------------ pure function pdb_get_count ( this ) result ( x ) !!  Gets the number of stored data points. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ) :: x !! The number of stored data points. if ( allocated ( this % m_barData )) then x = size ( this % m_barData , 1 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pdb_get_data ( this , index , col ) result ( x ) !! Gets the requested data point. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The data point index. integer ( int32 ), intent ( in ) :: col !! The column index. real ( real64 ) :: x !! The value. if ( allocated ( this % m_barData )) then x = this % m_barData ( index , col ) else x = 0.0d0 end if end function ! ------------------------------------------------------------------------------ subroutine pdb_set_data ( this , index , col , x ) !! Replaces the requested data point. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The data point index. integer ( int32 ), intent ( in ) :: col !! The column index. real ( real64 ), intent ( in ) :: x !! The new value. if ( allocated ( this % m_barData )) then this % m_barData ( index , col ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_data_set ( this , col ) result ( x ) !! Gets the requested data set. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: col !! The column index. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the data set. if ( allocated ( this % m_barData )) then x = this % m_barData (:, col ) else allocate ( x ( 0 )) end if end function ! ------------------------------------------------------------------------------ pure function pdb_get_label ( this , index ) result ( x ) !! Gets the axis label associated with a specific data set. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data set. character ( len = :), allocatable :: x !! The label. if ( allocated ( this % m_axisLabels )) then x = char ( this % m_axisLabels ( index )) else x = \"\" end if end function ! ------------------------------------------------------------------------------ subroutine pdb_set_label ( this , index , txt ) !! Sets the axis label for a specific data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. integer ( int32 ) :: index !! The index of the data set. character ( len = * ), intent ( in ) :: txt !! The label. if ( allocated ( this % m_axisLabels )) then this % m_axisLabels ( index ) = txt end if end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_use_labels ( this ) result ( x ) !! Gets a value determining if labels are used to identify the data. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. logical :: x !! Returns true if labels are used; else, false. x = this % m_useAxisLabels end function ! ------------------------------------------------------------------------------ subroutine pdb_set_use_labels ( this , x ) !! Sets a value determining if labels are used to identify the data. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. logical , intent ( in ) :: x !! Set to true if labels are used; else, false. this % m_useAxisLabels = x end subroutine ! ------------------------------------------------------------------------------ function pdb_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for this object. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: j , ncols , offset logical :: uselabels character ( len = :), allocatable :: title type ( color ) :: clr ! Initialization call str % initialize () ncols = max ( this % get_bar_per_label_count (), 1 ) uselabels = this % get_use_labels () . and . allocated ( this % m_barData ) . and . & allocated ( this % m_axisLabels ) if ( uselabels ) then offset = 1 else offset = 0 end if ! Each data series (column) is drawn with its own \"using\" clause so ! that multiple bar series stored in a single datablock all appear do j = 1 , ncols if ( j > 1 ) call str % append ( \", \" ) ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) call str % append ( \" using \" ) call str % append ( to_string ( j + offset )) if ( j == 1 . and . uselabels ) call str % append ( \":xtic(1)\" ) ! Filled? if ( this % get_is_filled ()) then call str % append ( \" fill solid \" ) else call str % append ( \" fill empty \" ) end if ! Transparency call str % append ( to_string ( this % get_transparency ())) ! Title title = this % get_series_name ( j ) if ( len_trim ( title ) == 0 . and . ncols == 1 ) title = this % get_name () if ( len_trim ( title ) > 0 ) then call str % append ( ' title \"' ) call str % append ( title ) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Color clr = this % get_bar_color ( j ) call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Define the axes structure call str % append ( \" \" ) call str % append ( this % get_axes_string ()) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdb_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string defining the data for this object. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , nbars , ncols character :: delimiter , nl ! Initialization call str % initialize () delimiter = achar ( 9 ) nl = new_line ( nl ) nbars = this % get_count () ncols = this % get_bar_per_label_count () ! Process if ( this % get_use_labels () . and . allocated ( this % m_axisLabels ) . and . & allocated ( this % m_barData )) then do i = 1 , nbars call str % append ( char ( this % m_axisLabels ( i ))) call str % append ( delimiter ) do j = 1 , ncols call str % append ( to_string ( this % get ( i , j ))) if ( j /= ncols ) call str % append ( delimiter ) end do call str % append ( nl ) end do else do i = 1 , nbars do j = 1 , ncols call str % append ( to_string ( this % get ( i , j ))) if ( j /= ncols ) call str % append ( delimiter ) end do call str % append ( nl ) end do end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdb_get_axes_cmd ( this ) result ( x ) !! Gets the GNUPLOT command defining which axes to plot against. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. character ( len = :), allocatable :: x !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then x = \"axes x1y2\" else x = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ pure function pdb_get_col_count ( this ) result ( x ) !! Gets the number of data sets (columns). class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ) :: x !! The count. if ( allocated ( this % m_barData )) then x = size ( this % m_barData , 2 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pdb_get_use_y2 ( this ) result ( x ) !! Gets a value determining if the data should be plotted against a !! secondary y-axis. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. logical :: x !! Returns true to plot against a secondary y-axis; else, false. x = this % m_useY2 end function ! ------------------------------------------------------------------------------ subroutine pdb_set_use_y2 ( this , x ) !! Sets a value determining if the data should be plotted against a !! secondary y-axis. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. logical , intent ( in ) :: x !! Set to true to plot against a secondary y-axis; else, false. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_bar_color ( this , index ) result ( x ) !! Gets the color to use for the requested data series (column).  If !! no color has been explicitly set, a default color cycle is used !! for multi-series data, or the base line color for single-series !! data. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data series (column). type ( color ) :: x !! The color. if ( allocated ( this % m_barColors )) then if ( index >= 1 . and . index <= size ( this % m_barColors )) then x = this % m_barColors ( index ) return end if end if if ( this % get_bar_per_label_count () <= 1 ) then x = this % get_line_color () else x = color_list ( mod ( index - 1 , size ( color_list )) + 1 ) end if end function ! ------------------------------------------------------------------------------ subroutine pdb_set_bar_color ( this , index , x ) !! Sets the color to use for the requested data series (column). class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data series (column). type ( color ), intent ( in ) :: x !! The color. ! Local Variables type ( color ), allocatable , dimension (:) :: temp integer ( int32 ) :: i , n n = max ( index , this % get_bar_per_label_count ()) if (. not . allocated ( this % m_barColors )) then allocate ( this % m_barColors ( n )) do i = 1 , n this % m_barColors ( i ) = this % get_bar_color ( i ) end do else if ( size ( this % m_barColors ) < n ) then allocate ( temp ( n )) do i = 1 , n if ( i <= size ( this % m_barColors )) then temp ( i ) = this % m_barColors ( i ) else temp ( i ) = this % get_bar_color ( i ) end if end do call move_alloc ( temp , this % m_barColors ) end if this % m_barColors ( index ) = x end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_series_name ( this , index ) result ( x ) !! Gets the legend title associated with the requested data series !! (column). class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data series (column). character ( len = :), allocatable :: x !! The title. if ( allocated ( this % m_seriesNames )) then if ( index >= 1 . and . index <= size ( this % m_seriesNames )) then x = char ( this % m_seriesNames ( index )) return end if end if x = \"\" end function ! ------------------------------------------------------------------------------ subroutine pdb_set_series_name ( this , index , txt ) !! Sets the legend title to associate with the requested data series !! (column). class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data series (column). character ( len = * ), intent ( in ) :: txt !! The title. ! Local Variables type ( string ), allocatable , dimension (:) :: temp integer ( int32 ) :: i , n n = max ( index , this % get_bar_per_label_count ()) if (. not . allocated ( this % m_seriesNames )) then allocate ( this % m_seriesNames ( n )) else if ( size ( this % m_seriesNames ) < n ) then allocate ( temp ( n )) do i = 1 , size ( this % m_seriesNames ) temp ( i ) = this % m_seriesNames ( i ) end do call move_alloc ( temp , this % m_seriesNames ) end if this % m_seriesNames ( index ) = txt end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_1 ( this , x , err ) !! Defines a single data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: x !! The data to plot. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_1 ( x , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_2 ( this , labels , x , err ) !! Defines data along with associated axis labels. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. class ( string ), intent ( in ), dimension (:) :: labels !! The axis labels to associate with the data. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_2 ( labels , x , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_3 ( this , labels , x , fmt , err ) !! Defines data along with labels and formatting information. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: labels !! The axis labels to associate with the data. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. character ( len = * ), intent ( in ), optional :: fmt !! The format string for the labels (e.g. '(I0)', etc.). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_3 ( labels , x , fmt , err ) end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_is_filled ( this ) result ( x ) !! Gets a value determining if each bar is filled. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. logical :: x !! Returns true if the bars are to be filled; else, false. x = this % m_filled end function ! ------------------------------------------------------------------------------ subroutine pdb_set_is_filled ( this , x ) !! Sets a value determining if each bar is filled. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. logical , intent ( in ) :: x !! Set to true if the bars are to be filled; else, false. this % m_filled = x end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_alpha ( this ) result ( x ) !! Gets the alpha (transparency) for the bar color. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. real ( real32 ) :: x !! The alpha value ([0, 1]). x = this % m_alpha end function ! ------------------------------------------------------------------------------ subroutine pdb_set_alpha ( this , x ) !! Gets the alpha (transparency) for the bar color. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real32 ), intent ( in ) :: x !! The alpha value ([0, 1]). if ( x > 1.0 ) then this % m_alpha = 1.0 else if ( x < 0.0 ) then this % m_alpha = 0.0 else this % m_alpha = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_1_core ( this , x , err ) !! Defines the data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n , flag ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Process if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( n , 1 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_1_core\" , flag ) return end if this % m_barData (:, 1 ) = x end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_2_core ( this , labels , x , err ) ! Arguments class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. class ( string ), intent ( in ), dimension (:) :: labels !! The axis labels. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n , flag ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pdb_set_data_2_core\" , & \"labels\" , n , size ( labels )) return end if ! Process if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( n , 1 ), stat = flag ) if ( flag == 0 ) allocate ( this % m_axisLabels ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_2_core\" , flag ) return end if this % m_barData (:, 1 ) = x this % m_axisLabels = labels end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_3_core ( this , labels , x , fmt , err ) ! Arguments class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: labels !! The axis labels. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. character ( len = * ), intent ( in ), optional :: fmt !! The format string for the labels (e.g. '(I0)', etc.). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: i , n , flag type ( string ), allocatable , dimension (:) :: lbls ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pdb_set_data_3_core\" , & \"labels\" , n , size ( labels )) return end if ! Convert the numeric labels to strings allocate ( lbls ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_3_core\" , flag ) return end if do i = 1 , n lbls ( i ) = to_string ( labels ( i ), fmt ) end do ! Store the data if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( n , 1 ), stat = flag ) if ( flag == 0 ) allocate ( this % m_axisLabels ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_3_core\" , flag ) return end if this % m_barData (:, 1 ) = x this % m_axisLabels = lbls end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_4_core ( this , x , err ) !! Defines the data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: flag ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Process if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( size ( x , 1 ), size ( x , 2 )), stat = flag , source = x ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_4_core\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_5_core ( this , labels , x , err ) ! Arguments class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. class ( string ), intent ( in ), dimension (:) :: labels !! The axis labels. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n , flag ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x , 1 ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pdb_set_data_5_core\" , & \"labels\" , n , size ( labels )) return end if ! Process if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( size ( x , 1 ), size ( x , 2 )), stat = flag , source = x ) if ( flag == 0 ) allocate ( this % m_axisLabels ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_5_core\" , flag ) return end if this % m_axisLabels = labels end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_6_core ( this , labels , x , fmt , err ) ! Arguments class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: labels !! The axis labels. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. character ( len = * ), intent ( in ), optional :: fmt !! The format string for the labels (e.g. '(I0)', etc.). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: i , n , flag type ( string ), allocatable , dimension (:) :: lbls ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x , 1 ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pdb_set_data_6_core\" , & \"labels\" , n , size ( labels )) return end if ! Convert the numeric labels to strings allocate ( lbls ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_6_core\" , flag ) return end if do i = 1 , n lbls ( i ) = to_string ( labels ( i ), fmt ) end do ! Store the data if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( size ( x , 1 ), size ( x , 2 )), stat = flag , source = x ) if ( flag == 0 ) allocate ( this % m_axisLabels ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_6_core\" , flag ) return end if this % m_axisLabels = lbls end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_4 ( this , x , err ) !! Defines a single data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data to plot. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_4 ( x , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_5 ( this , labels , x , err ) !! Defines data along with associated axis labels. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. class ( string ), intent ( in ), dimension (:) :: labels !! The axis labels to associate with the data. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_5 ( labels , x , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_6 ( this , labels , x , fmt , err ) !! Defines data along with labels and formatting information. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: labels !! The axis labels to associate with the data. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. character ( len = * ), intent ( in ), optional :: fmt !! The format string for the labels (e.g. '(I0)', etc.). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_6 ( labels , x , fmt , err ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_bar.f90.html"},{"title":"fplot_pdf_terminal.f90 – FPLOT","text":"Source Code module fplot_pdf_terminal use iso_fortran_env use fplot_terminal use strings implicit none private public :: pdf_terminal type , extends ( file_terminal ) :: pdf_terminal !! Defines a terminal used for producing PDF outputs. character ( len = 17 ), private :: m_id = \"pdfcairo enhanced\" !! The terminal ID string. integer ( int32 ), private :: m_resolution = 100 !! The device resolution in DPI. contains procedure , public :: get_id_string => pdf_get_term_string procedure , public :: get_command_string => pdf_get_command_string procedure , public :: get_resolution => pdf_get_resolution procedure , public :: set_resolution => pdf_set_resolution end type contains ! ------------------------------------------------------------------------------ function pdf_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( pdf_terminal ), intent ( in ) :: this !! The pdf_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function ! ------------------------------------------------------------------------------ function pdf_get_command_string ( this ) result ( x ) !! Returns the appropriate GNUPLOT command string to establish !! appropriate parameters. class ( pdf_terminal ), intent ( in ) :: this !! The pdf_terminal object. character ( len = :), allocatable :: x !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str real ( real32 ) :: xsize , ysize ! Compute the size xsize = real ( this % get_window_width (), real32 ) / real ( this % get_resolution (), real32 ) ysize = real ( this % get_window_height (), real32 ) / real ( this % get_resolution (), real32 ) ! Process call str % initialize () call str % append ( \"set term \" ) call str % append ( this % get_id_string ()) call str % append ( \" font \" ) call str % append ( '\"' ) call str % append ( this % get_font_name ()) call str % append ( ',' ) call str % append ( to_string ( this % get_font_size ())) call str % append ( '\"' ) call str % append ( \" size \" ) call str % append ( to_string ( xsize )) call str % append ( \"in,\" ) call str % append ( to_string ( ysize )) call str % append ( \"in\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set output \" ) call str % append ( '\"' ) call str % append ( this % get_filename ()) call str % append ( '\"' ) x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function pdf_get_resolution ( this ) result ( x ) !! Gets the target device resolution. class ( pdf_terminal ), intent ( in ) :: this !! The pdf_terminal object. integer ( int32 ) :: x !! The resolution, in DPI. x = this % m_resolution end function ! -------------------- subroutine pdf_set_resolution ( this , x ) !! Sets the target device resolution. class ( pdf_terminal ), intent ( inout ) :: this !! The pdf_terminal object. integer ( int32 ), intent ( in ) :: x !! The resolution, in DPI. this % m_resolution = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_pdf_terminal.f90.html"},{"title":"fplot_tri_surface_plot_data.f90 – FPLOT","text":"Source Code ! fplot_tri_surface_plot_data.f90 module fplot_tri_surface_plot_data use iso_fortran_env use fplot_plot_data use fplot_delaunay_tri_surface use strings implicit none private public :: tri_surface_plot_data type , extends ( plot_data ) :: tri_surface_plot_data !! Provides a three-dimensional surface plot data set constructed of !! triangulated points. real ( real64 ), private , allocatable , dimension (:) :: m_x !! An array of the x-coordinates of each point. real ( real64 ), private , allocatable , dimension (:) :: m_y !! An array of the y-coordinates of each point. real ( real64 ), private , allocatable , dimension (:) :: m_z !! An array of the z-coordinates of each point. integer ( int32 ), private , allocatable , dimension (:,:) :: m_indices !! A 3-column matrix containing the indices of each triangle's !! vertex. logical , private :: m_wireframe = . true . !! Determines if the surface should be drawn as a wireframe. contains procedure , public :: get_data_string => tspd_get_data_cmd procedure , public :: get_command_string => tspd_get_cmd procedure , public :: get_use_wireframe => tspd_get_wireframe procedure , public :: set_use_wireframe => tspd_set_wireframe procedure , public :: define_data => tspd_define_data procedure , public :: clear_data => tspd_clear_data end type contains ! ------------------------------------------------------------------------------ function tspd_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for representing the data. class ( tri_surface_plot_data ), intent ( in ) :: this !! The tri_surface_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , n character :: delimiter , nl ! Initialization call str % initialize () n = size ( this % m_indices , 1 ) delimiter = achar ( 9 ) nl = new_line ( nl ) if (. not . allocated ( this % m_x ) . or . & . not . allocated ( this % m_y ) . or . & . not . allocated ( this % m_z ) . or . & . not . allocated ( this % m_indices ) & ) & then x = \"\" return end if ! Process ! https://stackoverflow.com/questions/42784369/drawing-triangular-mesh-using-gnuplot ! http://www.gnuplot.info/faq/faq.html#x1-530005.10 do i = 1 , n ! Line 1-2 ! Vertex 1 j = this % m_indices ( i , 1 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Vertex 2 j = this % m_indices ( i , 2 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Line 2-3 ! Vertex 2 call str % append ( nl ) j = this % m_indices ( i , 2 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Vertex 3 j = this % m_indices ( i , 3 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Line 3-1 ! Vertex 3 call str % append ( nl ) j = this % m_indices ( i , 3 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Vertex 1 j = this % m_indices ( i , 1 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Add in the two blank lines if ( i /= n ) then call str % append ( nl ) call str % append ( nl ) end if end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function tspd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for the object. class ( tri_surface_plot_data ), intent ( in ) :: this !! The tri_surface_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! PM3D or wireframe? if ( this % get_use_wireframe ()) then call str % append ( \" with lines\" ) else call str % append ( \" with pm3d\" ) end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function tspd_get_wireframe ( this ) result ( rst ) !! Gets a value determining if a wireframe mesh should be displayed. class ( tri_surface_plot_data ), intent ( in ) :: this !! The tri_surface_plot_data object. logical :: rst !! Returns true if the plot is to be drawn as a wireframe; else, !! false to draw as a surface. rst = this % m_wireframe end function ! ------------------------------------------------------------------------------ subroutine tspd_set_wireframe ( this , x ) !! Sets a value determining if a wireframe mesh should be displayed. class ( tri_surface_plot_data ), intent ( inout ) :: this !! The tri_surface_plot_data object. logical , intent ( in ) :: x !! Set to true if the plot is to be drawn as a wireframe; else, !! false to draw as a surface. this % m_wireframe = x end subroutine ! ------------------------------------------------------------------------------ subroutine tspd_define_data ( this , tri ) !! Defines the data to plot. class ( tri_surface_plot_data ), intent ( inout ) :: this !! The tri_surface_plot_data object. class ( delaunay_tri_surface ), intent ( in ) :: tri !! The triangulation to plot. ! Process if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_z )) deallocate ( this % m_z ) if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if this % m_x = tri % get_points_x () this % m_y = tri % get_points_y () this % m_z = tri % get_points_z () this % m_indices = tri % get_indices () end subroutine ! ------------------------------------------------------------------------------ subroutine tspd_clear_data ( this ) !! Clears the data from the data set. class ( tri_surface_plot_data ), intent ( inout ) :: this !! The tri_surface_plot_data object. if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_z )) deallocate ( this % m_z ) if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_tri_surface_plot_data.f90.html"}]}
\ No newline at end of file
+var tipuesearch = {"pages":[{"title":" FPLOT ","text":"FPLOT Developer Info Jason Christopherson","tags":"home","loc":"index.html"},{"title":"tri_surface_plot_data – FPLOT ","text":"type, public, extends( plot_data ) :: tri_surface_plot_data Provides a three-dimensional surface plot data set constructed of\ntriangulated points. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => tspd_clear_data private  subroutine tspd_clear_data(this) Clears the data from the data set. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(inout) :: this The tri_surface_plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => tspd_define_data private  subroutine tspd_define_data(this, tri) Defines the data to plot. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(inout) :: this The tri_surface_plot_data object. class( delaunay_tri_surface ), intent(in) :: tri The triangulation to plot. procedure, public :: get_command_string => tspd_get_cmd private  function tspd_get_cmd(this) result(x) Gets the GNUPLOT command string for the object. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(in) :: this The tri_surface_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => tspd_get_data_cmd private  function tspd_get_data_cmd(this) result(x) Gets the GNUPLOT command string for representing the data. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(in) :: this The tri_surface_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_use_wireframe => tspd_get_wireframe private pure function tspd_get_wireframe(this) result(rst) Gets a value determining if a wireframe mesh should be displayed. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(in) :: this The tri_surface_plot_data object. Return Value logical Returns true if the plot is to be drawn as a wireframe; else,\nfalse to draw as a surface. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_use_wireframe => tspd_set_wireframe private  subroutine tspd_set_wireframe(this, x) Sets a value determining if a wireframe mesh should be displayed. Arguments Type Intent Optional Attributes Name class( tri_surface_plot_data ), intent(inout) :: this The tri_surface_plot_data object. logical, intent(in) :: x Set to true if the plot is to be drawn as a wireframe; else,\nfalse to draw as a surface.","tags":"","loc":"type\\tri_surface_plot_data.html"},{"title":"legend – FPLOT ","text":"type, public, extends( plot_object ) :: legend Defines a legend object. Type-Bound Procedures procedure, public :: get_command_string => leg_get_command_txt private  function leg_get_command_txt(this) result(txt) Gets the command string defining the legend properties. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_draw_border => leg_get_box private pure function leg_get_box(this) result(x) Gets a value determining if the legend should have a border. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value logical True if the legend should have a border; else, false. procedure, public :: get_draw_inside_axes => leg_get_inside private pure function leg_get_inside(this) result(x) Gets a value determining if the legend should be drawn inside\nor outside the axes border. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value logical True to draw inside the axes border; else, false for outside. procedure, public :: get_horizontal_position => leg_get_horz_pos private pure function leg_get_horz_pos(this) result(x) Gets the horizontal position of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value character(len=:), allocatable The horizontal position of the legend (LEGEND_LEFT,\nLEGEND_CENTER, or LEGEND_RIGHT). procedure, public :: get_is_opaque => leg_get_opaque private pure function leg_get_opaque(this) result(rst) Gets a value determining if the legend is to be opaque. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value logical True if the legend is to be opaque; else, false. procedure, public :: get_is_visible => leg_get_visible private pure function leg_get_visible(this) result(x) Gets a value determining if the legend is visible. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value logical True if the legend is visible; else, false. procedure, public :: get_layout => leg_get_layout private pure function leg_get_layout(this) result(rst) Gets the layout of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value character(len=:), allocatable The layout type, either LEGEND_ARRANGE_VERTICALLY or \nLEGEND_ARRANGE_HORIZONTALLY. procedure, public :: get_vertical_position => leg_get_vert_pos private pure function leg_get_vert_pos(this) result(x) Gets the vertical position of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(in) :: this The legend object. Return Value character(len=:), allocatable The vertical position of the legend (LEGEND_TOP,\nLEGEND_CENTER, or LEGEND_BOTTOM). procedure, public :: set_draw_border => leg_set_box private  subroutine leg_set_box(this, x) Sets a value determining if the legend should have a border. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. logical, intent(in) :: x True if the legend should have a border; else, false. procedure, public :: set_draw_inside_axes => leg_set_inside private  subroutine leg_set_inside(this, x) Sets a value determining if the legend should be drawn inside\nor outside the axes border. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. logical, intent(in) :: x True to draw inside the axes border; else, false for outside. procedure, public :: set_horizontal_position => leg_set_horz_pos private  subroutine leg_set_horz_pos(this, x) Sets the horizontal position of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. character(len=*), intent(in) :: x The horizontal position of the legend.  The parameter must be\nset to one of the following: LEGEND_LEFT, LEGEND_CENTER, or\nLEGEND_RIGHT.  If not, the default LEGEND_RIGHT will be used. procedure, public :: set_is_opaque => leg_set_opaque private  subroutine leg_set_opaque(this, x) Sets a value determining if the legend is to be opaque. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. logical :: x True if the legend is to be opaque; else, false. procedure, public :: set_is_visible => leg_set_visible private  subroutine leg_set_visible(this, x) Sets a value determining if the legend is visible. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. logical, intent(in) :: x True if the legend is visible; else, false. procedure, public :: set_layout => leg_set_layout private  subroutine leg_set_layout(this, x) Sets the layout of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. character(len=*), intent(in) :: x The layout type, either LEGEND_ARRANGE_VERTICALLY or \nLEGEND_ARRANGE_HORIZONTALLY. procedure, public :: set_vertical_position => leg_set_vert_pos private  subroutine leg_set_vert_pos(this, x) Sets the vertical position of the legend. Arguments Type Intent Optional Attributes Name class( legend ), intent(inout) :: this The legend object. character(len=*), intent(in) :: x The vertical position of the legend.  The parameter must be\nset to one of the following: LEGEND_TOP, LEGEND_CENTER, or\nLEGEND_BOTTOM.  If not, the default LEGEND_TOP will be used.","tags":"","loc":"type\\legend.html"},{"title":"plot_data_function – FPLOT ","text":"type, public, extends( line_plot_data ) :: plot_data_function Defines a function to plot. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdf_clear_data private  subroutine pdf_clear_data(this) Clears the function from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pdf_define_data private  subroutine pdf_define_data(this, f, fname, minX, maxX, name) Defines the function to plot. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. character(len=*), intent(in) :: f The function to plot (e.g. sin(x)). character(len=*), intent(in) :: fname The name of the function to plot (e.g. f(x)). real(kind=real64), intent(in), optional :: minX The minimum value to plot.  If not supplied, this will default\nto a value of -1. real(kind=real64), intent(in), optional :: maxX The maximum x value to plot. If not supplied, this will default\nto a value of 1. character(len=*), intent(in), optional :: name An optional input that specifies the name that will be displayed\nin the legend.  If nothing is supplied, the input string for \nparameter f will be utilized. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdf_get_cmd private  function pdf_get_cmd(this) result(rst) Gets the GNUPLOT command string for this object. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => pdf_get_data_cmd private  function pdf_get_data_cmd(this) result(rst) Gets the GNUPLOT command string defining the data for this object. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_function => pdf_get_function private pure function pdf_get_function(this) result(rst) Gets the function to plot. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value character(len=:), allocatable The function. procedure, public :: get_function_name => pdf_get_function_name private pure function pdf_get_function_name(this) result(rst) Gets the name of the function to plot (e.g. f(x), g(x), etc.). Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value character(len=:), allocatable The function name. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_maximum_x => pdf_get_max_x private pure function pdf_get_max_x(this) result(rst) Gets the maximum X plot range value. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value real(kind=real64) The value. procedure, public :: get_minimum_x => pdf_get_min_x private pure function pdf_get_min_x(this) result(rst) Gets the minimum X plot range value. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value real(kind=real64) The value. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_sample_count => pfd_get_sample_count private pure function pfd_get_sample_count(this) result(rst) Gets the number of times to sample the function. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(in) :: this The plot_data_function object. Return Value integer(kind=int32) The sample count. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_maximum_x => pdf_set_max_x private  subroutine pdf_set_max_x(this, x) Sets the maximum X plot range value. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. real(kind=real64), intent(in) :: x The value. procedure, public :: set_minimum_x => pdf_set_min_x private  subroutine pdf_set_min_x(this, x) Sets the minimum X plot range value. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. real(kind=real64), intent(in) :: x The value. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_sample_count => pfd_set_sample_count private  subroutine pfd_set_sample_count(this, x) Sets the number of times to sample the function.  This variable is \nglobal for all function plots as GNUPLOT does not allow inline\nsample modification currently.  Hopefully this will change somewhere\ndown the road. Arguments Type Intent Optional Attributes Name class( plot_data_function ), intent(inout) :: this The plot_data_function object. integer(kind=int32), intent(in) :: x The sample count.  Must be greater than 1.","tags":"","loc":"type\\plot_data_function.html"},{"title":"plot_data_tri_2d – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_tri_2d Defines a 2D triangulated data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdt2d_clear_data private  subroutine pdt2d_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(inout) :: this The plot_data_tri_2d object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pdt2d_define_data private  subroutine pdt2d_define_data(this, tri) Defines the data to plot. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(inout) :: this The plot_data_tri_2d object. class( delaunay_tri_2d ), intent(in) :: tri The triangulation data to plot. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdt2d_get_cmd private  function pdt2d_get_cmd(this) result(x) Gets the GNUPLOT command string for the object. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(in) :: this The plot_data_tri_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => pdt2d_get_data_cmd private  function pdt2d_get_data_cmd(this) result(x) Gets the GNUPLOT command string describing the data to plot. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(in) :: this The plot_data_tri_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => pdt2d_get_line_style private pure function pdt2d_get_line_style(this) result(rst) Gets the line style. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(in) :: this The plot_data_tri_2d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following\nconstants. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => pdt2d_get_line_width private pure function pdt2d_get_line_width(this) result(rst) Gets the width of the lines used to draw the triangulation. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(in) :: this The plot_data_tri_2d object. Return Value real(kind=real32) The line width. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => pdt2d_set_line_style private  subroutine pdt2d_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(inout) :: this The plot_data_tri_2d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following\nconstants. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => pdt2d_set_line_width private  subroutine pdt2d_set_line_width(this, x) Sets the width of the lines used to draw the triangulation. Arguments Type Intent Optional Attributes Name class( plot_data_tri_2d ), intent(inout) :: this The plot_data_tri_2d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\plot_data_tri_2d.html"},{"title":"plot_3d – FPLOT ","text":"type, public, extends( plot ) :: plot_3d A plot object defining a 3D plot. Finalization Procedures final :: p3d_clean_up private  subroutine p3d_clean_up(this) Cleans up resources held by the plot_3d object. Arguments Type Intent Optional Attributes Name type( plot_3d ), intent(inout) :: this The plot_3d object. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_azimuth => p3d_get_azimuth private pure function p3d_get_azimuth(this) result(x) Gets the plot azimuth angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real64) The azimuth angle, in degrees. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => p3d_get_cmd private  function p3d_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot_3d object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_coordinate_system => p3d_get_csys private pure function p3d_get_csys(this) result(rst) Gets a value determining the coordinate system. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The coordinate system ID, which must be one of the following. COORDINATES_CARTESIAN COORDINATES_CYLINDRICAL COORDINATES_SPHERICAL procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_elevation => p3d_get_elevation private pure function p3d_get_elevation(this) result(x) Gets the plot elevation angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real64) The elevation angle, in degrees. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_z_major_grid => p3d_get_show_z_major_grid private pure function p3d_get_show_z_major_grid(this) result(x) Gets a value determining if the z-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid private pure function p3d_get_show_z_minor_grid(this) result(x) Gets a value determining if the z-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_use_map_view => p3d_get_use_map_view private pure function p3d_get_use_map_view(this) result(rst) Gets a value determining if the view should be set to a 2D\nmap view.  If true, the azimuth and elevation terms are ignored. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical Returns true if the map view will be used; else, false. procedure, public :: get_x_axis => p3d_get_x_axis private  function p3d_get_x_axis(this) result(ptr) Gets the x-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the x-axis object. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_axis => p3d_get_y_axis private  function p3d_get_y_axis(this) result(ptr) Gets the y-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the y-axis object. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_z_axis => p3d_get_z_axis private  function p3d_get_z_axis(this) result(ptr) Gets the z-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the z-axis object. procedure, public :: get_z_intersect_xy => p3d_get_z_axis_intersect private pure function p3d_get_z_axis_intersect(this) result(x) Gets a value determining if the z-axis should intersect the\nx-y plane. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical Returns true if the z-axis should intersect the x-y plane; else,\nfalse to allow the z-axis to float. procedure, public :: get_z_major_grid_color => p3d_get_z_major_grid_color private pure function p3d_get_z_major_grid_color(this) result(x) Gets the color of the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value type( color ) The color. procedure, public :: get_z_major_grid_line_style => p3d_get_z_major_grid_line_style private pure function p3d_get_z_major_grid_line_style(this) result(x) Gets the line style used for the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_z_major_grid_line_width => p3d_get_z_major_grid_line_width private pure function p3d_get_z_major_grid_line_width(this) result(x) Gets the width of the z-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real32) The line width. procedure, public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color private pure function p3d_get_z_minor_grid_color(this) result(x) Gets the color of the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value type( color ) The color. procedure, public :: get_z_minor_grid_line_style => p3d_get_z_minor_grid_line_style private pure function p3d_get_z_minor_grid_line_style(this) result(x) Gets the line style used for the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_z_minor_grid_line_width => p3d_get_z_minor_grid_line_width private pure function p3d_get_z_minor_grid_line_width(this) result(x) Gets the width of the z-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real32) The line width. procedure, public :: initialize => p3d_init private  subroutine p3d_init(this, term, fname, err) Initializes the plot_3d object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: p3d_push_data private  subroutine p3d_push_data(this, x, y, z, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real64), intent(in), dimension(size(x)) :: z The z-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , p3d_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine p3d_push_data(this, x, y, z, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real64), intent(in), dimension(size(x)) :: z The z-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_azimuth => p3d_set_azimuth private  subroutine p3d_set_azimuth(this, x) Sets the plot azimuth angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in) :: x The azimuth angle, in degrees. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_coordinate_system => p3d_set_csys private  subroutine p3d_set_csys(this, x) Sets a value determining the coordinate system. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The coordinate system ID, which must be one of the following. COORDINATES_CARTESIAN COORDINATES_CYLINDRICAL COORDINATES_SPHERICAL procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_elevation => p3d_set_elevation private  subroutine p3d_set_elevation(this, x) Sets the plot elevation angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in) :: x The elevation angle, in degrees. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_z_major_grid => p3d_set_show_z_major_grid private  subroutine p3d_set_show_z_major_grid(this, x) Sets a value determining if the z-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid private  subroutine p3d_set_show_z_minor_grid(this, x) Sets a value determining if the z-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_use_map_view => p3d_set_use_map_view private  subroutine p3d_set_use_map_view(this, x) Sets a value determining if the view should be set to a 2D\nmap view.  If true, the azimuth and elevation terms are ignored. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x Seturns true if the map view will be used; else, false. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_axis_title => p3d_set_x_axis_title private  subroutine p3d_set_x_axis_title(this, x) Sets the title associated with the plot's x-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_axis_title => p3d_set_y_axis_title private  subroutine p3d_set_y_axis_title(this, x) Sets the title associated with the plot's y-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_z_axis_title => p3d_set_z_axis_title private  subroutine p3d_set_z_axis_title(this, x) Sets the title associated with the plot's z-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_z_intersect_xy => p3d_set_z_axis_intersect private  subroutine p3d_set_z_axis_intersect(this, x) Sets a value determining if the z-axis should intersect the\nx-y plane. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x Set to true if the z-axis should intersect the x-y plane; else,\nfalse to allow the z-axis to float. procedure, public :: set_z_major_grid_color => p3d_set_z_major_grid_color private  subroutine p3d_set_z_major_grid_color(this, x) Sets the color of the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. type( color ), intent(in) :: x The color. procedure, public :: set_z_major_grid_line_style => p3d_set_z_major_grid_line_style private  subroutine p3d_set_z_major_grid_line_style(this, x) Sets the line style used for the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_z_major_grid_line_width => p3d_set_z_major_grid_line_width private  subroutine p3d_set_z_major_grid_line_width(this, x) Sets the width of the z-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color private  subroutine p3d_set_z_minor_grid_color(this, x) Sets the color of the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. type( color ), intent(in) :: x The color. procedure, public :: set_z_minor_grid_line_style => p3d_set_z_minor_grid_line_style private  subroutine p3d_set_z_minor_grid_line_style(this, x) Sets the line style used for the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_z_minor_grid_line_width => p3d_set_z_minor_grid_line_width private  subroutine p3d_set_z_minor_grid_line_width(this, x) Sets the width of the z-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot_3d.html"},{"title":"windows_terminal – FPLOT ","text":"type, public, extends( terminal ) :: windows_terminal A Windows-specific terminal. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string private  function term_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => wt_get_term_string private  function wt_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( windows_terminal ), intent(in) :: this The windows_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\windows_terminal.html"},{"title":"plot_data_box_whisker – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_box_whisker A container for box-whisker plot data. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdbw_clear_data private  subroutine pdbw_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pdbw_define_data_xstring private  subroutine pdbw_define_data_xstring(this, x, boxmin, boxmax, whiskermin, whiskermax, mid, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. type(string), intent(in), dimension(:) :: x The x-coordinate data. real(kind=real64), intent(in), dimension(size(x)) :: boxmin The minimum y-values for each box. real(kind=real64), intent(in), dimension(size(x)) :: boxmax The maximum y-values for each box. real(kind=real64), intent(in), dimension(size(x)) :: whiskermin The minimum y-values for each whisker. real(kind=real64), intent(in), dimension(size(x)) :: whiskermax The maximum y-values for each whisker. real(kind=real64), intent(in), optional, dimension(size(x)) :: mid The mid-range values for each whisker.  Typically the mean or\nmedian of the data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_box_fill_opacity => pdbw_get_opacity private pure function pdbw_get_opacity(this) result(rst) Gets the opacity of the box fill color. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The opacity on a scale from 0 to 1. procedure, public :: get_box_width => pdbw_get_box_width private pure function pdbw_get_box_width(this) result(rst) Gets the box width.  By default the x-axis is incremented in units of 1;\ntherefore, a box width of 1 will fully fill the space. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The box width. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdbw_get_cmd private  function pdbw_get_cmd(this) result(rst) Gets the GNUPLOT command string for this object. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => pdbw_get_data_cmd private  function pdbw_get_data_cmd(this) result(rst) Gets the GNUPLOT command string defining the data for this object. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => pdbw_get_use_y2 private pure function pdbw_get_use_y2(this) result(rst) Gets a value determining if the data is to be plotted against the\nsecondary y axis. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value logical Returns true if the data is to be plotted against the secondary y \naxis; else, false for the primary y axis. procedure, public :: get_fill_boxes => pdbw_get_fill_boxes private pure function pdbw_get_fill_boxes(this) result(rst) Gets a value determining if the boxes should be filled. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value logical True if the boxes are to be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_width => pdbw_get_line_width private pure function pdbw_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The line width. procedure, public :: get_midline_color => pdbw_get_midline_color private pure function pdbw_get_midline_color(this) result(rst) Gets the color of the midline. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value type( color ) The line color. procedure, public :: get_midline_width => pdbw_get_midline_width private pure function pdbw_get_midline_width(this) result(rst) Gets the width of the midline. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The line width. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_use_whiskerbars => pdbw_get_use_whiskerbars private pure function pdbw_get_use_whiskerbars(this) result(rst) Gets a value determining if whiskerbars should be used. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value logical True if whiskerbars should be used; else, false. procedure, public :: get_whiskerbar_width => pdbw_get_whiskerbar_width private pure function pdbw_get_whiskerbar_width(this) result(rst) Gets the width of whiskerbar. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(in) :: this The plot_data_box_whisker object. Return Value real(kind=real32) The width of the whiskerbar on a scale of 0:1 with 1 being the full\nwidth. procedure, public :: set_box_fill_opacity => pdbw_set_opacity private  subroutine pdbw_set_opacity(this, x) Sets the opacity of the box fill color. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The opacity on a scale from 0 to 1. procedure, public :: set_box_width => pdbw_set_box_width private  subroutine pdbw_set_box_width(this, x) Sets the box width.  By default the x-axis is incremented in units of 1;\ntherefore, a box width of 1 will fully fill the space. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The box width. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => pdbw_set_use_y2 private  subroutine pdbw_set_use_y2(this, x) Sets a value determining if the data is to be plotted against the\nsecondary y axis. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. logical, intent(in) :: x Set to true if the data is to be plotted against the secondary y \naxis; else, false for the primary y axis. procedure, public :: set_fill_boxes => pdbw_set_fill_boxes private  subroutine pdbw_set_fill_boxes(this, x) Sets a value determining if the boxes should be filled. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. logical, intent(in) :: x Set to true if the boxes are to be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_width => pdbw_set_line_width private  subroutine pdbw_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_midline_color => pdbw_set_midline_color private  subroutine pdbw_set_midline_color(this, x) Sets the color of the midline. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. type( color ), intent(in) :: x The line color. procedure, public :: set_midline_width => pdbw_set_midline_width private  subroutine pdbw_set_midline_width(this, x) Sets the width of the midline. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_use_whiskerbars => pdbw_set_use_whiskerbars private  subroutine pdbw_set_use_whiskerbars(this, x) Sets a value determining if whiskerbars should be used. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. logical, intent(in) :: x Set to true if whiskerbars should be used; else, false. procedure, public :: set_whiskerbar_width => pdbw_set_whiskerbar_width private  subroutine pdbw_set_whiskerbar_width(this, x) Sets the width of the whiskerbar. Arguments Type Intent Optional Attributes Name class( plot_data_box_whisker ), intent(inout) :: this The plot_data_box_whisker object. real(kind=real32), intent(in) :: x The width of the whiskerbar.  This value is clamped to [0, 1] with\n1 representing full width.","tags":"","loc":"type\\plot_data_box_whisker.html"},{"title":"svg_terminal – FPLOT ","text":"type, public, extends( file_terminal ) :: svg_terminal An SVG terminal. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string private  function fterm_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => svg_get_term_string private  function svg_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( svg_terminal ), intent(in) :: this The svg_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\svg_terminal.html"},{"title":"plot_object – FPLOT ","text":"type, public :: plot_object The base type for all plot objects. Type-Bound Procedures procedure( get_string_result ), public, deferred :: get_command_string function get_string_result(this) result(x) Prototype Returns a string from a plot_object. Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:), allocatable The result string.","tags":"","loc":"type\\plot_object.html"},{"title":"delaunay_tri_surface – FPLOT ","text":"type, public, extends( delaunay_tri_2d ) :: delaunay_tri_surface Provides a type describing a triangulated surface. Type-Bound Procedures procedure, public :: create => d2d_init private  subroutine d2d_init(this, x, y, err) Creates an unconstrained 2D Delaunay triangulation given a \nset of x-y points. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(inout) :: this The delaunay_tri_2d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of each\ndata point. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of each\ndata point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: define_function_values => dts_define_fcn private  subroutine dts_define_fcn(this, z, err) Defines the function values that correspond to the x and y\ndata points. Arguments Type Intent Optional Attributes Name class( delaunay_tri_surface ), intent(inout) :: this The delaunay_tri_surface object. real(kind=real64), intent(in), dimension(:) :: z An N-element array containing the function values for\neach x and y coordinate.  Notice, the x and y coordinates must \nalready be defined prior to calling this routine. class( errors ), intent(inout), optional, target :: err An error handling object. generic, public :: evaluate => dts_interp_1, dts_interp_2 private pure function dts_interp_1(this, x, y) result(z) Evaluates the function at the requested point by means of \nlinear interpolation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_surface ), intent(in) :: this The delaunay_tri_surface object. real(kind=real64), intent(in) :: x The x-coordinate at which to evaluate the function. real(kind=real64), intent(in) :: y The y-coordinate at which to evaluate the function. Return Value real(kind=real64) The function value.  If the point (x, y) does not lie within the \nrange of defined values, then a value of NaN is returned. private pure function dts_interp_2(this, x, y) result(z) Evaluates the function at the requested point by means of \nlinear interpolation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_surface ), intent(in) :: this The delaunay_tri_surface object. real(kind=real64), intent(in), dimension(:) :: x The x data coordinates. real(kind=real64), intent(in), dimension(:) :: y The x data coordinates. Return Value real(kind=real64), allocatable, dimension(:) The interpolated z coordinate points.  If the point (x, y) does \nnot lie within the range of defined values, then a value of NaN \nis returned. procedure, public :: find_triangle => d2d_get_tri_with_pt private pure function d2d_get_tri_with_pt(this, x, y) result(rst) Finds the triangle that contains the specified point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. real(kind=real64), intent(in) :: x The x-coordinate of the point. real(kind=real64), intent(in) :: y The y-coordinate of the point. Return Value integer(kind=int32) Returns the index of the triangle containing the specified\npoint.  If no triangle contains the specified point, a value of\n-1 is returned. procedure, public :: get_indices => d2d_get_tris private pure function d2d_get_tris(this) result(rst) Gets a list of the indices of each triangle vertex. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32), allocatable, dimension(:,:) An N-by-3 matrix with each column containing the index of the\nvertex of each triangle where N is the number of triangles. procedure, public :: get_point_count => d2d_get_pt_count private pure function d2d_get_pt_count(this) result(rst) Gets the number of points in the triangulation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32) The number of points in the triangulation. procedure, public :: get_points_x => d2d_get_x_pts private pure function d2d_get_x_pts(this) result(rst) Gets the x-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value real(kind=real64), allocatable, dimension(:) An array of the x-coordinates of each point. procedure, public :: get_points_y => d2d_get_y_pts private pure function d2d_get_y_pts(this) result(rst) Gets the y-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value real(kind=real64), allocatable, dimension(:) An array of the y-coordinates of each point. procedure, public :: get_points_z => dts_get_z private pure function dts_get_z(this) result(rst) Gets the z-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_surface ), intent(in) :: this The delaunay_tri_surface object. Return Value real(kind=real64), allocatable, dimension(:) An array of the z-coordinates of each point. procedure, public :: get_triangle_count => d2d_get_tri_count private pure function d2d_get_tri_count(this) result(rst) Gets the number of triangles in the triangulation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32) The number of triangles in the triangulation.","tags":"","loc":"type\\delaunay_tri_surface.html"},{"title":"errors – FPLOT ","text":"type, public :: errors Type-Bound Procedures procedure, public :: report_error public  subroutine report_error (this, fcn, msg, code) Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: this character(len=*), intent(in) :: fcn character(len=*), intent(in) :: msg integer(kind=int32), intent(in) :: code","tags":"","loc":"type\\errors.html"},{"title":"qt_terminal – FPLOT ","text":"type, public, extends( terminal ) :: qt_terminal Defines a terminal that utilizes QT. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string private  function term_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => qt_get_term_string private  function qt_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( qt_terminal ), intent(in) :: this The qt_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\qt_terminal.html"},{"title":"multiplot – FPLOT ","text":"type, public, extends( plot_object ) :: multiplot Defines a multi-plot layout. Components Type Visibility Attributes Name Initial class( terminal ), public, pointer :: m_terminal => null() The GNUPLOT terminal object to target. Finalization Procedures final :: mp_clean private  subroutine mp_clean(this) Cleans up resources held by the multiplot object. Arguments Type Intent Optional Attributes Name type( multiplot ), intent(inout) :: this The multiplot object. Type-Bound Procedures procedure, public :: draw => mp_draw private  subroutine mp_draw(this, persist, err) Launches GNUPLOT and draws the multiplot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false\nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get => mp_get private  function mp_get(this, i, j) result(x) Gets the requested plot object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. integer(kind=int32), intent(in) :: i The row index of the plot to retrieve. integer(kind=int32), intent(in) :: j The column index of the plot to retrieve. Return Value class( plot ), pointer A pointer to the plot object. procedure, public :: get_bottom_margin => mp_get_bottom_margin private pure function mp_get_bottom_margin(this) result(rst) Gets the bottom margin.  The value exists in the range [0, 1].  This\nmargin is a global margin for the multiplot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value real(kind=real32) The margin value. procedure, public :: get_column_count => mp_get_cols private pure function mp_get_cols(this) result(x) Gets the number of columns of plots. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value integer(kind=int32) The column count. procedure, public :: get_command_string => mp_get_command private  function mp_get_command(this) result(x) Gets the GNUPLOT commands for this object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value character(len=:), allocatable The command string. procedure, public :: get_font_name => mp_get_font private  function mp_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => mp_get_font_size private  function mp_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value integer(kind=int32) The font size. procedure, public :: get_horizontal_spacing => mp_get_horizontal_spacing private pure function mp_get_horizontal_spacing(this) result(rst) Gets the horizontal spacing between plots.  The value must be\nzero or positive. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value real(kind=real32) The spacing value. procedure, public :: get_left_margin => mp_get_left_margin private pure function mp_get_left_margin(this) result(rst) Gets the left margin.  The value exists in the range [0, 1].  This\nmargin is a global margin for the multiplot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value real(kind=real32) The margin value. procedure, public :: get_plot_count => mp_get_count private pure function mp_get_count(this) result(x) Gets the total number of plots. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value integer(kind=int32) The plot count. procedure, public :: get_right_margin => mp_get_right_margin private pure function mp_get_right_margin(this) result(rst) Gets the right margin.  The value exists in the range [0, 1].  This\nmargin is a global margin for the multiplot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value real(kind=real32) The margin value. procedure, public :: get_row_count => mp_get_rows private pure function mp_get_rows(this) result(x) Gets the number of rows of plots. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value integer(kind=int32) The row count. procedure, public :: get_terminal => mp_get_term private  function mp_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value class( terminal ), pointer A pointer to the terminal object. procedure, public :: get_title => mp_get_title private  function mp_get_title(this) result(x) Gets the multiplot's title. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => mp_get_top_margin private pure function mp_get_top_margin(this) result(rst) Gets the top margin.  The value exists in the range [0, 1].  This\nmargin is a global margin for the multiplot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value real(kind=real32) The margin value. procedure, public :: get_use_auto_generated_margins => mp_get_use_auto_generated_margins private pure function mp_get_use_auto_generated_margins(this) result(rst) Gets a value determining if the global margins should be \nautomatically calculated. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value logical True if the margins should be automatically calculated; else,\nfalse to use manually defined margins. procedure, public :: get_vertical_spacing => mp_get_vertical_spacing private pure function mp_get_vertical_spacing(this) result(rst) Gets the vertical spacing between plots.  The value must be\nzero or positive. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value real(kind=real32) The spacing value. procedure, public :: initialize => mp_init private  subroutine mp_init(this, m, n, term, width, height, fname, err) Initializes the multiplot object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. integer(kind=int32), intent(in) :: m The number of rows of plots. integer(kind=int32), intent(in) :: n The number of columns of plots. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.  The \ndefault terminal is a WXT terminal.  The acceptable inputs are: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF integer(kind=int32), intent(in), optional :: width Optionally, the width of the plot window. integer(kind=int32), intent(in), optional :: height Optionally, the height of the plot window. character(len=*), intent(in), optional :: fname A filename to associate with terminals that print to file. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => mp_has_title private pure function mp_has_title(this) result(x) Gets a value determining if a title has been defined for the\nmultiplot object. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. Return Value logical Returns true if a title has been defined for this multiplot; \nelse, returns false. procedure, public :: save_file => mp_save private  subroutine mp_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(in) :: this The multiplot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => mp_set private  subroutine mp_set(this, i, j, x) Replaces the specified plot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. integer(kind=int32), intent(in) :: i The row index of the plot to replace. integer(kind=int32), intent(in) :: j The column index of the plot to replace. class( plot ), intent(in) :: x The new plot. procedure, public :: set_bottom_margin => mp_set_bottom_margin private  subroutine mp_set_bottom_margin(this, x) Sets the bottom margin.  The value exists in the range [0, 1].  This\nmargin is a global margin for the multiplot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. real(kind=real32), intent(in) :: x The margin value.  This value will be clamped to the range\n[0, 1]. procedure, public :: set_font_name => mp_set_font private  subroutine mp_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => mp_set_font_size private  subroutine mp_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. integer(kind=int32), intent(in) :: x The font size. procedure, public :: set_horizontal_spacing => mp_set_horizontal_spacing private  subroutine mp_set_horizontal_spacing(this, x) Sets the horizontal spacing between plots.  The value must be\nzero or positive. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. real(kind=real32), intent(in) :: x The spacing value.  This value will be clamped to zero if\na negative value is supplied. procedure, public :: set_left_margin => mp_set_left_margin private  subroutine mp_set_left_margin(this, x) Sets the left margin.  The value exists in the range [0, 1].  This\nmargin is a global margin for the multiplot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. real(kind=real32), intent(in) :: x The margin value.  This value will be clamped to the range\n[0, 1]. procedure, public :: set_right_margin => mp_set_right_margin private  subroutine mp_set_right_margin(this, x) Sets the right margin.  The value exists in the range [0, 1].  This\nmargin is a global margin for the multiplot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. real(kind=real32), intent(in) :: x The margin value.  This value will be clamped to the range\n[0, 1]. procedure, public :: set_title => mp_set_title private  subroutine mp_set_title(this, x) Sets the multiplot's title. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. character(len=*), intent(in) :: x The title. procedure, public :: set_top_margin => mp_set_top_margin private  subroutine mp_set_top_margin(this, x) Sets the top margin.  The value exists in the range [0, 1].  This\nmargin is a global margin for the multiplot. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. real(kind=real32), intent(in) :: x The margin value.  This value will be clamped to the range\n[0, 1]. procedure, public :: set_use_auto_generated_margins => mp_set_use_auto_generated_margins private  subroutine mp_set_use_auto_generated_margins(this, x) Sets a value determining if the global margins should be \nautomatically calculated. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. logical, intent(in) :: x True if the margins should be automatically calculated; else,\nfalse to use manually defined margins. procedure, public :: set_vertical_spacing => mp_set_vertical_spacing private  subroutine mp_set_vertical_spacing(this, x) Sets the vertical spacing between plots.  The value must be\nzero or positive. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. real(kind=real32), intent(in) :: x The spacing value.  This value will be clamped to zero if\na negative value is supplied. procedure, public :: set_window_size => mp_set_window_size private  subroutine mp_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( multiplot ), intent(inout) :: this The multiplot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height.","tags":"","loc":"type\\multiplot.html"},{"title":"vector_field_plot_data – FPLOT ","text":"type, public, extends( plot_data_colored ) :: vector_field_plot_data Defines a two-dimensional vector-field plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => vfpd_clear_data private  subroutine vfpd_clear_data(this) Clears the data from the data set. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(inout) :: this The vector_field_plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => vfpd_define_data private  subroutine vfpd_define_data(this, x, y, dx, dy, c, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(inout) :: this The vector_field_plot_data object. real(kind=real64), intent(in), dimension(:,:) :: x An M-by-N matrix containing the x-locations of each arrow's \norigin. real(kind=real64), intent(in), dimension(:,:) :: y An M-by-N matrix containing the y-locations of each arrow's \norigin. real(kind=real64), intent(in), dimension(:,:) :: dx An M-by-N matrix containing the x-direction of each arrow. real(kind=real64), intent(in), dimension(:,:) :: dy An M-by-N matrix containing the y-direction of each arrow. real(kind=real64), intent(in), optional, dimension(:,:) :: c An optional M-by-N matrix containing information on how to color \nthe arrows.  The colors are determined by the active colormap. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_arrow_size => vfpd_get_arrow_size private pure function vfpd_get_arrow_size(this) result(rst) Gets the scaling factor used to determine the arrow size. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value real(kind=real64) The scaling factor. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => vfpd_get_cmd private  function vfpd_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this\nvector_field_plot_data object. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => vfpd_get_data_cmd private  function vfpd_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data to plot. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_fill_arrow => vfpd_get_fill_arrow private pure function vfpd_get_fill_arrow(this) result(rst) Gets a value determining if the arrow heads should be filled. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value logical True if the arrow heads should be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_use_data_dependent_colors => vfpd_get_use_data_dependent_colors private pure function vfpd_get_use_data_dependent_colors(this) result(rst) Gets a value indicating if data-dependent coloring should be\nused.  This is defined by supplying information on how to scale the\ncoloring when calling define_data. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(in) :: this The vector_field_plot_data object. Return Value logical Returns true if data-dependent coloring is being used; else,\nfalse. procedure, public :: set_arrow_size => vfpd_set_arrow_size private  subroutine vfpd_set_arrow_size(this, x) Sets the scaling factor used to determine the arrow size. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(inout) :: this The vector_field_plot_data object. real(kind=real64), intent(in) :: x The scaling factor. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_fill_arrow => vfpd_set_fill_arrow private  subroutine vfpd_set_fill_arrow(this, x) Sets a value determining if the arrow heads should be filled. Arguments Type Intent Optional Attributes Name class( vector_field_plot_data ), intent(inout) :: this The vector_field_plot_data object. logical, intent(in) :: x True if the arrow heads should be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\vector_field_plot_data.html"},{"title":"surface_plot – FPLOT ","text":"type, public, extends( plot_3d ) :: surface_plot Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_allow_smoothing => surf_get_smooth private pure function surf_get_smooth(this) result(x) Gets a value determining if the plotted surfaces should be\nsmoothed. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value logical Returns true if the surface should be smoothed; else, false. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_azimuth => p3d_get_azimuth private pure function p3d_get_azimuth(this) result(x) Gets the plot azimuth angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real64) The azimuth angle, in degrees. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => surf_get_cmd private  function surf_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot_3d\nobject. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value character(len=:), allocatable The command string. procedure, public :: get_coordinate_system => p3d_get_csys private pure function p3d_get_csys(this) result(rst) Gets a value determining the coordinate system. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The coordinate system ID, which must be one of the following. COORDINATES_CARTESIAN COORDINATES_CYLINDRICAL COORDINATES_SPHERICAL procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_elevation => p3d_get_elevation private pure function p3d_get_elevation(this) result(x) Gets the plot elevation angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real64) The elevation angle, in degrees. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_light_intensity => surf_get_light_intensity private pure function surf_get_light_intensity(this) result(x) Gets the ratio of the strength of the light source relative\nto the ambient light. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value real(kind=real32) The light intensity ratio. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_contours => surf_get_show_contours private pure function surf_get_show_contours(this) result(x) Gets a value determining if a contour plot should be drawn in\nconjunction with the surface plot. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value logical Returns true if the contour plot should be drawn; else, false to\nonly draw the surface. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_hidden => surf_get_show_hidden private pure function surf_get_show_hidden(this) result(x) Gets a value indicating if hidden lines should be shown. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value logical Returns true if hidden lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_z_major_grid => p3d_get_show_z_major_grid private pure function p3d_get_show_z_major_grid(this) result(x) Gets a value determining if the z-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid private pure function p3d_get_show_z_minor_grid(this) result(x) Gets a value determining if the z-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_specular_intensity => surf_get_specular_intensity private pure function surf_get_specular_intensity(this) result(x) Gets the ratio of the strength of the specular light source\nrelative to the ambient light. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value real(kind=real32) The specular light intensity ratio. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_transparency => surf_get_transparency private pure function surf_get_transparency(this) result(x) Gets a factor defining the transparency of plotted surfaces. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value real(kind=real32) A value existing on the set (0 1] defining the level of\ntransparency.  A value of 1 indicates a fully opaque surface. procedure, public :: get_use_lighting => surf_get_use_lighting private pure function surf_get_use_lighting(this) result(x) Gets a value indicating if lighting, beyond the ambient\nlight source, is to be used. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(in) :: this The surface_plot object. Return Value logical True if lighting should be used; else, false. procedure, public :: get_use_map_view => p3d_get_use_map_view private pure function p3d_get_use_map_view(this) result(rst) Gets a value determining if the view should be set to a 2D\nmap view.  If true, the azimuth and elevation terms are ignored. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical Returns true if the map view will be used; else, false. procedure, public :: get_x_axis => p3d_get_x_axis private  function p3d_get_x_axis(this) result(ptr) Gets the x-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the x-axis object. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_axis => p3d_get_y_axis private  function p3d_get_y_axis(this) result(ptr) Gets the y-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the y-axis object. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_z_axis => p3d_get_z_axis private  function p3d_get_z_axis(this) result(ptr) Gets the z-axis object. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value class( plot_axis ), pointer A pointer to the z-axis object. procedure, public :: get_z_intersect_xy => p3d_get_z_axis_intersect private pure function p3d_get_z_axis_intersect(this) result(x) Gets a value determining if the z-axis should intersect the\nx-y plane. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value logical Returns true if the z-axis should intersect the x-y plane; else,\nfalse to allow the z-axis to float. procedure, public :: get_z_major_grid_color => p3d_get_z_major_grid_color private pure function p3d_get_z_major_grid_color(this) result(x) Gets the color of the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value type( color ) The color. procedure, public :: get_z_major_grid_line_style => p3d_get_z_major_grid_line_style private pure function p3d_get_z_major_grid_line_style(this) result(x) Gets the line style used for the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_z_major_grid_line_width => p3d_get_z_major_grid_line_width private pure function p3d_get_z_major_grid_line_width(this) result(x) Gets the width of the z-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real32) The line width. procedure, public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color private pure function p3d_get_z_minor_grid_color(this) result(x) Gets the color of the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value type( color ) The color. procedure, public :: get_z_minor_grid_line_style => p3d_get_z_minor_grid_line_style private pure function p3d_get_z_minor_grid_line_style(this) result(x) Gets the line style used for the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_z_minor_grid_line_width => p3d_get_z_minor_grid_line_width private pure function p3d_get_z_minor_grid_line_width(this) result(x) Gets the width of the z-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(in) :: this The plot_3d object. Return Value real(kind=real32) The line width. procedure, public :: initialize => surf_init private  subroutine surf_init(this, term, fname, err) Initializes the surface_plot object. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: p3d_push_data private  subroutine p3d_push_data(this, x, y, z, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real64), intent(in), dimension(size(x)) :: z The z-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , p3d_push_data , surf_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine p3d_push_data(this, x, y, z, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real64), intent(in), dimension(size(x)) :: z The z-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. private  subroutine surf_push_data(this, x, y, z) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real64), intent(in), dimension(:,:) :: x An M-by-N matrix containing the x-coordinate data. real(kind=real64), intent(in), dimension(size(x,1), size(x,2)) :: y An M-by-N matrix containing the y-coordinate data. real(kind=real64), intent(in), dimension(size(x,1), size(x,2)) :: z An M-by-N matrix containing the z-coordinate data. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_allow_smoothing => surf_set_smooth private  subroutine surf_set_smooth(this, x) Sets a value determining if the plotted surfaces should be\nsmoothed. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. logical, intent(in) :: x Set to true if the surface should be smoothed; else, false. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_azimuth => p3d_set_azimuth private  subroutine p3d_set_azimuth(this, x) Sets the plot azimuth angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in) :: x The azimuth angle, in degrees. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_coordinate_system => p3d_set_csys private  subroutine p3d_set_csys(this, x) Sets a value determining the coordinate system. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The coordinate system ID, which must be one of the following. COORDINATES_CARTESIAN COORDINATES_CYLINDRICAL COORDINATES_SPHERICAL procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_elevation => p3d_set_elevation private  subroutine p3d_set_elevation(this, x) Sets the plot elevation angle. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real64), intent(in) :: x The elevation angle, in degrees. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_light_intensity => surf_set_light_intensity private  subroutine surf_set_light_intensity(this, x) Sets the ratio of the strength of the light source relative\nto the ambient light. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real32), intent(in) :: x The light intensity ratio.  The value must exist in the\nset [0, 1]; else, it will be clipped to lie within the range. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_contours => surf_set_show_contours private  subroutine surf_set_show_contours(this, x) Sets a value determining if a contour plot should be drawn in\nconjunction with the surface plot. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. logical, intent(in) :: x Set to true if the contour plot should be drawn; else, false to\nonly draw the surface. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_hidden => surf_set_show_hidden private  subroutine surf_set_show_hidden(this, x) Sets a value indicating if hidden lines should be shown. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. logical, intent(in) :: x Set to true if hidden lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_z_major_grid => p3d_set_show_z_major_grid private  subroutine p3d_set_show_z_major_grid(this, x) Sets a value determining if the z-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid private  subroutine p3d_set_show_z_minor_grid(this, x) Sets a value determining if the z-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_specular_intensity => surf_set_specular_intensity private  subroutine surf_set_specular_intensity(this, x) Sets the ratio of the strength of the specular light source\nrelative to the ambient light. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real32), intent(in) :: x The specular light intensity ratio.  The value must exist in the \nset [0, 1]; else, it will be clipped to lie within the range. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_transparency => surf_set_transparency private  subroutine surf_set_transparency(this, x) Sets a factor defining the transparency of plotted surfaces. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real32), intent(in) :: x A value existing on the set (0 1] defining the level of\ntransparency.  A value of 1 indicates a fully opaque surface. Any values supplied outside of the set are clipped to fit within\n(0 1]. procedure, public :: set_use_lighting => surf_set_use_lighting private  subroutine surf_set_use_lighting(this, x) Sets a value indicating if lighting, beyond the ambient\nlight source, is to be used. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. logical, intent(in) :: x True if lighting should be used; else, false. procedure, public :: set_use_map_view => p3d_set_use_map_view private  subroutine p3d_set_use_map_view(this, x) Sets a value determining if the view should be set to a 2D\nmap view.  If true, the azimuth and elevation terms are ignored. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x Seturns true if the map view will be used; else, false. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_axis_title => p3d_set_x_axis_title private  subroutine p3d_set_x_axis_title(this, x) Sets the title associated with the plot's x-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_axis_title => p3d_set_y_axis_title private  subroutine p3d_set_y_axis_title(this, x) Sets the title associated with the plot's y-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_z_axis_title => p3d_set_z_axis_title private  subroutine p3d_set_z_axis_title(this, x) Sets the title associated with the plot's z-axis. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. character(len=*), intent(in) :: x The title. procedure, public :: set_z_intersect_xy => p3d_set_z_axis_intersect private  subroutine p3d_set_z_axis_intersect(this, x) Sets a value determining if the z-axis should intersect the\nx-y plane. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. logical, intent(in) :: x Set to true if the z-axis should intersect the x-y plane; else,\nfalse to allow the z-axis to float. procedure, public :: set_z_major_grid_color => p3d_set_z_major_grid_color private  subroutine p3d_set_z_major_grid_color(this, x) Sets the color of the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. type( color ), intent(in) :: x The color. procedure, public :: set_z_major_grid_line_style => p3d_set_z_major_grid_line_style private  subroutine p3d_set_z_major_grid_line_style(this, x) Sets the line style used for the z-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_z_major_grid_line_width => p3d_set_z_major_grid_line_width private  subroutine p3d_set_z_major_grid_line_width(this, x) Sets the width of the z-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color private  subroutine p3d_set_z_minor_grid_color(this, x) Sets the color of the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. type( color ), intent(in) :: x The color. procedure, public :: set_z_minor_grid_line_style => p3d_set_z_minor_grid_line_style private  subroutine p3d_set_z_minor_grid_line_style(this, x) Sets the line style used for the z-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_z_minor_grid_line_width => p3d_set_z_minor_grid_line_width private  subroutine p3d_set_z_minor_grid_line_width(this, x) Sets the width of the z-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot_3d ), intent(inout) :: this The plot_3d object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false. procedure, public :: surf_push_data private  subroutine surf_push_data(this, x, y, z) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( surface_plot ), intent(inout) :: this The surface_plot object. real(kind=real64), intent(in), dimension(:,:) :: x An M-by-N matrix containing the x-coordinate data. real(kind=real64), intent(in), dimension(size(x,1), size(x,2)) :: y An M-by-N matrix containing the y-coordinate data. real(kind=real64), intent(in), dimension(size(x,1), size(x,2)) :: z An M-by-N matrix containing the z-coordinate data.","tags":"","loc":"type\\surface_plot.html"},{"title":"line_plot_data – FPLOT ","text":"type, public, extends( plot_data_colored ) :: line_plot_data A plot_data object for describing line series data. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( pd_clear_action ), public, deferred :: clear_data subroutine pd_clear_action(this) Prototype Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => lpd_get_cmd public  function lpd_get_cmd (this) result(rst) Gets the GNUPLOT command string to represent this line_plot_data\nobject. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value character(len=:), allocatable The command string. procedure( pd_get_string_result ), public, deferred :: get_data_string function pd_get_string_result(this) result(x) Prototype Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\line_plot_data.html"},{"title":"plot_data – FPLOT ","text":"type, public, extends( plot_object ) :: plot_data A container for plot data. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( pd_clear_action ), public, deferred :: clear_data subroutine pd_clear_action(this) Prototype Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( get_string_result ), public, deferred :: get_command_string function get_string_result(this) result(x) Prototype Returns a string from a plot_object. Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:), allocatable The result string. procedure( pd_get_string_result ), public, deferred :: get_data_string function pd_get_string_result(this) result(x) Prototype Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\plot_data.html"},{"title":"plot_data_colored – FPLOT ","text":"type, public, extends( plot_data ) :: plot_data_colored Defines a colored plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( pd_clear_action ), public, deferred :: clear_data subroutine pd_clear_action(this) Prototype Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure( get_string_result ), public, deferred :: get_command_string function get_string_result(this) result(x) Prototype Returns a string from a plot_object. Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:), allocatable The result string. procedure( pd_get_string_result ), public, deferred :: get_data_string function pd_get_string_result(this) result(x) Prototype Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\plot_data_colored.html"},{"title":"scatter_plot_data – FPLOT ","text":"type, public, extends( line_plot_data ) :: scatter_plot_data A plot_data object for describing scatter plot data sets. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( pd_clear_action ), public, deferred :: clear_data subroutine pd_clear_action(this) Prototype Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure( spd_get_string_result ), public, deferred :: get_axes_string function spd_get_string_result(this) result(x) Prototype Gets a string value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => spd_get_cmd public  function spd_get_cmd (this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string. procedure( spd_get_int_value ), public, deferred :: get_count pure function spd_get_int_value(this) result(x) Prototype Gets an integer value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value integer(kind=int32) The value. procedure( pd_get_string_result ), public, deferred :: get_data_string function pd_get_string_result(this) result(x) Prototype Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_fill_curve => spd_get_filled private pure function spd_get_filled(this) result(rst) Gets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the curve should be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_simplification_factor => spd_get_simplify_factor private pure function spd_get_simplify_factor(this) result(x) Gets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value real(kind=real64) The scaling factor. procedure, public :: get_simplify_data => spd_get_simplify_data private pure function spd_get_simplify_data(this) result(x) Gets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors private pure function spd_get_data_dependent_colors(this) result(rst) Gets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if data-dependent colors should be used; else, false. procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size private pure function spd_get_use_var_point_size(this) result(rst) Gets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if variable size points should be used; else, false. procedure( spd_get_value ), public, deferred :: get_x pure function spd_get_value(this, index) result(x) Prototype Gets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. Return Value real(kind=real64) The value. procedure( spd_get_value ), public, deferred :: get_y pure function spd_get_value(this, index) result(x) Prototype Gets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. Return Value real(kind=real64) The value. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_fill_curve => spd_set_filled private  subroutine spd_set_filled(this, x) Sets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the curve should be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_simplification_factor => spd_set_simplify_factor private  subroutine spd_set_simplify_factor(this, x) Sets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. real(kind=real64), intent(in) :: x The scaling factor. procedure, public :: set_simplify_data => spd_set_simplify_data private  subroutine spd_set_simplify_data(this, x) Sets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors private  subroutine spd_set_data_dependent_colors(this, x) Sets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if data-dependent colors should be used; else, false. procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size private  subroutine spd_set_use_var_point_size(this, x) Sets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if variable size points should be used; else, false. procedure( spd_set_value ), public, deferred :: set_x subroutine spd_set_value(this, index, x) Prototype Sets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. real(kind=real64), intent(in) :: x The value. procedure( spd_set_value ), public, deferred :: set_y subroutine spd_set_value(this, index, x) Prototype Sets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. real(kind=real64), intent(in) :: x The value.","tags":"","loc":"type\\scatter_plot_data.html"},{"title":"name_value_pair – FPLOT ","text":"type, public :: name_value_pair Defines a name-value pair. Components Type Visibility Attributes Name Initial character(len=:), public, allocatable :: name The name. real(kind=real64), public :: value The associated value.","tags":"","loc":"type\\name_value_pair.html"},{"title":"plot_axis – FPLOT ","text":"type, public, extends( plot_object ) :: plot_axis Defines a plot axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle private pure function pa_get_auto_calc_title_angle(this) result(x) Gets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if GNUPLOT should automatically calculate the title\nangle; else, false. procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure( pa_get_string_result ), public, deferred :: get_id_string function pa_get_string_result(this) result(x) Prototype Retrieves a string from a plot_axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_angle => pa_get_title_angle private pure function pa_get_title_angle(this) result(x) Gets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The axis title angle, in degrees. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle private  subroutine pa_set_auto_calc_title_angle(this, x) Sets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to automatically calculate the title angle;\nelse, set to false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_angle => pa_set_title_angle private  subroutine pa_set_title_angle(this, x) Sets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The axis title angle, in degrees. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\plot_axis.html"},{"title":"x_axis – FPLOT ","text":"type, public, extends( plot_axis ) :: x_axis Defines an x-axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle private pure function pa_get_auto_calc_title_angle(this) result(x) Gets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if GNUPLOT should automatically calculate the title\nangle; else, false. procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_id_string => xa_get_id private  function xa_get_id(this) result(x) Gets the axis identification string. Arguments Type Intent Optional Attributes Name class( x_axis ), intent(in) :: this The x_axis object. Return Value character(len=:), allocatable The identification string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_angle => pa_get_title_angle private pure function pa_get_title_angle(this) result(x) Gets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The axis title angle, in degrees. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle private  subroutine pa_set_auto_calc_title_angle(this, x) Sets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to automatically calculate the title angle;\nelse, set to false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_angle => pa_set_title_angle private  subroutine pa_set_title_angle(this, x) Sets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The axis title angle, in degrees. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\x_axis.html"},{"title":"y2_axis – FPLOT ","text":"type, public, extends( plot_axis ) :: y2_axis Defines a secondary y-axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle private pure function pa_get_auto_calc_title_angle(this) result(x) Gets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if GNUPLOT should automatically calculate the title\nangle; else, false. procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_id_string => y2a_get_id private  function y2a_get_id(this) result(x) Gets the axis identification string. Arguments Type Intent Optional Attributes Name class( y2_axis ), intent(in) :: this The y2_axis object. Return Value character(len=:), allocatable The identification string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_angle => pa_get_title_angle private pure function pa_get_title_angle(this) result(x) Gets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The axis title angle, in degrees. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle private  subroutine pa_set_auto_calc_title_angle(this, x) Sets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to automatically calculate the title angle;\nelse, set to false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_angle => pa_set_title_angle private  subroutine pa_set_title_angle(this, x) Sets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The axis title angle, in degrees. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\y2_axis.html"},{"title":"y_axis – FPLOT ","text":"type, public, extends( plot_axis ) :: y_axis Defines a y-axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle private pure function pa_get_auto_calc_title_angle(this) result(x) Gets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if GNUPLOT should automatically calculate the title\nangle; else, false. procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_id_string => ya_get_id private  function ya_get_id(this) result(x) Gets the axis identification string. Arguments Type Intent Optional Attributes Name class( y_axis ), intent(in) :: this The y_axis object. Return Value character(len=:), allocatable The identification string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_angle => pa_get_title_angle private pure function pa_get_title_angle(this) result(x) Gets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The axis title angle, in degrees. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle private  subroutine pa_set_auto_calc_title_angle(this, x) Sets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to automatically calculate the title angle;\nelse, set to false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_angle => pa_set_title_angle private  subroutine pa_set_title_angle(this, x) Sets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The axis title angle, in degrees. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\y_axis.html"},{"title":"z_axis – FPLOT ","text":"type, public, extends( plot_axis ) :: z_axis Defines a z-axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle private pure function pa_get_auto_calc_title_angle(this) result(x) Gets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if GNUPLOT should automatically calculate the title\nangle; else, false. procedure, public :: get_autoscale => pa_get_autoscale private pure function pa_get_autoscale(this) result(x) Gets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the axis should be automatically scaled; else, \nfalse. procedure, public :: get_command_string => pa_get_cmd_string private  function pa_get_cmd_string(this) result(txt) Returns the appropriate GNUPLOT command string to define the\nplot_axis properties. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_id_string => za_get_id private  function za_get_id(this) result(x) Gets the axis identification string. Arguments Type Intent Optional Attributes Name class( z_axis ), intent(in) :: this The z_axis object. Return Value character(len=:), allocatable The identification string. procedure, public :: get_is_log_scaled => pa_get_log_scale private pure function pa_get_log_scale(this) result(x) Gets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if log scaling is applied to the axis; else, false. procedure, public :: get_limits => pa_get_axis_limits private pure function pa_get_axis_limits(this) result(x) Gets the axis display limits, assuming autoscaling is not\nactive for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real64), dimension(2) A two-element array containing the limits as follows:\n[lower, upper]. procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels private pure function pa_get_manual_tic_labels(this) result(rst) Gets a list of manual tic labels. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value type( name_value_pair ), allocatable, dimension(:) A list of name-value pairs where the name defines the label\nshown with the corresponding axis value. procedure, public :: get_offset_tics => pa_get_offset_tics private pure function pa_get_offset_tics(this) result(x) Gets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to offset the tics; else, set to false. procedure, public :: get_show_tic_labels => pa_get_show_tic_labels private pure function pa_get_show_tic_labels(this) result(x) Gets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to show tic labels; else, set to false. procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment private pure function pa_get_tic_label_alignment(this) result(x) Gets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: get_tic_label_angle => pa_get_tic_label_angle private pure function pa_get_tic_label_angle(this) result(x) Gets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The tic label angle, in degrees. procedure, public :: get_tic_label_format => pa_get_tic_label_fmt private pure function pa_get_tic_label_fmt(this) result(rst) Gets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label format string. procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin private pure function pa_get_tic_rotation_origin(this) result(x) Gets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset private pure function pa_get_tic_x_offset(this) result(x) Gets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label x-offset, in characters. procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset private pure function pa_get_tic_y_offset(this) result(x) Gets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The tic label y-offset, in characters. procedure, public :: get_title => pa_get_title private  function pa_get_title(this) result(txt) Gets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The title. procedure, public :: get_title_angle => pa_get_title_angle private pure function pa_get_title_angle(this) result(x) Gets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The axis title angle, in degrees. procedure, public :: get_title_x_offset => pa_get_title_x_offset private pure function pa_get_title_x_offset(this) result(x) Gets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title x-offset, in characters. procedure, public :: get_title_y_offset => pa_get_title_y_offset private pure function pa_get_title_y_offset(this) result(x) Gets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value integer(kind=int32) The axis title y-offset, in characters. procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt private pure function pa_get_use_dft_tic_lbl_fmt(this) result(rst) Gets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if the default tic label format will be used; else, \nfalse. procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels private pure function pa_get_use_manual_tic_labels(this) result(rst) Gets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical True if manual tic labels should be used; else, false. procedure, public :: get_zero_axis => pa_get_zero_axis private pure function pa_get_zero_axis(this) result(x) Gets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true to draw as a zero axis; else, set to false. procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width private pure function pa_get_zero_axis_width(this) result(x) Gets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value real(kind=real32) The width of the line, in pixels. procedure, public :: is_title_defined => pa_has_title private pure function pa_has_title(this) result(x) Gets a value determining if a title has been defined for this axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value logical Returns true if a title has been defined; else, false. procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle private  subroutine pa_set_auto_calc_title_angle(this, x) Sets whether GNUPLOT should automatically calculate the axis\ntitle angle. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to automatically calculate the title angle;\nelse, set to false. procedure, public :: set_autoscale => pa_set_autoscale private  subroutine pa_set_autoscale(this, x) Sets a value determining if the axis should be automatically scaled\nto fit the data. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the axis should be automatically scaled; else, \nset to false. procedure, public :: set_is_log_scaled => pa_set_log_scale private  subroutine pa_set_log_scale(this, x) Sets a logical value defining if the axis should be log scaled. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if log scaling is applied to the axis; else, false. procedure, public :: set_limits => pa_set_axis_limits private  subroutine pa_set_axis_limits(this, lower, upper) Gets the axis display limits, assuming autoscaling is not\nactive for this axis.  This routine also calls set_autoscale and\nsets the property value to false. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real64), intent(in) :: lower The lower display limit. real(kind=real64), intent(in) :: upper The upper display limit. procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels private  subroutine pa_set_manual_tic_labels(this, x) Sets a list of manual tic labels.  This routine also sets \nset_use_manual_tic_labels to true. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. type( name_value_pair ), intent(in), dimension(:) :: x The list of tic values with the name component representing the\ndisplayed label text and the value is the associated axis value. procedure, public :: set_offset_tics => pa_set_offset_tics private  subroutine pa_set_offset_tics(this, x) Sets a value determining if the tics should be offset. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to offset the tics; else, set to false. procedure, public :: set_show_tic_labels => pa_set_show_tic_labels private  subroutine pa_set_show_tic_labels(this, x) Sets a value determining if tic labels should be shown. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to show tic labels; else, set to false. procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment private  subroutine pa_set_tic_label_alignment(this, x) Sets the tic label alignment. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label alignment.  The tic label alignment must be one of \nthe following: GNUPLOT_HORIZONTAL_ALIGN_LEFT GNUPLOT_HORIZONTAL_ALIGN_CENTER GNUPLOT_HORIZONTAL_ALIGN_RIGHT procedure, public :: set_tic_label_angle => pa_set_tic_label_angle private  subroutine pa_set_tic_label_angle(this, x) Sets the tic label angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The tic label angle, in degrees. procedure, public :: set_tic_label_format => pa_set_tic_label_fmt private  subroutine pa_set_tic_label_fmt(this, x) Sets the tic label format.  The format string can be any format \nstring accepted by the C command 'printf.' Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label format string. procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin private  subroutine pa_set_tic_rotation_origin(this, x) Sets the tic label rotation origin. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: x The tic label rotation origin.  The tic label rotation origin\nmust be one of the following: GNUPLOT_ROTATION_ORIGIN_RIGHT GNUPLOT_ROTATION_ORIGIN_LEFT GNUPLOT_ROTATION_ORIGIN_CENTER procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset private  subroutine pa_set_tic_x_offset(this, x) Sets the tic label x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label x-offset, in characters. procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset private  subroutine pa_set_tic_y_offset(this, x) Sets the tic label y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The tic label y-offset, in characters. procedure, public :: set_title => pa_set_title private  subroutine pa_set_title(this, txt) Sets the axis title. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. character(len=*), intent(in) :: txt The title. procedure, public :: set_title_angle => pa_set_title_angle private  subroutine pa_set_title_angle(this, x) Sets the axis title angle, in degrees. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The axis title angle, in degrees. procedure, public :: set_title_x_offset => pa_set_title_x_offset private  subroutine pa_set_title_x_offset(this, x) Sets the axis title x-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title x-offset, in characters. procedure, public :: set_title_y_offset => pa_set_title_y_offset private  subroutine pa_set_title_y_offset(this, x) Sets the axis title y-offset, in characters. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. integer(kind=int32), intent(in) :: x The axis title y-offset, in characters. procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt private  subroutine pa_set_use_dft_tic_lbl_fmt(this, x) Sets a value determining if the default tic label format will be \nused. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if the default tic label format will be used; else, \nfalse. procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels private  subroutine pa_set_use_manual_tic_labels(this, x) Sets a value determining if manual tic labels should be used. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true if manual tic labels should be used; else, false. procedure, public :: set_zero_axis => pa_set_zero_axis private  subroutine pa_set_zero_axis(this, x) Sets a value determining if the axis should be drawn through\nzero of opposing axes. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. logical, intent(in) :: x Set to true to draw as a zero axis; else, set to false. procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width private  subroutine pa_set_zero_axis_width(this, x) Sets the width of the line used to represent the zero axis line, if \nactive. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(inout) :: this The plot_axis object. real(kind=real32), intent(in) :: x The width of the line, in pixels.","tags":"","loc":"type\\z_axis.html"},{"title":"plot_2d – FPLOT ","text":"type, public, extends( plot ) :: plot_2d A plot object defining a 2D plot. Finalization Procedures final :: p2d_clean_up private  subroutine p2d_clean_up(this) Cleans up resources held by the plot_2d object. Arguments Type Intent Optional Attributes Name type( plot_2d ), intent(inout) :: this The plot_2d object. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => p2d_get_cmd private  function p2d_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot_2d object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_jitter_overlap => p2d_get_jitter_overlap private pure function p2d_get_jitter_overlap(this) result(rst) Gets the jitter overalp. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value real(kind=real32) The jitter overlap. procedure, public :: get_jitter_spread => p2d_get_jitter_spread private pure function p2d_get_jitter_spread(this) result(rst) Gets the jitter horizontal spread. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value real(kind=real32) The jitter horizontal spread. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_square_axes => p2d_get_square_axes private pure function p2d_get_square_axes(this) result(rst) Gets a logical flag determining if the axes size should be squared\noff. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical Returns true if the axes are to be sized to a square; else,\nfalse. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_use_jittering => p2d_get_use_jitter private pure function p2d_get_use_jitter(this) result(rst) Gets a logical value determining if jittering should be used. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical True if jittering should be used; else, false. procedure, public :: get_use_y2_axis => p2d_get_use_y2 private pure function p2d_get_use_y2(this) result(x) Gets a flag determining if the secondary y-axis should be\ndisplayed. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical Returns true if the axis should be displayed; else, false. procedure, public :: get_x_axis => p2d_get_x_axis private  function p2d_get_x_axis(this) result(ptr) Gets the x-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the x-axis object. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y2_axis => p2d_get_y2_axis private  function p2d_get_y2_axis(this) result(ptr) Gets the secondary y-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the secondary y-axis object. procedure, public :: get_y_axis => p2d_get_y_axis private  function p2d_get_y_axis(this) result(ptr) Gets the y-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the y-axis object. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: initialize => p2d_init private  subroutine p2d_init(this, term, fname, err) Initializes the plot_2d object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: p2d_push_data private  subroutine p2d_push_data(this, x, y, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , p2d_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine p2d_push_data(this, x, y, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_jitter_overlap => p2d_set_jitter_overlap private  subroutine p2d_set_jitter_overlap(this, x) Sets the jitter overlap. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real32), intent(in) :: x The jitter overlap. procedure, public :: set_jitter_spread => p2d_set_jitter_spread private  subroutine p2d_set_jitter_spread(this, x) Sets the jitter horizontal spread. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real32), intent(in) :: x The jitter horizontal spread. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_square_axes => p2d_set_square_axes private  subroutine p2d_set_square_axes(this, x) Sets a logical flag determining if the axes size should be\nsquared off. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if the axes are to be sized to a square; else,\nfalse. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_use_jittering => p2d_set_use_jitter private  subroutine p2d_set_use_jitter(this, x) Sets a logical value determining if jittering should be used. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if jittering should be used; else, false. procedure, public :: set_use_y2_axis => p2d_set_use_y2 private  subroutine p2d_set_use_y2(this, x) Sets a flag determining if the secondary y-axis should be\ndisplayed. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if the axis should be displayed; else, false. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_axis_title => p2d_set_x_axis_title private  subroutine p2d_set_x_axis_title(this, x) Sets the title associated with the plot's x-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y2_axis_title => p2d_set_y2_axis_title private  subroutine p2d_set_y2_axis_title(this, x) Sets the title associated with the plot's secondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_axis_title => p2d_set_y_axis_title private  subroutine p2d_set_y_axis_title(this, x) Sets the title associated with the plot's y-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot_2d.html"},{"title":"delaunay_tri_2d – FPLOT ","text":"type, public :: delaunay_tri_2d Provides a container for a 2D Delaunay triangulation. Type-Bound Procedures procedure, public :: create => d2d_init private  subroutine d2d_init(this, x, y, err) Creates an unconstrained 2D Delaunay triangulation given a \nset of x-y points. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(inout) :: this The delaunay_tri_2d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of each\ndata point. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of each\ndata point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: find_triangle => d2d_get_tri_with_pt private pure function d2d_get_tri_with_pt(this, x, y) result(rst) Finds the triangle that contains the specified point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. real(kind=real64), intent(in) :: x The x-coordinate of the point. real(kind=real64), intent(in) :: y The y-coordinate of the point. Return Value integer(kind=int32) Returns the index of the triangle containing the specified\npoint.  If no triangle contains the specified point, a value of\n-1 is returned. procedure, public :: get_indices => d2d_get_tris private pure function d2d_get_tris(this) result(rst) Gets a list of the indices of each triangle vertex. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32), allocatable, dimension(:,:) An N-by-3 matrix with each column containing the index of the\nvertex of each triangle where N is the number of triangles. procedure, public :: get_point_count => d2d_get_pt_count private pure function d2d_get_pt_count(this) result(rst) Gets the number of points in the triangulation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32) The number of points in the triangulation. procedure, public :: get_points_x => d2d_get_x_pts private pure function d2d_get_x_pts(this) result(rst) Gets the x-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value real(kind=real64), allocatable, dimension(:) An array of the x-coordinates of each point. procedure, public :: get_points_y => d2d_get_y_pts private pure function d2d_get_y_pts(this) result(rst) Gets the y-coordinates of each point. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value real(kind=real64), allocatable, dimension(:) An array of the y-coordinates of each point. procedure, public :: get_triangle_count => d2d_get_tri_count private pure function d2d_get_tri_count(this) result(rst) Gets the number of triangles in the triangulation. Arguments Type Intent Optional Attributes Name class( delaunay_tri_2d ), intent(in) :: this The delaunay_tri_2d object. Return Value integer(kind=int32) The number of triangles in the triangulation.","tags":"","loc":"type\\delaunay_tri_2d.html"},{"title":"correlation_plot – FPLOT ","text":"type, public, extends( plot_object ) :: correlation_plot Defines a multiplot arrangement designed to illustrate correlation\nbetween data sets. Type-Bound Procedures procedure, public :: draw => cp_draw private  subroutine cp_draw(this, persist, err) Launches GNUPLOT and draws the correlation_plot per the current \nstate of the command list. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false\nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get => cp_get private  function cp_get(this, i, j) result(x) Gets the requested plot object. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. integer(kind=int32), intent(in) :: i The row index of the plot to retrieve. integer(kind=int32), intent(in) :: j The column index of the plot to retrieve. Return Value class( plot ), pointer A pointer to the plot object. procedure, public :: get_column_count => cp_get_cols private pure function cp_get_cols(this) result(x) Gets the number of columns of plots. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value integer(kind=int32) The column count. procedure, public :: get_command_string => cp_get_command private  function cp_get_command(this) result(x) Gets the GNUPLOT commands for this object. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value character(len=:), allocatable The command string. procedure, public :: get_font_name => cp_get_font private  function cp_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => cp_get_font_size private  function cp_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value integer(kind=int32) The font size. procedure, public :: get_plot_count => cp_get_count private pure function cp_get_count(this) result(x) Gets the total number of plots. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value integer(kind=int32) The plot count. procedure, public :: get_row_count => cp_get_rows private pure function cp_get_rows(this) result(x) Gets the number of rows of plots. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value integer(kind=int32) The row count. procedure, public :: get_terminal => cp_get_term private  function cp_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. Return Value class( terminal ), pointer A pointer to the terminal object. procedure, public :: initialize => cp_init private  subroutine cp_init(this, x, labels, term, width, height, err) Initializes the correlation_plot object. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(inout) :: this The correlation_plot object. real(kind=real64), intent(in), dimension(:,:) :: x The data to plot with each column representing a data set. type(string), intent(in), optional, dimension(:) :: labels An optional array containing a label to associate with each\ndata set in x.  If supplied, this array must have the same length\nas x has columns. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.  The \ndefault terminal is a WXT terminal.  The acceptable inputs are: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF integer(kind=int32), intent(in), optional :: width Optionally, the width of the plot window. integer(kind=int32), intent(in), optional :: height Optionally, the height of the plot window. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => cp_save private  subroutine cp_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(in) :: this The correlation_plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_font_name => cp_set_font private  subroutine cp_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(inout) :: this The correlation_plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => cp_set_font_size private  subroutine cp_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( correlation_plot ), intent(inout) :: this The correlation_plot object. integer(kind=int32), intent(in) :: x The font size.","tags":"","loc":"type\\correlation_plot.html"},{"title":"wxt_terminal – FPLOT ","text":"type, public, extends( terminal ) :: wxt_terminal A WXT terminal. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string private  function term_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => wxt_get_term_string private  function wxt_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( wxt_terminal ), intent(in) :: this The wxt_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\wxt_terminal.html"},{"title":"latex_terminal – FPLOT ","text":"type, public, extends( file_terminal ) :: latex_terminal A LATEX terminal. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string private  function fterm_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => tex_get_term_string private  function tex_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( latex_terminal ), intent(in) :: this The latex_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\latex_terminal.html"},{"title":"file_terminal – FPLOT ","text":"type, public, extends( terminal ) :: file_terminal Defines a terminal meant to save results directly to file \n(e.g. PNG, SVG, etc.). Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string private  function fterm_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure( term_get_string_result ), public, deferred :: get_id_string function term_get_string_result(this) result(x) Prototype Retrieves a string from a terminal. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\file_terminal.html"},{"title":"terminal – FPLOT ","text":"type, public, extends( plot_object ) :: terminal A GNUPLOT terminal object. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string private  function term_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure( term_get_string_result ), public, deferred :: get_id_string function term_get_string_result(this) result(x) Prototype Retrieves a string from a terminal. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\terminal.html"},{"title":"plot_data_2d – FPLOT ","text":"type, public, extends( scatter_plot_data ) :: plot_data_2d Defines a two-dimensional plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pd2d_clear_data private  subroutine pd2d_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. generic, public :: define_data => pd2d_set_data_1 , pd2d_set_data_2 private  subroutine pd2d_set_data_1(this, x, y, c, ps, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinate data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinate data. real(kind=real64), intent(in), optional, dimension(:) :: c An N-element array defining how color should vary with the \ncurrent colormap for each value. real(kind=real64), intent(in), optional, dimension(:) :: ps An N-element array defining the size of each data point. class( errors ), intent(inout), optional, target :: err An error-handling object. private  subroutine pd2d_set_data_2(this, y, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinate data.  This\ndata will be plotted against its own index. class( errors ), intent(inout), optional, target :: err An error-handling object. procedure, public :: get_axes_string => pd2d_get_axes_cmd private  function pd2d_get_axes_cmd(this) result(x) Gets the GNUPLOT command string defining which axes the data\nis to be plotted against. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_color_data => pd2d_get_c_array private  function pd2d_get_c_array(this) result(x) Gets the stored color scaling data array. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => spd_get_cmd public  function spd_get_cmd (this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => pd2d_get_data_count private pure function pd2d_get_data_count(this) result(x) Gets the number of data points. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value integer(kind=int32) The number of data points. procedure, public :: get_data_string => pd2d_get_data_cmd private  function pd2d_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data\nto plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => pd2d_get_draw_against_y2 private pure function pd2d_get_draw_against_y2(this) result(x) Gets a value determining if the data should be plotted against\nthe secondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value logical Returns true if the data should be plotted against the secondary\ny-axis; else, false to plot against the primary y-axis. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_fill_curve => spd_get_filled private pure function spd_get_filled(this) result(rst) Gets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the curve should be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_point_size_data => pd2d_get_ps_array private  function pd2d_get_ps_array(this) result(x) Gets the stored point size data array. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_simplification_factor => spd_get_simplify_factor private pure function spd_get_simplify_factor(this) result(x) Gets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value real(kind=real64) The scaling factor. procedure, public :: get_simplify_data => spd_get_simplify_data private pure function spd_get_simplify_data(this) result(x) Gets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors private pure function spd_get_data_dependent_colors(this) result(rst) Gets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if data-dependent colors should be used; else, false. procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size private pure function spd_get_use_var_point_size(this) result(rst) Gets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if variable size points should be used; else, false. procedure, public :: get_x => pd2d_get_x_data private pure function pd2d_get_x_data(this, index) result(x) Gets the requested X data point. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_x_data => pd2d_get_x_array private  function pd2d_get_x_array(this) result(x) Gets the stored X data array. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_y => pd2d_get_y_data private pure function pd2d_get_y_data(this, index) result(x) Gets the requested Y data point. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_y_data => pd2d_get_y_array private  function pd2d_get_y_array(this) result(x) Gets the stored Y data array. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(in) :: this The plot_data_2d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: pd2d_set_data_1 private  subroutine pd2d_set_data_1(this, x, y, c, ps, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinate data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinate data. real(kind=real64), intent(in), optional, dimension(:) :: c An N-element array defining how color should vary with the \ncurrent colormap for each value. real(kind=real64), intent(in), optional, dimension(:) :: ps An N-element array defining the size of each data point. class( errors ), intent(inout), optional, target :: err An error-handling object. procedure, public :: pd2d_set_data_2 private  subroutine pd2d_set_data_2(this, y, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinate data.  This\ndata will be plotted against its own index. class( errors ), intent(inout), optional, target :: err An error-handling object. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => pd2d_set_draw_against_y2 private  subroutine pd2d_set_draw_against_y2(this, x) Sets a value determining if the data should be plotted against\nthe secondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. logical, intent(in) :: x Set to true if the data should be plotted against the\nsecondary y-axis; else, false to plot against the primary y-axis. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_fill_curve => spd_set_filled private  subroutine spd_set_filled(this, x) Sets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the curve should be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_simplification_factor => spd_set_simplify_factor private  subroutine spd_set_simplify_factor(this, x) Sets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. real(kind=real64), intent(in) :: x The scaling factor. procedure, public :: set_simplify_data => spd_set_simplify_data private  subroutine spd_set_simplify_data(this, x) Sets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors private  subroutine spd_set_data_dependent_colors(this, x) Sets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if data-dependent colors should be used; else, false. procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size private  subroutine spd_set_use_var_point_size(this, x) Sets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if variable size points should be used; else, false. procedure, public :: set_x => pd2d_set_x_data private  subroutine pd2d_set_x_data(this, index, x) Sets the requested X data point. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point. procedure, public :: set_y => pd2d_set_y_data private  subroutine pd2d_set_y_data(this, index, x) Sets the requested Y data point. Arguments Type Intent Optional Attributes Name class( plot_data_2d ), intent(inout) :: this The plot_data_2d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point.","tags":"","loc":"type\\plot_data_2d.html"},{"title":"plot_data_3d – FPLOT ","text":"type, public, extends( scatter_plot_data ) :: plot_data_3d Defines a three-dimensional plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pd3d_clear_data private  subroutine pd3d_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pd3d_set_data_1 private  subroutine pd3d_set_data_1(this, x, y, z, c, ps, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinate data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinate data. real(kind=real64), intent(in), dimension(:) :: z An N-element array containing the z coordinate data. real(kind=real64), intent(in), optional, dimension(:) :: c An N-element array defining how color should vary with the \ncurrent colormap for each value. real(kind=real64), intent(in), optional, dimension(:) :: ps An N-element array defining the size of each data point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_axes_string => pd3d_get_axes_cmd private  function pd3d_get_axes_cmd(this) result(x) Gets the GNUPLOT command string defining which axes the data\nis to be plotted against. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_color_data => pd3d_get_c_array private  function pd3d_get_c_array(this) result(x) Gets the stored color scaling data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => spd_get_cmd public  function spd_get_cmd (this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => pd3d_get_data_count private pure function pd3d_get_data_count(this) result(x) Gets the number of data points. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value integer(kind=int32) The number of data points. procedure, public :: get_data_string => pd3d_get_data_cmd private  function pd3d_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data to plot. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines private pure function lpd_get_draw_impulse_lines(this) result(x) Gets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical True if impulse lines should be drawn; else, false. procedure, public :: get_draw_line => lpd_get_draw_line private pure function lpd_get_draw_line(this) result(x) Gets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the line should be drawn; else, false. procedure, public :: get_draw_markers => lpd_get_draw_markers private pure function lpd_get_draw_markers(this) result(x) Gets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value logical Returns true if the markers should be drawn; else, false. procedure, public :: get_fill_curve => spd_get_filled private pure function spd_get_filled(this) result(rst) Gets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the curve should be filled; else, false. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_style => lpd_get_line_style private pure function lpd_get_line_style(this) result(x) Gets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_line_width => lpd_get_line_width private pure function lpd_get_line_width(this) result(x) Gets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The line width. procedure, public :: get_marker_frequency => lpd_get_marker_frequency private pure function lpd_get_marker_frequency(this) result(x) Gets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker frequency. procedure, public :: get_marker_scaling => lpd_get_marker_scaling private pure function lpd_get_marker_scaling(this) result(x) Gets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_marker_style => lpd_get_marker_style private pure function lpd_get_marker_style(this) result(x) Gets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value integer(kind=int32) The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_point_size_data => pd3d_get_c_array private  function pd3d_get_c_array(this) result(x) Gets the stored color scaling data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_simplification_factor => spd_get_simplify_factor private pure function spd_get_simplify_factor(this) result(x) Gets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value real(kind=real64) The scaling factor. procedure, public :: get_simplify_data => spd_get_simplify_data private pure function spd_get_simplify_data(this) result(x) Gets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors private pure function spd_get_data_dependent_colors(this) result(rst) Gets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if data-dependent colors should be used; else, false. procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size private pure function spd_get_use_var_point_size(this) result(rst) Gets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value logical True if variable size points should be used; else, false. procedure, public :: get_x => pd3d_get_x_data private pure function pd3d_get_x_data(this, index) result(x) Gets the requested X data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_x_data => pd3d_get_x_array private  function pd3d_get_x_array(this) result(x) Gets the stored X data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_y => pd3d_get_y_data private pure function pd3d_get_y_data(this, index) result(x) Gets the requested Y data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_y_data => pd3d_get_y_array private  function pd3d_get_y_array(this) result(x) Gets the stored Y data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: get_z => pd3d_get_z_data private pure function pd3d_get_z_data(this, index) result(x) Gets the requested Z data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to retrieve. Return Value real(kind=real64) The requested data point. procedure, public :: get_z_data => pd3d_get_z_array private  function pd3d_get_z_array(this) result(x) Gets the stored Z data array. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(in) :: this The plot_data_3d object. Return Value real(kind=real64), allocatable, dimension(:) A copy of the stored data array. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines private  subroutine lpd_set_draw_impulse_lines(this, x) Sets a value determining if impulse lines should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x True if impulse lines should be drawn; else, false. procedure, public :: set_draw_line => lpd_set_draw_line private  subroutine lpd_set_draw_line(this, x) Sets a value determining if a line should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the line should be drawn; else, false. procedure, public :: set_draw_markers => lpd_set_draw_markers private  subroutine lpd_set_draw_markers(this, x) Sets a value determining if data point markers should be drawn. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. logical, intent(in) :: x Set to true if the markers should be drawn; else, false. procedure, public :: set_fill_curve => spd_set_filled private  subroutine spd_set_filled(this, x) Sets a logical value determining if a filled curve should be drawn. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the curve should be filled; else, false. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_style => lpd_set_line_style private  subroutine lpd_set_line_style(this, x) Sets the line style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_line_width => lpd_set_line_width private  subroutine lpd_set_line_width(this, x) Sets the width of the line, in pixels. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_marker_frequency => lpd_set_marker_frequency private  subroutine lpd_set_marker_frequency(this, x) Sets the marker frequency. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker frequency. procedure, public :: set_marker_scaling => lpd_set_marker_scaling private  subroutine lpd_set_marker_scaling(this, x) Sets the marker scaling. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. real(kind=real32), intent(in) :: x The scaling factor. procedure, public :: set_marker_style => lpd_set_marker_style private  subroutine lpd_set_marker_style(this, x) Sets the marker style. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(inout) :: this The line_plot_data object. integer(kind=int32), intent(in) :: x The marker type.  The marker type must be one of the following: MARKER_ASTERISK MARKER_EMPTY_CIRCLE MARKER_EMPTY_NABLA MARKER_EMPTY_RHOMBUS MARKER_EMPTY_SQUARE MARKER_EMPTY_TRIANGLE MARKER_FILLED_CIRCLE MARKER_FILLED_NABLA MARKER_FILLED_RHOMBUS MARKER_FILLED_SQUARE MARKER_FILLED_TRIANGLE MARKER_PLUS MARKER_X procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_simplification_factor => spd_set_simplify_factor private  subroutine spd_set_simplify_factor(this, x) Sets a factor used to establish the simplification tolerance. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. real(kind=real64), intent(in) :: x The scaling factor. procedure, public :: set_simplify_data => spd_set_simplify_data private  subroutine spd_set_simplify_data(this, x) Sets a value determining if the stored data should be\nsimplified (reduced) before passing to GNUPLOT. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if the data should be simplified prior to sending\nto GNUPLOT; else, false to leave the data alone. procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors private  subroutine spd_set_data_dependent_colors(this, x) Sets a value determing if data-dependent colors should be used. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if data-dependent colors should be used; else, false. procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size private  subroutine spd_set_use_var_point_size(this, x) Sets a logical value determining if variable sized data points\nshould be used.  The default is false, such that points will be of\na constant size. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. logical, intent(in) :: x True if variable size points should be used; else, false. procedure, public :: set_x => pd3d_set_x_data private  subroutine pd3d_set_x_data(this, index, x) Sets the requested X data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point. procedure, public :: set_y => pd3d_set_y_data private  subroutine pd3d_set_y_data(this, index, x) Sets the requested Y data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point. procedure, public :: set_z => pd3d_set_z_data private  subroutine pd3d_set_z_data(this, index, x) Sets the requested Z data point. Arguments Type Intent Optional Attributes Name class( plot_data_3d ), intent(inout) :: this The plot_data_3d object. integer(kind=int32), intent(in) :: index The index of the data point to replace. real(kind=real64), intent(in) :: x The data point.","tags":"","loc":"type\\plot_data_3d.html"},{"title":"color – FPLOT ","text":"type, public :: color Describes an RGB color. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: alpha = 0 The alpha component of the color (must be between 0 and 255).\nNotice, 0 is fully opaque and 255 is fully transparent. integer(kind=int32), public :: blue = 255 The blue component of the color (must be between 0 and 255). integer(kind=int32), public :: green = 0 The green component of the color (must be between 0 and 255). integer(kind=int32), public :: red = 0 The red component of the color (must be between 0 and 255). Type-Bound Procedures procedure, public, pass :: copy_from => clr_copy_from private  subroutine clr_copy_from(this, clr) Copies another color to this color. Arguments Type Intent Optional Attributes Name class( color ), intent(inout) :: this The color object. class( color ), intent(in) :: clr The color to copy. procedure, public, pass :: rgb_to_hex_string => clr_rgb_to_hex_string private pure function clr_rgb_to_hex_string(this) result(txt) Returns the color in hexadecimal format ignoring any alpha channel. Arguments Type Intent Optional Attributes Name class( color ), intent(in) :: this The color object. Return Value character(len=6) A string containing the hexadecimal equivalent. procedure, public, pass :: to_hex_string => clr_to_hex_string private pure function clr_to_hex_string(this) result(txt) Returns the color in hexadecimal format. Arguments Type Intent Optional Attributes Name class( color ), intent(in) :: this The color object. Return Value character(len=8) A string containing the hexadecimal equivalent.","tags":"","loc":"type\\color.html"},{"title":"plot_polar – FPLOT ","text":"type, public, extends( plot ) :: plot_polar Finalization Procedures final :: plr_clean_up private  subroutine plr_clean_up(this) Cleans up resources held by the plot_polar object. Arguments Type Intent Optional Attributes Name type( plot_polar ), intent(inout) :: this The plot_polar object. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_autoscale => plr_get_autoscale private pure function plr_get_autoscale(this) result(rst) Gets a logical value determining if the axis should be \nautomatically scaled to fit the data. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value logical Returns true if the plot will autoscale; else, false. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => plr_get_cmd private  function plr_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot_polar object. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_radial_limits => plr_get_limits private pure function plr_get_limits(this) result(rst) Gets the radial axis limits if autoscaling is inactive. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value real(kind=real64), (2) A 2-element array containing the minimum and maximum limit\nvalues in that order. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_theta_direction => plr_get_theta_direction private pure function plr_get_theta_direction(this) result(rst) Gets the direction. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value character(len=:), allocatable The direction.  It is one of the following flags. POLAR_THETA_CCW POLAR_THETA_CW procedure, public :: get_theta_start_position => plr_get_theta_start private pure function plr_get_theta_start(this) result(rst) Gets the position for . Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(in) :: this The plot_polar object. Return Value character(len=:), allocatable The starting position.  It is one of the following flags. POLAR_THETA_BOTTOM POLAR_THETA_TOP POLAR_THETA_RIGHT POLAR_THETA_LEFT procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: initialize => plr_init private  subroutine plr_init(this, term, fname, err) Initializes the plot_polar object. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: plr_push_data private  subroutine plr_push_data(this, angle, radial, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. real(kind=real64), intent(in), dimension(:) :: angle The angular values. real(kind=real64), intent(in), dimension(size(angle)) :: radial The radial values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , plr_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine plr_push_data(this, angle, radial, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. real(kind=real64), intent(in), dimension(:) :: angle The angular values. real(kind=real64), intent(in), dimension(size(angle)) :: radial The radial values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_autoscale => plr_set_autoscale private  subroutine plr_set_autoscale(this, x) Sets a logical value determining if the axis should be \nautomatically scaled to fit the data. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. logical, intent(in) :: x Set to true if the plot will autoscale; else, false. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_radial_limits => plr_set_limits private  subroutine plr_set_limits(this, x) Sets the radial axis limits if autoscaling is inactive. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. real(kind=real64), intent(in) :: x (2) A 2-element array containing the minimum and maximum limit\nvalues in that order. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_theta_direction => plr_set_theta_direction private  subroutine plr_set_theta_direction(this, x) Sets the direction. Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. character(len=*), intent(in) :: x The direction.  It is one of the following flags. POLAR_THETA_CCW POLAR_THETA_CW procedure, public :: set_theta_start_position => plr_set_theta_start private  subroutine plr_set_theta_start(this, x) Sets the position for . Arguments Type Intent Optional Attributes Name class( plot_polar ), intent(inout) :: this The plot_polar object. character(len=*), intent(in) :: x The starting position.  It is one of the following flags. POLAR_THETA_BOTTOM POLAR_THETA_TOP POLAR_THETA_RIGHT POLAR_THETA_LEFT procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot_polar.html"},{"title":"plot_bar – FPLOT ","text":"type, public, extends( plot_2d ) :: plot_bar Defines a 2D plot tailored towards bar plotting. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_bar_width => pb_get_bar_width private pure function pb_get_bar_width(this) result(x) Gets the bar width scaling factor. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(in) :: this The plot_bar object. Return Value real(kind=real32) The scaling factor. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => pb_get_cmd private  function pb_get_cmd(this) result(x) Gets the GNUPLOT commands required to draw the plot. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(in) :: this The plot_bar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_jitter_overlap => p2d_get_jitter_overlap private pure function p2d_get_jitter_overlap(this) result(rst) Gets the jitter overalp. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value real(kind=real32) The jitter overlap. procedure, public :: get_jitter_spread => p2d_get_jitter_spread private pure function p2d_get_jitter_spread(this) result(rst) Gets the jitter horizontal spread. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value real(kind=real32) The jitter horizontal spread. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_spacing => pb_get_spacing private pure function pb_get_spacing(this) result(rst) Gets the spacing between clusters of data sets. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(in) :: this The [[plot+bar]] object. Return Value integer(kind=int32) The spacing. procedure, public :: get_square_axes => p2d_get_square_axes private pure function p2d_get_square_axes(this) result(rst) Gets a logical flag determining if the axes size should be squared\noff. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical Returns true if the axes are to be sized to a square; else,\nfalse. procedure, public :: get_stacked => pb_get_stacked private pure function pb_get_stacked(this) result(rst) Gets a value determining if data sets should be stacked (true) or\nleft side-by-side (false). Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(in) :: this The plot_bar object. Return Value logical True if multiple data sets should be stacked; else, false. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_use_jittering => p2d_get_use_jitter private pure function p2d_get_use_jitter(this) result(rst) Gets a logical value determining if jittering should be used. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical True if jittering should be used; else, false. procedure, public :: get_use_y2_axis => p2d_get_use_y2 private pure function p2d_get_use_y2(this) result(x) Gets a flag determining if the secondary y-axis should be\ndisplayed. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value logical Returns true if the axis should be displayed; else, false. procedure, public :: get_x_axis => p2d_get_x_axis private  function p2d_get_x_axis(this) result(ptr) Gets the x-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the x-axis object. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y2_axis => p2d_get_y2_axis private  function p2d_get_y2_axis(this) result(ptr) Gets the secondary y-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the secondary y-axis object. procedure, public :: get_y_axis => p2d_get_y_axis private  function p2d_get_y_axis(this) result(ptr) Gets the y-axis object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(in) :: this The plot_2d object. Return Value class( plot_axis ), pointer A pointer to the y-axis object. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: initialize => p2d_init private  subroutine p2d_init(this, term, fname, err) Initializes the plot_2d object. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\n The default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: p2d_push_data private  subroutine p2d_push_data(this, x, y, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data , p2d_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine p2d_push_data(this, x, y, lw, name, ls, lc) Adds a data set to the plot. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real64), intent(in), dimension(:) :: x The x-values. real(kind=real64), intent(in), dimension(size(x)) :: y The y-values. real(kind=real32), intent(in), optional :: lw The line width. character(len=*), intent(in), optional :: name A name to associate with the data set. integer(kind=int32), intent(in), optional :: ls The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID type( color ), intent(in), optional :: lc The line color. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_bar_width => pb_set_bar_width private  subroutine pb_set_bar_width(this, x) Sets the bar width scaling factor. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(inout) :: this The plot_bar object. real(kind=real32), intent(in) :: x The scaling factor.  The value must be in the set [0, 1]; else, the\nvalue will be shifted accordingly. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_jitter_overlap => p2d_set_jitter_overlap private  subroutine p2d_set_jitter_overlap(this, x) Sets the jitter overlap. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real32), intent(in) :: x The jitter overlap. procedure, public :: set_jitter_spread => p2d_set_jitter_spread private  subroutine p2d_set_jitter_spread(this, x) Sets the jitter horizontal spread. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. real(kind=real32), intent(in) :: x The jitter horizontal spread. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_spacing => pb_set_spacing private  subroutine pb_set_spacing(this, x) Sets the spacing between clusters of data sets. Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(inout) :: this The [[plot+bar]] object. integer(kind=int32), intent(in) :: x The spacing. procedure, public :: set_square_axes => p2d_set_square_axes private  subroutine p2d_set_square_axes(this, x) Sets a logical flag determining if the axes size should be\nsquared off. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if the axes are to be sized to a square; else,\nfalse. procedure, public :: set_stacked => pb_set_stacked private  subroutine pb_set_stacked(this, x) Gets a value determining if data sets should be stacked (true) or\nleft side-by-side (false). Arguments Type Intent Optional Attributes Name class( plot_bar ), intent(inout) :: this The plot_bar object. logical, intent(in) :: x True if multiple data sets should be stacked; else, false. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_use_jittering => p2d_set_use_jitter private  subroutine p2d_set_use_jitter(this, x) Sets a logical value determining if jittering should be used. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if jittering should be used; else, false. procedure, public :: set_use_y2_axis => p2d_set_use_y2 private  subroutine p2d_set_use_y2(this, x) Sets a flag determining if the secondary y-axis should be\ndisplayed. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. logical, intent(in) :: x Set to true if the axis should be displayed; else, false. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_axis_title => p2d_set_x_axis_title private  subroutine p2d_set_x_axis_title(this, x) Sets the title associated with the plot's x-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y2_axis_title => p2d_set_y2_axis_title private  subroutine p2d_set_y2_axis_title(this, x) Sets the title associated with the plot's secondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_axis_title => p2d_set_y_axis_title private  subroutine p2d_set_y_axis_title(this, x) Sets the title associated with the plot's y-axis. Arguments Type Intent Optional Attributes Name class( plot_2d ), intent(inout) :: this The plot_2d object. character(len=*), intent(in) :: x The title. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot_bar.html"},{"title":"plot_arrow – FPLOT ","text":"type, public, extends( plot_object ) :: plot_arrow Defines an arrow that can be drawn on a plot. Type-Bound Procedures procedure, public :: get_color => par_get_color private pure function par_get_color(this) result(rst) Gets the color of the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value type( color ) The color. procedure, public :: get_command_string => par_get_cmd private  function par_get_cmd(this) result(rst) Returns the appropriate GNUPLOT command string to establish appropriate \nparameters. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_head_angle => par_get_head_angle private pure function par_get_head_angle(this) result(rst) Gets the angle of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32) The angle, in degrees. procedure, public :: get_head_back_angle => par_get_head_back_angle private pure function par_get_head_back_angle(this) result(rst) Gets the angle of the back of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32) The angle, in degrees. procedure, public :: get_head_fill => par_get_fill private pure function par_get_fill(this) result(rst) Gets a flag denoting the head fill type. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value integer(kind=int32) The flag denoting head fill. procedure, public :: get_head_location => par_get_head private pure function par_get_head(this) result(rst) Gets the coordinates of the arrow's head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32), dimension(3) A 3-element array containing the x, y, and z coordinates of the\narrow's head. procedure, public :: get_head_size => par_get_head_size private pure function par_get_head_size(this) result(rst) Gets the size of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32) The head size. procedure, public :: get_head_type => par_get_head_type private pure function par_get_head_type(this) result(rst) Gets the type of arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value integer(kind=int32) The arrow head type. procedure, public :: get_is_visible => par_get_is_visible private pure function par_get_is_visible(this) result(rst) Gets a value determining if the arrow is visible. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value logical True if the arrow is visible; else, false. procedure, public :: get_line_style => par_get_line_style private pure function par_get_line_style(this) result(rst) Gets the line style used to draw the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value integer(kind=int32) The line style. procedure, public :: get_line_width => par_get_line_width private pure function par_get_line_width(this) result(rst) Gets the width of the lines used to draw the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32) The width of the line. procedure, public :: get_move_to_front => par_get_move_to_front private pure function par_get_move_to_front(this) result(rst) Gets a value determining if the arrow should be moved to the front. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value logical True if the arrow should be moved to the front; else, false. procedure, public :: get_tail_location => par_get_tail private pure function par_get_tail(this) result(rst) Gets the coordinates of the arrow's tail. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value real(kind=real32), dimension(3) A 3-element array containing the x, y, and z coordinates of the \narrow's tail. procedure, public :: get_use_default_size => par_get_use_default_size private pure function par_get_use_default_size(this) result(rst) Gets a value determining if arrow head sizing defaults should be used. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(in) :: this The plot_arrow object. Return Value logical True if the defaults should be used; else, false. procedure, public :: set_color => par_set_color private  subroutine par_set_color(this, x) Sets the color of the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. type( color ), intent(in) :: x The color. procedure, public :: set_head_angle => par_set_head_angle private  subroutine par_set_head_angle(this, x) Sets the angle of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The angle, in degrees. procedure, public :: set_head_back_angle => par_set_head_back_angle private  subroutine par_set_head_back_angle(this, x) Sets the angle of the back of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The angle, in degrees. procedure, public :: set_head_fill => par_set_fill private  subroutine par_set_fill(this, x) Sets a flag denoting the head fill type. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. integer(kind=int32), intent(in) :: x The flag denoting head fill.  It must be one of the following \nconstants. ARROW_FILLED ARROW_EMPTY ARROW_NO_BORDER ARROW_NO_FILL If the value is not one of the above, the command is ignored. generic, public :: set_head_location => par_set_head_1, par_set_head_2, par_set_head_3 private  subroutine par_set_head_1(this, x) Sets the location of the arrow's head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x (3) A 3-element array containing the x, y, and z coordinates of the\narrow's head. private  subroutine par_set_head_2(this, x, y) Sets the location of the arrow's head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The x-coordinate of the arrow's head. real(kind=real32), intent(in) :: y The y-coordinate of the arrow's head. private  subroutine par_set_head_3(this, x, y, z) Sets the location of the arrow's head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The x-coordinate of the arrow's head. real(kind=real32), intent(in) :: y The y-coordinate of the arrow's head. real(kind=real32), intent(in) :: z The z-coordinate of the arrow's head. procedure, public :: set_head_size => par_set_head_size private  subroutine par_set_head_size(this, x) Sets the size of the arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The head size. procedure, public :: set_head_type => par_set_head_type private  subroutine par_set_head_type(this, x) Sets the type of arrow head. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. integer(kind=int32), intent(in) :: x The arrow head type.  It must be one of the following constants. ARROW_HEAD ARROW_BACKHEAD ARROW_HEADS ARROW_NO_HEAD If the value is not one of the above, the command is ignored. procedure, public :: set_is_visible => par_set_is_visible private  subroutine par_set_is_visible(this, x) Sets a value determining if the arrow is visible. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. logical, intent(in) :: x True if the arrow is visible; else, false. procedure, public :: set_line_style => par_set_line_style private  subroutine par_set_line_style(this, x) Sets the line style used to draw the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. integer(kind=int32), intent(in) :: x The line style.  The value must be one of the following. LINE_SOLID LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED If the value is not one of the above, the command is ignored. procedure, public :: set_line_width => par_set_line_width private  subroutine par_set_line_width(this, x) Sets the width of the lines used to draw the arrow. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The width of the line. procedure, public :: set_move_to_front => par_set_move_to_front private  subroutine par_set_move_to_front(this, x) Sets a value determining if the arrow should be moved to the front. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. logical, intent(in) :: x True if the arrow should be moved to the front; else, false. generic, public :: set_tail_location => par_set_tail_1, par_set_tail_2, par_set_tail_3 private  subroutine par_set_tail_1(this, x) Sets the coordinates of the arrow's tail. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x (3) A 3-element array containing the x, y, and z coordinates of the \narrow's tail. private  subroutine par_set_tail_2(this, x, y) Sets the coordinates of the arrow's tail. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The x-coordinate of the arrow's tail. real(kind=real32), intent(in) :: y !! The y-coordinate of the arrow's tail. private  subroutine par_set_tail_3(this, x, y, z) Sets the coordinates of the arrow's tail. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. real(kind=real32), intent(in) :: x The x-coordinate of the arrow's tail. real(kind=real32), intent(in) :: y The y-coordinate of the arrow's tail. real(kind=real32), intent(in) :: z The z-coordinate of the arrow's tail. procedure, public :: set_use_default_size => par_set_use_default_size private  subroutine par_set_use_default_size(this, x) Sets a value determining if arrow head sizing defaults should be used. Arguments Type Intent Optional Attributes Name class( plot_arrow ), intent(inout) :: this The plot_arrow object. logical, intent(in) :: x True if the defaults should be used; else, false.","tags":"","loc":"type\\plot_arrow.html"},{"title":"png_terminal – FPLOT ","text":"type, public, extends( file_terminal ) :: png_terminal Defines a terminal used for producing PNG outputs. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string private  function fterm_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => png_get_term_string private  function png_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( png_terminal ), intent(in) :: this The png_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\png_terminal.html"},{"title":"colormap – FPLOT ","text":"type, public, extends( plot_object ) :: colormap A colormap object for a surface plot. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure( cm_get_string_result ), public, deferred :: get_color_string function cm_get_string_result(this) result(x) Prototype Retrieves a string result from a colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\colormap.html"},{"title":"cool_colormap – FPLOT ","text":"type, public, extends( colormap ) :: cool_colormap Defines a colormap consisting of \"cool\" colors. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure, public :: get_color_string => ccm_get_clr private  function ccm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( cool_colormap ), intent(in) :: this The cool_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\cool_colormap.html"},{"title":"custom_colormap – FPLOT ","text":"type, public, extends( colormap ) :: custom_colormap Defines a custom colormap that utilizes the FORCOLORMAP library\nto provide the map. Finalization Procedures final :: custom_final private  subroutine custom_final(this) Arguments Type Intent Optional Attributes Name type( custom_colormap ), intent(inout) :: this The custom_colormap object. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure, public :: get_color_string => custom_get_clr private  function custom_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( custom_colormap ), intent(in) :: this The custom_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colormap => custom_get private  function custom_get(this) result(rst) Gets a pointer to the FORCOLORMAP colormap object. Arguments Type Intent Optional Attributes Name class( custom_colormap ), intent(in) :: this The custom_colormap object. Return Value class(cmap), pointer A pointer to the FORCOLORMAP colormap object. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_colormap => custom_set private  subroutine custom_set(this, map, err) Sets the FORCOLORMAP colormap object. Arguments Type Intent Optional Attributes Name class( custom_colormap ), intent(inout) :: this The custom_colormap object. class(cmap), intent(in) :: map The FORCOLORMAP colormap object.  The custom_colormap object \nstores a copy of this object; therefore, any changes made to \nx after calls to this routine will not impact the behavior of \nthe custom_colormap object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\custom_colormap.html"},{"title":"earth_colormap – FPLOT ","text":"type, public, extends( colormap ) :: earth_colormap Defines an earthy-colored colormap. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure, public :: get_color_string => ecm_get_clr private  function ecm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( earth_colormap ), intent(in) :: this The earth_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\earth_colormap.html"},{"title":"grey_colormap – FPLOT ","text":"type, public, extends( colormap ) :: grey_colormap Defines a grey-scaled colormap. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure, public :: get_color_string => gcm_get_clr private  function gcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( grey_colormap ), intent(in) :: this The grey_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\grey_colormap.html"},{"title":"hot_colormap – FPLOT ","text":"type, public, extends( colormap ) :: hot_colormap Defines a colormap consisting of \"hot\" colors. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure, public :: get_color_string => hcm_get_clr private  function hcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( hot_colormap ), intent(in) :: this The hot_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\hot_colormap.html"},{"title":"parula_colormap – FPLOT ","text":"type, public, extends( colormap ) :: parula_colormap Defines a colormap equivalent to the MATLAB parula colormap. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure, public :: get_color_string => pcm_get_clr private  function pcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( parula_colormap ), intent(in) :: this The parula_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\parula_colormap.html"},{"title":"rainbow_colormap – FPLOT ","text":"type, public, extends( colormap ) :: rainbow_colormap Defines a rainbow colormap. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure, public :: get_color_string => rcm_get_clr private  function rcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( rainbow_colormap ), intent(in) :: this The rainbow_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\rainbow_colormap.html"},{"title":"spectral_colormap – FPLOT ","text":"type, public, extends( colormap ) :: spectral_colormap Defines the spectral colormap available at \nhttps://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin private pure function cm_get_axes_origin(this) result(rst) Gets the relative x-y coordinates of the axes origin. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [x, y] coordinates, each in [0.0, 1.0]. procedure, public :: get_axes_size => cm_get_axes_size private pure function cm_get_axes_size(this) result(rst) Gets the relative width and height of the axes. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32), dimension(2) The [width, height], each in [0.0, 1.0]. procedure, public :: get_color_string => spcm_get_clr private  function spcm_get_clr(this) result(x) Gets the GNUPLOT string defining the color distribution. Arguments Type Intent Optional Attributes Name class( spectral_colormap ), intent(in) :: this The spectral_colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_colorbar_length => cm_get_colorbar_length private pure function cm_get_colorbar_length(this) result(rst) Gets the relative length of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The length in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness private pure function cm_get_colorbar_thickness(this) result(rst) Gets the relative thickness of the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value real(kind=real32) The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. procedure, public :: get_command_string => cm_get_cmd private  function cm_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The command string. procedure, public :: get_draw_border => cm_get_draw_border private pure function cm_get_draw_border(this) result(rst) Gets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_horizontal => cm_get_horizontal private pure function cm_get_horizontal(this) result(rst) Gets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: get_label => cm_get_label private pure function cm_get_label(this) result(rst) Gets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The label. procedure, public :: get_show_tics => cm_get_show_tics private pure function cm_get_show_tics(this) result(rst) Gets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value logical Returns true if the tic marks should be drawn; else, false. procedure, public :: set_axes_origin => cm_set_axes_origin private  subroutine cm_set_axes_origin(this, x) Sets the axes origin coordinates, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [x, y] coordinates. procedure, public :: set_axes_size => cm_set_axes_size private  subroutine cm_set_axes_size(this, x) Sets the axes width and height, each clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in), dimension(2) :: x The requested [width, height]. procedure, public :: set_colorbar_length => cm_set_colorbar_length private  subroutine cm_set_colorbar_length(this, x) Sets the relative colorbar length, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested length; 0 uses GNUPLOT's default. procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness private  subroutine cm_set_colorbar_thickness(this, x) Sets the relative colorbar thickness, clamped to [0.0, 1.0]. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. real(kind=real32), intent(in) :: x The requested thickness; 0 uses GNUPLOT's default. procedure, public :: set_draw_border => cm_set_draw_border private  subroutine cm_set_draw_border(this, x) Sets a logical value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_horizontal => cm_set_horizontal private  subroutine cm_set_horizontal(this, x) Sets a logical value determining if the colormap should be\ndrawn horizontally and below the plot. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the colormap should be drawn horizontally;\nelse, false. procedure, public :: set_label => cm_set_label private  subroutine cm_set_label(this, x) Sets the label to associate with the colorbar. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. character(len=*), intent(in) :: x The label. procedure, public :: set_show_tics => cm_set_show_tics private  subroutine cm_set_show_tics(this, x) Sets a logical value determining if the tic marks should be drawn. Arguments Type Intent Optional Attributes Name class( colormap ), intent(inout) :: this The colormap object. logical, intent(in) :: x Set to true if the tic marks should be drawn; else, false.","tags":"","loc":"type\\spectral_colormap.html"},{"title":"filled_plot_data – FPLOT ","text":"type, public, extends( plot_data_colored ) :: filled_plot_data Defines a two-dimensional filled plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => fpd_clear_data private  subroutine fpd_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(inout) :: this The filled_plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => fpd_define_data private  subroutine fpd_define_data(this, x, y, yc, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(inout) :: this The filled_plot_data object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinate data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinate data. real(kind=real64), intent(in), dimension(:) :: yc An N-element array containing the constraining curve y \ncoordinate data. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_axes_string => fpd_get_axes_cmd private  function fpd_get_axes_cmd(this) result(x) Gets the GNUPLOT command string defining which axes the data\nis to be plotted against. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(in) :: this The filled_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => fpd_get_cmd private  function fpd_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this\nfilled_plot_data object. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(in) :: this The filled_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => fpd_get_data_cmd private  function fpd_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data to plot. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(in) :: this The filled_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => fpd_get_draw_against_y2 private pure function fpd_get_draw_against_y2(this) result(x) Gets a value determining if the data should be plotted against\nthe secondary y-axis. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(in) :: this The filled_plot_data object. Return Value logical Returns true if the data should be plotted against the secondary\ny-axis; else, false to plot against the primary y-axis. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => fpd_set_draw_against_y2 private  subroutine fpd_set_draw_against_y2(this, x) Sets a value determining if the data should be plotted against\nthe secondary y-axis. Arguments Type Intent Optional Attributes Name class( filled_plot_data ), intent(inout) :: this The filled_plot_data object. logical, intent(in) :: x Set to true if the data should be plotted against the secondary\ny-axis; else, false to plot against the primary y-axis. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\filled_plot_data.html"},{"title":"pdf_terminal – FPLOT ","text":"type, public, extends( file_terminal ) :: pdf_terminal Defines a terminal used for producing PDF outputs. Type-Bound Procedures procedure, public :: get_command_string => pdf_get_command_string private  function pdf_get_command_string(this) result(x) Returns the appropriate GNUPLOT command string to establish\nappropriate parameters. Arguments Type Intent Optional Attributes Name class( pdf_terminal ), intent(in) :: this The pdf_terminal object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_filename => fterm_get_filename private pure function fterm_get_filename(this) result(txt) Gets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(in) :: this The file_terminal object. Return Value character(len=:), allocatable The filename. procedure, public :: get_font_name => term_get_font_name private  function term_get_font_name(this) result(name) Gets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => term_get_font_size private pure function term_get_font_size(this) result(sz) Gets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The font size, in points. procedure, public :: get_id_string => pdf_get_term_string private  function pdf_get_term_string(this) result(x) Retrieves a GNUPLOT terminal identifier string. Arguments Type Intent Optional Attributes Name class( pdf_terminal ), intent(in) :: this The pdf_terminal object. Return Value character(len=:), allocatable The string. procedure, public :: get_plot_window_number => term_get_plot_window_number private pure function term_get_plot_window_number(this) result(x) Gets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer(kind=int32) The plot window number. procedure, public :: get_resolution => pdf_get_resolution private pure function pdf_get_resolution(this) result(x) Gets the target device resolution. Arguments Type Intent Optional Attributes Name class( pdf_terminal ), intent(in) :: this The pdf_terminal object. Return Value integer(kind=int32) The resolution, in DPI. procedure, public :: get_title => term_get_title private  function term_get_title(this) result(str) Gets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The title. procedure, public :: get_window_height => term_get_window_height private pure function term_get_window_height(this) result(x) Gets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The height of the plot window. procedure, public :: get_window_width => term_get_window_width private pure function term_get_window_width(this) result(x) Gets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value integer The width of the plot window. procedure, public :: set_filename => fterm_set_filename private  subroutine fterm_set_filename(this, txt) Sets the filename for the output file. Arguments Type Intent Optional Attributes Name class( file_terminal ), intent(inout) :: this The file_terminal object. character(len=*), intent(in) :: txt The filename. procedure, public :: set_font_name => term_set_font_name private  subroutine term_set_font_name(this, name) Sets the name of the font used for text displayed by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: name The font name. procedure, public :: set_font_size => term_set_font_size private  subroutine term_set_font_size(this, sz) Sets the size of the font used by the graph. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: sz The font size, in points. procedure, public :: set_plot_window_number => term_set_plot_window_number private  subroutine term_set_plot_window_number(this, x) Sets the targeted plot window number. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer(kind=int32), intent(in) :: x The plot window number. procedure, public :: set_resolution => pdf_set_resolution private  subroutine pdf_set_resolution(this, x) Sets the target device resolution. Arguments Type Intent Optional Attributes Name class( pdf_terminal ), intent(inout) :: this The pdf_terminal object. integer(kind=int32), intent(in) :: x The resolution, in DPI. procedure, public :: set_title => term_set_title private  subroutine term_set_title(this, txt) Sets the plot window's title. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. character(len=*), intent(in) :: txt The title. procedure, public :: set_window_height => term_set_window_height private  subroutine term_set_window_height(this, x) Sets the height of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The height of the plot window. procedure, public :: set_window_width => term_set_window_width private  subroutine term_set_window_width(this, x) Sets the width of the plot window. Arguments Type Intent Optional Attributes Name class( terminal ), intent(inout) :: this The terminal object. integer, intent(in) :: x The width of the plot window.","tags":"","loc":"type\\pdf_terminal.html"},{"title":"plot_data_bar – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_bar Defines a data set tailored to bar charts. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdb_clear_data private  subroutine pdb_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. generic, public :: define_data => pdb_set_data_1, pdb_set_data_2, pdb_set_data_3, pdb_set_data_4, pdb_set_data_5, pdb_set_data_6 private  subroutine pdb_set_data_1(this, x, err) Defines a single data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: x The data to plot. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_2(this, labels, x, err) Defines data along with associated axis labels. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. class(string), intent(in), dimension(:) :: labels The axis labels to associate with the data. real(kind=real64), intent(in), dimension(:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_3(this, labels, x, fmt, err) Defines data along with labels and formatting information. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: labels The axis labels to associate with the data. real(kind=real64), intent(in), dimension(:) :: x The data set. character(len=*), intent(in), optional :: fmt The format string for the labels (e.g. '(I0)', etc.). class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_4(this, x, err) Defines a single data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:,:) :: x The data to plot. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_5(this, labels, x, err) Defines data along with associated axis labels. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. class(string), intent(in), dimension(:) :: labels The axis labels to associate with the data. real(kind=real64), intent(in), dimension(:,:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pdb_set_data_6(this, labels, x, fmt, err) Defines data along with labels and formatting information. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: labels The axis labels to associate with the data. real(kind=real64), intent(in), dimension(:,:) :: x The data set. character(len=*), intent(in), optional :: fmt The format string for the labels (e.g. '(I0)', etc.). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get => pdb_get_data private pure function pdb_get_data(this, index, col) result(x) Gets the requested data point. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The data point index. integer(kind=int32), intent(in) :: col The column index. Return Value real(kind=real64) The value. procedure, public :: get_axes_string => pdb_get_axes_cmd private  function pdb_get_axes_cmd(this) result(x) Gets the GNUPLOT command defining which axes to plot against. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_bar_color => pdb_get_bar_color private pure function pdb_get_bar_color(this, index) result(x) Gets the color to use for the requested data series (column).  If\nno color has been explicitly set, a default color cycle is used\nfor multi-series data, or the base line color for single-series\ndata. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data series (column). Return Value type( color ) The color. procedure, public :: get_bar_per_label_count => pdb_get_col_count private pure function pdb_get_col_count(this) result(x) Gets the number of data sets (columns). Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value integer(kind=int32) The count. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdb_get_cmd private  function pdb_get_cmd(this) result(x) Gets the GNUPLOT command string for this object. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => pdb_get_count private pure function pdb_get_count(this) result(x) Gets the number of stored data points. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value integer(kind=int32) The number of stored data points. procedure, public :: get_data => pdb_get_data_set private pure function pdb_get_data_set(this, col) result(x) Gets the requested data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: col The column index. Return Value real(kind=real64), allocatable, dimension(:) A copy of the data set. procedure, public :: get_data_string => pdb_get_data_cmd private  function pdb_get_data_cmd(this) result(x) Gets the GNUPLOT command string defining the data for this object. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => pdb_get_use_y2 private pure function pdb_get_use_y2(this) result(x) Gets a value determining if the data should be plotted against a\nsecondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value logical Returns true to plot against a secondary y-axis; else, false. procedure, public :: get_is_filled => pdb_get_is_filled private pure function pdb_get_is_filled(this) result(x) Gets a value determining if each bar is filled. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value logical Returns true if the bars are to be filled; else, false. procedure, public :: get_label => pdb_get_label private pure function pdb_get_label(this, index) result(x) Gets the axis label associated with a specific data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data set. Return Value character(len=:), allocatable The label. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_series_name => pdb_get_series_name private pure function pdb_get_series_name(this, index) result(x) Gets the legend title associated with the requested data series\n(column). Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data series (column). Return Value character(len=:), allocatable The title. procedure, public :: get_transparency => pdb_get_alpha private pure function pdb_get_alpha(this) result(x) Gets the alpha (transparency) for the bar color. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value real(kind=real32) The alpha value ([0, 1]). procedure, public :: get_use_labels => pdb_get_use_labels private pure function pdb_get_use_labels(this) result(x) Gets a value determining if labels are used to identify the data. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(in) :: this The plot_data_bar object. Return Value logical Returns true if labels are used; else, false. procedure, public :: set => pdb_set_data private  subroutine pdb_set_data(this, index, col, x) Replaces the requested data point. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The data point index. integer(kind=int32), intent(in) :: col The column index. real(kind=real64), intent(in) :: x The new value. procedure, public :: set_bar_color => pdb_set_bar_color private  subroutine pdb_set_bar_color(this, index, x) Sets the color to use for the requested data series (column). Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data series (column). type( color ), intent(in) :: x The color. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_data_1 => pdb_set_data_1_core private  subroutine pdb_set_data_1_core(this, x, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_2 => pdb_set_data_2_core private  subroutine pdb_set_data_2_core(this, labels, x, err) Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. class(string), intent(in), dimension(:) :: labels The axis labels. real(kind=real64), intent(in), dimension(:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_3 => pdb_set_data_3_core private  subroutine pdb_set_data_3_core(this, labels, x, fmt, err) Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: labels The axis labels. real(kind=real64), intent(in), dimension(:) :: x The data set. character(len=*), intent(in), optional :: fmt The format string for the labels (e.g. '(I0)', etc.). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_4 => pdb_set_data_4_core private  subroutine pdb_set_data_4_core(this, x, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:,:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_5 => pdb_set_data_5_core private  subroutine pdb_set_data_5_core(this, labels, x, err) Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. class(string), intent(in), dimension(:) :: labels The axis labels. real(kind=real64), intent(in), dimension(:,:) :: x The data set. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_data_6 => pdb_set_data_6_core private  subroutine pdb_set_data_6_core(this, labels, x, fmt, err) Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real64), intent(in), dimension(:) :: labels The axis labels. real(kind=real64), intent(in), dimension(:,:) :: x The data set. character(len=*), intent(in), optional :: fmt The format string for the labels (e.g. '(I0)', etc.). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => pdb_set_use_y2 private  subroutine pdb_set_use_y2(this, x) Sets a value determining if the data should be plotted against a\nsecondary y-axis. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. logical, intent(in) :: x Set to true to plot against a secondary y-axis; else, false. procedure, public :: set_is_filled => pdb_set_is_filled private  subroutine pdb_set_is_filled(this, x) Sets a value determining if each bar is filled. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. logical, intent(in) :: x Set to true if the bars are to be filled; else, false. procedure, public :: set_label => pdb_set_label private  subroutine pdb_set_label(this, index, txt) Sets the axis label for a specific data set. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. integer(kind=int32) :: index The index of the data set. character(len=*), intent(in) :: txt The label. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_series_name => pdb_set_series_name private  subroutine pdb_set_series_name(this, index, txt) Sets the legend title to associate with the requested data series\n(column). Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. integer(kind=int32), intent(in) :: index The index of the data series (column). character(len=*), intent(in) :: txt The title. procedure, public :: set_transparency => pdb_set_alpha private  subroutine pdb_set_alpha(this, x) Gets the alpha (transparency) for the bar color. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. real(kind=real32), intent(in) :: x The alpha value ([0, 1]). procedure, public :: set_use_labels => pdb_set_use_labels private  subroutine pdb_set_use_labels(this, x) Sets a value determining if labels are used to identify the data. Arguments Type Intent Optional Attributes Name class( plot_data_bar ), intent(inout) :: this The plot_data_bar object. logical, intent(in) :: x Set to true if labels are used; else, false.","tags":"","loc":"type\\plot_data_bar.html"},{"title":"plot_label – FPLOT ","text":"type, public, extends( plot_object ) :: plot_label Defines a plot label. Type-Bound Procedures procedure, public :: get_angle => lbl_get_angle private pure function lbl_get_angle(this) result(x) Gets the angle of the label text, in degrees. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value real(kind=real32) The angle, in degrees. procedure, public :: get_command_string => lbl_get_cmd private  function lbl_get_cmd(this) result(x) Gets the GNUPLOT command string for the label. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value character(len=:), allocatable The command string. procedure, public :: get_is_visible => lbl_get_is_visible private pure function lbl_get_is_visible(this) result(x) Gets a value determining if the label is to be drawn. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value logical Returns true if the label is to be drawn; else, false. procedure, public :: get_position => lbl_get_position private pure function lbl_get_position(this) result(x) Gets the position of the label in terms of plot coordinates. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value real(kind=real32), dimension(3) A 3-element array containing the X, Y, and Z position of the \nlabel. procedure, public :: get_text => lbl_get_txt private  function lbl_get_txt(this) result(x) Gets the text displayed by the label. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(in) :: this The plot_label object. Return Value character(len=:), allocatable The text string to display. procedure, public :: set_angle => lbl_set_angle private  subroutine lbl_set_angle(this, x) Sets the angle of the label text, in degrees. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(inout) :: this The plot_label object. real(kind=real32), intent(in) :: x The angle, in degrees. procedure, public :: set_is_visible => lbl_set_is_visible private  subroutine lbl_set_is_visible(this, x) Sets a value determining if the label is to be drawn. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(inout) :: this The plot_label object. logical, intent(in) :: x Set to true if the label is to be drawn; else, false. procedure, public :: set_position => lbl_set_position private  subroutine lbl_set_position(this, x) Sets the position of the label in terms of plot coordinates. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(inout) :: this The plot_label object. real(kind=real32), intent(in), dimension(3) :: x A 3-element array containing the X, Y, and Z position of the \nlabel. procedure, public :: set_text => lbl_set_txt private  subroutine lbl_set_txt(this, x) Sets the text displayed by the label. Arguments Type Intent Optional Attributes Name class( plot_label ), intent(inout) :: this The plot_label object. character(len=*), intent(in) :: x The text string to display.","tags":"","loc":"type\\plot_label.html"},{"title":"plot_data_histogram – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_histogram A container for plotting data in the form of a histogram. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pdh_clear_data private  subroutine pdh_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => pdh_define_data private  subroutine pdh_define_data(this, x, err) Defines the data set to plot. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. real(kind=real64), intent(in), dimension(:) :: x The data set to plot. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get => pdh_get_bin_data private  subroutine pdh_get_bin_data(this, i, x, cnt) Gets the requested binned data. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. integer(kind=int32), intent(in) :: i The bin number to get. real(kind=real64), intent(out) :: x The center of the bin. integer(kind=int32), intent(out) :: cnt The number of items in the bin. procedure, public :: get_axes_string => pdh_get_axes_cmd private  function pdh_get_axes_cmd(this) result(rst) Gets the GNUPLOT command string defining which axes the data is to be\nplotted against. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value character(len=:), allocatable The command string. procedure, public :: get_bin_count => pdh_get_bin_count private pure function pdh_get_bin_count(this) result(x) Gets the number of bins. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value integer(kind=int32) The bin count. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pdh_get_cmd private  function pdh_get_cmd(this) result(rst) Gets the GNUPLOT command string for this object. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => pdh_get_data_cmd private  function pdh_get_data_cmd(this) result(rst) Gets the GNUPLOT command string defining the data for this object. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_draw_against_y2 => pdh_get_use_y2 private pure function pdh_get_use_y2(this) result(rst) Gets a value determining if the data is to be plotted against the\nsecondary y axis. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value logical Returns true if the data is to be plotted against the secondary y \naxis; else, false for the primary y axis. procedure, public :: get_is_filled => pdh_get_is_filled private pure function pdh_get_is_filled(this) result(rst) Gets a value determining if each box is filled. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value logical Returns true if the boxes are filled; else, false for an empty box. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_maximum_value => pdh_get_max_x private pure function pdh_get_max_x(this) result(x) Gets the maximum data value. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value real(kind=real64) The maximum data value. procedure, public :: get_minimum_value => pdh_get_min_x private pure function pdh_get_min_x(this) result(x) Gets the minimum data value. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(in) :: this The plot_data_histogram object. Return Value real(kind=real64) The minimum data value. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: set_bin_count => pdh_set_bin_count private  subroutine pdh_set_bin_count(this, x) Sets the bin count.  For this property to have an effect, call before\ncalling the define_data subroutine or bin_data subroutine. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. integer(kind=int32), intent(in) :: x The bin count. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_draw_against_y2 => pdh_set_use_y2 private  subroutine pdh_set_use_y2(this, x) Sets a value determining if the data is to be plotted against the\nsecondary y axis. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. logical, intent(in) :: x Set to true if the data is to be plotted against the secondary y \naxis; else, false for the primary y axis. procedure, public :: set_is_filled => pdh_set_is_filled private  subroutine pdh_set_is_filled(this, x) Sets a value determining if each box is filled. Arguments Type Intent Optional Attributes Name class( plot_data_histogram ), intent(inout) :: this The plot_data_histogram object. logical, intent(in) :: x Set to true if the boxes should be filled; else, false for an empty\nbox. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name.","tags":"","loc":"type\\plot_data_histogram.html"},{"title":"plot – FPLOT ","text":"type, public, extends( plot_object ) :: plot Defines the basic GNUPLOT plot. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all private  subroutine plt_clear_all(this) Removes all plot_data objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_all_labels => plt_clear_labels private  subroutine plt_clear_labels(this) Clears all plot_label objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: clear_arrows => plt_clear_arrows private  subroutine plt_clear_arrows(this) Clears all plot_arrow objects from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: draw => plt_draw private  subroutine plt_draw(this, persist, err) Launches GNUPLOT and draws the plot per the current state of\nthe command list. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. logical, intent(in), optional :: persist An optional parameter that can be used to keep GNUPLOT open. Set to true to force GNUPLOT to remain open; else, set to false \nto allow GNUPLOT to close after drawing.  The default is true. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: free_resources => plt_clean_up private  subroutine plt_clean_up(this) Cleans up resources held by the plot object.  Inheriting\nclasses are expected to call this routine to free internally held\nresources. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: get => plt_get private  function plt_get(this, i) result(x) Gets a pointer to the requested plot_data object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. Return Value class( plot_data ), pointer A pointer to the requested plot_data object. procedure, public :: get_arrow => plt_get_arrow private  function plt_get_arrow(this, i) result(rst) Gets a pointer to the requested plot_arrow object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow to retrieve. Return Value class( plot_arrow ), pointer The plot_arrow object to retrieve. procedure, public :: get_arrow_count => plt_get_arrow_count private pure function plt_get_arrow_count(this) result(rst) Gets the number of plot_arrow objects held by the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The plot_arrow objects count. procedure, public :: get_axis_equal => plt_get_axis_equal private pure function plt_get_axis_equal(this) result(rst) Gets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the axes should be scaled equally; else, false. procedure, public :: get_border_line_width => plt_get_border_line_width private pure function plt_get_border_line_width(this) result(x) Gets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_bottom_margin => plt_get_bottom_margin private pure function plt_get_bottom_margin(this) result(x) Gets the bottom margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_colormap => plt_get_colormap private  function plt_get_colormap(this) result(x) Gets a pointer to the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( colormap ), pointer A pointer to the colormap object.  If no colormap is defined, a\nnull pointer is returned. procedure, public :: get_command_string => plt_get_cmd private  function plt_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => plt_get_count private pure function plt_get_count(this) result(x) Gets the number of stored plot_data objects. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_data objects. procedure, public :: get_draw_border => plt_get_draw_border private pure function plt_get_draw_border(this) result(x) Gets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the border should be drawn; else, false. procedure, public :: get_font_name => plt_get_font private  function plt_get_font(this) result(x) Gets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The font name. procedure, public :: get_font_size => plt_get_font_size private  function plt_get_font_size(this) result(x) Gets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The size of the font, in points. procedure, public :: get_label => plt_get_label private  function plt_get_label(this, i) result(x) Gets the requested plot_label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label object to retrieve. Return Value class( plot_label ), pointer A pointer to the requested plot_label object. procedure, public :: get_label_count => plt_get_label_count private pure function plt_get_label_count(this) result(x) Gets the number of plot_label objects belonging to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The number of plot_label objects. procedure, public :: get_left_margin => plt_get_left_margin private pure function plt_get_left_margin(this) result(x) Gets the left margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_legend => plt_get_legend private  function plt_get_legend(this) result(x) Gets the plot's legend object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( legend ), pointer A pointer to the legend object. procedure, public :: get_right_margin => plt_get_right_margin private pure function plt_get_right_margin(this) result(x) Gets the right margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_show_colorbar => plt_get_show_colorbar private pure function plt_get_show_colorbar(this) result(x) Gets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the colorbar should be drawn; else, false. procedure, public :: get_show_gridlines => plt_get_show_grid private pure function plt_get_show_grid(this) result(x) Gets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the grid lines should be shown; else, false. procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid private pure function plt_get_show_x_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid private pure function plt_get_show_x_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid private pure function plt_get_show_y_major_grid(this) result(x) Gets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid private pure function plt_get_show_y_minor_grid(this) result(x) Gets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical True if the grid should be shown; else, false. procedure, public :: get_terminal => plt_get_term private  function plt_get_term(this) result(x) Gets the GNUPLOT terminal object. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value class( terminal ), pointer A pointer to the GNUPLOT terminal object. procedure, public :: get_tics_inward => plt_get_tics_in private pure function plt_get_tics_in(this) result(x) Gets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: get_title => plt_get_title private  function plt_get_title(this) result(txt) Gets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value character(len=:), allocatable The title. procedure, public :: get_top_margin => plt_get_top_margin private pure function plt_get_top_margin(this) result(x) Gets the top margin of the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color private pure function plt_get_x_major_grid_color(this) result(x) Gets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style private pure function plt_get_x_major_grid_line_style(this) result(x) Gets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width private pure function plt_get_x_major_grid_line_width(this) result(x) Gets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color private pure function plt_get_x_minor_grid_color(this) result(x) Gets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style private pure function plt_get_x_minor_grid_line_style(this) result(x) Gets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width private pure function plt_get_x_minor_grid_line_width(this) result(x) Gets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color private pure function plt_get_y_major_grid_color(this) result(x) Gets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style private pure function plt_get_y_major_grid_line_style(this) result(x) Gets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width private pure function plt_get_y_major_grid_line_width(this) result(x) Gets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color private pure function plt_get_y_minor_grid_color(this) result(x) Gets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value type( color ) The color. procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style private pure function plt_get_y_minor_grid_line_style(this) result(x) Gets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value integer(kind=int32) The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width private pure function plt_get_y_minor_grid_line_width(this) result(x) Gets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value real(kind=real32) The line width. procedure, public :: initialize => plt_init private  subroutine plt_init(this, term, fname, err) Initializes the plot object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in), optional :: term An optional input that is used to define the terminal.\nThe default terminal is a WXT terminal.  The acceptable inputs \nare: GNUPLOT_TERMINAL_PNG GNUPLOT_TERMINAL_QT GNUPLOT_TERMINAL_WIN32 GNUPLOT_TERMINAL_WXT GNUPLOT_TERMINAL_LATEX GNUPLOT_TERMINAL_SVG GNUPLOT_TERMINAL_PDF character(len=*), intent(in), optional :: fname A filename to pass to the terminal in the event the\nterminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: is_title_defined => plt_has_title private pure function plt_has_title(this) result(x) Gets a value determining if a title has been defined for the plot \nobject. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. Return Value logical Returns true if a title has been defined for this plot; else,\nreturns false. procedure, public :: plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pop => plt_pop_data private  subroutine plt_pop_data(this) Pops the last plot_data object from the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_arrow => plt_pop_arrow private  subroutine plt_pop_arrow(this) Pops the last plot_arrow object from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. procedure, public :: pop_label => plt_pop_label private  subroutine plt_pop_label(this) Removes the last label from the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. generic, public :: push => plt_push_data private  subroutine plt_push_data(this, x, err) Pushes a plot_data object onto the stack. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_data ), intent(inout) :: x The plot_data object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_arrow => plt_push_arrow private  subroutine plt_push_arrow(this, x, err) Pushes a new @ref plot_arrow object onto the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_arrow ), intent(in) :: x The plot_arrow object. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: push_label => plt_push_label private  subroutine plt_push_label(this, lbl, err) Adds a label to the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( plot_label ), intent(in) :: lbl The plot label. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: save_file => plt_save private  subroutine plt_save(this, fname, err) Saves a GNUPLOT command file. Arguments Type Intent Optional Attributes Name class( plot ), intent(in) :: this The plot object. character(len=*), intent(in) :: fname The filename. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set => plt_set private  subroutine plt_set(this, i, x) Sets the requested plot_data object into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_data object. class( plot_data ), intent(in) :: x The plot_data object. procedure, public :: set_arrow => plt_set_arrow private  subroutine plt_set_arrow(this, i, x) Sets a plot_arrow into the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_arrow object to replace. class( plot_arrow ), intent(in) :: x The new plot_arrow object. procedure, public :: set_axis_equal => plt_set_axis_equal private  subroutine plt_set_axis_equal(this, x) Sets a flag determining if the axes should be equally scaled. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the axes should be scaled equally; else, false. procedure, public :: set_border_line_width => plt_set_border_line_width private  subroutine plt_set_border_line_width(this, x) Sets the width of the lines used to draw the border. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_bottom_margin => plt_set_bottom_margin private  subroutine plt_set_bottom_margin(this, x) Sets the bottom margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_colormap => plt_set_colormap private  subroutine plt_set_colormap(this, x, err) Sets the colormap object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. class( colormap ), intent(in) :: x The colormap object.  Notice, a copy of this object is\nstored, and the plot object then manages the lifetime of the\ncopy. class( errors ), intent(inout), optional, target :: err An error handler object. procedure, public :: set_draw_border => plt_set_draw_border private  subroutine plt_set_draw_border(this, x) Sets a value determining if the border should be drawn. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the border should be drawn; else, false. procedure, public :: set_font_name => plt_set_font private  subroutine plt_set_font(this, x) Sets the name of the font used for plot text. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: x The font name. procedure, public :: set_font_size => plt_set_font_size private  subroutine plt_set_font_size(this, x) Sets the size of the font used by the plot. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The font size, in points.  If a value of zero is provided,\nthe font size is reset to its default value; or, if a negative \nvalue is provided, the absolute value of the supplied value is\nutilized. procedure, public :: set_label => plt_set_label private  subroutine plt_set_label(this, i, x) Sets the specified plot_label object. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: i The index of the plot_label to replace. class( plot_label ), intent(in) :: x The new plot_label object. procedure, public :: set_left_margin => plt_set_left_margin private  subroutine plt_set_left_margin(this, x) Sets the left margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_right_margin => plt_set_right_margin private  subroutine plt_set_right_margin(this, x) Sets the right margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_show_colorbar => plt_set_show_colorbar private  subroutine plt_set_show_colorbar(this, x) Sets a value determining if the colorbar should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the colorbar should be drawn; else, false. procedure, public :: set_show_gridlines => plt_set_show_grid private  subroutine plt_set_show_grid(this, x) Sets a flag determining if the grid lines should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the grid lines should be shown; else, false. procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid private  subroutine plt_set_show_x_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid private  subroutine plt_set_show_x_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid private  subroutine plt_set_show_y_major_grid(this, x) Sets a value determining if the x-axis major grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid private  subroutine plt_set_show_y_minor_grid(this, x) Sets a value determining if the x-axis minor grid should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x True if the grid should be shown; else, false. procedure, public :: set_tics_inward => plt_set_tics_in private  subroutine plt_set_tics_in(this, x) Sets a value determining if the axis tic marks should point inwards. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true if the tic marks should point inwards; else, false\nif the tic marks should point outwards. procedure, public :: set_title => plt_set_title private  subroutine plt_set_title(this, txt) Sets the plot's title. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. character(len=*), intent(in) :: txt The title. procedure, public :: set_top_margin => plt_set_top_margin private  subroutine plt_set_top_margin(this, x) Sets the top margin of the plot.  If the value is negative, the\ndefault margin is used. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The margin, in percent of screen.  A negative value indicates the\ndefault margin is used. procedure, public :: set_window_size => plt_set_window_size private  subroutine plt_set_window_size(this, width, height) Sets the height and width of the plot window. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: width The plot window width. integer(kind=int32), intent(in) :: height The plot window height. procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color private  subroutine plt_set_x_major_grid_color(this, x) Sets the color of the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style private  subroutine plt_set_x_major_grid_line_style(this, x) Sets the line style used for the x-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width private  subroutine plt_set_x_major_grid_line_width(this, x) Sets the width of the x-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color private  subroutine plt_set_x_minor_grid_color(this, x) Sets the color of the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style private  subroutine plt_set_x_minor_grid_line_style(this, x) Sets the line style used for the x-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width private  subroutine plt_set_x_minor_grid_line_width(this, x) Sets the width of the x-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color private  subroutine plt_set_y_major_grid_color(this, x) Sets the color of the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style private  subroutine plt_set_y_major_grid_line_style(this, x) Sets the line style used for the y-axis major grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width private  subroutine plt_set_y_major_grid_line_width(this, x) Sets the width of the y-axis major grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color private  subroutine plt_set_y_minor_grid_color(this, x) Sets the color of the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. type( color ), intent(in) :: x The color. procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style private  subroutine plt_set_y_minor_grid_line_style(this, x) Sets the line style used for the y-axis minor grid lines. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. integer(kind=int32), intent(in) :: x The line style.  The line style must be one of the following. LINE_DASHED LINE_DASH_DOTTED LINE_DASH_DOT_DOT LINE_DOTTED LINE_SOLID procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width private  subroutine plt_set_y_minor_grid_line_width(this, x) Sets the width of the y-axis minor grid lines, in pixels. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. real(kind=real32), intent(in) :: x The line width. procedure, public :: show_legend => plt_show_legend private  subroutine plt_show_legend(this, x) Sets a value determining the legend should be shown. Arguments Type Intent Optional Attributes Name class( plot ), intent(inout) :: this The plot object. logical, intent(in) :: x Set to true to show the legend; else, set to false.","tags":"","loc":"type\\plot.html"},{"title":"surface_plot_data – FPLOT ","text":"type, public, extends( plot_data ) :: surface_plot_data Provides a three-dimensional surface plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => surfd_clear_data private  subroutine surfd_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The surface_plot_data object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: define_data => surfd_set_data_1 private  subroutine surfd_set_data_1(this, x, y, z, err) Defines the data set. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. real(kind=real64), intent(in), dimension(:,:) :: x An M-by-N matrix containing the x-coordinate data. real(kind=real64), intent(in), dimension(:,:) :: y An M-by-N matrix containing the y-coordinate data. real(kind=real64), intent(in), dimension(:,:) :: z An M-by-N matrix containing the z-coordinate data. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_command_string => surfd_get_cmd private  function surfd_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this surface_plot_data \nobject. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. Return Value character(len=:), allocatable The command string. procedure, public :: get_data_string => surfd_get_data_cmd private  function surfd_get_data_cmd(this) result(x) Gets the GNUPLOT command string containing the actual data to plot. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. Return Value character(len=:), allocatable The GNUPLOT command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_size => surfd_get_size private pure function surfd_get_size(this, dim) result(x) Gets the size of the stored data set. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: dim The dimension of interest.  Notice, data is stored as a\n2D matrix (i.e. only 1 and 2 are valid inputs). Return Value integer(kind=int32) The size of the requested dimension. procedure, public :: get_use_wireframe => surfd_get_wireframe private pure function surfd_get_wireframe(this) result(x) Gets a value determining if a wireframe mesh should be displayed. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. Return Value logical Returns true if a wireframe mesh should be displayed; else, \nfalse to display a solid surface. procedure, public :: get_x => surfd_get_x private pure function surfd_get_x(this, i, j) result(x) Gets the requested X data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. Return Value real(kind=real64) The value. procedure, public :: get_y => surfd_get_y private pure function surfd_get_y(this, i, j) result(x) Gets the requested Y data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. Return Value real(kind=real64) The value. procedure, public :: get_z => surfd_get_z private pure function surfd_get_z(this, i, j) result(x) Gets the requested Z data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(in) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. Return Value real(kind=real64) The value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_use_wireframe => surfd_set_wireframe private  subroutine surfd_set_wireframe(this, x) Sets a value determining if a wireframe mesh should be displayed. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. logical, intent(in) :: x Set to true if a wireframe mesh should be displayed; else,\nfalse to display a solid surface. procedure, public :: set_x => surfd_set_x private  subroutine surfd_set_x(this, i, j, x) Sets the requested X data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. real(kind=real64), intent(in) :: x The value. procedure, public :: set_y => surfd_set_y private  subroutine surfd_set_y(this, i, j, x) Sets the requested Y data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. real(kind=real64), intent(in) :: x The value. procedure, public :: set_z => surfd_set_z private  subroutine surfd_set_z(this, i, j, x) Sets the requested Z data point. Arguments Type Intent Optional Attributes Name class( surface_plot_data ), intent(inout) :: this The suface_plot_data object. integer(kind=int32), intent(in) :: i The row index. integer(kind=int32), intent(in) :: j The column index. real(kind=real64), intent(in) :: x The value.","tags":"","loc":"type\\surface_plot_data.html"},{"title":"plot_data_error_bars – FPLOT ","text":"type, public, extends( plot_data_colored ) :: plot_data_error_bars Defines a 2D error-bar based data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear private  subroutine pd_clear(this) Clears the data set by removing stored data and clearing the \nGNUPLOT datablock name.  This routine also calls clear_data to\nensure the data is cleared from the data set as well as the datablock\nname. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. procedure, public :: clear_data => pde_clear_data private  subroutine pde_clear_data(this) Clears the data from this data set. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name private  subroutine pd_create_unique_datablock_name(this) Creates a unique name for the GNUPLOT datablock representing this\ndata set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. generic, public :: define_x_error_data => pde_define_x_err , pde_define_x_err_lim private  subroutine pde_define_x_err(this, x, y, xerr, err) Defines the x error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xerr An N-element array containing the x errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pde_define_x_err_lim(this, x, y, xmin, xmax, err) Defines the x error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xmin An N-element array containing the minimum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: xmax An N-element array containing the maximum x values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. generic, public :: define_xy_error_data => pde_define_xy_err , pde_define_xy_err_lim private  subroutine pde_define_xy_err(this, x, y, xerr, yerr, err) Defines x and y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xerr An N-element array containing the x errors at each data point. real(kind=real64), intent(in), dimension(:) :: yerr An N-element array containing the y errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pde_define_xy_err_lim(this, x, y, xmin, xmax, ymin, ymax, err) Defines the x and y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xmin An N-element array containing the minimum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: xmax An N-element array containing the maximum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymin An N-element array containing the minimum y values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymax An N-element array containing the maximum x values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. generic, public :: define_y_error_data => pde_define_y_err , pde_define_y_err_lim private  subroutine pde_define_y_err(this, x, y, yerr, err) Defines the y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: yerr An N-element array containing the y errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. private  subroutine pde_define_y_err_lim(this, x, y, ymin, ymax, err) Defines the y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: ymin An N-element array containing the minimum y values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymax An N-element array containing the maximum y values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: get_color_index => pdc_get_color_index private pure function pdc_get_color_index(this) result(x) Gets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value integer(kind=int32) The index value. procedure, public :: get_command_string => pde_get_cmd private  function pde_get_cmd(this) result(cmd) Gets the appropriate GNUPLOT command string for the object. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value character(len=:), allocatable The command string. procedure, public :: get_count => pde_get_count private pure function pde_get_count(this) result(x) Gets the number of stored data points. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value integer(kind=int32) The number of data points. procedure, public :: get_data_string => pde_get_data_cmd private  function pde_get_data_cmd(this) result(cmd) Gets the appropriate GNUPLOT commands to plot the data itself. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value character(len=:), allocatable The command string. procedure, public :: get_datablock_name => pd_get_datablock_name private pure function pd_get_datablock_name(this) result(rst) Gets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_line_color => pdc_get_line_color private pure function pdc_get_line_color(this) result(x) Gets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(in) :: this The plot_data_colored object. Return Value type( color ) The color. procedure, public :: get_line_width => pde_get_line_width private pure function pde_get_line_width(this) result(x) Gets the line width. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value real(kind=real32) The line width. procedure, public :: get_name => pd_get_name private pure function pd_get_name(this) result(txt) Gets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The name. procedure, public :: get_plot_x_error_bars => pde_get_plot_x_err private pure function pde_get_plot_x_err(this) result(x) Checks to see if the x error bar data has been defined, and as\na result, if the x error data is to be plotted. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value logical Returns true if the x error bars are to be plotted; else, false. procedure, public :: get_plot_y_error_bars => pde_get_plot_y_err private pure function pde_get_plot_y_err(this) result(x) Checks to see if the y error bar data has been defined, and as\na result, if the x error data is to be plotted. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value logical Returns true if the y error bars are to be plotted; else, false. procedure, public :: get_use_error_box => pde_get_box private pure function pde_get_box(this) result(x) Checks to see if the x and y error boxes should be utilized. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value logical Returns true if the error boxes are to be plotted; else,\nfalse.  Notice, the error boxes are only utilized if there is \nboth x and y error data defined, regardless of the value of this \nproperty. procedure, public :: get_use_range => pde_get_use_range private pure function pde_get_use_range(this) result(x) Gets a value determining if a defined range is being used\nto define the error bar extremes. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(in) :: this The plot_data_error_bars object. Return Value logical True if a defined range is being used; else, false. procedure, public :: pde_define_x_err private  subroutine pde_define_x_err(this, x, y, xerr, err) Defines the x error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xerr An N-element array containing the x errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_x_err_lim private  subroutine pde_define_x_err_lim(this, x, y, xmin, xmax, err) Defines the x error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xmin An N-element array containing the minimum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: xmax An N-element array containing the maximum x values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_xy_err private  subroutine pde_define_xy_err(this, x, y, xerr, yerr, err) Defines x and y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xerr An N-element array containing the x errors at each data point. real(kind=real64), intent(in), dimension(:) :: yerr An N-element array containing the y errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_xy_err_lim private  subroutine pde_define_xy_err_lim(this, x, y, xmin, xmax, ymin, ymax, err) Defines the x and y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: xmin An N-element array containing the minimum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: xmax An N-element array containing the maximum x values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymin An N-element array containing the minimum y values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymax An N-element array containing the maximum x values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_y_err private  subroutine pde_define_y_err(this, x, y, yerr, err) Defines the y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: yerr An N-element array containing the y errors at each data point. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: pde_define_y_err_lim private  subroutine pde_define_y_err_lim(this, x, y, ymin, ymax, err) Defines the y error data. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x coordinates of the data. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y coordinates of the data. real(kind=real64), intent(in), dimension(:) :: ymin An N-element array containing the minimum y values at each data \npoint. real(kind=real64), intent(in), dimension(:) :: ymax An N-element array containing the maximum y values at each data \npoint. class( errors ), intent(inout), optional, target :: err An error handling object. procedure, public :: set_color_index => pdc_set_color_index private  subroutine pdc_set_color_index(this, x) Sets the color index. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. integer(kind=int32), intent(in) :: x The index value. procedure, public :: set_datablock_name => pd_set_datablock_name private  subroutine pd_set_datablock_name(this, x) Sets the name to associate with the datablock in the actual GNUPLOT\nplot file. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: x The name. procedure, public :: set_line_color => pdc_set_line_color private  subroutine pdc_set_line_color(this, x) Sets the object color. Arguments Type Intent Optional Attributes Name class( plot_data_colored ), intent(inout) :: this The plot_data_colored object. type( color ), intent(in) :: x The color. procedure, public :: set_line_width => pde_set_line_width private  subroutine pde_set_line_width(this, x) Sets the line width. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. real(kind=real32), intent(in) :: x The line width. procedure, public :: set_name => pd_set_name private  subroutine pd_set_name(this, txt) Sets the name to associate with this data set. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. character(len=*), intent(in) :: txt The name. procedure, public :: set_use_error_box => pde_set_box private  subroutine pde_set_box(this, x) Deterimines if the x and y error boxes should be utilized. Arguments Type Intent Optional Attributes Name class( plot_data_error_bars ), intent(inout) :: this The plot_data_error_bars object. logical, intent(in) :: x Set to true if the error boxes are to be plotted; else,\nfalse.  Notice, the error boxes are only utilized if there is \nboth x and y error data defined, regardless of the value of this \nproperty.","tags":"","loc":"type\\plot_data_error_bars.html"},{"title":"r8tris2 – FPLOT","text":"public  subroutine r8tris2(node_num, node_xy, triangle_num, triangle_node, triangle_neighbor) Constructs a Delaunay triangulation of 2D vertices. The routine constructs the Delaunay triangulation of a set of\n2D vertices using an incremental approach and diagonal edge\nswaps.  Vertices are first sorted in lexicographically\nincreasing (X,Y) order, and then are inserted one at a time\nfrom outside the convex hull. Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: node_num The number of vertices. real(kind=real64), intent(inout), dimension(2, node_num) :: node_xy The coordinates of the vertices.  On output, the vertices\nhave been sorted into dictionary order. integer(kind=int32), intent(out) :: triangle_num The number of triangles in the triangulation;\nTRIANGLE_NUM is equal to 2*NODE_NUM - NB - 2, where NB is\nthe number of boundary vertices. integer(kind=int32), intent(out), dimension(3, 2 * node_num) :: triangle_node The nodes that make up each triangle.  The elements are\nindices of the vertex array.  The vertices of the\ntriangles are in counter clockwise order. integer(kind=int32), intent(out), dimension(3, 2 * node_num) :: triangle_neighbor The triangle neighbor list.  Positive elements are\nindices of TRIANGLE_NODE; negative elements are used for\nlinks of a counter clockwise linked list of boundary\nedges; LINK = -(3*I + J-1) where I, J = triangle, edge\nindex; TRIANGLE_NEIGHBOR(J,I) refers to the neighbor\nalong the edge from vertex J to J+1 (mod 3).","tags":"","loc":"proc\\r8tris2.html"},{"title":"get_string_result – FPLOT","text":"interface public  function get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:),allocatable The result string. Description Returns a string from a plot_object.","tags":"","loc":"interface\\get_string_result.html"},{"title":"report_array_size_mismatch_error – FPLOT","text":"public  subroutine report_array_size_mismatch_error(err, fcn, name, expected, actual) Reports an array size mismatch error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: name The variable name. integer(kind=int32), intent(in) :: expected The expected array size. integer(kind=int32), intent(in) :: actual The actual array size. Variables Type Visibility Attributes Name Initial character(len=256), public :: msg","tags":"","loc":"proc\\report_array_size_mismatch_error.html"},{"title":"report_error – FPLOT","text":"public  subroutine report_error(this, fcn, msg, code) Type Bound errors Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: this character(len=*), intent(in) :: fcn character(len=*), intent(in) :: msg integer(kind=int32), intent(in) :: code","tags":"","loc":"proc\\report_error.html"},{"title":"report_file_create_error – FPLOT","text":"public  subroutine report_file_create_error(err, fcn, fname, flag) Reports an I/O error related to file creating. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: fname The filename. integer(kind=int32), intent(in) :: flag The error flag returned by the system. Variables Type Visibility Attributes Name Initial character(len=2048), public :: msg","tags":"","loc":"proc\\report_file_create_error.html"},{"title":"report_matrix_size_mismatch_error – FPLOT","text":"public  subroutine report_matrix_size_mismatch_error(err, fcn, name, mexp, nexp, mact, nact) Reports a matrix size mismatch error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: name The variable name. integer(kind=int32), intent(in) :: mexp The expected number of rows. integer(kind=int32), intent(in) :: nexp The expected number of columns. integer(kind=int32), intent(in) :: mact The actual number of rows. integer(kind=int32), intent(in) :: nact The actual number of columns. Variables Type Visibility Attributes Name Initial character(len=256), public :: msg","tags":"","loc":"proc\\report_matrix_size_mismatch_error.html"},{"title":"report_memory_error – FPLOT","text":"public  subroutine report_memory_error(err, fcn, flag) Reports a memory allocation error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. integer(kind=int32), intent(in) :: flag The error flag returned by the system. Variables Type Visibility Attributes Name Initial character(len=256), public :: msg","tags":"","loc":"proc\\report_memory_error.html"},{"title":"simplify_polyline – FPLOT","text":"public interface simplify_polyline Module Procedures private  function simplify_polyline_2d1(x, y, tol, err) result(ln) Simplifies a 2D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, and the second \ncolumn contains the y-coordinates. private  function simplify_polyline_3d1(x, y, z, tol, err) result(ln) Simplifies a 3D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: z An N-element array containing the z-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, the second \ncolumn contains the y-coordinates, and the third column contains \nthe z-coordinates. private  function simplify_polyline_mtx(xy, tol, err) result(ln) Simplifies a 2D or 3D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:,:) :: xy An N-by-2 or N-by-3 matrix containing the polyline vertex data. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, the second \ncolumn contains the y-coordinates, and if necessary, the third \ncolumn contains the z-coordinates.","tags":"","loc":"interface\\simplify_polyline.html"},{"title":"lpd_get_cmd – FPLOT","text":"public  function lpd_get_cmd(this) result(rst) Gets the GNUPLOT command string to represent this line_plot_data\nobject. Type Bound line_plot_data Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value character(len=:), allocatable The command string.","tags":"","loc":"proc\\lpd_get_cmd.html"},{"title":"spd_get_cmd – FPLOT","text":"public  function spd_get_cmd(this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Type Bound scatter_plot_data Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string.","tags":"","loc":"proc\\spd_get_cmd.html"},{"title":"pd_clear_action – FPLOT","text":"interface public  subroutine pd_clear_action(this) Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. Description Performs a clearing operation.","tags":"","loc":"interface\\pd_clear_action.html"},{"title":"pd_get_string_result – FPLOT","text":"interface public  function pd_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:),allocatable The string. Description Retrieves a string from a plot_data object.","tags":"","loc":"interface\\pd_get_string_result.html"},{"title":"spd_get_int_value – FPLOT","text":"interface public pure function spd_get_int_value(this) result(x) Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value integer(kind=int32) The value. Description Gets an integer value from the scatter_plot_data object.","tags":"","loc":"interface\\spd_get_int_value.html"},{"title":"spd_get_string_result – FPLOT","text":"interface public  function spd_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:),allocatable The string. Description Gets a string value from the scatter_plot_data object.","tags":"","loc":"interface\\spd_get_string_result.html"},{"title":"spd_get_value – FPLOT","text":"interface public pure function spd_get_value(this, index) result(x) Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. Return Value real(kind=real64) The value. Description Gets an indexed value from the scatter_plot_data object.","tags":"","loc":"interface\\spd_get_value.html"},{"title":"spd_set_value – FPLOT","text":"interface public  subroutine spd_set_value(this, index, x) Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. real(kind=real64), intent(in) :: x The value. Description Sets an indexed value from the scatter_plot_data object.","tags":"","loc":"interface\\spd_set_value.html"},{"title":"pa_get_string_result – FPLOT","text":"interface public  function pa_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:),allocatable The string. Description Retrieves a string from a plot_axis.","tags":"","loc":"interface\\pa_get_string_result.html"},{"title":"linspace – FPLOT","text":"public pure function linspace(start, finish, npts) result(x) Constructs a linearly spaced array. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in) :: start The first value in the array. real(kind=real64), intent(in) :: finish The last value in the array. integer(kind=int32), intent(in) :: npts The number of values in the array. Return Value real(kind=real64), allocatable, dimension(:) The resulting array.","tags":"","loc":"proc\\linspace.html"},{"title":"logspace – FPLOT","text":"public pure function logspace(start, finish, npts) result(x) Construcst a logarithmically spaced array. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in) :: start The exponent of the first value in the array. real(kind=real64), intent(in) :: finish The exponent of the final value in the array. integer(kind=int32), intent(in) :: npts The number of values in the array. Return Value real(kind=real64), allocatable, dimension(:) The resulting array.","tags":"","loc":"proc\\logspace.html"},{"title":"meshgrid – FPLOT","text":"public pure function meshgrid(x, y) result(xy) Constructs two matrices (X and Y) from x and y data arrays. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An M-element array of x data points. real(kind=real64), intent(in), dimension(:) :: y An N-element array of y data points. Return Value real(kind=real64), allocatable, dimension(:,:,:) An N-by-M-by-2 array containing the x data matrix on the first \npage of the array, and the y data matrix on the second page.","tags":"","loc":"proc\\meshgrid.html"},{"title":"term_get_string_result – FPLOT","text":"interface public  function term_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:),allocatable The string. Description Retrieves a string from a terminal.","tags":"","loc":"interface\\term_get_string_result.html"},{"title":"operator(/=) – FPLOT","text":"public interface operator(/=) Module Procedures private pure function clr_not_equals(x, y) result(rst) Arguments Type Intent Optional Attributes Name type( color ), intent(in) :: x type( color ), intent(in) :: y Return Value logical","tags":"","loc":"interface\\operator(SLASH=).html"},{"title":"operator(==) – FPLOT","text":"public interface operator(==) Module Procedures private pure function clr_equals(x, y) result(rst) Arguments Type Intent Optional Attributes Name type( color ), intent(in) :: x type( color ), intent(in) :: y Return Value logical","tags":"","loc":"interface\\operator(==).html"},{"title":"cm_get_string_result – FPLOT","text":"interface public  function cm_get_string_result(this) result(x) Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:),allocatable The string. Description Retrieves a string result from a colormap object.","tags":"","loc":"interface\\cm_get_string_result.html"},{"title":"is_plot_data_function – FPLOT","text":"public pure function is_plot_data_function(x) result(rst) Tests to see if the supplied plot_data object is a plot_data_function based type. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: x The plot_data object. Return Value logical True if x is a plot_data_function based type.","tags":"","loc":"proc\\is_plot_data_function.html"},{"title":"fplot_constants – FPLOT","text":"Uses iso_fortran_env Variables Type Visibility Attributes Name Initial integer(kind=int32), public, parameter :: ARROW_BACKHEAD = 2 Defines an arrow with it's head at it's back end (tail). integer(kind=int32), public, parameter :: ARROW_EMPTY = 101 Defines an empty arrow head. integer(kind=int32), public, parameter :: ARROW_FILLED = 100 Defines a filled arrow head. integer(kind=int32), public, parameter :: ARROW_HEAD = 1 Defines an arrow with a traditional head. integer(kind=int32), public, parameter :: ARROW_HEADS = 3 Defines an arrow with a head on both ends. integer(kind=int32), public, parameter :: ARROW_NO_BORDER = 103 Defines an arrow head with no border. integer(kind=int32), public, parameter :: ARROW_NO_FILL = 102 Defines an arrow head without fill. integer(kind=int32), public, parameter :: ARROW_NO_HEAD = 0 Defines an arrow with no head. integer(kind=int32), public, parameter :: COORDINATES_CARTESIAN = 100 Defines a Cartesian coordinate system. integer(kind=int32), public, parameter :: COORDINATES_CYLINDRICAL = 102 Defines a cylindrical coordinate system. integer(kind=int32), public, parameter :: COORDINATES_SPHERICAL = 101 Defines a spherical coordinate system. character(len=*), public, parameter :: GNUPLOT_DEFAULT_FONTNAME = \"Arial\" Defines the default font used by text on the graph. integer(kind=int32), public, parameter :: GNUPLOT_DEFAULT_FONT_SIZE = 14 Defines the default font size used by text on the graph. integer(kind=int32), public, parameter :: GNUPLOT_DEFAULT_WINDOW_HEIGHT = 420 The default GNUPLOT window height, in pixels. integer(kind=int32), public, parameter :: GNUPLOT_DEFAULT_WINDOW_WIDTH = 640 The default GNUPLOT window width, in pixels. character(len=*), public, parameter :: GNUPLOT_HORIZONTAL_ALIGN_CENTER = \"center\" Defines the text should be centered. character(len=*), public, parameter :: GNUPLOT_HORIZONTAL_ALIGN_LEFT = \"left\" Defines the text should be aligned to the left. character(len=*), public, parameter :: GNUPLOT_HORIZONTAL_ALIGN_RIGHT = \"right\" Defines the text should be aligned to the right. integer(kind=int32), public, parameter :: GNUPLOT_MAX_LABEL_LENGTH = 128 Defines the maximum number of characters allowed in a graph label. integer(kind=int32), public, parameter :: GNUPLOT_MAX_PATH_LENGTH = 256 Defines the maximum number of characters allowed in a file path. character(len=*), public, parameter :: GNUPLOT_ROTATION_ORIGIN_CENTER = \"center\" Defines the text should be rotated around the center of the text. character(len=*), public, parameter :: GNUPLOT_ROTATION_ORIGIN_LEFT = \"left\" Defines the text should be rotated around the left side of the text. character(len=*), public, parameter :: GNUPLOT_ROTATION_ORIGIN_RIGHT = \"right\" Defines the text should be rotated around the right side of the text. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_LATEX = 5 Defines a LATEX terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_PDF = 7 Defines a PDF terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_PNG = 4 Defines a PNG terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_QT = 3 Defines a QT terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_SVG = 6 Defines an SVG terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_WIN32 = 1 Defines a Win32 terminal. integer(kind=int32), public, parameter :: GNUPLOT_TERMINAL_WXT = 2 Defines a WXT terminal. character(len=*), public, parameter :: LEGEND_ARRANGE_HORIZONTALLY = \"horizontal\" Defines the legend should be arranged such that the row count\nis minimized. character(len=*), public, parameter :: LEGEND_ARRANGE_VERTICALLY = \"vertical\" Defines the legend should be arranged such that the column count\nis minimized. character(len=*), public, parameter :: LEGEND_BOTTOM = \"bottom\" Defines the legend should be placed at the bottom of the plot. character(len=*), public, parameter :: LEGEND_CENTER = \"center\" Defines the legend should be centered on the plot. character(len=*), public, parameter :: LEGEND_LEFT = \"left\" Defines the legend should be placed at the left of the plot. character(len=*), public, parameter :: LEGEND_RIGHT = \"right\" Defines the legend should be placed at the right of the plot. character(len=*), public, parameter :: LEGEND_TOP = \"top\" Defines the legend should be placed at the top of the plot. integer(kind=int32), public, parameter :: LINE_DASHED = 2 Defines a dashed line. integer(kind=int32), public, parameter :: LINE_DASH_DOTTED = 4 Defines a dash-dotted line. integer(kind=int32), public, parameter :: LINE_DASH_DOT_DOT = 5 Defines a dash-dot-dotted line. integer(kind=int32), public, parameter :: LINE_DOTTED = 3 Defines a dotted line. integer(kind=int32), public, parameter :: LINE_SOLID = 1 Defines a solid line. integer(kind=int32), public, parameter :: MARKER_ASTERISK = 3 Defines an * data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_CIRCLE = 6 Defines an empty circle-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_NABLA = 10 Defines an empty nabla-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_RHOMBUS = 12 Defines an empty rhombus-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_SQUARE = 4 Defines an empty square-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_EMPTY_TRIANGLE = 8 Defines an empty triangle-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_CIRCLE = 7 Defines an filled circle-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_NABLA = 11 Defines an filled nabla-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_RHOMBUS = 13 Defines an filled rhombus-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_SQUARE = 5 Defines an filled square-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_FILLED_TRIANGLE = 9 Defines an filled triangle-shaped data point marker. integer(kind=int32), public, parameter :: MARKER_PLUS = 1 Defines a + data point marker. integer(kind=int32), public, parameter :: MARKER_X = 2 Defines an x data point marker. integer(kind=int32), public, parameter :: PLOTDATA_MAX_NAME_LENGTH = 128 Defines the maximum number of characters allowed in a graph label. character(len=*), public, parameter :: POLAR_THETA_BOTTOM = \"bottom\" States that theta should start at the bottom of the plot. character(len=*), public, parameter :: POLAR_THETA_CCW = \"ccw\" States that theta should proceed in a counter-clockwise direction. character(len=*), public, parameter :: POLAR_THETA_CW = \"cw\" States that theta should proceed in a clockwise direction. character(len=*), public, parameter :: POLAR_THETA_LEFT = \"left\" States that theta should start at the left of the plot. character(len=*), public, parameter :: POLAR_THETA_RIGHT = \"right\" States that theta should start at the right of the plot. character(len=*), public, parameter :: POLAR_THETA_TOP = \"top\" States that theta should start at the top of the plot.","tags":"","loc":"module\\fplot_constants.html"},{"title":"fplot_tri_surface_plot_data – FPLOT","text":"Uses fplot_delaunay_tri_surface strings fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot_data ) :: tri_surface_plot_data Provides a three-dimensional surface plot data set constructed of\ntriangulated points. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => tspd_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => tspd_define_data procedure, public :: get_command_string => tspd_get_cmd procedure, public :: get_data_string => tspd_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_name => pd_get_name procedure, public :: get_use_wireframe => tspd_get_wireframe procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_name => pd_set_name procedure, public :: set_use_wireframe => tspd_set_wireframe","tags":"","loc":"module\\fplot_tri_surface_plot_data.html"},{"title":"fplot_legend – FPLOT","text":"Uses strings fplot_plot_object fplot_constants iso_fortran_env Derived Types type, public, extends( plot_object ) :: legend Defines a legend object. Type-Bound Procedures procedure, public :: get_command_string => leg_get_command_txt procedure, public :: get_draw_border => leg_get_box procedure, public :: get_draw_inside_axes => leg_get_inside procedure, public :: get_horizontal_position => leg_get_horz_pos procedure, public :: get_is_opaque => leg_get_opaque procedure, public :: get_is_visible => leg_get_visible procedure, public :: get_layout => leg_get_layout procedure, public :: get_vertical_position => leg_get_vert_pos procedure, public :: set_draw_border => leg_set_box procedure, public :: set_draw_inside_axes => leg_set_inside procedure, public :: set_horizontal_position => leg_set_horz_pos procedure, public :: set_is_opaque => leg_set_opaque procedure, public :: set_is_visible => leg_set_visible procedure, public :: set_layout => leg_set_layout procedure, public :: set_vertical_position => leg_set_vert_pos","tags":"","loc":"module\\fplot_legend.html"},{"title":"fplot_plot_data_function – FPLOT","text":"Uses strings fplot_colors fplot_plot_data fplot_constants iso_fortran_env Derived Types type, public, extends( line_plot_data ) :: plot_data_function Defines a function to plot. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdf_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pdf_define_data procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdf_get_cmd procedure, public :: get_data_string => pdf_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_function => pdf_get_function procedure, public :: get_function_name => pdf_get_function_name procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_maximum_x => pdf_get_max_x procedure, public :: get_minimum_x => pdf_get_min_x procedure, public :: get_name => pd_get_name procedure, public :: get_sample_count => pfd_get_sample_count procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_maximum_x => pdf_set_max_x procedure, public :: set_minimum_x => pdf_set_min_x procedure, public :: set_name => pd_set_name procedure, public :: set_sample_count => pfd_set_sample_count","tags":"","loc":"module\\fplot_plot_data_function.html"},{"title":"fplot_core – FPLOT","text":"FPLOT is a Fortran library providing a means of interacting with GNUPLOT from a Fortran program.  The library\nis designed in an object-oriented manner, and as such utilizes language \nfeatures that require a compiler that supports the 2003 standard. Additionally, it is expected that Gnuplot is installed on the system \npath.  For full functionallity, a minimum of GNUPLOT v5.2 is expected. Uses fplot_arrow fplot_plot_2d fplot_plot_axis fplot_plot_data_histogram fplot_windows_terminal fplot_qt_terminal fplot_svg_terminal fplot_constants strings fplot_plot_data fplot_label fplot_wxt_terminal fplot_tri_surface_plot_data fplot_png_terminal fplot_delaunay_tri_surface fplot_colormap fplot_surface_plot_data fplot_plot_data_bar fplot_plot_data_function fplot_surface_plot fplot_latex_terminal fplot_colors fplot_plot_data_box_whisker fplot_plot_data_tri_2d fplot_plot_data_2d fplot_plot_object fplot_pdf_terminal fplot_filled_plot_data fplot_plot_polar fplot_vector_field_plot_data fplot_plot fplot_stats_plots fplot_core_routines fplot_plot_data_3d fplot_triangulations_delaunay_2d fplot_plot_data_error_bars fplot_plot_3d fplot_multiplot fplot_plot_bar fplot_legend fplot_terminal","tags":"","loc":"module\\fplot_core.html"},{"title":"fplot_plot_data_tri_2d – FPLOT","text":"Uses fplot_triangulations_delaunay_2d strings fplot_colors fplot_plot_data fplot_constants iso_fortran_env Derived Types type, public, extends( plot_data_colored ) :: plot_data_tri_2d Defines a 2D triangulated data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdt2d_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pdt2d_define_data procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdt2d_get_cmd procedure, public :: get_data_string => pdt2d_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => pdt2d_get_line_style procedure, public :: get_line_width => pdt2d_get_line_width procedure, public :: get_name => pd_get_name procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => pdt2d_set_line_style procedure, public :: set_line_width => pdt2d_set_line_width procedure, public :: set_name => pd_set_name","tags":"","loc":"module\\fplot_plot_data_tri_2d.html"},{"title":"fplot_plot_3d – FPLOT","text":"Uses fplot_plot fplot_plot_axis fplot_plot_data_3d strings fplot_colors fplot_errors fplot_legend fplot_plot_data fplot_constants iso_fortran_env Derived Types type, public, extends( plot ) :: plot_3d A plot object defining a 3D plot. Finalizations Procedures final :: p3d_clean_up Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_azimuth => p3d_get_azimuth procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => p3d_get_cmd procedure, public :: get_coordinate_system => p3d_get_csys procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_elevation => p3d_get_elevation procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_show_z_major_grid => p3d_get_show_z_major_grid procedure, public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_use_map_view => p3d_get_use_map_view procedure, public :: get_x_axis => p3d_get_x_axis procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y_axis => p3d_get_y_axis procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: get_z_axis => p3d_get_z_axis procedure, public :: get_z_intersect_xy => p3d_get_z_axis_intersect procedure, public :: get_z_major_grid_color => p3d_get_z_major_grid_color procedure, public :: get_z_major_grid_line_style => p3d_get_z_major_grid_line_style procedure, public :: get_z_major_grid_line_width => p3d_get_z_major_grid_line_width procedure, public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color procedure, public :: get_z_minor_grid_line_style => p3d_get_z_minor_grid_line_style procedure, public :: get_z_minor_grid_line_width => p3d_get_z_minor_grid_line_width procedure, public :: initialize => p3d_init procedure, public :: is_title_defined => plt_has_title procedure, public :: p3d_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , p3d_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_azimuth => p3d_set_azimuth procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_coordinate_system => p3d_set_csys procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_elevation => p3d_set_elevation procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_show_z_major_grid => p3d_set_show_z_major_grid procedure, public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_use_map_view => p3d_set_use_map_view procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_axis_title => p3d_set_x_axis_title procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y_axis_title => p3d_set_y_axis_title procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: set_z_axis_title => p3d_set_z_axis_title procedure, public :: set_z_intersect_xy => p3d_set_z_axis_intersect procedure, public :: set_z_major_grid_color => p3d_set_z_major_grid_color procedure, public :: set_z_major_grid_line_style => p3d_set_z_major_grid_line_style procedure, public :: set_z_major_grid_line_width => p3d_set_z_major_grid_line_width procedure, public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color procedure, public :: set_z_minor_grid_line_style => p3d_set_z_minor_grid_line_style procedure, public :: set_z_minor_grid_line_width => p3d_set_z_minor_grid_line_width procedure, public :: show_legend => plt_show_legend","tags":"","loc":"module\\fplot_plot_3d.html"},{"title":"fplot_windows_terminal – FPLOT","text":"Uses fplot_terminal iso_fortran_env Derived Types type, public, extends( terminal ) :: windows_terminal A Windows-specific terminal. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => wt_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_windows_terminal.html"},{"title":"delaunay – FPLOT","text":"Provides a minimal, in-house implementation of the subset of the\nGEOMPACK library used by FPLOT to construct 2D Delaunay\ntriangulations. Original FORTRAN77 version by Barry Joe.  FORTRAN90 version by\nJohn Burkardt.  Reference: Barry Joe, GEOMPACK - a software\npackage for the generation of meshes using geometric algorithms,\nAdvances in Engineering Software, Volume 13, pages 325-331, 1991. Uses iso_fortran_env Subroutines public  subroutine r8tris2 (node_num, node_xy, triangle_num, triangle_node, triangle_neighbor) Constructs a Delaunay triangulation of 2D vertices. Read more… Arguments Type Intent Optional Attributes Name integer(kind=int32), intent(in) :: node_num The number of vertices. real(kind=real64), intent(inout), dimension(2, node_num) :: node_xy The coordinates of the vertices.  On output, the vertices\nhave been sorted into dictionary order. integer(kind=int32), intent(out) :: triangle_num The number of triangles in the triangulation;\nTRIANGLE_NUM is equal to 2*NODE_NUM - NB - 2, where NB is\nthe number of boundary vertices. integer(kind=int32), intent(out), dimension(3, 2 * node_num) :: triangle_node The nodes that make up each triangle.  The elements are\nindices of the vertex array.  The vertices of the\ntriangles are in counter clockwise order. integer(kind=int32), intent(out), dimension(3, 2 * node_num) :: triangle_neighbor The triangle neighbor list.  Positive elements are\nindices of TRIANGLE_NODE; negative elements are used for\nlinks of a counter clockwise linked list of boundary\nedges; LINK = -(3*I + J-1) where I, J = triangle, edge\nindex; TRIANGLE_NEIGHBOR(J,I) refers to the neighbor\nalong the edge from vertex J to J+1 (mod 3).","tags":"","loc":"module\\delaunay.html"},{"title":"fplot_plot_data_box_whisker – FPLOT","text":"Uses strings fplot_colors fplot_errors fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot_data_colored ) :: plot_data_box_whisker A container for box-whisker plot data. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdbw_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pdbw_define_data_xstring procedure, public :: get_box_fill_opacity => pdbw_get_opacity procedure, public :: get_box_width => pdbw_get_box_width procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdbw_get_cmd procedure, public :: get_data_string => pdbw_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => pdbw_get_use_y2 procedure, public :: get_fill_boxes => pdbw_get_fill_boxes procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_width => pdbw_get_line_width procedure, public :: get_midline_color => pdbw_get_midline_color procedure, public :: get_midline_width => pdbw_get_midline_width procedure, public :: get_name => pd_get_name procedure, public :: get_use_whiskerbars => pdbw_get_use_whiskerbars procedure, public :: get_whiskerbar_width => pdbw_get_whiskerbar_width procedure, public :: set_box_fill_opacity => pdbw_set_opacity procedure, public :: set_box_width => pdbw_set_box_width procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => pdbw_set_use_y2 procedure, public :: set_fill_boxes => pdbw_set_fill_boxes procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_width => pdbw_set_line_width procedure, public :: set_midline_color => pdbw_set_midline_color procedure, public :: set_midline_width => pdbw_set_midline_width procedure, public :: set_name => pd_set_name procedure, public :: set_use_whiskerbars => pdbw_set_use_whiskerbars procedure, public :: set_whiskerbar_width => pdbw_set_whiskerbar_width","tags":"","loc":"module\\fplot_plot_data_box_whisker.html"},{"title":"fplot_svg_terminal – FPLOT","text":"Uses strings fplot_terminal fplot_constants iso_fortran_env Derived Types type, public, extends( file_terminal ) :: svg_terminal An SVG terminal. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => svg_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_svg_terminal.html"},{"title":"fplot_plot_object – FPLOT","text":"Uses iso_fortran_env Interfaces interface public  function get_string_result(this) result(x) Returns a string from a plot_object. Arguments Type Intent Optional Attributes Name class( plot_object ), intent(in) :: this The plot_object object. Return Value character(len=:), allocatable The result string. Derived Types type, public :: plot_object The base type for all plot objects. Type-Bound Procedures procedure( get_string_result ), public, deferred :: get_command_string","tags":"","loc":"module\\fplot_plot_object.html"},{"title":"fplot_delaunay_tri_surface – FPLOT","text":"Uses fplot_errors fplot_triangulations_delaunay_2d ieee_arithmetic iso_fortran_env Derived Types type, public, extends( delaunay_tri_2d ) :: delaunay_tri_surface Provides a type describing a triangulated surface. Type-Bound Procedures procedure, public :: create => d2d_init procedure, public :: define_function_values => dts_define_fcn generic, public :: evaluate => dts_interp_1, dts_interp_2 procedure, public :: find_triangle => d2d_get_tri_with_pt procedure, public :: get_indices => d2d_get_tris procedure, public :: get_point_count => d2d_get_pt_count procedure, public :: get_points_x => d2d_get_x_pts procedure, public :: get_points_y => d2d_get_y_pts procedure, public :: get_points_z => dts_get_z procedure, public :: get_triangle_count => d2d_get_tri_count","tags":"","loc":"module\\fplot_delaunay_tri_surface.html"},{"title":"fplot_errors – FPLOT","text":"Uses iso_fortran_env Variables Type Visibility Attributes Name Initial integer(kind=int32), public, parameter :: PLOT_ARRAY_SIZE_MISMATCH_ERROR = 1003 Occurs if there is an array size mismatch error. integer(kind=int32), public, parameter :: PLOT_GNUPLOT_FILE_ERROR = 1004 Occurs if there is a GNUPLOT file error. integer(kind=int32), public, parameter :: PLOT_INVALID_INPUT_ERROR = 1001 Occurs if an invalid input is provided. integer(kind=int32), public, parameter :: PLOT_INVALID_OPERATION_ERROR = 1002 Occurs if an attempt is made to perform an invalid operation. integer(kind=int32), public, parameter :: PLOT_OUT_OF_MEMORY_ERROR = 1000 Occurs if there is insufficient memory available for the\nrequested operation. Derived Types type, public :: errors Type-Bound Procedures procedure, public :: report_error Subroutines public  subroutine report_array_size_mismatch_error (err, fcn, name, expected, actual) Reports an array size mismatch error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: name The variable name. integer(kind=int32), intent(in) :: expected The expected array size. integer(kind=int32), intent(in) :: actual The actual array size. public  subroutine report_error (this, fcn, msg, code) Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: this character(len=*), intent(in) :: fcn character(len=*), intent(in) :: msg integer(kind=int32), intent(in) :: code public  subroutine report_file_create_error (err, fcn, fname, flag) Reports an I/O error related to file creating. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: fname The filename. integer(kind=int32), intent(in) :: flag The error flag returned by the system. public  subroutine report_matrix_size_mismatch_error (err, fcn, name, mexp, nexp, mact, nact) Reports a matrix size mismatch error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. character(len=*), intent(in) :: name The variable name. integer(kind=int32), intent(in) :: mexp The expected number of rows. integer(kind=int32), intent(in) :: nexp The expected number of columns. integer(kind=int32), intent(in) :: mact The actual number of rows. integer(kind=int32), intent(in) :: nact The actual number of columns. public  subroutine report_memory_error (err, fcn, flag) Reports a memory allocation error. Arguments Type Intent Optional Attributes Name class( errors ), intent(inout) :: err The error handling object. character(len=*), intent(in) :: fcn The name of the function or subroutine in which the error occurred. integer(kind=int32), intent(in) :: flag The error flag returned by the system.","tags":"","loc":"module\\fplot_errors.html"},{"title":"fplot_simplify – FPLOT","text":"Uses fplot_errors iso_fortran_env Interfaces public        interface simplify_polyline private  function simplify_polyline_2d1(x, y, tol, err) result(ln) Simplifies a 2D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, and the second \ncolumn contains the y-coordinates. private  function simplify_polyline_3d1(x, y, z, tol, err) result(ln) Simplifies a 3D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An N-element array containing the x-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: y An N-element array containing the y-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in), dimension(:) :: z An N-element array containing the z-coordinates of the vertices\nmaking up the polyline. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, the second \ncolumn contains the y-coordinates, and the third column contains \nthe z-coordinates. private  function simplify_polyline_mtx(xy, tol, err) result(ln) Simplifies a 2D or 3D polyline by removing points too close to \ndiscern given a specified tolerance. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:,:) :: xy An N-by-2 or N-by-3 matrix containing the polyline vertex data. real(kind=real64), intent(in) :: tol The distance tolerance to use when simplifying the polyline.\nThis value must be positive, and larger than machine epsilon. class( errors ), intent(inout), optional, target :: err An error handling object. Return Value real(kind=real64), allocatable, dimension(:,:) A matrix containing the simplified polyline vertices.  The first\ncolumn of the matrix contains the x-coordinates, the second \ncolumn contains the y-coordinates, and if necessary, the third \ncolumn contains the z-coordinates.","tags":"","loc":"module\\fplot_simplify.html"},{"title":"fplot_qt_terminal – FPLOT","text":"Uses fplot_terminal iso_fortran_env Derived Types type, public, extends( terminal ) :: qt_terminal Defines a terminal that utilizes QT. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => qt_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_qt_terminal.html"},{"title":"fplot_multiplot – FPLOT","text":"Uses fplot_plot fplot_windows_terminal strings fplot_latex_terminal fplot_qt_terminal fplot_wxt_terminal fplot_pdf_terminal fplot_plot_object fplot_svg_terminal fplot_errors fplot_png_terminal collections fplot_terminal fplot_constants iso_fortran_env Derived Types type, public, extends( plot_object ) :: multiplot Defines a multi-plot layout. Components Type Visibility Attributes Name Initial class( terminal ), public, pointer :: m_terminal => null() The GNUPLOT terminal object to target. Finalizations Procedures final :: mp_clean Type-Bound Procedures procedure, public :: draw => mp_draw procedure, public :: get => mp_get procedure, public :: get_bottom_margin => mp_get_bottom_margin procedure, public :: get_column_count => mp_get_cols procedure, public :: get_command_string => mp_get_command procedure, public :: get_font_name => mp_get_font procedure, public :: get_font_size => mp_get_font_size procedure, public :: get_horizontal_spacing => mp_get_horizontal_spacing procedure, public :: get_left_margin => mp_get_left_margin procedure, public :: get_plot_count => mp_get_count procedure, public :: get_right_margin => mp_get_right_margin procedure, public :: get_row_count => mp_get_rows procedure, public :: get_terminal => mp_get_term procedure, public :: get_title => mp_get_title procedure, public :: get_top_margin => mp_get_top_margin procedure, public :: get_use_auto_generated_margins => mp_get_use_auto_generated_margins procedure, public :: get_vertical_spacing => mp_get_vertical_spacing procedure, public :: initialize => mp_init procedure, public :: is_title_defined => mp_has_title procedure, public :: save_file => mp_save procedure, public :: set => mp_set procedure, public :: set_bottom_margin => mp_set_bottom_margin procedure, public :: set_font_name => mp_set_font procedure, public :: set_font_size => mp_set_font_size procedure, public :: set_horizontal_spacing => mp_set_horizontal_spacing procedure, public :: set_left_margin => mp_set_left_margin procedure, public :: set_right_margin => mp_set_right_margin procedure, public :: set_title => mp_set_title procedure, public :: set_top_margin => mp_set_top_margin procedure, public :: set_use_auto_generated_margins => mp_set_use_auto_generated_margins procedure, public :: set_vertical_spacing => mp_set_vertical_spacing procedure, public :: set_window_size => mp_set_window_size","tags":"","loc":"module\\fplot_multiplot.html"},{"title":"fplot_vector_field_plot_data – FPLOT","text":"Uses strings fplot_colors fplot_errors fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot_data_colored ) :: vector_field_plot_data Defines a two-dimensional vector-field plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => vfpd_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => vfpd_define_data procedure, public :: get_arrow_size => vfpd_get_arrow_size procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => vfpd_get_cmd procedure, public :: get_data_string => vfpd_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_fill_arrow => vfpd_get_fill_arrow procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_name => pd_get_name procedure, public :: get_use_data_dependent_colors => vfpd_get_use_data_dependent_colors procedure, public :: set_arrow_size => vfpd_set_arrow_size procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_fill_arrow => vfpd_set_fill_arrow procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name","tags":"","loc":"module\\fplot_vector_field_plot_data.html"},{"title":"fplot_surface_plot – FPLOT","text":"Uses fplot_surface_plot_data strings fplot_plot_3d fplot_errors fplot_legend iso_fortran_env Derived Types type, public, extends( plot_3d ) :: surface_plot Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_allow_smoothing => surf_get_smooth procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_azimuth => p3d_get_azimuth procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => surf_get_cmd procedure, public :: get_coordinate_system => p3d_get_csys procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_elevation => p3d_get_elevation procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_light_intensity => surf_get_light_intensity procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_contours => surf_get_show_contours procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_hidden => surf_get_show_hidden procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_show_z_major_grid => p3d_get_show_z_major_grid procedure, public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid procedure, public :: get_specular_intensity => surf_get_specular_intensity procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_transparency => surf_get_transparency procedure, public :: get_use_lighting => surf_get_use_lighting procedure, public :: get_use_map_view => p3d_get_use_map_view procedure, public :: get_x_axis => p3d_get_x_axis procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y_axis => p3d_get_y_axis procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: get_z_axis => p3d_get_z_axis procedure, public :: get_z_intersect_xy => p3d_get_z_axis_intersect procedure, public :: get_z_major_grid_color => p3d_get_z_major_grid_color procedure, public :: get_z_major_grid_line_style => p3d_get_z_major_grid_line_style procedure, public :: get_z_major_grid_line_width => p3d_get_z_major_grid_line_width procedure, public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color procedure, public :: get_z_minor_grid_line_style => p3d_get_z_minor_grid_line_style procedure, public :: get_z_minor_grid_line_width => p3d_get_z_minor_grid_line_width procedure, public :: initialize => surf_init procedure, public :: is_title_defined => plt_has_title procedure, public :: p3d_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , p3d_push_data , surf_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_allow_smoothing => surf_set_smooth procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_azimuth => p3d_set_azimuth procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_coordinate_system => p3d_set_csys procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_elevation => p3d_set_elevation procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_light_intensity => surf_set_light_intensity procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_contours => surf_set_show_contours procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_hidden => surf_set_show_hidden procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_show_z_major_grid => p3d_set_show_z_major_grid procedure, public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid procedure, public :: set_specular_intensity => surf_set_specular_intensity procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_transparency => surf_set_transparency procedure, public :: set_use_lighting => surf_set_use_lighting procedure, public :: set_use_map_view => p3d_set_use_map_view procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_axis_title => p3d_set_x_axis_title procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y_axis_title => p3d_set_y_axis_title procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: set_z_axis_title => p3d_set_z_axis_title procedure, public :: set_z_intersect_xy => p3d_set_z_axis_intersect procedure, public :: set_z_major_grid_color => p3d_set_z_major_grid_color procedure, public :: set_z_major_grid_line_style => p3d_set_z_major_grid_line_style procedure, public :: set_z_major_grid_line_width => p3d_set_z_major_grid_line_width procedure, public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color procedure, public :: set_z_minor_grid_line_style => p3d_set_z_minor_grid_line_style procedure, public :: set_z_minor_grid_line_width => p3d_set_z_minor_grid_line_width procedure, public :: show_legend => plt_show_legend procedure, public :: surf_push_data","tags":"","loc":"module\\fplot_surface_plot.html"},{"title":"fplot_plot_data – FPLOT","text":"Uses strings fplot_colors fplot_plot_object fplot_errors fplot_constants iso_fortran_env Interfaces interface public  subroutine pd_clear_action(this) Performs a clearing operation. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(inout) :: this The plot_data object. interface public  function pd_get_string_result(this) result(x) Retrieves a string from a plot_data object. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: this The plot_data object. Return Value character(len=:), allocatable The string. interface public pure function spd_get_int_value(this) result(x) Gets an integer value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value integer(kind=int32) The value. interface public  function spd_get_string_result(this) result(x) Gets a string value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The string. interface public pure function spd_get_value(this, index) result(x) Gets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. Return Value real(kind=real64) The value. interface public  subroutine spd_set_value(this, index, x) Sets an indexed value from the scatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(inout) :: this The scatter_plot_data object. integer(kind=int32), intent(in) :: index The index. real(kind=real64), intent(in) :: x The value. Derived Types type, public, extends( plot_data_colored ) :: line_plot_data A plot_data object for describing line series data. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure( pd_clear_action ), public, deferred :: clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => lpd_get_cmd procedure( pd_get_string_result ), public, deferred :: get_data_string procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_name => pd_get_name procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_name => pd_set_name type, public, extends( plot_object ) :: plot_data A container for plot data. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure( pd_clear_action ), public, deferred :: clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure( get_string_result ), public, deferred :: get_command_string procedure( pd_get_string_result ), public, deferred :: get_data_string procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_name => pd_get_name procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_name => pd_set_name type, public, extends( plot_data ) :: plot_data_colored Defines a colored plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure( pd_clear_action ), public, deferred :: clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: get_color_index => pdc_get_color_index procedure( get_string_result ), public, deferred :: get_command_string procedure( pd_get_string_result ), public, deferred :: get_data_string procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_name => pd_get_name procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name type, public, extends( line_plot_data ) :: scatter_plot_data A plot_data object for describing scatter plot data sets. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure( pd_clear_action ), public, deferred :: clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure( spd_get_string_result ), public, deferred :: get_axes_string procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => spd_get_cmd procedure( spd_get_int_value ), public, deferred :: get_count procedure( pd_get_string_result ), public, deferred :: get_data_string procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_fill_curve => spd_get_filled procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_name => pd_get_name procedure, public :: get_simplification_factor => spd_get_simplify_factor procedure, public :: get_simplify_data => spd_get_simplify_data procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size procedure( spd_get_value ), public, deferred :: get_x procedure( spd_get_value ), public, deferred :: get_y procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_fill_curve => spd_set_filled procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_name => pd_set_name procedure, public :: set_simplification_factor => spd_set_simplify_factor procedure, public :: set_simplify_data => spd_set_simplify_data procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size procedure( spd_set_value ), public, deferred :: set_x procedure( spd_set_value ), public, deferred :: set_y Functions public  function lpd_get_cmd (this) result(rst) Gets the GNUPLOT command string to represent this line_plot_data\nobject. Arguments Type Intent Optional Attributes Name class( line_plot_data ), intent(in) :: this The line_plot_data object. Return Value character(len=:), allocatable The command string. public  function spd_get_cmd (this) result(x) Gets the GNUPLOT command string to represent this\nscatter_plot_data object. Arguments Type Intent Optional Attributes Name class( scatter_plot_data ), intent(in) :: this The scatter_plot_data object. Return Value character(len=:), allocatable The command string.","tags":"","loc":"module\\fplot_plot_data.html"},{"title":"fplot_plot_axis – FPLOT","text":"Uses strings fplot_plot_object fplot_constants iso_fortran_env Interfaces interface public  function pa_get_string_result(this) result(x) Retrieves a string from a plot_axis. Arguments Type Intent Optional Attributes Name class( plot_axis ), intent(in) :: this The plot_axis object. Return Value character(len=:), allocatable The string. Derived Types type, public :: name_value_pair Defines a name-value pair. Components Type Visibility Attributes Name Initial character(len=:), public, allocatable :: name The name. real(kind=real64), public :: value The associated value. type, public, extends( plot_object ) :: plot_axis Defines a plot axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure( pa_get_string_result ), public, deferred :: get_id_string procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_angle => pa_get_title_angle procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_angle => pa_set_title_angle procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width type, public, extends( plot_axis ) :: x_axis Defines an x-axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure, public :: get_id_string => xa_get_id procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_angle => pa_get_title_angle procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_angle => pa_set_title_angle procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width type, public, extends( plot_axis ) :: y2_axis Defines a secondary y-axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure, public :: get_id_string => y2a_get_id procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_angle => pa_get_title_angle procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_angle => pa_set_title_angle procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width type, public, extends( plot_axis ) :: y_axis Defines a y-axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure, public :: get_id_string => ya_get_id procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_angle => pa_get_title_angle procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_angle => pa_set_title_angle procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width type, public, extends( plot_axis ) :: z_axis Defines a z-axis object. Type-Bound Procedures procedure, public :: get_auto_calculate_title_angle => pa_get_auto_calc_title_angle procedure, public :: get_autoscale => pa_get_autoscale procedure, public :: get_command_string => pa_get_cmd_string procedure, public :: get_id_string => za_get_id procedure, public :: get_is_log_scaled => pa_get_log_scale procedure, public :: get_limits => pa_get_axis_limits procedure, public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure, public :: get_offset_tics => pa_get_offset_tics procedure, public :: get_show_tic_labels => pa_get_show_tic_labels procedure, public :: get_tic_label_alignment => pa_get_tic_label_alignment procedure, public :: get_tic_label_angle => pa_get_tic_label_angle procedure, public :: get_tic_label_format => pa_get_tic_label_fmt procedure, public :: get_tic_label_rotation_origin => pa_get_tic_rotation_origin procedure, public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure, public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure, public :: get_title => pa_get_title procedure, public :: get_title_angle => pa_get_title_angle procedure, public :: get_title_x_offset => pa_get_title_x_offset procedure, public :: get_title_y_offset => pa_get_title_y_offset procedure, public :: get_use_default_tic_label_format => pa_get_use_dft_tic_lbl_fmt procedure, public :: get_use_manual_tic_labels => pa_get_use_manual_tic_labels procedure, public :: get_zero_axis => pa_get_zero_axis procedure, public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure, public :: is_title_defined => pa_has_title procedure, public :: set_auto_calculate_title_angle => pa_set_auto_calc_title_angle procedure, public :: set_autoscale => pa_set_autoscale procedure, public :: set_is_log_scaled => pa_set_log_scale procedure, public :: set_limits => pa_set_axis_limits procedure, public :: set_manual_tic_labels => pa_set_manual_tic_labels procedure, public :: set_offset_tics => pa_set_offset_tics procedure, public :: set_show_tic_labels => pa_set_show_tic_labels procedure, public :: set_tic_label_alignment => pa_set_tic_label_alignment procedure, public :: set_tic_label_angle => pa_set_tic_label_angle procedure, public :: set_tic_label_format => pa_set_tic_label_fmt procedure, public :: set_tic_label_rotation_origin => pa_set_tic_rotation_origin procedure, public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure, public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure, public :: set_title => pa_set_title procedure, public :: set_title_angle => pa_set_title_angle procedure, public :: set_title_x_offset => pa_set_title_x_offset procedure, public :: set_title_y_offset => pa_set_title_y_offset procedure, public :: set_use_default_tic_label_format => pa_set_use_dft_tic_lbl_fmt procedure, public :: set_use_manual_tic_labels => pa_set_use_manual_tic_labels procedure, public :: set_zero_axis => pa_set_zero_axis procedure, public :: set_zero_axis_line_width => pa_set_zero_axis_width","tags":"","loc":"module\\fplot_plot_axis.html"},{"title":"fplot_plot_2d – FPLOT","text":"Uses fplot_plot fplot_plot_axis strings fplot_colors fplot_plot_data_2d fplot_errors fplot_legend fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot ) :: plot_2d A plot object defining a 2D plot. Finalizations Procedures final :: p2d_clean_up Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => p2d_get_cmd procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_jitter_overlap => p2d_get_jitter_overlap procedure, public :: get_jitter_spread => p2d_get_jitter_spread procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_square_axes => p2d_get_square_axes procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_use_jittering => p2d_get_use_jitter procedure, public :: get_use_y2_axis => p2d_get_use_y2 procedure, public :: get_x_axis => p2d_get_x_axis procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y2_axis => p2d_get_y2_axis procedure, public :: get_y_axis => p2d_get_y_axis procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: initialize => p2d_init procedure, public :: is_title_defined => plt_has_title procedure, public :: p2d_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , p2d_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_jitter_overlap => p2d_set_jitter_overlap procedure, public :: set_jitter_spread => p2d_set_jitter_spread procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_square_axes => p2d_set_square_axes procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_use_jittering => p2d_set_use_jitter procedure, public :: set_use_y2_axis => p2d_set_use_y2 procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_axis_title => p2d_set_x_axis_title procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y2_axis_title => p2d_set_y2_axis_title procedure, public :: set_y_axis_title => p2d_set_y_axis_title procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: show_legend => plt_show_legend","tags":"","loc":"module\\fplot_plot_2d.html"},{"title":"fplot_triangulations_delaunay_2d – FPLOT","text":"Uses fplot_errors delaunay iso_fortran_env Derived Types type, public :: delaunay_tri_2d Provides a container for a 2D Delaunay triangulation. Type-Bound Procedures procedure, public :: create => d2d_init procedure, public :: find_triangle => d2d_get_tri_with_pt procedure, public :: get_indices => d2d_get_tris procedure, public :: get_point_count => d2d_get_pt_count procedure, public :: get_points_x => d2d_get_x_pts procedure, public :: get_points_y => d2d_get_y_pts procedure, public :: get_triangle_count => d2d_get_tri_count","tags":"","loc":"module\\fplot_triangulations_delaunay_2d.html"},{"title":"fplot_core_routines – FPLOT","text":"Uses iso_fortran_env Functions public pure function linspace (start, finish, npts) result(x) Constructs a linearly spaced array. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in) :: start The first value in the array. real(kind=real64), intent(in) :: finish The last value in the array. integer(kind=int32), intent(in) :: npts The number of values in the array. Return Value real(kind=real64), allocatable, dimension(:) The resulting array. public pure function logspace (start, finish, npts) result(x) Construcst a logarithmically spaced array. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in) :: start The exponent of the first value in the array. real(kind=real64), intent(in) :: finish The exponent of the final value in the array. integer(kind=int32), intent(in) :: npts The number of values in the array. Return Value real(kind=real64), allocatable, dimension(:) The resulting array. public pure function meshgrid (x, y) result(xy) Constructs two matrices (X and Y) from x and y data arrays. Arguments Type Intent Optional Attributes Name real(kind=real64), intent(in), dimension(:) :: x An M-element array of x data points. real(kind=real64), intent(in), dimension(:) :: y An N-element array of y data points. Return Value real(kind=real64), allocatable, dimension(:,:,:) An N-by-M-by-2 array containing the x data matrix on the first \npage of the array, and the y data matrix on the second page.","tags":"","loc":"module\\fplot_core_routines.html"},{"title":"fplot_stats_plots – FPLOT","text":"Uses fplot_plot fplot_plot_2d fplot_plot_axis fplot_plot_data_histogram strings fplot_colors fplot_plot_data_2d fplot_plot_object fplot_errors fplot_multiplot collections fplot_terminal fplot_constants iso_fortran_env Derived Types type, public, extends( plot_object ) :: correlation_plot Defines a multiplot arrangement designed to illustrate correlation\nbetween data sets. Type-Bound Procedures procedure, public :: draw => cp_draw procedure, public :: get => cp_get procedure, public :: get_column_count => cp_get_cols procedure, public :: get_command_string => cp_get_command procedure, public :: get_font_name => cp_get_font procedure, public :: get_font_size => cp_get_font_size procedure, public :: get_plot_count => cp_get_count procedure, public :: get_row_count => cp_get_rows procedure, public :: get_terminal => cp_get_term procedure, public :: initialize => cp_init procedure, public :: save_file => cp_save procedure, public :: set_font_name => cp_set_font procedure, public :: set_font_size => cp_set_font_size","tags":"","loc":"module\\fplot_stats_plots.html"},{"title":"fplot_wxt_terminal – FPLOT","text":"Uses fplot_terminal iso_fortran_env Derived Types type, public, extends( terminal ) :: wxt_terminal A WXT terminal. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => wxt_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_wxt_terminal.html"},{"title":"fplot_latex_terminal – FPLOT","text":"Uses strings fplot_terminal fplot_constants iso_fortran_env Derived Types type, public, extends( file_terminal ) :: latex_terminal A LATEX terminal. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => tex_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_latex_terminal.html"},{"title":"fplot_terminal – FPLOT","text":"Uses strings fplot_plot_object fplot_constants iso_fortran_env Interfaces interface public  function term_get_string_result(this) result(x) Retrieves a string from a terminal. Arguments Type Intent Optional Attributes Name class( terminal ), intent(in) :: this The terminal object. Return Value character(len=:), allocatable The string. Derived Types type, public, extends( terminal ) :: file_terminal Defines a terminal meant to save results directly to file \n(e.g. PNG, SVG, etc.). Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure( term_get_string_result ), public, deferred :: get_id_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width type, public, extends( plot_object ) :: terminal A GNUPLOT terminal object. Type-Bound Procedures procedure, public :: get_command_string => term_get_command_string procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure( term_get_string_result ), public, deferred :: get_id_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_terminal.html"},{"title":"fplot_plot_data_2d – FPLOT","text":"Uses strings fplot_plot_data fplot_errors fplot_simplify iso_fortran_env Derived Types type, public, extends( scatter_plot_data ) :: plot_data_2d Defines a two-dimensional plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pd2d_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name generic, public :: define_data => pd2d_set_data_1 , pd2d_set_data_2 procedure, public :: get_axes_string => pd2d_get_axes_cmd procedure, public :: get_color_data => pd2d_get_c_array procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => spd_get_cmd procedure, public :: get_count => pd2d_get_data_count procedure, public :: get_data_string => pd2d_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => pd2d_get_draw_against_y2 procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_fill_curve => spd_get_filled procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_name => pd_get_name procedure, public :: get_point_size_data => pd2d_get_ps_array procedure, public :: get_simplification_factor => spd_get_simplify_factor procedure, public :: get_simplify_data => spd_get_simplify_data procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size procedure, public :: get_x => pd2d_get_x_data procedure, public :: get_x_data => pd2d_get_x_array procedure, public :: get_y => pd2d_get_y_data procedure, public :: get_y_data => pd2d_get_y_array procedure, public :: pd2d_set_data_1 procedure, public :: pd2d_set_data_2 procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => pd2d_set_draw_against_y2 procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_fill_curve => spd_set_filled procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_name => pd_set_name procedure, public :: set_simplification_factor => spd_set_simplify_factor procedure, public :: set_simplify_data => spd_set_simplify_data procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size procedure, public :: set_x => pd2d_set_x_data procedure, public :: set_y => pd2d_set_y_data","tags":"","loc":"module\\fplot_plot_data_2d.html"},{"title":"fplot_plot_data_3d – FPLOT","text":"Uses strings fplot_plot_data fplot_errors fplot_simplify iso_fortran_env Derived Types type, public, extends( scatter_plot_data ) :: plot_data_3d Defines a three-dimensional plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pd3d_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pd3d_set_data_1 procedure, public :: get_axes_string => pd3d_get_axes_cmd procedure, public :: get_color_data => pd3d_get_c_array procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => spd_get_cmd procedure, public :: get_count => pd3d_get_data_count procedure, public :: get_data_string => pd3d_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure, public :: get_draw_line => lpd_get_draw_line procedure, public :: get_draw_markers => lpd_get_draw_markers procedure, public :: get_fill_curve => spd_get_filled procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_style => lpd_get_line_style procedure, public :: get_line_width => lpd_get_line_width procedure, public :: get_marker_frequency => lpd_get_marker_frequency procedure, public :: get_marker_scaling => lpd_get_marker_scaling procedure, public :: get_marker_style => lpd_get_marker_style procedure, public :: get_name => pd_get_name procedure, public :: get_point_size_data => pd3d_get_c_array procedure, public :: get_simplification_factor => spd_get_simplify_factor procedure, public :: get_simplify_data => spd_get_simplify_data procedure, public :: get_use_data_dependent_colors => spd_get_data_dependent_colors procedure, public :: get_use_variable_size_points => spd_get_use_var_point_size procedure, public :: get_x => pd3d_get_x_data procedure, public :: get_x_data => pd3d_get_x_array procedure, public :: get_y => pd3d_get_y_data procedure, public :: get_y_data => pd3d_get_y_array procedure, public :: get_z => pd3d_get_z_data procedure, public :: get_z_data => pd3d_get_z_array procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_impulses => lpd_set_draw_impulse_lines procedure, public :: set_draw_line => lpd_set_draw_line procedure, public :: set_draw_markers => lpd_set_draw_markers procedure, public :: set_fill_curve => spd_set_filled procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_style => lpd_set_line_style procedure, public :: set_line_width => lpd_set_line_width procedure, public :: set_marker_frequency => lpd_set_marker_frequency procedure, public :: set_marker_scaling => lpd_set_marker_scaling procedure, public :: set_marker_style => lpd_set_marker_style procedure, public :: set_name => pd_set_name procedure, public :: set_simplification_factor => spd_set_simplify_factor procedure, public :: set_simplify_data => spd_set_simplify_data procedure, public :: set_use_data_dependent_colors => spd_set_data_dependent_colors procedure, public :: set_use_variable_size_points => spd_set_use_var_point_size procedure, public :: set_x => pd3d_set_x_data procedure, public :: set_y => pd3d_set_y_data procedure, public :: set_z => pd3d_set_z_data","tags":"","loc":"module\\fplot_plot_data_3d.html"},{"title":"fplot_colors – FPLOT","text":"Uses iso_fortran_env Variables Type Visibility Attributes Name Initial type( color ), public, parameter :: CLR_BLACK = color(0, 0, 0, 0) Black. type( color ), public, parameter :: CLR_BLUE = color(0, 0, 255, 0) Blue. type( color ), public, parameter :: CLR_CYAN = color(0, 255, 255, 0) Cyan. type( color ), public, parameter :: CLR_GRAY = color(128, 128, 128, 0) Gray. type( color ), public, parameter :: CLR_GREEN = color(0, 128, 0, 0) Green. type( color ), public, parameter :: CLR_LIME = color(0, 255, 0, 0) Lime. type( color ), public, parameter :: CLR_MAGENTA = color(255, 0, 255, 0) Magenta. type( color ), public, parameter :: CLR_MAROON = color(128, 0, 0, 0) Maroon. type( color ), public, parameter :: CLR_NAVY = color(0, 0, 128, 0) Navy. type( color ), public, parameter :: CLR_OLIVE = color(128, 128, 0, 0) Olive. type( color ), public, parameter :: CLR_ORANGE = color(255, 165, 0, 0) Orange. type( color ), public, parameter :: CLR_PURPLE = color(128, 0, 128, 0) Purple. type( color ), public, parameter :: CLR_RED = color(255, 0, 0, 0) Red. type( color ), public, parameter :: CLR_SILVER = color(192, 192, 192, 0) Silver. type( color ), public, parameter :: CLR_TEAL = color(0, 128, 128, 0) Teal. type( color ), public, parameter :: CLR_WHITE = color(255, 255, 255, 0) White. type( color ), public, parameter :: CLR_YELLOW = color(255, 255, 0, 0) Yellow. type( color ), public, parameter,               dimension(7) :: color_list = [color(0, int(0.447*255), int(0.741*255), 0), color(int(0.85*255), int(0.325*255), int(0.098*255), 0), color(int(0.929*255), int(0.694*255), int(0.125*255), 0), color(int(0.494*255), int(0.184*255), int(0.556*255), 0), color(int(0.466*255), int(0.674*255), int(0.188*255), 0), color(int(0.301*255), int(0.745*255), int(0.933*255), 0), color(int(0.635*255), int(0.078*255), int(0.184*255), 0)] Interfaces public        interface operator(/=) private pure function clr_not_equals(x, y) result(rst) Arguments Type Intent Optional Attributes Name type( color ), intent(in) :: x type( color ), intent(in) :: y Return Value logical public        interface operator(==) private pure function clr_equals(x, y) result(rst) Arguments Type Intent Optional Attributes Name type( color ), intent(in) :: x type( color ), intent(in) :: y Return Value logical Derived Types type, public :: color Describes an RGB color. Components Type Visibility Attributes Name Initial integer(kind=int32), public :: alpha = 0 The alpha component of the color (must be between 0 and 255).\nNotice, 0 is fully opaque and 255 is fully transparent. integer(kind=int32), public :: blue = 255 The blue component of the color (must be between 0 and 255). integer(kind=int32), public :: green = 0 The green component of the color (must be between 0 and 255). integer(kind=int32), public :: red = 0 The red component of the color (must be between 0 and 255). Type-Bound Procedures procedure, public, pass :: copy_from => clr_copy_from procedure, public, pass :: rgb_to_hex_string => clr_rgb_to_hex_string procedure, public, pass :: to_hex_string => clr_to_hex_string","tags":"","loc":"module\\fplot_colors.html"},{"title":"fplot_plot_polar – FPLOT","text":"Uses fplot_plot strings fplot_plot_data fplot_colors fplot_plot_data_2d fplot_errors fplot_legend fplot_terminal fplot_constants iso_fortran_env Derived Types type, public, extends( plot ) :: plot_polar Finalizations Procedures final :: plr_clean_up Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_autoscale => plr_get_autoscale procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => plr_get_cmd procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_radial_limits => plr_get_limits procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_terminal => plt_get_term procedure, public :: get_theta_direction => plr_get_theta_direction procedure, public :: get_theta_start_position => plr_get_theta_start procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: initialize => plr_init procedure, public :: is_title_defined => plt_has_title procedure, public :: plr_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , plr_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_autoscale => plr_set_autoscale procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_radial_limits => plr_set_limits procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_theta_direction => plr_set_theta_direction procedure, public :: set_theta_start_position => plr_set_theta_start procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: show_legend => plt_show_legend","tags":"","loc":"module\\fplot_plot_polar.html"},{"title":"fplot_plot_bar – FPLOT","text":"Uses strings fplot_plot_2d iso_fortran_env Derived Types type, public, extends( plot_2d ) :: plot_bar Defines a 2D plot tailored towards bar plotting. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_bar_width => pb_get_bar_width procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => pb_get_cmd procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_jitter_overlap => p2d_get_jitter_overlap procedure, public :: get_jitter_spread => p2d_get_jitter_spread procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_spacing => pb_get_spacing procedure, public :: get_square_axes => p2d_get_square_axes procedure, public :: get_stacked => pb_get_stacked procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_use_jittering => p2d_get_use_jitter procedure, public :: get_use_y2_axis => p2d_get_use_y2 procedure, public :: get_x_axis => p2d_get_x_axis procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y2_axis => p2d_get_y2_axis procedure, public :: get_y_axis => p2d_get_y_axis procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: initialize => p2d_init procedure, public :: is_title_defined => plt_has_title procedure, public :: p2d_push_data procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data , p2d_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_bar_width => pb_set_bar_width procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_jitter_overlap => p2d_set_jitter_overlap procedure, public :: set_jitter_spread => p2d_set_jitter_spread procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_spacing => pb_set_spacing procedure, public :: set_square_axes => p2d_set_square_axes procedure, public :: set_stacked => pb_set_stacked procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_use_jittering => p2d_set_use_jitter procedure, public :: set_use_y2_axis => p2d_set_use_y2 procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_axis_title => p2d_set_x_axis_title procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y2_axis_title => p2d_set_y2_axis_title procedure, public :: set_y_axis_title => p2d_set_y_axis_title procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: show_legend => plt_show_legend","tags":"","loc":"module\\fplot_plot_bar.html"},{"title":"fplot_arrow – FPLOT","text":"Uses strings fplot_colors fplot_plot_object fplot_constants iso_fortran_env Derived Types type, public, extends( plot_object ) :: plot_arrow Defines an arrow that can be drawn on a plot. Type-Bound Procedures procedure, public :: get_color => par_get_color procedure, public :: get_command_string => par_get_cmd procedure, public :: get_head_angle => par_get_head_angle procedure, public :: get_head_back_angle => par_get_head_back_angle procedure, public :: get_head_fill => par_get_fill procedure, public :: get_head_location => par_get_head procedure, public :: get_head_size => par_get_head_size procedure, public :: get_head_type => par_get_head_type procedure, public :: get_is_visible => par_get_is_visible procedure, public :: get_line_style => par_get_line_style procedure, public :: get_line_width => par_get_line_width procedure, public :: get_move_to_front => par_get_move_to_front procedure, public :: get_tail_location => par_get_tail procedure, public :: get_use_default_size => par_get_use_default_size procedure, public :: set_color => par_set_color procedure, public :: set_head_angle => par_set_head_angle procedure, public :: set_head_back_angle => par_set_head_back_angle procedure, public :: set_head_fill => par_set_fill generic, public :: set_head_location => par_set_head_1, par_set_head_2, par_set_head_3 procedure, public :: set_head_size => par_set_head_size procedure, public :: set_head_type => par_set_head_type procedure, public :: set_is_visible => par_set_is_visible procedure, public :: set_line_style => par_set_line_style procedure, public :: set_line_width => par_set_line_width procedure, public :: set_move_to_front => par_set_move_to_front generic, public :: set_tail_location => par_set_tail_1, par_set_tail_2, par_set_tail_3 procedure, public :: set_use_default_size => par_set_use_default_size","tags":"","loc":"module\\fplot_arrow.html"},{"title":"fplot_png_terminal – FPLOT","text":"Uses strings fplot_terminal fplot_constants iso_fortran_env Derived Types type, public, extends( file_terminal ) :: png_terminal Defines a terminal used for producing PNG outputs. Type-Bound Procedures procedure, public :: get_command_string => fterm_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => png_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_png_terminal.html"},{"title":"fplot_colormap – FPLOT","text":"Uses strings forcolormap fplot_colors fplot_plot_object fplot_errors iso_fortran_env Interfaces interface public  function cm_get_string_result(this) result(x) Retrieves a string result from a colormap object. Arguments Type Intent Optional Attributes Name class( colormap ), intent(in) :: this The colormap object. Return Value character(len=:), allocatable The string. Derived Types type, public, extends( plot_object ) :: colormap A colormap object for a surface plot. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure( cm_get_string_result ), public, deferred :: get_color_string procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: cool_colormap Defines a colormap consisting of \"cool\" colors. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure, public :: get_color_string => ccm_get_clr procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: custom_colormap Defines a custom colormap that utilizes the FORCOLORMAP library\nto provide the map. Finalizations Procedures final :: custom_final Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure, public :: get_color_string => custom_get_clr procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_colormap => custom_get procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_colormap => custom_set procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: earth_colormap Defines an earthy-colored colormap. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure, public :: get_color_string => ecm_get_clr procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: grey_colormap Defines a grey-scaled colormap. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure, public :: get_color_string => gcm_get_clr procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: hot_colormap Defines a colormap consisting of \"hot\" colors. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure, public :: get_color_string => hcm_get_clr procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: parula_colormap Defines a colormap equivalent to the MATLAB parula colormap. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure, public :: get_color_string => pcm_get_clr procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: rainbow_colormap Defines a rainbow colormap. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure, public :: get_color_string => rcm_get_clr procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics type, public, extends( colormap ) :: spectral_colormap Defines the spectral colormap available at \nhttps://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal. Type-Bound Procedures procedure, public :: get_axes_origin => cm_get_axes_origin procedure, public :: get_axes_size => cm_get_axes_size procedure, public :: get_color_string => spcm_get_clr procedure, public :: get_colorbar_length => cm_get_colorbar_length procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure, public :: get_command_string => cm_get_cmd procedure, public :: get_draw_border => cm_get_draw_border procedure, public :: get_horizontal => cm_get_horizontal procedure, public :: get_label => cm_get_label procedure, public :: get_show_tics => cm_get_show_tics procedure, public :: set_axes_origin => cm_set_axes_origin procedure, public :: set_axes_size => cm_set_axes_size procedure, public :: set_colorbar_length => cm_set_colorbar_length procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure, public :: set_draw_border => cm_set_draw_border procedure, public :: set_horizontal => cm_set_horizontal procedure, public :: set_label => cm_set_label procedure, public :: set_show_tics => cm_set_show_tics","tags":"","loc":"module\\fplot_colormap.html"},{"title":"fplot_filled_plot_data – FPLOT","text":"Uses strings fplot_colors fplot_errors fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot_data_colored ) :: filled_plot_data Defines a two-dimensional filled plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => fpd_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => fpd_define_data procedure, public :: get_axes_string => fpd_get_axes_cmd procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => fpd_get_cmd procedure, public :: get_data_string => fpd_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => fpd_get_draw_against_y2 procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_name => pd_get_name procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => fpd_set_draw_against_y2 procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name","tags":"","loc":"module\\fplot_filled_plot_data.html"},{"title":"fplot_pdf_terminal – FPLOT","text":"Uses strings fplot_terminal iso_fortran_env Derived Types type, public, extends( file_terminal ) :: pdf_terminal Defines a terminal used for producing PDF outputs. Type-Bound Procedures procedure, public :: get_command_string => pdf_get_command_string procedure, public :: get_filename => fterm_get_filename procedure, public :: get_font_name => term_get_font_name procedure, public :: get_font_size => term_get_font_size procedure, public :: get_id_string => pdf_get_term_string procedure, public :: get_plot_window_number => term_get_plot_window_number procedure, public :: get_resolution => pdf_get_resolution procedure, public :: get_title => term_get_title procedure, public :: get_window_height => term_get_window_height procedure, public :: get_window_width => term_get_window_width procedure, public :: set_filename => fterm_set_filename procedure, public :: set_font_name => term_set_font_name procedure, public :: set_font_size => term_set_font_size procedure, public :: set_plot_window_number => term_set_plot_window_number procedure, public :: set_resolution => pdf_set_resolution procedure, public :: set_title => term_set_title procedure, public :: set_window_height => term_set_window_height procedure, public :: set_window_width => term_set_window_width","tags":"","loc":"module\\fplot_pdf_terminal.html"},{"title":"fplot_plot_data_bar – FPLOT","text":"Uses strings fplot_colors fplot_errors fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot_data_colored ) :: plot_data_bar Defines a data set tailored to bar charts. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdb_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name generic, public :: define_data => pdb_set_data_1, pdb_set_data_2, pdb_set_data_3, pdb_set_data_4, pdb_set_data_5, pdb_set_data_6 procedure, public :: get => pdb_get_data procedure, public :: get_axes_string => pdb_get_axes_cmd procedure, public :: get_bar_color => pdb_get_bar_color procedure, public :: get_bar_per_label_count => pdb_get_col_count procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdb_get_cmd procedure, public :: get_count => pdb_get_count procedure, public :: get_data => pdb_get_data_set procedure, public :: get_data_string => pdb_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => pdb_get_use_y2 procedure, public :: get_is_filled => pdb_get_is_filled procedure, public :: get_label => pdb_get_label procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_name => pd_get_name procedure, public :: get_series_name => pdb_get_series_name procedure, public :: get_transparency => pdb_get_alpha procedure, public :: get_use_labels => pdb_get_use_labels procedure, public :: set => pdb_set_data procedure, public :: set_bar_color => pdb_set_bar_color procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_data_1 => pdb_set_data_1_core procedure, public :: set_data_2 => pdb_set_data_2_core procedure, public :: set_data_3 => pdb_set_data_3_core procedure, public :: set_data_4 => pdb_set_data_4_core procedure, public :: set_data_5 => pdb_set_data_5_core procedure, public :: set_data_6 => pdb_set_data_6_core procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => pdb_set_use_y2 procedure, public :: set_is_filled => pdb_set_is_filled procedure, public :: set_label => pdb_set_label procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name procedure, public :: set_series_name => pdb_set_series_name procedure, public :: set_transparency => pdb_set_alpha procedure, public :: set_use_labels => pdb_set_use_labels","tags":"","loc":"module\\fplot_plot_data_bar.html"},{"title":"fplot_label – FPLOT","text":"Uses strings fplot_plot_object fplot_constants iso_fortran_env Derived Types type, public, extends( plot_object ) :: plot_label Defines a plot label. Type-Bound Procedures procedure, public :: get_angle => lbl_get_angle procedure, public :: get_command_string => lbl_get_cmd procedure, public :: get_is_visible => lbl_get_is_visible procedure, public :: get_position => lbl_get_position procedure, public :: get_text => lbl_get_txt procedure, public :: set_angle => lbl_set_angle procedure, public :: set_is_visible => lbl_set_is_visible procedure, public :: set_position => lbl_set_position procedure, public :: set_text => lbl_set_txt","tags":"","loc":"module\\fplot_label.html"},{"title":"fplot_plot_data_histogram – FPLOT","text":"Uses strings fplot_colors fplot_errors fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot_data_colored ) :: plot_data_histogram A container for plotting data in the form of a histogram. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pdh_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => pdh_define_data procedure, public :: get => pdh_get_bin_data procedure, public :: get_axes_string => pdh_get_axes_cmd procedure, public :: get_bin_count => pdh_get_bin_count procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pdh_get_cmd procedure, public :: get_data_string => pdh_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_draw_against_y2 => pdh_get_use_y2 procedure, public :: get_is_filled => pdh_get_is_filled procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_maximum_value => pdh_get_max_x procedure, public :: get_minimum_value => pdh_get_min_x procedure, public :: get_name => pd_get_name procedure, public :: set_bin_count => pdh_set_bin_count procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_draw_against_y2 => pdh_set_use_y2 procedure, public :: set_is_filled => pdh_set_is_filled procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_name => pd_set_name","tags":"","loc":"module\\fplot_plot_data_histogram.html"},{"title":"fplot_plot – FPLOT","text":"Uses fplot_arrow fplot_windows_terminal fplot_qt_terminal fplot_svg_terminal fplot_errors fplot_constants strings fplot_label fplot_wxt_terminal fplot_png_terminal collections fplot_colormap fplot_plot_data_function fplot_latex_terminal fplot_colors fplot_plot_object fplot_terminal fplot_pdf_terminal iso_fortran_env fplot_legend fplot_plot_data Derived Types type, public, extends( plot_object ) :: plot Defines the basic GNUPLOT plot. Type-Bound Procedures procedure, public :: clear_all => plt_clear_all procedure, public :: clear_all_labels => plt_clear_labels procedure, public :: clear_arrows => plt_clear_arrows procedure, public :: draw => plt_draw procedure, public :: free_resources => plt_clean_up procedure, public :: get => plt_get procedure, public :: get_arrow => plt_get_arrow procedure, public :: get_arrow_count => plt_get_arrow_count procedure, public :: get_axis_equal => plt_get_axis_equal procedure, public :: get_border_line_width => plt_get_border_line_width procedure, public :: get_bottom_margin => plt_get_bottom_margin procedure, public :: get_colormap => plt_get_colormap procedure, public :: get_command_string => plt_get_cmd procedure, public :: get_count => plt_get_count procedure, public :: get_draw_border => plt_get_draw_border procedure, public :: get_font_name => plt_get_font procedure, public :: get_font_size => plt_get_font_size procedure, public :: get_label => plt_get_label procedure, public :: get_label_count => plt_get_label_count procedure, public :: get_left_margin => plt_get_left_margin procedure, public :: get_legend => plt_get_legend procedure, public :: get_right_margin => plt_get_right_margin procedure, public :: get_show_colorbar => plt_get_show_colorbar procedure, public :: get_show_gridlines => plt_get_show_grid procedure, public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure, public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure, public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure, public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure, public :: get_terminal => plt_get_term procedure, public :: get_tics_inward => plt_get_tics_in procedure, public :: get_title => plt_get_title procedure, public :: get_top_margin => plt_get_top_margin procedure, public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure, public :: get_x_major_grid_line_style => plt_get_x_major_grid_line_style procedure, public :: get_x_major_grid_line_width => plt_get_x_major_grid_line_width procedure, public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure, public :: get_x_minor_grid_line_style => plt_get_x_minor_grid_line_style procedure, public :: get_x_minor_grid_line_width => plt_get_x_minor_grid_line_width procedure, public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure, public :: get_y_major_grid_line_style => plt_get_y_major_grid_line_style procedure, public :: get_y_major_grid_line_width => plt_get_y_major_grid_line_width procedure, public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure, public :: get_y_minor_grid_line_style => plt_get_y_minor_grid_line_style procedure, public :: get_y_minor_grid_line_width => plt_get_y_minor_grid_line_width procedure, public :: initialize => plt_init procedure, public :: is_title_defined => plt_has_title procedure, public :: plt_push_data procedure, public :: pop => plt_pop_data procedure, public :: pop_arrow => plt_pop_arrow procedure, public :: pop_label => plt_pop_label generic, public :: push => plt_push_data procedure, public :: push_arrow => plt_push_arrow procedure, public :: push_label => plt_push_label procedure, public :: save_file => plt_save procedure, public :: set => plt_set procedure, public :: set_arrow => plt_set_arrow procedure, public :: set_axis_equal => plt_set_axis_equal procedure, public :: set_border_line_width => plt_set_border_line_width procedure, public :: set_bottom_margin => plt_set_bottom_margin procedure, public :: set_colormap => plt_set_colormap procedure, public :: set_draw_border => plt_set_draw_border procedure, public :: set_font_name => plt_set_font procedure, public :: set_font_size => plt_set_font_size procedure, public :: set_label => plt_set_label procedure, public :: set_left_margin => plt_set_left_margin procedure, public :: set_right_margin => plt_set_right_margin procedure, public :: set_show_colorbar => plt_set_show_colorbar procedure, public :: set_show_gridlines => plt_set_show_grid procedure, public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure, public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure, public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure, public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure, public :: set_tics_inward => plt_set_tics_in procedure, public :: set_title => plt_set_title procedure, public :: set_top_margin => plt_set_top_margin procedure, public :: set_window_size => plt_set_window_size procedure, public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure, public :: set_x_major_grid_line_style => plt_set_x_major_grid_line_style procedure, public :: set_x_major_grid_line_width => plt_set_x_major_grid_line_width procedure, public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure, public :: set_x_minor_grid_line_style => plt_set_x_minor_grid_line_style procedure, public :: set_x_minor_grid_line_width => plt_set_x_minor_grid_line_width procedure, public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure, public :: set_y_major_grid_line_style => plt_set_y_major_grid_line_style procedure, public :: set_y_major_grid_line_width => plt_set_y_major_grid_line_width procedure, public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure, public :: set_y_minor_grid_line_style => plt_set_y_minor_grid_line_style procedure, public :: set_y_minor_grid_line_width => plt_set_y_minor_grid_line_width procedure, public :: show_legend => plt_show_legend Functions public pure function is_plot_data_function (x) result(rst) Tests to see if the supplied plot_data object is a plot_data_function based type. Arguments Type Intent Optional Attributes Name class( plot_data ), intent(in) :: x The plot_data object. Return Value logical True if x is a plot_data_function based type.","tags":"","loc":"module\\fplot_plot.html"},{"title":"fplot_surface_plot_data – FPLOT","text":"Uses fplot_errors strings fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot_data ) :: surface_plot_data Provides a three-dimensional surface plot data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => surfd_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name procedure, public :: define_data => surfd_set_data_1 procedure, public :: get_command_string => surfd_get_cmd procedure, public :: get_data_string => surfd_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_name => pd_get_name procedure, public :: get_size => surfd_get_size procedure, public :: get_use_wireframe => surfd_get_wireframe procedure, public :: get_x => surfd_get_x procedure, public :: get_y => surfd_get_y procedure, public :: get_z => surfd_get_z procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_name => pd_set_name procedure, public :: set_use_wireframe => surfd_set_wireframe procedure, public :: set_x => surfd_set_x procedure, public :: set_y => surfd_set_y procedure, public :: set_z => surfd_set_z","tags":"","loc":"module\\fplot_surface_plot_data.html"},{"title":"fplot_plot_data_error_bars – FPLOT","text":"Uses strings fplot_colors fplot_errors fplot_plot_data iso_fortran_env Derived Types type, public, extends( plot_data_colored ) :: plot_data_error_bars Defines a 2D error-bar based data set. Type-Bound Procedures procedure, public :: clear_all => pd_clear procedure, public :: clear_data => pde_clear_data procedure, public :: create_unique_datablock_name => pd_create_unique_datablock_name generic, public :: define_x_error_data => pde_define_x_err , pde_define_x_err_lim generic, public :: define_xy_error_data => pde_define_xy_err , pde_define_xy_err_lim generic, public :: define_y_error_data => pde_define_y_err , pde_define_y_err_lim procedure, public :: get_color_index => pdc_get_color_index procedure, public :: get_command_string => pde_get_cmd procedure, public :: get_count => pde_get_count procedure, public :: get_data_string => pde_get_data_cmd procedure, public :: get_datablock_name => pd_get_datablock_name procedure, public :: get_line_color => pdc_get_line_color procedure, public :: get_line_width => pde_get_line_width procedure, public :: get_name => pd_get_name procedure, public :: get_plot_x_error_bars => pde_get_plot_x_err procedure, public :: get_plot_y_error_bars => pde_get_plot_y_err procedure, public :: get_use_error_box => pde_get_box procedure, public :: get_use_range => pde_get_use_range procedure, public :: pde_define_x_err procedure, public :: pde_define_x_err_lim procedure, public :: pde_define_xy_err procedure, public :: pde_define_xy_err_lim procedure, public :: pde_define_y_err procedure, public :: pde_define_y_err_lim procedure, public :: set_color_index => pdc_set_color_index procedure, public :: set_datablock_name => pd_set_datablock_name procedure, public :: set_line_color => pdc_set_line_color procedure, public :: set_line_width => pde_set_line_width procedure, public :: set_name => pd_set_name procedure, public :: set_use_error_box => pde_set_box","tags":"","loc":"module\\fplot_plot_data_error_bars.html"},{"title":"fplot_constants.f90 – FPLOT","text":"Source Code module fplot_constants use iso_fortran_env implicit none ! ****************************************************************************** ! GNUPLOT TERMINAL CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: GNUPLOT_TERMINAL_WIN32 = 1 !! Defines a Win32 terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_WXT = 2 !! Defines a WXT terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_QT = 3 !! Defines a QT terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_PNG = 4 !! Defines a PNG terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_LATEX = 5 !! Defines a LATEX terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_SVG = 6 !! Defines an SVG terminal. integer ( int32 ), parameter :: GNUPLOT_TERMINAL_PDF = 7 !! Defines a PDF terminal. ! ****************************************************************************** ! MARKER CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: MARKER_PLUS = 1 !! Defines a + data point marker. integer ( int32 ), parameter :: MARKER_X = 2 !! Defines an x data point marker. integer ( int32 ), parameter :: MARKER_ASTERISK = 3 !! Defines an * data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_SQUARE = 4 !! Defines an empty square-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_SQUARE = 5 !! Defines an filled square-shaped data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_CIRCLE = 6 !! Defines an empty circle-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_CIRCLE = 7 !! Defines an filled circle-shaped data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_TRIANGLE = 8 !! Defines an empty triangle-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_TRIANGLE = 9 !! Defines an filled triangle-shaped data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_NABLA = 10 !! Defines an empty nabla-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_NABLA = 11 !! Defines an filled nabla-shaped data point marker. integer ( int32 ), parameter :: MARKER_EMPTY_RHOMBUS = 12 !! Defines an empty rhombus-shaped data point marker. integer ( int32 ), parameter :: MARKER_FILLED_RHOMBUS = 13 !! Defines an filled rhombus-shaped data point marker. ! ****************************************************************************** ! LINE CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: LINE_SOLID = 1 !! Defines a solid line. integer ( int32 ), parameter :: LINE_DASHED = 2 !! Defines a dashed line. integer ( int32 ), parameter :: LINE_DOTTED = 3 !! Defines a dotted line. integer ( int32 ), parameter :: LINE_DASH_DOTTED = 4 !! Defines a dash-dotted line. integer ( int32 ), parameter :: LINE_DASH_DOT_DOT = 5 !! Defines a dash-dot-dotted line. ! ****************************************************************************** ! LEGEND CONSTANTS ! ------------------------------------------------------------------------------ character ( len = * ), parameter :: LEGEND_TOP = \"top\" !! Defines the legend should be placed at the top of the plot. character ( len = * ), parameter :: LEGEND_CENTER = \"center\" !! Defines the legend should be centered on the plot. character ( len = * ), parameter :: LEGEND_LEFT = \"left\" !! Defines the legend should be placed at the left of the plot. character ( len = * ), parameter :: LEGEND_RIGHT = \"right\" !! Defines the legend should be placed at the right of the plot. character ( len = * ), parameter :: LEGEND_BOTTOM = \"bottom\" !! Defines the legend should be placed at the bottom of the plot. character ( len = * ), parameter :: LEGEND_ARRANGE_VERTICALLY = \"vertical\" !! Defines the legend should be arranged such that the column count !! is minimized. character ( len = * ), parameter :: LEGEND_ARRANGE_HORIZONTALLY = \"horizontal\" !! Defines the legend should be arranged such that the row count !! is minimized. ! ****************************************************************************** ! POLAR PLOT CONSTANTS ! ------------------------------------------------------------------------------ character ( len = * ), parameter :: POLAR_THETA_TOP = \"top\" !! States that theta should start at the top of the plot. character ( len = * ), parameter :: POLAR_THETA_RIGHT = \"right\" !! States that theta should start at the right of the plot. character ( len = * ), parameter :: POLAR_THETA_BOTTOM = \"bottom\" !! States that theta should start at the bottom of the plot. character ( len = * ), parameter :: POLAR_THETA_LEFT = \"left\" !! States that theta should start at the left of the plot. character ( len = * ), parameter :: POLAR_THETA_CCW = \"ccw\" !! States that theta should proceed in a counter-clockwise direction. character ( len = * ), parameter :: POLAR_THETA_CW = \"cw\" !! States that theta should proceed in a clockwise direction. ! ****************************************************************************** ! COORDINATE SYSTEM CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: COORDINATES_CARTESIAN = 100 !! Defines a Cartesian coordinate system. integer ( int32 ), parameter :: COORDINATES_SPHERICAL = 101 !! Defines a spherical coordinate system. integer ( int32 ), parameter :: COORDINATES_CYLINDRICAL = 102 !! Defines a cylindrical coordinate system. ! ****************************************************************************** ! ARROW CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: ARROW_NO_HEAD = 0 !! Defines an arrow with no head. integer ( int32 ), parameter :: ARROW_HEAD = 1 !! Defines an arrow with a traditional head. integer ( int32 ), parameter :: ARROW_BACKHEAD = 2 !! Defines an arrow with it's head at it's back end (tail). integer ( int32 ), parameter :: ARROW_HEADS = 3 !! Defines an arrow with a head on both ends. integer ( int32 ), parameter :: ARROW_FILLED = 100 !! Defines a filled arrow head. integer ( int32 ), parameter :: ARROW_EMPTY = 101 !! Defines an empty arrow head. integer ( int32 ), parameter :: ARROW_NO_FILL = 102 !! Defines an arrow head without fill. integer ( int32 ), parameter :: ARROW_NO_BORDER = 103 !! Defines an arrow head with no border. ! ****************************************************************************** ! PLOT DATA CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: PLOTDATA_MAX_NAME_LENGTH = 128 !! Defines the maximum number of characters allowed in a graph label. ! ****************************************************************************** ! PRIVATE/DEFAULT CONSTANTS ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: GNUPLOT_DEFAULT_WINDOW_WIDTH = 640 !! The default GNUPLOT window width, in pixels. integer ( int32 ), parameter :: GNUPLOT_DEFAULT_WINDOW_HEIGHT = 420 !! The default GNUPLOT window height, in pixels. integer ( int32 ), parameter :: GNUPLOT_MAX_LABEL_LENGTH = 128 !! Defines the maximum number of characters allowed in a graph label. character ( len = * ), parameter :: GNUPLOT_DEFAULT_FONTNAME = \"Arial\" !! Defines the default font used by text on the graph. integer ( int32 ), parameter :: GNUPLOT_DEFAULT_FONT_SIZE = 14 !! Defines the default font size used by text on the graph. integer ( int32 ), parameter :: GNUPLOT_MAX_PATH_LENGTH = 256 !! Defines the maximum number of characters allowed in a file path. ! ****************************************************************************** ! HORIZONTAL ALIGNMENT CONSTANTS ! ------------------------------------------------------------------------------ character ( len = * ), parameter :: GNUPLOT_HORIZONTAL_ALIGN_LEFT = \"left\" !! Defines the text should be aligned to the left. character ( len = * ), parameter :: GNUPLOT_HORIZONTAL_ALIGN_CENTER = \"center\" !! Defines the text should be centered. character ( len = * ), parameter :: GNUPLOT_HORIZONTAL_ALIGN_RIGHT = \"right\" !! Defines the text should be aligned to the right. ! ****************************************************************************** ! ROTATION ORIGIN CONSTANTS ! ------------------------------------------------------------------------------ character ( len = * ), parameter :: GNUPLOT_ROTATION_ORIGIN_RIGHT = \"right\" !! Defines the text should be rotated around the right side of the text. character ( len = * ), parameter :: GNUPLOT_ROTATION_ORIGIN_CENTER = \"center\" !! Defines the text should be rotated around the center of the text. character ( len = * ), parameter :: GNUPLOT_ROTATION_ORIGIN_LEFT = \"left\" !! Defines the text should be rotated around the left side of the text. end module","tags":"","loc":"sourcefile\\fplot_constants.f90.html"},{"title":"fplot_tri_surface_plot_data.f90 – FPLOT","text":"Source Code ! fplot_tri_surface_plot_data.f90 module fplot_tri_surface_plot_data use iso_fortran_env use fplot_plot_data use fplot_delaunay_tri_surface use strings implicit none private public :: tri_surface_plot_data type , extends ( plot_data ) :: tri_surface_plot_data !! Provides a three-dimensional surface plot data set constructed of !! triangulated points. real ( real64 ), private , allocatable , dimension (:) :: m_x !! An array of the x-coordinates of each point. real ( real64 ), private , allocatable , dimension (:) :: m_y !! An array of the y-coordinates of each point. real ( real64 ), private , allocatable , dimension (:) :: m_z !! An array of the z-coordinates of each point. integer ( int32 ), private , allocatable , dimension (:,:) :: m_indices !! A 3-column matrix containing the indices of each triangle's !! vertex. logical , private :: m_wireframe = . true . !! Determines if the surface should be drawn as a wireframe. contains procedure , public :: get_data_string => tspd_get_data_cmd procedure , public :: get_command_string => tspd_get_cmd procedure , public :: get_use_wireframe => tspd_get_wireframe procedure , public :: set_use_wireframe => tspd_set_wireframe procedure , public :: define_data => tspd_define_data procedure , public :: clear_data => tspd_clear_data end type contains ! ------------------------------------------------------------------------------ function tspd_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for representing the data. class ( tri_surface_plot_data ), intent ( in ) :: this !! The tri_surface_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , n character :: delimiter , nl ! Initialization call str % initialize () n = size ( this % m_indices , 1 ) delimiter = achar ( 9 ) nl = new_line ( nl ) if (. not . allocated ( this % m_x ) . or . & . not . allocated ( this % m_y ) . or . & . not . allocated ( this % m_z ) . or . & . not . allocated ( this % m_indices ) & ) & then x = \"\" return end if ! Process ! https://stackoverflow.com/questions/42784369/drawing-triangular-mesh-using-gnuplot ! http://www.gnuplot.info/faq/faq.html#x1-530005.10 do i = 1 , n ! Line 1-2 ! Vertex 1 j = this % m_indices ( i , 1 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Vertex 2 j = this % m_indices ( i , 2 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Line 2-3 ! Vertex 2 call str % append ( nl ) j = this % m_indices ( i , 2 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Vertex 3 j = this % m_indices ( i , 3 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Line 3-1 ! Vertex 3 call str % append ( nl ) j = this % m_indices ( i , 3 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Vertex 1 j = this % m_indices ( i , 1 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_z ( j ))) call str % append ( nl ) ! Add in the two blank lines if ( i /= n ) then call str % append ( nl ) call str % append ( nl ) end if end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function tspd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for the object. class ( tri_surface_plot_data ), intent ( in ) :: this !! The tri_surface_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! PM3D or wireframe? if ( this % get_use_wireframe ()) then call str % append ( \" with lines\" ) else call str % append ( \" with pm3d\" ) end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function tspd_get_wireframe ( this ) result ( rst ) !! Gets a value determining if a wireframe mesh should be displayed. class ( tri_surface_plot_data ), intent ( in ) :: this !! The tri_surface_plot_data object. logical :: rst !! Returns true if the plot is to be drawn as a wireframe; else, !! false to draw as a surface. rst = this % m_wireframe end function ! ------------------------------------------------------------------------------ subroutine tspd_set_wireframe ( this , x ) !! Sets a value determining if a wireframe mesh should be displayed. class ( tri_surface_plot_data ), intent ( inout ) :: this !! The tri_surface_plot_data object. logical , intent ( in ) :: x !! Set to true if the plot is to be drawn as a wireframe; else, !! false to draw as a surface. this % m_wireframe = x end subroutine ! ------------------------------------------------------------------------------ subroutine tspd_define_data ( this , tri ) !! Defines the data to plot. class ( tri_surface_plot_data ), intent ( inout ) :: this !! The tri_surface_plot_data object. class ( delaunay_tri_surface ), intent ( in ) :: tri !! The triangulation to plot. ! Process if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_z )) deallocate ( this % m_z ) if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if this % m_x = tri % get_points_x () this % m_y = tri % get_points_y () this % m_z = tri % get_points_z () this % m_indices = tri % get_indices () end subroutine ! ------------------------------------------------------------------------------ subroutine tspd_clear_data ( this ) !! Clears the data from the data set. class ( tri_surface_plot_data ), intent ( inout ) :: this !! The tri_surface_plot_data object. if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_z )) deallocate ( this % m_z ) if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_tri_surface_plot_data.f90.html"},{"title":"fplot_legend.f90 – FPLOT","text":"Source Code ! fplot_legend.f90 module fplot_legend use iso_fortran_env use fplot_plot_object use fplot_constants use strings implicit none private public :: legend type , extends ( plot_object ) :: legend !! Defines a legend object. logical , private :: m_inside = . true . !! Inside or outside the axes? logical , private :: m_box = . true . !! Box around? character ( len = 20 ), private :: m_horzPosition = LEGEND_RIGHT !! Horizontal position. character ( len = 20 ), private :: m_vertPosition = LEGEND_TOP !! Verical position. logical , private :: m_show = . false . !! Is visible? character ( len = 20 ), private :: m_layout = LEGEND_ARRANGE_VERTICALLY !! Determines the legend layout. logical , private :: m_opaque = . true . !! Opaque background? contains procedure , public :: get_draw_inside_axes => leg_get_inside procedure , public :: set_draw_inside_axes => leg_set_inside procedure , public :: get_draw_border => leg_get_box procedure , public :: set_draw_border => leg_set_box procedure , public :: get_horizontal_position => leg_get_horz_pos procedure , public :: set_horizontal_position => leg_set_horz_pos procedure , public :: get_vertical_position => leg_get_vert_pos procedure , public :: set_vertical_position => leg_set_vert_pos procedure , public :: get_is_visible => leg_get_visible procedure , public :: set_is_visible => leg_set_visible procedure , public :: get_command_string => leg_get_command_txt procedure , public :: get_layout => leg_get_layout procedure , public :: set_layout => leg_set_layout procedure , public :: get_is_opaque => leg_get_opaque procedure , public :: set_is_opaque => leg_set_opaque end type contains ! ------------------------------------------------------------------------------ pure function leg_get_inside ( this ) result ( x ) !! Gets a value determining if the legend should be drawn inside !! or outside the axes border. class ( legend ), intent ( in ) :: this !! The legend object. logical :: x !! True to draw inside the axes border; else, false for outside. x = this % m_inside end function ! --------------------- subroutine leg_set_inside ( this , x ) !! Sets a value determining if the legend should be drawn inside !! or outside the axes border. class ( legend ), intent ( inout ) :: this !! The legend object. logical , intent ( in ) :: x !! True to draw inside the axes border; else, false for outside. this % m_inside = x end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_box ( this ) result ( x ) !! Gets a value determining if the legend should have a border. class ( legend ), intent ( in ) :: this !! The legend object. logical :: x !! True if the legend should have a border; else, false. x = this % m_box end function ! --------------------- subroutine leg_set_box ( this , x ) !! Sets a value determining if the legend should have a border. class ( legend ), intent ( inout ) :: this !! The legend object. logical , intent ( in ) :: x !! True if the legend should have a border; else, false. this % m_box = x end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_horz_pos ( this ) result ( x ) !! Gets the horizontal position of the legend. class ( legend ), intent ( in ) :: this !! The legend object. character ( len = :), allocatable :: x !! The horizontal position of the legend (LEGEND_LEFT, !! LEGEND_CENTER, or LEGEND_RIGHT). integer ( int32 ) :: n n = len_trim ( this % m_horzPosition ) allocate ( character ( len = n ) :: x ) x = trim ( this % m_horzPosition ) end function ! --------------------- subroutine leg_set_horz_pos ( this , x ) !! Sets the horizontal position of the legend. class ( legend ), intent ( inout ) :: this !! The legend object. character ( len = * ), intent ( in ) :: x !! The horizontal position of the legend.  The parameter must be !! set to one of the following: LEGEND_LEFT, LEGEND_CENTER, or !! LEGEND_RIGHT.  If not, the default LEGEND_RIGHT will be used. this % m_horzPosition = x if ( x /= LEGEND_LEFT . and . x /= LEGEND_RIGHT . and . x /= LEGEND_CENTER ) & this % m_horzPosition = LEGEND_RIGHT end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_vert_pos ( this ) result ( x ) !! Gets the vertical position of the legend. class ( legend ), intent ( in ) :: this !! The legend object. character ( len = :), allocatable :: x !! The vertical position of the legend (LEGEND_TOP, !! LEGEND_CENTER, or LEGEND_BOTTOM). integer ( int32 ) :: n n = len_trim ( this % m_vertPosition ) allocate ( character ( len = n ) :: x ) x = trim ( this % m_vertPosition ) end function ! --------------------- subroutine leg_set_vert_pos ( this , x ) !! Sets the vertical position of the legend. class ( legend ), intent ( inout ) :: this !! The legend object. character ( len = * ), intent ( in ) :: x !! The vertical position of the legend.  The parameter must be !! set to one of the following: LEGEND_TOP, LEGEND_CENTER, or !! LEGEND_BOTTOM.  If not, the default LEGEND_TOP will be used. this % m_vertPosition = x if ( x /= LEGEND_TOP . and . x /= LEGEND_CENTER . and . x /= LEGEND_BOTTOM ) & this % m_vertPosition = LEGEND_TOP end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_visible ( this ) result ( x ) !! Gets a value determining if the legend is visible. class ( legend ), intent ( in ) :: this !! The legend object. logical :: x !! True if the legend is visible; else, false. x = this % m_show end function ! --------------------- subroutine leg_set_visible ( this , x ) !! Sets a value determining if the legend is visible. class ( legend ), intent ( inout ) :: this !! The legend object. logical , intent ( in ) :: x !! True if the legend is visible; else, false. this % m_show = x end subroutine ! ------------------------------------------------------------------------------ function leg_get_command_txt ( this ) result ( txt ) !! Gets the command string defining the legend properties. class ( legend ), intent ( in ) :: this !! The legend object. character ( len = :), allocatable :: txt !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str ! Process call str % initialize () ! Visible? if (. not . this % get_is_visible ()) then txt = \"set key off\" return end if ! Inside vs Outside & Position if ( this % get_draw_inside_axes ()) then call str % append ( \"set key inside\" ) else call str % append ( \"set key outside\" ) end if call str % append ( \" \" ) call str % append ( this % get_vertical_position ()) call str % append ( \" \" ) call str % append ( this % get_horizontal_position ()) ! Border call str % append ( new_line ( 'a' )) if ( this % get_draw_border ()) then ! call str%append(\"set key box opaque\") call str % append ( \"set key box\" ) else call str % append ( \"set key nobox\" ) end if ! Layout call str % append ( new_line ( 'a' )) call str % append ( \"set key \" ) call str % append ( this % get_layout ()) ! Opaque call str % append ( new_line ( 'a' )) call str % append ( \"set key \" ) if ( this % get_is_opaque ()) then call str % append ( \"opaque\" ) else call str % append ( \"noopaque\" ) end if ! End txt = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function leg_get_layout ( this ) result ( rst ) !! Gets the layout of the legend. class ( legend ), intent ( in ) :: this !! The legend object. character ( len = :), allocatable :: rst !! The layout type, either LEGEND_ARRANGE_VERTICALLY or !! LEGEND_ARRANGE_HORIZONTALLY. rst = trim ( this % m_layout ) end function ! --------------------- subroutine leg_set_layout ( this , x ) !! Sets the layout of the legend. class ( legend ), intent ( inout ) :: this !! The legend object. character ( len = * ), intent ( in ) :: x !! The layout type, either LEGEND_ARRANGE_VERTICALLY or !! LEGEND_ARRANGE_HORIZONTALLY. if ( x == LEGEND_ARRANGE_HORIZONTALLY . or . & x == LEGEND_ARRANGE_VERTICALLY ) & then this % m_layout = x end if end subroutine ! ------------------------------------------------------------------------------ pure function leg_get_opaque ( this ) result ( rst ) !! Gets a value determining if the legend is to be opaque. class ( legend ), intent ( in ) :: this !! The legend object. logical :: rst !! True if the legend is to be opaque; else, false. rst = this % m_opaque end function ! --------------------- subroutine leg_set_opaque ( this , x ) !! Sets a value determining if the legend is to be opaque. class ( legend ), intent ( inout ) :: this !! The legend object. logical :: x !! True if the legend is to be opaque; else, false. this % m_opaque = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_legend.f90.html"},{"title":"fplot_plot_data_function.f90 – FPLOT","text":"Source Code module fplot_plot_data_function use iso_fortran_env use fplot_plot_data use fplot_colors use fplot_constants use strings implicit none private public :: plot_data_function type , extends ( line_plot_data ) :: plot_data_function !! Defines a function to plot. character ( len = :), private , allocatable :: m_function !! The function to plot (e.g. sin(x)) character ( len = :), private , allocatable :: m_functionName !! The name of the function (e.g. f(x), g(x), etc.). real ( real64 ), private :: m_minX = - 1.0d0 !! The minimum X value of the plot range. real ( real64 ), private :: m_maxX = 1.0d0 integer ( int32 ), private :: m_sampleCount = 100 !! The number of times to sample the function contains procedure , public :: get_function => pdf_get_function procedure , public :: get_function_name => pdf_get_function_name procedure , public :: define_data => pdf_define_data procedure , public :: get_command_string => pdf_get_cmd procedure , public :: get_data_string => pdf_get_data_cmd procedure , public :: clear_data => pdf_clear_data procedure , public :: get_minimum_x => pdf_get_min_x procedure , public :: set_minimum_x => pdf_set_min_x procedure , public :: get_maximum_x => pdf_get_max_x procedure , public :: set_maximum_x => pdf_set_max_x ! procedure, public :: get_line_width => pdf_get_line_width ! procedure, public :: set_line_width => pdf_set_line_width ! procedure, public :: get_line_style => pdf_get_line_style ! procedure, public :: set_line_style => pdf_set_line_style procedure , public :: get_sample_count => pfd_get_sample_count procedure , public :: set_sample_count => pfd_set_sample_count end type contains ! ------------------------------------------------------------------------------ pure function pdf_get_function ( this ) result ( rst ) !! Gets the function to plot. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. character ( len = :), allocatable :: rst !! The function. if ( allocated ( this % m_function )) then rst = this % m_function else rst = \"\" end if end function ! ------------------------------------------------------------------------------ pure function pdf_get_function_name ( this ) result ( rst ) !! Gets the name of the function to plot (e.g. f(x), g(x), etc.). class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. character ( len = :), allocatable :: rst !! The function name. if ( allocated ( this % m_functionName )) then rst = this % m_functionName else rst = \"\" end if end function ! ------------------------------------------------------------------------------ subroutine pdf_define_data ( this , f , fname , minX , maxX , name ) !! Defines the function to plot. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. character ( len = * ), intent ( in ) :: f !! The function to plot (e.g. sin(x)). character ( len = * ), intent ( in ) :: fname !! The name of the function to plot (e.g. f(x)). real ( real64 ), intent ( in ), optional :: minX !! The minimum value to plot.  If not supplied, this will default !! to a value of -1. real ( real64 ), intent ( in ), optional :: maxX !! The maximum x value to plot. If not supplied, this will default !! to a value of 1. character ( len = * ), intent ( in ), optional :: name !! An optional input that specifies the name that will be displayed !! in the legend.  If nothing is supplied, the input string for !! parameter f will be utilized. this % m_function = f this % m_functionName = fname if ( present ( minX )) then this % m_minX = minX else this % m_minX = - 1.0d0 end if if ( present ( maxX )) then this % m_maxX = maxX else this % m_maxX = 1.0d0 end if if ( present ( name )) then call this % set_name ( name ) else call this % set_name ( f ) end if end subroutine ! ------------------------------------------------------------------------------ function pdf_get_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string for this object. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables integer ( int32 ) :: n type ( string_builder ) :: str type ( color ) :: clr ! Build the command string call str % initialize () call str % append ( \"[\" ) call str % append ( to_string ( this % get_minimum_x ())) call str % append ( \":\" ) call str % append ( to_string ( this % get_maximum_x ())) call str % append ( \"] \" ) call str % append ( this % get_function_name ()) ! Use the base object to define the line properties call str % append ( lpd_get_cmd ( this )) ! Return the complete command string rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdf_get_data_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining the data for this object. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str ! Build the command string call str % initialize () call str % append ( new_line ( 'a' )) call str % append ( this % get_function_name ()) call str % append ( \" = \" ) call str % append ( this % get_function ()) ! Samples call str % append ( new_line ( 'a' )) call str % append ( \"set samples \" ) call str % append ( to_string ( this % get_sample_count ())) ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine pdf_clear_data ( this ) !! Clears the function from this data set. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. this % m_function = \"\" this % m_functionName = \"\" end subroutine ! ------------------------------------------------------------------------------ pure function pdf_get_min_x ( this ) result ( rst ) !! Gets the minimum X plot range value. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. real ( real64 ) :: rst !! The value. rst = this % m_minX end function ! -------------------- subroutine pdf_set_min_x ( this , x ) !! Sets the minimum X plot range value. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. real ( real64 ), intent ( in ) :: x !! The value. this % m_minX = x end subroutine ! ------------------------------------------------------------------------------ pure function pdf_get_max_x ( this ) result ( rst ) !! Gets the maximum X plot range value. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. real ( real64 ) :: rst !! The value. rst = this % m_maxX end function ! -------------------- subroutine pdf_set_max_x ( this , x ) !! Sets the maximum X plot range value. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. real ( real64 ), intent ( in ) :: x !! The value. this % m_maxX = x end subroutine ! ------------------------------------------------------------------------------ pure function pfd_get_sample_count ( this ) result ( rst ) !! Gets the number of times to sample the function. class ( plot_data_function ), intent ( in ) :: this !! The plot_data_function object. integer ( int32 ) :: rst !! The sample count. rst = this % m_sampleCount end function ! -------------------- subroutine pfd_set_sample_count ( this , x ) !! Sets the number of times to sample the function.  This variable is !! global for all function plots as GNUPLOT does not allow inline !! sample modification currently.  Hopefully this will change somewhere !! down the road. class ( plot_data_function ), intent ( inout ) :: this !! The plot_data_function object. integer ( int32 ), intent ( in ) :: x !! The sample count.  Must be greater than 1. if ( x <= 1 ) then this % m_sampleCount = 2 else this % m_sampleCount = x end if end subroutine ! ------------------------------------------------------------------------------ ! -------------------- ! ------------------------------------------------------------------------------ ! -------------------- ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_function.f90.html"},{"title":"fplot_core.f90 – FPLOT","text":"Source Code module fplot_core !! FPLOT is a Fortran library providing a means of interacting with !! [GNUPLOT](http://www.gnuplot.info/) from a Fortran program.  The library !! is designed in an object-oriented manner, and as such utilizes language !! features that require a compiler that supports the 2003 standard. !! Additionally, it is expected that Gnuplot is installed on the system !! path.  For full functionallity, a minimum of GNUPLOT v5.2 is expected. use fplot_constants use fplot_core_routines use fplot_colors use fplot_plot_object use fplot_plot_data use fplot_plot_axis use fplot_terminal use fplot_windows_terminal use fplot_qt_terminal use fplot_wxt_terminal use fplot_png_terminal use fplot_latex_terminal use fplot_label use fplot_arrow use fplot_legend use fplot_plot_data_2d use fplot_plot_data_3d use fplot_surface_plot_data use fplot_plot_data_error_bars use fplot_plot_data_bar use fplot_plot_data_histogram use fplot_colormap use fplot_filled_plot_data use fplot_triangulations_delaunay_2d use fplot_plot_data_tri_2d use fplot_delaunay_tri_surface use fplot_tri_surface_plot_data use fplot_vector_field_plot_data use fplot_plot use fplot_plot_2d use fplot_plot_3d use fplot_surface_plot use fplot_multiplot use fplot_plot_bar use fplot_plot_polar use fplot_stats_plots use fplot_plot_data_box_whisker use fplot_plot_data_function use strings use fplot_svg_terminal use fplot_pdf_terminal implicit none end module","tags":"","loc":"sourcefile\\fplot_core.f90.html"},{"title":"fplot_plot_data_tri_2d.f90 – FPLOT","text":"Source Code ! fplot_plot_data_tri_2d.f90 module fplot_plot_data_tri_2d use iso_fortran_env use fplot_plot_data use fplot_constants use fplot_triangulations_delaunay_2d use fplot_colors use strings implicit none private public :: plot_data_tri_2d type , extends ( plot_data_colored ) :: plot_data_tri_2d !! Defines a 2D triangulated data set. real ( real64 ), private , allocatable , dimension (:) :: m_x !! An array of the x-coordinates of each point. real ( real64 ), private , allocatable , dimension (:) :: m_y !! An array of the y-coordinates of each point. integer ( int32 ), private , allocatable , dimension (:,:) :: m_indices !! A 3-column matrix containing the indices of each triangle's !! vertex. real ( real32 ), private :: m_lineWidth = 1.0 !! The line width. integer ( int32 ), private :: m_lineStyle = LINE_SOLID !! The line style contains procedure , public :: get_data_string => pdt2d_get_data_cmd procedure , public :: get_command_string => pdt2d_get_cmd procedure , public :: define_data => pdt2d_define_data procedure , public :: get_line_width => pdt2d_get_line_width procedure , public :: set_line_width => pdt2d_set_line_width procedure , public :: get_line_style => pdt2d_get_line_style procedure , public :: set_line_style => pdt2d_set_line_style procedure , public :: clear_data => pdt2d_clear_data end type contains ! ------------------------------------------------------------------------------ function pdt2d_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string describing the data to plot. class ( plot_data_tri_2d ), intent ( in ) :: this !! The plot_data_tri_2d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , n character :: delimiter , nl ! Initialization call str % initialize () n = size ( this % m_indices , 1 ) delimiter = achar ( 9 ) nl = new_line ( nl ) ! Process ! https://stackoverflow.com/questions/42784369/drawing-triangular-mesh-using-gnuplot ! http://www.gnuplot.info/faq/faq.html#x1-530005.10 ! https://codeyarns.com/2011/01/25/gnuplot-plotting-a-3d-triangulation/ do i = 1 , n ! Line 1-2 ! Vertex 1 j = this % m_indices ( i , 1 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Vertex 2 j = this % m_indices ( i , 2 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Line 2-3 ! Vertex 2 call str % append ( nl ) j = this % m_indices ( i , 2 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Vertex 3 j = this % m_indices ( i , 3 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Line 3-1 ! Vertex 3 call str % append ( nl ) j = this % m_indices ( i , 3 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Vertex 1 j = this % m_indices ( i , 1 ) call str % append ( to_string ( this % m_x ( j ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_y ( j ))) call str % append ( delimiter ) call str % append ( \"0.0\" ) call str % append ( nl ) ! Add in the two blank lines if ( i /= n ) then call str % append ( nl ) call str % append ( nl ) end if end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdt2d_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for the object. class ( plot_data_tri_2d ), intent ( in ) :: this !! The plot_data_tri_2d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Lines call str % append ( \" with lines\" ) ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Line Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Line Style call str % append ( \" lt \" ) call str % append ( to_string ( this % get_line_style ())) if ( this % get_line_style () /= LINE_SOLID ) then call str % append ( \" dashtype \" ) call str % append ( to_string ( this % get_line_style ())) end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine pdt2d_define_data ( this , tri ) !! Defines the data to plot. class ( plot_data_tri_2d ), intent ( inout ) :: this !! The plot_data_tri_2d object. class ( delaunay_tri_2d ), intent ( in ) :: tri !! The triangulation data to plot. ! Process if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if this % m_x = tri % get_points_x () this % m_y = tri % get_points_y () this % m_indices = tri % get_indices () end subroutine ! ------------------------------------------------------------------------------ pure function pdt2d_get_line_width ( this ) result ( rst ) !! Gets the width of the lines used to draw the triangulation. class ( plot_data_tri_2d ), intent ( in ) :: this !! The plot_data_tri_2d object. real ( real32 ) :: rst !! The line width. rst = this % m_lineWidth end function ! -------------------- subroutine pdt2d_set_line_width ( this , x ) !! Sets the width of the lines used to draw the triangulation. class ( plot_data_tri_2d ), intent ( inout ) :: this !! The plot_data_tri_2d object. real ( real32 ), intent ( in ) :: x !! The line width. if ( x <= 0.0d0 ) then this % m_lineWidth = 1.0d0 else this % m_lineWidth = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pdt2d_get_line_style ( this ) result ( rst ) !! Gets the line style. class ( plot_data_tri_2d ), intent ( in ) :: this !! The plot_data_tri_2d object. integer ( int32 ) :: rst !! The line style.  The line style must be one of the following !! constants. !! !! - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID rst = this % m_lineStyle end function ! -------------------- subroutine pdt2d_set_line_style ( this , x ) !! Sets the line style. class ( plot_data_tri_2d ), intent ( inout ) :: this !! The plot_data_tri_2d object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following !! constants. !! !! - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_lineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine pdt2d_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_tri_2d ), intent ( inout ) :: this !! The plot_data_tri_2d object. if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_tri_2d.f90.html"},{"title":"fplot_plot_3d.f90 – FPLOT","text":"Source Code ! fplot_plot_3d.f90 module fplot_plot_3d use iso_fortran_env use fplot_plot use fplot_errors use fplot_plot_axis use fplot_constants use fplot_plot_data use fplot_legend use fplot_plot_data_3d use fplot_colors use strings implicit none private public :: plot_3d type , extends ( plot ) :: plot_3d !! A plot object defining a 3D plot. type ( x_axis ), private , pointer :: m_xAxis => null () !! The x-axis. type ( y_axis ), private , pointer :: m_yAxis => null () !! The y-axis. type ( z_axis ), private , pointer :: m_zAxis => null () !! The z-axis. real ( real64 ), private :: m_elevation = 6 0.0d0 !! The elevation angle. real ( real64 ), private :: m_azimuth = 3 0.0d0 !! The azimuth. logical , private :: m_zIntersect = . true . !! Z-axis intersect X-Y plane? logical , private :: m_setMap = . false . !! Set map projection. integer ( int32 ), private :: m_csys = COORDINATES_CARTESIAN !! Plot coordinate system. logical , private :: m_showZMajorGrid = . false . logical , private :: m_showZMinorGrid = . false . type ( color ), private :: m_zMajorGridColor = color ( 204 , 204 , 204 , 0 ) type ( color ), private :: m_zMinorGridColor = color ( 230 , 230 , 230 , 0 ) integer ( int32 ), private :: m_zMajorGridLineStyle = LINE_SOLID integer ( int32 ), private :: m_zMinorGridLineStyle = LINE_DASHED real ( real32 ), private :: m_zMajorGridLineWidth = 1.2 real ( real32 ), private :: m_zMinorGridLineWidth = 0.7 contains final :: p3d_clean_up procedure , public :: initialize => p3d_init procedure , public :: get_command_string => p3d_get_cmd procedure , public :: get_x_axis => p3d_get_x_axis procedure , public :: get_y_axis => p3d_get_y_axis procedure , public :: get_z_axis => p3d_get_z_axis procedure , public :: get_elevation => p3d_get_elevation procedure , public :: set_elevation => p3d_set_elevation procedure , public :: get_azimuth => p3d_get_azimuth procedure , public :: set_azimuth => p3d_set_azimuth procedure , public :: get_z_intersect_xy => p3d_get_z_axis_intersect procedure , public :: set_z_intersect_xy => p3d_set_z_axis_intersect procedure , public :: get_use_map_view => p3d_get_use_map_view procedure , public :: set_use_map_view => p3d_set_use_map_view procedure , public :: get_coordinate_system => p3d_get_csys procedure , public :: set_coordinate_system => p3d_set_csys procedure , public :: set_x_axis_title => p3d_set_x_axis_title procedure , public :: set_y_axis_title => p3d_set_y_axis_title procedure , public :: set_z_axis_title => p3d_set_z_axis_title procedure , public :: get_show_z_major_grid => p3d_get_show_z_major_grid procedure , public :: set_show_z_major_grid => p3d_set_show_z_major_grid procedure , public :: get_show_z_minor_grid => p3d_get_show_z_minor_grid procedure , public :: set_show_z_minor_grid => p3d_set_show_z_minor_grid procedure , public :: get_z_major_grid_color => p3d_get_z_major_grid_color procedure , public :: set_z_major_grid_color => p3d_set_z_major_grid_color procedure , public :: get_z_minor_grid_color => p3d_get_z_minor_grid_color procedure , public :: set_z_minor_grid_color => p3d_set_z_minor_grid_color procedure , public :: get_z_major_grid_line_style => & p3d_get_z_major_grid_line_style procedure , public :: set_z_major_grid_line_style => & p3d_set_z_major_grid_line_style procedure , public :: get_z_minor_grid_line_style => & p3d_get_z_minor_grid_line_style procedure , public :: set_z_minor_grid_line_style => & p3d_set_z_minor_grid_line_style procedure , public :: get_z_major_grid_line_width => & p3d_get_z_major_grid_line_width procedure , public :: set_z_major_grid_line_width => & p3d_set_z_major_grid_line_width procedure , public :: get_z_minor_grid_line_width => & p3d_get_z_minor_grid_line_width procedure , public :: set_z_minor_grid_line_width => & p3d_set_z_minor_grid_line_width procedure , public :: p3d_push_data generic , public :: push => p3d_push_data end type contains ! ------------------------------------------------------------------------------ subroutine p3d_clean_up ( this ) !! Cleans up resources held by the plot_3d object. type ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. call this % free_resources () if ( associated ( this % m_xAxis )) then deallocate ( this % m_xAxis ) nullify ( this % m_xAxis ) end if if ( associated ( this % m_yAxis )) then deallocate ( this % m_yAxis ) nullify ( this % m_yAxis ) end if if ( associated ( this % m_zAxis )) then deallocate ( this % m_zAxis ) nullify ( this % m_zAxis ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_init ( this , term , fname , err ) !! Initializes the plot_3d object. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !!  The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Initialize the base class ! call plt_init(this, term, fname, errmgr) call this % plot % initialize ( term , fname , errmgr ) ! Process flag = 0 if (. not . associated ( this % m_xAxis )) then allocate ( this % m_xAxis , stat = flag ) end if if ( flag == 0 . and . . not . associated ( this % m_yAxis )) then allocate ( this % m_yAxis , stat = flag ) end if if ( flag == 0 . and . . not . associated ( this % m_zAxis )) then allocate ( this % m_zAxis , stat = flag ) end if ! Error Checking if ( flag /= 0 ) then call report_memory_error ( errmgr , \"p3d_init\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function p3d_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot_3d object. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , n real ( real64 ) :: lmargin , rmargin , tmargin , bmargin class ( plot_data ), pointer :: ptr class ( plot_axis ), pointer :: xAxis , yAxis , zAxis type ( legend ), pointer :: leg type ( color ) :: clr ! class(plot_label), pointer :: lbl ! Initialization call str % initialize () ! Call the base routine call str % append ( this % plot % get_command_string ()) ! Grid if ( this % get_show_x_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid xtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_x_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mxtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_y_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid ytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_y_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_z_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid ztics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_z_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_z_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_z_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_z_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mztics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_z_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_z_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_z_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_gridlines ()) then ! X call str % append ( new_line ( 'a' )) call str % append ( 'set grid xtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) ! Y call str % append ( new_line ( 'a' )) call str % append ( 'set grid ytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) ! Z call str % append ( new_line ( 'a' )) call str % append ( 'set grid ztics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_z_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_z_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_z_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if ! Title n = len_trim ( this % get_title ()) if ( n > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( 'set title \"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if ! Margin lmargin = this % get_left_margin () rmargin = this % get_right_margin () tmargin = this % get_top_margin () bmargin = this % get_bottom_margin () if ( lmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set lmargin at screen \" ) call str % append ( to_string ( lmargin )) end if if ( rmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set rmargin at screen \" ) call str % append ( to_string ( rmargin )) end if if ( tmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set tmargin at screen \" ) call str % append ( to_string ( tmargin )) end if if ( bmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set bmargin at screen \" ) call str % append ( to_string ( bmargin )) end if ! Axes call str % append ( new_line ( 'a' )) xAxis => this % get_x_axis () if ( associated ( xAxis )) call str % append ( xAxis % get_command_string ()) call str % append ( new_line ( 'a' )) yAxis => this % get_y_axis () if ( associated ( yAxis )) call str % append ( yAxis % get_command_string ()) call str % append ( new_line ( 'a' )) zAxis => this % get_z_axis () if ( associated ( zAxis )) call str % append ( zAxis % get_command_string ()) ! Tic Marks if (. not . this % get_tics_inward ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set tics out\" ) end if if ( xAxis % get_zero_axis () . or . yAxis % get_zero_axis () . or . & zAxis % get_zero_axis ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set tics axis\" ) end if ! Border if ( this % get_draw_border ()) then n = 31 else n = 0 if (. not . xAxis % get_zero_axis ()) n = n + 1 if (. not . yAxis % get_zero_axis ()) n = n + 4 if (. not . zAxis % get_zero_axis ()) n = n + 16 call str % append ( new_line ( 'a' )) call str % append ( \"set xtics nomirror\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set ytics nomirror\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set ztics nomirror\" ) end if call str % append ( new_line ( 'a' )) if ( n > 0 ) then call str % append ( \"set border \" ) call str % append ( to_string ( n )) else call str % append ( \"unset border\" ) end if call str % append ( new_line ( 'a' )) call str % append ( \"set border linewidth \" ) call str % append ( to_string ( this % get_border_line_width ())) ! Force the z-axis to move to the x-y plane if ( this % get_z_intersect_xy ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set ticslevel 0\" ) end if ! Scaling if ( this % get_axis_equal ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set view equal xyz\" ) end if ! Legend call str % append ( new_line ( 'a' )) leg => this % get_legend () if ( associated ( leg )) call str % append ( leg % get_command_string ()) ! ! Labels ! do i = 1, this%get_label_count() !     lbl => this%get_label(i) !     if (.not.associated(lbl)) cycle !     call str%append(new_line('a')) !     call str%append(lbl%get_command_string()) ! end do ! Orientation call str % append ( new_line ( 'a' )) call str % append ( \"set view \" ) if ( this % get_use_map_view ()) then call str % append ( \"map\" ) else call str % append ( to_string ( this % get_elevation ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_azimuth ())) end if ! Coordinate system if ( this % get_coordinate_system () == COORDINATES_CYLINDRICAL ) then call str % append ( new_line ( 'a' )) call str % append ( \"set mapping cylindrical\" ) else if ( this % get_coordinate_system () == COORDINATES_SPHERICAL ) then call str % append ( new_line ( 'a' )) call str % append ( \"set mapping spherical\" ) end if ! Define the datablock n = this % get_count () do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( new_line ( 'a' )) call str % append ( \"$\" ) call str % append ( ptr % get_datablock_name ()) call str % append ( \" << EOD\" ) call str % append ( new_line ( 'a' )) call str % append ( ptr % get_data_string ()) call str % append ( \"EOD\" ) end do ! Define the plot function and data formatting commands call str % append ( new_line ( 'a' )) call str % append ( \"splot \" ) do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( ptr % get_command_string ()) if ( i /= n ) call str % append ( \", \" ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function p3d_get_x_axis ( this ) result ( ptr ) !! Gets the x-axis object. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. class ( plot_axis ), pointer :: ptr !! A pointer to the x-axis object. ptr => this % m_xAxis end function ! ------------------------------------------------------------------------------ function p3d_get_y_axis ( this ) result ( ptr ) !! Gets the y-axis object. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. class ( plot_axis ), pointer :: ptr !! A pointer to the y-axis object. ptr => this % m_yAxis end function ! ------------------------------------------------------------------------------ function p3d_get_z_axis ( this ) result ( ptr ) !! Gets the z-axis object. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. class ( plot_axis ), pointer :: ptr !! A pointer to the z-axis object. ptr => this % m_zAxis end function ! ------------------------------------------------------------------------------ pure function p3d_get_elevation ( this ) result ( x ) !! Gets the plot elevation angle. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. real ( real64 ) :: x !! The elevation angle, in degrees. x = this % m_elevation end function ! -------------------- subroutine p3d_set_elevation ( this , x ) !! Sets the plot elevation angle. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. real ( real64 ), intent ( in ) :: x !! The elevation angle, in degrees. this % m_elevation = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_azimuth ( this ) result ( x ) !! Gets the plot azimuth angle. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. real ( real64 ) :: x !! The azimuth angle, in degrees. x = this % m_azimuth end function ! -------------------- subroutine p3d_set_azimuth ( this , x ) !! Sets the plot azimuth angle. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. real ( real64 ), intent ( in ) :: x !! The azimuth angle, in degrees. this % m_azimuth = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_axis_intersect ( this ) result ( x ) !! Gets a value determining if the z-axis should intersect the !! x-y plane. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. logical :: x !! Returns true if the z-axis should intersect the x-y plane; else, !! false to allow the z-axis to float. x = this % m_zIntersect end function ! -------------------- subroutine p3d_set_z_axis_intersect ( this , x ) !! Sets a value determining if the z-axis should intersect the !! x-y plane. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. logical , intent ( in ) :: x !! Set to true if the z-axis should intersect the x-y plane; else, !! false to allow the z-axis to float. this % m_zIntersect = x end subroutine ! ADDED March 29, 2023 - JAC ! ------------------------------------------------------------------------------ pure function p3d_get_use_map_view ( this ) result ( rst ) !! Gets a value determining if the view should be set to a 2D !! map view.  If true, the azimuth and elevation terms are ignored. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. logical :: rst !! Returns true if the map view will be used; else, false. rst = this % m_setMap end function ! -------------------- subroutine p3d_set_use_map_view ( this , x ) !! Sets a value determining if the view should be set to a 2D !! map view.  If true, the azimuth and elevation terms are ignored. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. logical , intent ( in ) :: x !! Seturns true if the map view will be used; else, false. this % m_setMap = x end subroutine ! ADDED Sept. 15, 2023 - JAC ! ------------------------------------------------------------------------------ pure function p3d_get_csys ( this ) result ( rst ) !! Gets a value determining the coordinate system. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. integer ( int32 ) :: rst !! The coordinate system ID, which must be one of the following. !! !! - COORDINATES_CARTESIAN !! !! - COORDINATES_CYLINDRICAL !! !! - COORDINATES_SPHERICAL rst = this % m_csys end function ! -------------------- subroutine p3d_set_csys ( this , x ) !! Sets a value determining the coordinate system. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. integer ( int32 ), intent ( in ) :: x !! The coordinate system ID, which must be one of the following. !! !! - COORDINATES_CARTESIAN !! !! - COORDINATES_CYLINDRICAL !! !! - COORDINATES_SPHERICAL if ( x /= COORDINATES_CARTESIAN . and . & x /= COORDINATES_CYLINDRICAL . and . & x /= COORDINATES_SPHERICAL ) & then ! Set to default as the input is nonsensical this % m_csys = COORDINATES_CARTESIAN else this % m_csys = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_set_x_axis_title ( this , x ) !! Sets the title associated with the plot's x-axis. class ( plot_3d ), intent ( inout ) :: this !! The [[plot_3d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_xAxis )) then call this % m_xAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_set_y_axis_title ( this , x ) !! Sets the title associated with the plot's y-axis. class ( plot_3d ), intent ( inout ) :: this !! The [[plot_3d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_yAxis )) then call this % m_yAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_set_z_axis_title ( this , x ) !! Sets the title associated with the plot's z-axis. class ( plot_3d ), intent ( inout ) :: this !! The [[plot_3d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_zAxis )) then call this % m_zAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_show_z_major_grid ( this ) result ( x ) !! Gets a value determining if the z-axis major grid should be shown. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showZMajorGrid end function ! -------------------- subroutine p3d_set_show_z_major_grid ( this , x ) !! Sets a value determining if the z-axis major grid should be shown. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showZMajorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_show_z_minor_grid ( this ) result ( x ) !! Gets a value determining if the z-axis minor grid should be shown. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showZMinorGrid end function ! -------------------- subroutine p3d_set_show_z_minor_grid ( this , x ) !! Sets a value determining if the z-axis minor grid should be shown. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showZMinorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_major_grid_color ( this ) result ( x ) !! Gets the color of the z-axis major grid lines. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. type ( color ) :: x !! The color. x = this % m_zMajorGridColor end function ! -------------------- subroutine p3d_set_z_major_grid_color ( this , x ) !! Sets the color of the z-axis major grid lines. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. type ( color ), intent ( in ) :: x !! The color. this % m_zMajorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_minor_grid_color ( this ) result ( x ) !! Gets the color of the z-axis minor grid lines. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. type ( color ) :: x !! The color. x = this % m_zMinorGridColor end function ! -------------------- subroutine p3d_set_z_minor_grid_color ( this , x ) !! Sets the color of the z-axis minor grid lines. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. type ( color ), intent ( in ) :: x !! The color. this % m_zMinorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_major_grid_line_style ( this ) result ( x ) !! Gets the line style used for the z-axis major grid lines. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_zMajorGridLineStyle end function ! -------------------- subroutine p3d_set_z_major_grid_line_style ( this , x ) !! Sets the line style used for the z-axis major grid lines. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_zMajorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_minor_grid_line_style ( this ) result ( x ) !! Gets the line style used for the z-axis minor grid lines. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_zMinorGridLineStyle end function ! -------------------- subroutine p3d_set_z_minor_grid_line_style ( this , x ) !! Sets the line style used for the z-axis minor grid lines. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_zMinorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_major_grid_line_width ( this ) result ( x ) !! Gets the width of the z-axis major grid lines, in pixels. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. real ( real32 ) :: x !! The line width. x = this % m_zMajorGridLineWidth end function ! -------------------- subroutine p3d_set_z_major_grid_line_width ( this , x ) !! Sets the width of the z-axis major grid lines, in pixels. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_zMajorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function p3d_get_z_minor_grid_line_width ( this ) result ( x ) !! Gets the width of the z-axis minor grid lines, in pixels. class ( plot_3d ), intent ( in ) :: this !! The plot_3d object. real ( real32 ) :: x !! The line width. x = this % m_zMinorGridLineWidth end function ! -------------------- subroutine p3d_set_z_minor_grid_line_width ( this , x ) !! Sets the width of the z-axis minor grid lines, in pixels. class ( plot_3d ), intent ( inout ) :: this !! The plot_3d object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_zMinorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ subroutine p3d_push_data ( this , x , y , z , lw , name , ls , lc ) !! Adds a data set to the plot. class ( plot_3d ), intent ( inout ) :: this !! The [[plot_3d]] object. real ( real64 ), intent ( in ), dimension (:) :: x !! The x-values. real ( real64 ), intent ( in ), dimension ( size ( x )) :: y !! The y-values. real ( real64 ), intent ( in ), dimension ( size ( x )) :: z !! The z-values. real ( real32 ), intent ( in ), optional :: lw !! The line width. character ( len = * ), intent ( in ), optional :: name !! A name to associate with the data set. integer ( int32 ), intent ( in ), optional :: ls !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID type ( color ), intent ( in ), optional :: lc !! The line color. type ( plot_data_3d ) :: pd call pd % define_data ( x , y , z ) if ( present ( lw )) call pd % set_line_width ( lw ) if ( present ( name )) call pd % set_name ( name ) if ( present ( ls )) call pd % set_line_style ( ls ) if ( present ( lc )) call pd % set_line_color ( lc ) call this % push ( pd ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_3d.f90.html"},{"title":"fplot_windows_terminal.f90 – FPLOT","text":"Source Code ! fplot_windows_terminal.f90 module fplot_windows_terminal use iso_fortran_env use fplot_terminal implicit none private public :: windows_terminal type , extends ( terminal ) :: windows_terminal !! A Windows-specific terminal. character ( len = 3 ), private :: m_id = \"win\" !! The terminal ID string contains procedure , public :: get_id_string => wt_get_term_string end type contains function wt_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( windows_terminal ), intent ( in ) :: this !! The windows_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function end module","tags":"","loc":"sourcefile\\fplot_windows_terminal.f90.html"},{"title":"delaunay.f90 – FPLOT","text":"Source Code module delaunay !! Provides a minimal, in-house implementation of the subset of the !! GEOMPACK library used by FPLOT to construct 2D Delaunay !! triangulations. !! !! Original FORTRAN77 version by Barry Joe.  FORTRAN90 version by !! John Burkardt.  Reference: Barry Joe, GEOMPACK - a software !! package for the generation of meshes using geometric algorithms, !! Advances in Engineering Software, Volume 13, pages 325-331, 1991. use iso_fortran_env , only : int32 , real64 implicit none private public :: r8tris2 contains ! ------------------------------------------------------------------------------ subroutine r8tris2 ( node_num , node_xy , triangle_num , triangle_node , & triangle_neighbor ) !! Constructs a Delaunay triangulation of 2D vertices. !! !! The routine constructs the Delaunay triangulation of a set of !! 2D vertices using an incremental approach and diagonal edge !! swaps.  Vertices are first sorted in lexicographically !! increasing (X,Y) order, and then are inserted one at a time !! from outside the convex hull. integer ( int32 ), intent ( in ) :: node_num !! The number of vertices. real ( real64 ), intent ( inout ), dimension ( 2 , node_num ) :: node_xy !! The coordinates of the vertices.  On output, the vertices !! have been sorted into dictionary order. integer ( int32 ), intent ( out ) :: triangle_num !! The number of triangles in the triangulation; !! TRIANGLE_NUM is equal to 2*NODE_NUM - NB - 2, where NB is !! the number of boundary vertices. integer ( int32 ), intent ( out ), dimension ( 3 , 2 * node_num ) :: & triangle_node !! The nodes that make up each triangle.  The elements are !! indices of the vertex array.  The vertices of the !! triangles are in counter clockwise order. integer ( int32 ), intent ( out ), dimension ( 3 , 2 * node_num ) :: & triangle_neighbor !! The triangle neighbor list.  Positive elements are !! indices of TRIANGLE_NODE; negative elements are used for !! links of a counter clockwise linked list of boundary !! edges; LINK = -(3*I + J-1) where I, J = triangle, edge !! index; TRIANGLE_NEIGHBOR(J,I) refers to the neighbor !! along the edge from vertex J to J+1 (mod 3). ! Local Variables real ( real64 ) :: cmax , tol integer ( int32 ) :: e , i , j , k , l , ledg , lr , ltri , m , m1 , m2 , & n , redg , rtri , t , top integer ( int32 ), dimension ( node_num ) :: indx , stack ! Initialization tol = 10 0.0d0 * epsilon ( tol ) ! Sort the vertices by increasing (x,y) call r82vec_sort_heap_index_a ( node_num , node_xy , indx ) call r82vec_permute ( node_num , node_xy , indx ) ! Make sure that the data points are \"reasonably\" distinct m1 = 1 do i = 2 , node_num m = m1 m1 = i k = 0 do j = 1 , 2 cmax = max ( abs ( node_xy ( j , m )), abs ( node_xy ( j , m1 ))) if ( tol * ( cmax + 1.0d0 ) < & abs ( node_xy ( j , m ) - node_xy ( j , m1 ))) then k = j exit end if end do if ( k == 0 ) then error stop & \"R8TRIS2 - Fatal error!  Two points are too close together.\" end if end do ! Starting from points M1 and M2, search for a third point M that ! makes a \"healthy\" triangle (M1,M2,M) m1 = 1 m2 = 2 j = 3 do if ( node_num < j ) then error stop & \"R8TRIS2 - Fatal error!  Could not find a non-collinear point.\" end if m = j lr = lrline ( node_xy ( 1 , m ), node_xy ( 2 , m ), node_xy ( 1 , m1 ), & node_xy ( 2 , m1 ), node_xy ( 1 , m2 ), node_xy ( 2 , m2 ), 0.0d0 ) if ( lr /= 0 ) exit j = j + 1 end do ! Set up the triangle information for (M1,M2,M), and for any ! other triangles created because points were collinear with M1, ! M2 triangle_num = j - 2 if ( lr == - 1 ) then triangle_node ( 1 , 1 ) = m1 triangle_node ( 2 , 1 ) = m2 triangle_node ( 3 , 1 ) = m triangle_neighbor ( 3 , 1 ) = - 3 do i = 2 , triangle_num m1 = m2 m2 = i + 1 triangle_node ( 1 , i ) = m1 triangle_node ( 2 , i ) = m2 triangle_node ( 3 , i ) = m triangle_neighbor ( 1 , i - 1 ) = - 3 * i triangle_neighbor ( 2 , i - 1 ) = i triangle_neighbor ( 3 , i ) = i - 1 end do triangle_neighbor ( 1 , triangle_num ) = - 3 * triangle_num - 1 triangle_neighbor ( 2 , triangle_num ) = - 5 ledg = 2 ltri = triangle_num else triangle_node ( 1 , 1 ) = m2 triangle_node ( 2 , 1 ) = m1 triangle_node ( 3 , 1 ) = m triangle_neighbor ( 1 , 1 ) = - 4 do i = 2 , triangle_num m1 = m2 m2 = i + 1 triangle_node ( 1 , i ) = m2 triangle_node ( 2 , i ) = m1 triangle_node ( 3 , i ) = m triangle_neighbor ( 3 , i - 1 ) = i triangle_neighbor ( 1 , i ) = - 3 * i - 3 triangle_neighbor ( 2 , i ) = i - 1 end do triangle_neighbor ( 3 , triangle_num ) = - 3 * triangle_num triangle_neighbor ( 2 , 1 ) = - 3 * triangle_num - 2 ledg = 2 ltri = 1 end if ! Insert the vertices one at a time from outside the convex ! hull, determine visible boundary edges, and apply diagonal ! edge swaps until the Delaunay triangulation of the vertices ! (so far) is obtained top = 0 do i = j + 1 , node_num m = i m1 = triangle_node ( ledg , ltri ) if ( ledg <= 2 ) then m2 = triangle_node ( ledg + 1 , ltri ) else m2 = triangle_node ( 1 , ltri ) end if lr = lrline ( node_xy ( 1 , m ), node_xy ( 2 , m ), node_xy ( 1 , m1 ), & node_xy ( 2 , m1 ), node_xy ( 1 , m2 ), node_xy ( 2 , m2 ), 0.0d0 ) if ( 0 < lr ) then rtri = ltri redg = ledg ltri = 0 else l = - triangle_neighbor ( ledg , ltri ) rtri = l / 3 redg = mod ( l , 3 ) + 1 end if call vbedg ( node_xy ( 1 , m ), node_xy ( 2 , m ), node_num , node_xy , & triangle_num , triangle_node , triangle_neighbor , ltri , & ledg , rtri , redg ) n = triangle_num + 1 l = - triangle_neighbor ( ledg , ltri ) do t = l / 3 e = mod ( l , 3 ) + 1 l = - triangle_neighbor ( e , t ) m2 = triangle_node ( e , t ) if ( e <= 2 ) then m1 = triangle_node ( e + 1 , t ) else m1 = triangle_node ( 1 , t ) end if triangle_num = triangle_num + 1 triangle_neighbor ( e , t ) = triangle_num triangle_node ( 1 , triangle_num ) = m1 triangle_node ( 2 , triangle_num ) = m2 triangle_node ( 3 , triangle_num ) = m triangle_neighbor ( 1 , triangle_num ) = t triangle_neighbor ( 2 , triangle_num ) = triangle_num - 1 triangle_neighbor ( 3 , triangle_num ) = triangle_num + 1 top = top + 1 if ( node_num < top ) then error stop \"R8TRIS2 - Fatal error!  Stack overflow.\" end if stack ( top ) = triangle_num if ( t == rtri . and . e == redg ) exit end do triangle_neighbor ( ledg , ltri ) = - 3 * n - 1 triangle_neighbor ( 2 , n ) = - 3 * triangle_num - 2 triangle_neighbor ( 3 , triangle_num ) = - l ltri = n ledg = 2 call swapec ( m , top , ltri , ledg , node_num , node_xy , & triangle_num , triangle_node , triangle_neighbor , stack ) end do ! Now account for the sorting that was done do i = 1 , 3 do j = 1 , triangle_num triangle_node ( i , j ) = indx ( triangle_node ( i , j )) end do end do call perm_inverse ( node_num , indx ) call r82vec_permute ( node_num , node_xy , indx ) end subroutine ! ------------------------------------------------------------------------------ pure subroutine r82vec_sort_heap_index_a ( n , a , indx ) !! Computes an indexed heap ascending sort of an R82VEC. !! !! The sorting is not actually carried out.  Rather an index !! array is created which defines the sorting. integer ( int32 ), intent ( in ) :: n !! The number of entries in the array. real ( real64 ), intent ( in ), dimension ( 2 , n ) :: a !! The array to be index-sorted. integer ( int32 ), intent ( out ), dimension ( n ) :: indx !! The sort index.  The I-th element of the sorted array is !! A(1:2,INDX(I)). ! Local Variables real ( real64 ), dimension ( 2 ) :: aval integer ( int32 ) :: i , indxt , ir , j , l if ( n < 1 ) return do i = 1 , n indx ( i ) = i end do if ( n == 1 ) return l = n / 2 + 1 ir = n do if ( 1 < l ) then l = l - 1 indxt = indx ( l ) aval = a (:, indxt ) else indxt = indx ( ir ) aval = a (:, indxt ) indx ( ir ) = indx ( 1 ) ir = ir - 1 if ( ir == 1 ) then indx ( 1 ) = indxt exit end if end if i = l j = l + l do while ( j <= ir ) if ( j < ir ) then if ( a ( 1 , indx ( j )) < a ( 1 , indx ( j + 1 )) . or . & ( a ( 1 , indx ( j )) == a ( 1 , indx ( j + 1 )) . and . & a ( 2 , indx ( j )) < a ( 2 , indx ( j + 1 )))) then j = j + 1 end if end if if ( aval ( 1 ) < a ( 1 , indx ( j )) . or . & ( aval ( 1 ) == a ( 1 , indx ( j )) . and . & aval ( 2 ) < a ( 2 , indx ( j )))) then indx ( i ) = indx ( j ) i = j j = j + j else j = ir + 1 end if end do indx ( i ) = indxt end do end subroutine ! ------------------------------------------------------------------------------ subroutine r82vec_permute ( n , a , p ) !! Permutes an R82VEC in place, according to a given permutation. integer ( int32 ), intent ( in ) :: n !! The number of objects. real ( real64 ), intent ( inout ), dimension ( 2 , n ) :: a !! The array to be permuted. integer ( int32 ), intent ( inout ), dimension ( n ) :: p !! The permutation.  P(I) = J means that the I-th element of !! the output array should be the J-th element of the input !! array. ! Local Variables real ( real64 ), dimension ( 2 ) :: a_temp integer ( int32 ) :: ierror , iget , iput , istart call perm_check ( n , p , ierror ) if ( ierror /= 0 ) then error stop & \"R82VEC_PERMUTE - Fatal error!  P does not represent a permutation.\" end if do istart = 1 , n if ( p ( istart ) < 0 ) then cycle else if ( p ( istart ) == istart ) then p ( istart ) = - p ( istart ) cycle else a_temp = a (:, istart ) iget = istart do iput = iget iget = p ( iget ) p ( iput ) = - p ( iput ) if ( iget < 1 . or . n < iget ) then error stop & \"R82VEC_PERMUTE - Fatal error!  Invalid permutation entry.\" end if if ( iget == istart ) then a (:, iput ) = a_temp exit end if a (:, iput ) = a (:, iget ) end do end if end do p = - p end subroutine ! ------------------------------------------------------------------------------ pure subroutine perm_check ( n , p , ierror ) !! Checks that a vector represents a permutation. integer ( int32 ), intent ( in ) :: n !! The number of entries. integer ( int32 ), intent ( in ), dimension ( n ) :: p !! The array to check. integer ( int32 ), intent ( out ) :: ierror !! 0 if the array represents a permutation; otherwise, the !! smallest missing value. ! Local Variables integer ( int32 ) :: ifind , iseek ierror = 0 do iseek = 1 , n ierror = iseek do ifind = 1 , n if ( p ( ifind ) == iseek ) then ierror = 0 exit end if end do if ( ierror /= 0 ) return end do end subroutine ! ------------------------------------------------------------------------------ subroutine perm_inverse ( n , p ) !! Inverts a permutation in-place. integer ( int32 ), intent ( in ) :: n !! The number of objects being permuted. integer ( int32 ), intent ( inout ), dimension ( n ) :: p !! The permutation, in standard index form.  On output, P !! describes the inverse permutation. ! Local Variables integer ( int32 ) :: i , i0 , i1 , i2 , ierror , is if ( n <= 0 ) then error stop \"PERM_INVERSE - Fatal error!  N <= 0.\" end if call perm_check ( n , p , ierror ) if ( ierror /= 0 ) then error stop & \"PERM_INVERSE - Fatal error!  P does not represent a permutation.\" end if is = 1 do i = 1 , n i1 = p ( i ) do while ( i < i1 ) i2 = p ( i1 ) p ( i1 ) = - i2 i1 = i2 end do is = - sign ( 1 , p ( i )) p ( i ) = sign ( p ( i ), is ) end do do i = 1 , n i1 = - p ( i ) if ( 0 <= i1 ) then i0 = i do i2 = p ( i1 ) p ( i1 ) = i0 if ( i2 < 0 ) exit i0 = i1 i1 = i2 end do end if end do end subroutine ! ------------------------------------------------------------------------------ pure function lrline ( xu , yu , xv1 , yv1 , xv2 , yv2 , dv ) result ( rst ) !! Determines if a point is left of, right of, or on a directed !! line. !! !! The directed line is parallel to, and at a signed distance DV !! from a directed base line from (XV1,YV1) to (XV2,YV2). real ( real64 ), intent ( in ) :: xu !! The x-coordinate of the point whose position relative to !! the directed line is to be determined. real ( real64 ), intent ( in ) :: yu !! The y-coordinate of the point whose position relative to !! the directed line is to be determined. real ( real64 ), intent ( in ) :: xv1 !! The x-coordinate of the first point defining the base !! line. real ( real64 ), intent ( in ) :: yv1 !! The y-coordinate of the first point defining the base !! line. real ( real64 ), intent ( in ) :: xv2 !! The x-coordinate of the second point defining the base !! line. real ( real64 ), intent ( in ) :: yv2 !! The y-coordinate of the second point defining the base !! line. real ( real64 ), intent ( in ) :: dv !! The signed distance of the directed line from the !! directed base line.  DV is positive for a line to the !! left of the base line. integer ( int32 ) :: rst !! +1 if the point is to the right of the directed line; 0 if !! the point is on the directed line; -1 if the point is to !! the left of the directed line. ! Local Variables real ( real64 ) :: dx , dxu , dy , dyu , t , tol , tolabs tol = 10 0.0d0 * epsilon ( tol ) dx = xv2 - xv1 dy = yv2 - yv1 dxu = xu - xv1 dyu = yu - yv1 tolabs = tol * max ( abs ( dx ), abs ( dy ), abs ( dxu ), abs ( dyu ), abs ( dv )) t = dy * dxu - dx * dyu + dv * sqrt ( dx * dx + dy * dy ) if ( tolabs < t ) then rst = 1 else if ( - tolabs <= t ) then rst = 0 else rst = - 1 end if end function ! ------------------------------------------------------------------------------ pure function diaedg ( x0 , y0 , x1 , y1 , x2 , y2 , x3 , y3 ) result ( rst ) !! Chooses a diagonal edge. !! !! The routine determines whether 0--2 or 1--3 is the diagonal !! edge that should be chosen, based on the circumcircle !! criterion, where (X0,Y0), (X1,Y1), (X2,Y2), (X3,Y3) are the !! vertices of a simple quadrilateral in counterclockwise order. real ( real64 ), intent ( in ) :: x0 , y0 , x1 , y1 , x2 , y2 , x3 , y3 !! The coordinates of the vertices of the quadrilateral. integer ( int32 ) :: rst !! +1 if diagonal edge 02 is chosen; -1 if diagonal edge 13 !! is chosen; 0 if the four vertices are cocircular. ! Local Variables real ( real64 ) :: ca , cb , dx10 , dx12 , dx30 , dx32 , dy10 , dy12 , dy30 , & dy32 , s , tol , tola , tolb tol = 10 0.0d0 * epsilon ( tol ) dx10 = x1 - x0 dy10 = y1 - y0 dx12 = x1 - x2 dy12 = y1 - y2 dx30 = x3 - x0 dy30 = y3 - y0 dx32 = x3 - x2 dy32 = y3 - y2 tola = tol * max ( abs ( dx10 ), abs ( dy10 ), abs ( dx30 ), abs ( dy30 )) tolb = tol * max ( abs ( dx12 ), abs ( dy12 ), abs ( dx32 ), abs ( dy32 )) ca = dx10 * dx30 + dy10 * dy30 cb = dx12 * dx32 + dy12 * dy32 if ( tola < ca . and . tolb < cb ) then rst = - 1 else if ( ca < - tola . and . cb < - tolb ) then rst = 1 else tola = max ( tola , tolb ) s = ( dx10 * dy30 - dx30 * dy10 ) * cb + & ( dx32 * dy12 - dx12 * dy32 ) * ca if ( tola < s ) then rst = - 1 else if ( s < - tola ) then rst = 1 else rst = 0 end if end if end function ! ------------------------------------------------------------------------------ pure function i4_modp ( i , j ) result ( rst ) !! Returns the nonnegative remainder of I4 division. integer ( int32 ), intent ( in ) :: i !! The number to be divided. integer ( int32 ), intent ( in ) :: j !! The number that divides I. integer ( int32 ) :: rst !! The nonnegative remainder when I is divided by J. rst = mod ( i , j ) if ( rst < 0 ) rst = rst + abs ( j ) end function ! ------------------------------------------------------------------------------ pure function i4_wrap ( ival , ilo , ihi ) result ( rst ) !! Forces an I4 to lie between given limits by wrapping. integer ( int32 ), intent ( in ) :: ival !! The value to wrap. integer ( int32 ), intent ( in ) :: ilo !! The lower bound. integer ( int32 ), intent ( in ) :: ihi !! The upper bound. integer ( int32 ) :: rst !! A \"wrapped\" version of IVAL. ! Local Variables integer ( int32 ) :: jhi , jlo , wide jlo = min ( ilo , ihi ) jhi = max ( ilo , ihi ) wide = jhi - jlo + 1 if ( wide == 1 ) then rst = jlo else rst = jlo + i4_modp ( ival - jlo , wide ) end if end function ! ------------------------------------------------------------------------------ pure subroutine vbedg ( x , y , node_num , node_xy , triangle_num , & triangle_node , triangle_neighbor , ltri , ledg , rtri , redg ) !! Determines which boundary edges are visible to a point. !! !! The point (X,Y) is assumed to be outside the convex hull of !! the region covered by the 2D triangulation. real ( real64 ), intent ( in ) :: x !! The x-coordinate of a point outside the convex hull of !! the current triangulation. real ( real64 ), intent ( in ) :: y !! The y-coordinate of a point outside the convex hull of !! the current triangulation. integer ( int32 ), intent ( in ) :: node_num !! The number of points. real ( real64 ), intent ( in ), dimension ( 2 , node_num ) :: node_xy !! The coordinates of the vertices. integer ( int32 ), intent ( in ) :: triangle_num !! The number of triangles. integer ( int32 ), intent ( in ), dimension ( 3 , triangle_num ) :: & triangle_node !! The triangle incidence list. integer ( int32 ), intent ( in ), dimension ( 3 , triangle_num ) :: & triangle_neighbor !! The triangle neighbor list; negative values are used for !! links of a counterclockwise linked list of boundary !! edges; LINK = -(3*I + J-1) where I, J = triangle, edge !! index. integer ( int32 ), intent ( inout ) :: ltri !! If LTRI /= 0 then this value is assumed to be already !! computed and is not changed, else it is updated.  On !! output, LTRI is the index of the boundary triangle to the !! left of the leftmost boundary triangle visible from !! (X,Y). integer ( int32 ), intent ( inout ) :: ledg !! The boundary edge of triangle LTRI to the left of the !! leftmost boundary edge visible from (X,Y).  1 <= LEDG <= !! 3. integer ( int32 ), intent ( inout ) :: rtri !! On input, the index of the boundary triangle to begin the !! search at.  On output, the index of the rightmost !! boundary triangle visible from (X,Y). integer ( int32 ), intent ( inout ) :: redg !! The edge of triangle RTRI that is visible from (X,Y). !! 1 <= REDG <= 3. ! Local Variables integer ( int32 ) :: a , b , e , l , lr , t logical :: ldone ! Find the rightmost visible boundary edge using links, then ! possibly the leftmost visible boundary edge using triangle ! neighbor information if ( ltri == 0 ) then ldone = . false . ltri = rtri ledg = redg else ldone = . true . end if do l = - triangle_neighbor ( redg , rtri ) t = l / 3 e = mod ( l , 3 ) + 1 a = triangle_node ( e , t ) if ( e <= 2 ) then b = triangle_node ( e + 1 , t ) else b = triangle_node ( 1 , t ) end if lr = lrline ( x , y , node_xy ( 1 , a ), node_xy ( 2 , a ), & node_xy ( 1 , b ), node_xy ( 2 , b ), 0.0d0 ) if ( lr <= 0 ) exit rtri = t redg = e end do if ( ldone ) return t = ltri e = ledg do b = triangle_node ( e , t ) e = i4_wrap ( e - 1 , 1 , 3 ) do while ( 0 < triangle_neighbor ( e , t )) t = triangle_neighbor ( e , t ) if ( triangle_node ( 1 , t ) == b ) then e = 3 else if ( triangle_node ( 2 , t ) == b ) then e = 1 else e = 2 end if end do a = triangle_node ( e , t ) lr = lrline ( x , y , node_xy ( 1 , a ), node_xy ( 2 , a ), & node_xy ( 1 , b ), node_xy ( 2 , b ), 0.0d0 ) if ( lr <= 0 ) exit end do ltri = t ledg = e end subroutine ! ------------------------------------------------------------------------------ pure subroutine swapec ( i , top , btri , bedg , node_num , node_xy , & triangle_num , triangle_node , triangle_neighbor , stack ) !! Swaps diagonal edges until all triangles are Delaunay. !! !! The routine swaps diagonal edges in a 2D triangulation, based !! on the empty circumcircle criterion, until all triangles are !! Delaunay, given that I is the index of the new vertex added !! to the triangulation. integer ( int32 ), intent ( in ) :: i !! The index of the new vertex. integer ( int32 ), intent ( inout ) :: top !! The index of the top of the stack.  On output, TOP is !! zero. integer ( int32 ), intent ( inout ) :: btri !! On input, if positive, the triangle index of a boundary !! edge whose updated index must be recorded.  On output, !! this may be updated because of swaps. integer ( int32 ), intent ( inout ) :: bedg !! On input, if positive, the edge index of a boundary edge !! whose updated index must be recorded.  On output, this !! may be updated because of swaps. integer ( int32 ), intent ( in ) :: node_num !! The number of points. real ( real64 ), intent ( in ), dimension ( 2 , node_num ) :: node_xy !! The coordinates of the points. integer ( int32 ), intent ( in ) :: triangle_num !! The number of triangles. integer ( int32 ), intent ( inout ), dimension ( 3 , triangle_num ) :: & triangle_node !! The triangle incidence list.  May be updated on output !! because of swaps. integer ( int32 ), intent ( inout ), dimension ( 3 , triangle_num ) :: & triangle_neighbor !! The triangle neighbor list; negative values are used for !! links of the counter-clockwise linked list of boundary !! edges.  May be updated on output because of swaps. integer ( int32 ), intent ( inout ), dimension ( node_num ) :: stack !! On input, entries 1 through TOP contain the indices of !! initial triangles (involving vertex I) put in the stack; !! the edges opposite I should be in the interior; entries !! TOP+1 through NODE_NUM are used as a stack. ! Local Variables integer ( int32 ) :: a , b , c , e , ee , em1 , ep1 , f , fm1 , fp1 , l , r , s , & swap , t , tt , u real ( real64 ) :: x , y x = node_xy ( 1 , i ) y = node_xy ( 2 , i ) do if ( top <= 0 ) exit t = stack ( top ) top = top - 1 if ( triangle_node ( 1 , t ) == i ) then e = 2 b = triangle_node ( 3 , t ) else if ( triangle_node ( 2 , t ) == i ) then e = 3 b = triangle_node ( 1 , t ) else e = 1 b = triangle_node ( 2 , t ) end if a = triangle_node ( e , t ) u = triangle_neighbor ( e , t ) if ( triangle_neighbor ( 1 , u ) == t ) then f = 1 c = triangle_node ( 3 , u ) else if ( triangle_neighbor ( 2 , u ) == t ) then f = 2 c = triangle_node ( 1 , u ) else f = 3 c = triangle_node ( 2 , u ) end if swap = diaedg ( x , y , node_xy ( 1 , a ), node_xy ( 2 , a ), & node_xy ( 1 , c ), node_xy ( 2 , c ), node_xy ( 1 , b ), & node_xy ( 2 , b )) if ( swap == 1 ) then em1 = i4_wrap ( e - 1 , 1 , 3 ) ep1 = i4_wrap ( e + 1 , 1 , 3 ) fm1 = i4_wrap ( f - 1 , 1 , 3 ) fp1 = i4_wrap ( f + 1 , 1 , 3 ) triangle_node ( ep1 , t ) = c triangle_node ( fp1 , u ) = i r = triangle_neighbor ( ep1 , t ) s = triangle_neighbor ( fp1 , u ) triangle_neighbor ( ep1 , t ) = u triangle_neighbor ( fp1 , u ) = t triangle_neighbor ( e , t ) = s triangle_neighbor ( f , u ) = r if ( 0 < triangle_neighbor ( fm1 , u )) then top = top + 1 stack ( top ) = u end if if ( 0 < s ) then if ( triangle_neighbor ( 1 , s ) == u ) then triangle_neighbor ( 1 , s ) = t else if ( triangle_neighbor ( 2 , s ) == u ) then triangle_neighbor ( 2 , s ) = t else triangle_neighbor ( 3 , s ) = t end if top = top + 1 if ( node_num < top ) then error stop \"SWAPEC - Fatal error!  Stack overflow.\" end if stack ( top ) = t else if ( u == btri . and . fp1 == bedg ) then btri = t bedg = e end if l = - ( 3 * t + e - 1 ) tt = t ee = em1 do while ( 0 < triangle_neighbor ( ee , tt )) tt = triangle_neighbor ( ee , tt ) if ( triangle_node ( 1 , tt ) == a ) then ee = 3 else if ( triangle_node ( 2 , tt ) == a ) then ee = 1 else ee = 2 end if end do triangle_neighbor ( ee , tt ) = l end if if ( 0 < r ) then if ( triangle_neighbor ( 1 , r ) == t ) then triangle_neighbor ( 1 , r ) = u else if ( triangle_neighbor ( 2 , r ) == t ) then triangle_neighbor ( 2 , r ) = u else triangle_neighbor ( 3 , r ) = u end if else if ( t == btri . and . ep1 == bedg ) then btri = u bedg = f end if l = - ( 3 * u + f - 1 ) tt = u ee = fm1 do while ( 0 < triangle_neighbor ( ee , tt )) tt = triangle_neighbor ( ee , tt ) if ( triangle_node ( 1 , tt ) == b ) then ee = 3 else if ( triangle_node ( 2 , tt ) == b ) then ee = 1 else ee = 2 end if end do triangle_neighbor ( ee , tt ) = l end if end if end do end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\delaunay.f90.html"},{"title":"fplot_plot_data_box_whisker.f90 – FPLOT","text":"Source Code module fplot_plot_data_box_whisker use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: plot_data_box_whisker type , extends ( plot_data_colored ) :: plot_data_box_whisker !! A container for box-whisker plot data. type ( string ), private , allocatable , dimension (:) :: m_x !! The x-coordinate data. real ( real64 ), private , allocatable , dimension (:) :: m_boxMin !! The minimum y-values for each box. real ( real64 ), private , allocatable , dimension (:) :: m_boxMax !! The maximum y-values for each box. real ( real64 ), private , allocatable , dimension (:) :: m_whiskerMin !! The minimum y-values for each whisker. real ( real64 ), private , allocatable , dimension (:) :: m_whiskerMax !! The maximum y-values for each whisker. real ( real64 ), private , allocatable , dimension (:) :: m_mid !! The mid-range y-values for each whisker.  Typically the mean !! or median. logical , private :: m_useY2 = . false . !! Plot against the secondary y-axis? logical , private :: m_whiskerbars = . true . !! Use horizontal whisker bar caps? real ( real32 ), private :: m_whiskerWidth = 1.5 !! On a scale of 0 -> 1, the whiskerwidth. real ( real32 ), private :: m_lineWidth = 2.0 !! The line width. real ( real32 ), private :: m_boxWidth = 0.05 !! The box width. logical , private :: m_fillBoxes = . true . !! Fill the boxes? real ( real32 ), private :: m_boxOpacity = 1.0 !! Box opacity [0, 1.0]. logical , private :: m_drawBorder = . true . !! Draw the box border? real ( real32 ), private :: m_midLineWidth = 2.0 !! The mid-line width. type ( color ), private :: m_midLineColor = CLR_BLACK !! The mid-line color. contains procedure , public :: define_data => pdbw_define_data_xstring procedure , public :: get_command_string => pdbw_get_cmd procedure , public :: get_data_string => pdbw_get_data_cmd procedure , public :: get_draw_against_y2 => pdbw_get_use_y2 procedure , public :: set_draw_against_y2 => pdbw_set_use_y2 procedure , public :: get_use_whiskerbars => pdbw_get_use_whiskerbars procedure , public :: set_use_whiskerbars => pdbw_set_use_whiskerbars procedure , public :: get_whiskerbar_width => pdbw_get_whiskerbar_width procedure , public :: set_whiskerbar_width => pdbw_set_whiskerbar_width procedure , public :: get_line_width => pdbw_get_line_width procedure , public :: set_line_width => pdbw_set_line_width procedure , public :: get_box_width => pdbw_get_box_width procedure , public :: set_box_width => pdbw_set_box_width procedure , public :: get_fill_boxes => pdbw_get_fill_boxes procedure , public :: set_fill_boxes => pdbw_set_fill_boxes procedure , public :: get_box_fill_opacity => pdbw_get_opacity procedure , public :: set_box_fill_opacity => pdbw_set_opacity procedure , public :: clear_data => pdbw_clear_data procedure , public :: get_midline_width => pdbw_get_midline_width procedure , public :: set_midline_width => pdbw_set_midline_width procedure , public :: get_midline_color => pdbw_get_midline_color procedure , public :: set_midline_color => pdbw_set_midline_color end type contains ! ------------------------------------------------------------------------------ subroutine pdbw_define_data_xstring ( this , x , boxmin , boxmax , whiskermin , & whiskermax , mid , err ) !! Defines the data set to plot. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. type ( string ), intent ( in ), dimension (:) :: x !! The x-coordinate data. real ( real64 ), intent ( in ), dimension ( size ( x )) :: boxmin !! The minimum y-values for each box. real ( real64 ), intent ( in ), dimension ( size ( x )) :: boxmax !! The maximum y-values for each box. real ( real64 ), intent ( in ), dimension ( size ( x )) :: whiskermin !! The minimum y-values for each whisker. real ( real64 ), intent ( in ), dimension ( size ( x )) :: whiskermax !! The maximum y-values for each whisker. real ( real64 ), intent ( in ), optional , dimension ( size ( x )) :: mid !! The mid-range values for each whisker.  Typically the mean or !! median of the data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Allocations if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_boxMin )) deallocate ( this % m_boxMin ) if ( allocated ( this % m_boxMax )) deallocate ( this % m_boxMax ) if ( allocated ( this % m_whiskerMin )) deallocate ( this % m_whiskerMin ) if ( allocated ( this % m_whiskerMax )) deallocate ( this % m_whiskerMax ) if ( allocated ( this % m_mid )) deallocate ( this % m_mid ) allocate ( this % m_x ( n ), source = x , stat = flag ) if ( flag == 0 ) allocate ( this % m_boxMin ( n ), source = boxmin , stat = flag ) if ( flag == 0 ) allocate ( this % m_boxMax ( n ), source = boxmax , stat = flag ) if ( flag == 0 ) allocate ( this % m_whiskerMin ( n ), source = whiskermin , stat = flag ) if ( flag == 0 ) allocate ( this % m_whiskerMax ( n ), source = whiskermax , stat = flag ) if ( flag == 0 . and . present ( mid )) allocate ( this % m_mid ( n ), source = mid , stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdbw_define_data_xstring\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function pdbw_get_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string for this object. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n , nname type ( color ) :: clr ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Style call str % append ( ' using ($0+1):2:3:4:5:(' ) call str % append ( to_string ( this % get_box_width ())) call str % append ( \"):xtic(1) with candlesticks\" ) ! Title nname = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Whisker bars if ( this % get_use_whiskerbars ()) then call str % append ( \" whiskerbars \" ) call str % append ( to_string ( this % get_whiskerbar_width ())) end if ! Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Fill Boxes if ( this % get_fill_boxes ()) then call str % append ( \" fill solid \" ) call str % append ( to_string ( this % get_box_fill_opacity ())) call str % append ( \" border\" ) end if ! Mid Values if ( allocated ( this % m_mid )) then call str % append ( \", $\" ) call str % append ( this % get_datablock_name ()) call str % append ( ' using ($0+1):6:6:6:6:(' ) call str % append ( to_string ( this % get_box_width ())) call str % append ( \"):xtic(1) with candlesticks\" ) call str % append ( \" lt -1\" ) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_midline_width ())) clr = this % get_midline_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) call str % append ( \" notitle\" ) end if ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdbw_get_data_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining the data for this object. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , n character :: delimiter , nl ! Initialization delimiter = achar ( 9 ) nl = new_line ( nl ) n = size ( this % m_x ) ! Process do i = 1 , n call str % append ( this % m_x ( i )) call str % append ( delimiter ) call str % append ( to_string ( this % m_boxMin ( i ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_whiskerMin ( i ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_whiskerMax ( i ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_boxMax ( i ))) if ( allocated ( this % m_mid )) then call str % append ( delimiter ) call str % append ( to_string ( this % m_mid ( i ))) end if call str % append ( nl ) end do ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdbw_get_axes_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining which axes the data is to be !! plotted against. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. character ( len = :), allocatable :: rst !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then rst = \"axes x1y2\" else rst = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ pure function pdbw_get_use_y2 ( this ) result ( rst ) !! Gets a value determining if the data is to be plotted against the !! secondary y axis. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. logical :: rst !! Returns true if the data is to be plotted against the secondary y !! axis; else, false for the primary y axis. rst = this % m_useY2 end function ! -------------------- subroutine pdbw_set_use_y2 ( this , x ) !! Sets a value determining if the data is to be plotted against the !! secondary y axis. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. logical , intent ( in ) :: x !! Set to true if the data is to be plotted against the secondary y !! axis; else, false for the primary y axis. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_use_whiskerbars ( this ) result ( rst ) !! Gets a value determining if whiskerbars should be used. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. logical :: rst !! True if whiskerbars should be used; else, false. rst = this % m_whiskerbars end function ! -------------------- subroutine pdbw_set_use_whiskerbars ( this , x ) !! Sets a value determining if whiskerbars should be used. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. logical , intent ( in ) :: x !! Set to true if whiskerbars should be used; else, false. this % m_whiskerbars = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_whiskerbar_width ( this ) result ( rst ) !! Gets the width of whiskerbar. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: rst !! The width of the whiskerbar on a scale of 0:1 with 1 being the full !! width. rst = this % m_whiskerWidth end function ! -------------------- subroutine pdbw_set_whiskerbar_width ( this , x ) !! Sets the width of the whiskerbar. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The width of the whiskerbar.  This value is clamped to [0, 1] with !! 1 representing full width. if ( x < 0.0d0 ) then this % m_whiskerWidth = 0.0d0 else if ( x > 1.0d0 ) then this % m_whiskerWidth = 1.0d0 else this % m_whiskerWidth = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_line_width ( this ) result ( x ) !! Gets the width of the line, in pixels. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: x !! The line width. x = this % m_lineWidth end function ! -------------------- subroutine pdbw_set_line_width ( this , x ) !! Sets the width of the line, in pixels. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_lineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_box_width ( this ) result ( rst ) !! Gets the box width.  By default the x-axis is incremented in units of 1; !! therefore, a box width of 1 will fully fill the space. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: rst !! The box width. rst = this % m_boxWidth end function ! -------------------- subroutine pdbw_set_box_width ( this , x ) !! Sets the box width.  By default the x-axis is incremented in units of 1; !! therefore, a box width of 1 will fully fill the space. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The box width. this % m_boxWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_fill_boxes ( this ) result ( rst ) !! Gets a value determining if the boxes should be filled. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. logical :: rst !! True if the boxes are to be filled; else, false. rst = this % m_fillBoxes end function ! -------------------- subroutine pdbw_set_fill_boxes ( this , x ) !! Sets a value determining if the boxes should be filled. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. logical , intent ( in ) :: x !! Set to true if the boxes are to be filled; else, false. this % m_fillBoxes = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_opacity ( this ) result ( rst ) !! Gets the opacity of the box fill color. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: rst !! The opacity on a scale from 0 to 1. rst = this % m_boxOpacity end function ! -------------------- subroutine pdbw_set_opacity ( this , x ) !! Sets the opacity of the box fill color. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The opacity on a scale from 0 to 1. this % m_boxOpacity = x end subroutine ! ------------------------------------------------------------------------------ subroutine pdbw_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_boxMin )) deallocate ( this % m_boxMin ) if ( allocated ( this % m_boxMax )) deallocate ( this % m_boxMax ) if ( allocated ( this % m_whiskerMin )) deallocate ( this % m_whiskerMin ) if ( allocated ( this % m_whiskerMin )) deallocate ( this % m_whiskerMin ) if ( allocated ( this % m_mid )) deallocate ( this % m_mid ) end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_midline_width ( this ) result ( rst ) !! Gets the width of the midline. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. real ( real32 ) :: rst !! The line width. rst = this % m_midLineWidth end function ! -------------------- subroutine pdbw_set_midline_width ( this , x ) !! Sets the width of the midline. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_midLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function pdbw_get_midline_color ( this ) result ( rst ) !! Gets the color of the midline. class ( plot_data_box_whisker ), intent ( in ) :: this !! The plot_data_box_whisker object. type ( color ) :: rst !! The line color. rst = this % m_midLineColor end function ! -------------------- subroutine pdbw_set_midline_color ( this , x ) !! Sets the color of the midline. class ( plot_data_box_whisker ), intent ( inout ) :: this !! The plot_data_box_whisker object. type ( color ) , intent ( in ) :: x !! The line color. this % m_midLineColor = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_box_whisker.f90.html"},{"title":"fplot_svg_terminal.f90 – FPLOT","text":"Source Code module fplot_svg_terminal use iso_fortran_env use fplot_terminal use fplot_constants use strings implicit none private public :: svg_terminal type , extends ( file_terminal ) :: svg_terminal !! An SVG terminal. character ( len = 47 ), private :: m_id = 'svg enhanced background \"white\" dynamic mousing' !! The terminal ID string contains procedure , public :: get_id_string => svg_get_term_string end type contains ! ------------------------------------------------------------------------------ function svg_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( svg_terminal ), intent ( in ) :: this !! The svg_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_svg_terminal.f90.html"},{"title":"fplot_plot_object.f90 – FPLOT","text":"Source Code module fplot_plot_object use iso_fortran_env implicit none type , abstract :: plot_object !! The base type for all plot objects. contains procedure ( get_string_result ), deferred , public :: get_command_string end type interface function get_string_result ( this ) result ( x ) !! Returns a string from a plot_object. import plot_object class ( plot_object ), intent ( in ) :: this !! The plot_object object. character ( len = :), allocatable :: x !! The result string. end function end interface end module","tags":"","loc":"sourcefile\\fplot_plot_object.f90.html"},{"title":"fplot_delaunay_tri_surface.f90 – FPLOT","text":"Source Code ! fplot_delaunay_tri_surface.f90 module fplot_delaunay_tri_surface use iso_fortran_env use ieee_arithmetic use fplot_triangulations_delaunay_2d use fplot_errors implicit none private public :: delaunay_tri_surface type , extends ( delaunay_tri_2d ) :: delaunay_tri_surface !! Provides a type describing a triangulated surface. real ( real64 ), private , allocatable , dimension (:) :: m_z !! An array of the z-coordinates of each point. contains procedure , public :: define_function_values => dts_define_fcn procedure , public :: get_points_z => dts_get_z generic , public :: evaluate => dts_interp_1 , dts_interp_2 procedure , private :: dts_interp_1 procedure , private :: dts_interp_2 end type contains ! ------------------------------------------------------------------------------ subroutine dts_define_fcn ( this , z , err ) !! Defines the function values that correspond to the x and y !! data points. class ( delaunay_tri_surface ), intent ( inout ) :: this !! The delaunay_tri_surface object. real ( real64 ), intent ( in ), dimension (:) :: z !! An N-element array containing the function values for !! each x and y coordinate.  Notice, the x and y coordinates must !! already be defined prior to calling this routine. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = this % get_point_count () ! Input Check if ( n == 0 ) then call errmgr % report_error ( \"dts_define_fcn\" , & \"No x-y coordinates have been defined.\" , & PLOT_INVALID_OPERATION_ERROR ) return end if if ( size ( z ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"dts_define_fcn\" , & \"z\" , n , size ( z )) return end if ! Store the data if ( allocated ( this % m_z )) deallocate ( this % m_z ) allocate ( this % m_z ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"dts_define_fcn\" , flag ) return end if this % m_z = z end subroutine ! ------------------------------------------------------------------------------ pure function dts_get_z ( this ) result ( rst ) !! Gets the z-coordinates of each point. class ( delaunay_tri_surface ), intent ( in ) :: this !! The delaunay_tri_surface object. real ( real64 ), allocatable , dimension (:) :: rst !! An array of the z-coordinates of each point. if ( allocated ( this % m_z )) then rst = this % m_z else allocate ( rst ( 0 )) end if end function ! ------------------------------------------------------------------------------ ! Interpolation Routine - Barycentric Coordinate Approach ! https://www.iue.tuwien.ac.at/phd/nentchev/node25.html ! https://academic.csuohio.edu/duffy_s/CVE_512_11.pdf pure function dts_interp_1 ( this , x , y ) result ( z ) !! Evaluates the function at the requested point by means of !! linear interpolation. class ( delaunay_tri_surface ), intent ( in ) :: this !! The delaunay_tri_surface object. real ( real64 ), intent ( in ) :: x !! The x-coordinate at which to evaluate the function. real ( real64 ), intent ( in ) :: y !! The y-coordinate at which to evaluate the function. real ( real64 ) :: z !! The function value.  If the point (x, y) does not lie within the !! range of defined values, then a value of NaN is returned. ! Local Variables integer ( int32 ) :: i , n1 , n2 , n3 real ( real64 ) :: x1 , x2 , x3 , y1 , y2 , y3 , z1 , z2 , z3 integer ( int32 ), allocatable , dimension (:,:) :: indices real ( real64 ), allocatable , dimension (:) :: xc , yc , zc ! Initialization z = ieee_value ( z , ieee_quiet_nan ) indices = this % get_indices () xc = this % get_points_x () yc = this % get_points_y () zc = this % get_points_z () ! Quick Return if ( this % get_triangle_count () == 0 . or . & this % get_point_count () == 0 . or . & size ( zc ) == 0 ) return ! Locate the triangle to which the point (x, y) belongs.  If no triangle ! is found, simply return NaN i = this % find_triangle ( x , y ) if ( i == - 1 ) return ! Get the triangle vertices n1 = indices ( i , 1 ) n2 = indices ( i , 2 ) n3 = indices ( i , 3 ) x1 = xc ( n1 ) y1 = yc ( n1 ) z1 = zc ( n1 ) x2 = xc ( n2 ) y2 = yc ( n2 ) z2 = zc ( n2 ) x3 = xc ( n3 ) y3 = yc ( n3 ) z3 = zc ( n3 ) ! Perform the interpolation z = linear_interp ( x1 , y1 , z1 , x2 , y2 , z2 , x3 , y3 , z3 , x , y ) end function ! -------------------- pure function dts_interp_2 ( this , x , y ) result ( z ) !! Evaluates the function at the requested point by means of !! linear interpolation. class ( delaunay_tri_surface ), intent ( in ) :: this !! The delaunay_tri_surface object. real ( real64 ), intent ( in ), dimension (:) :: x !! The x data coordinates. real ( real64 ), intent ( in ), dimension (:) :: y !! The x data coordinates. real ( real64 ), allocatable , dimension (:) :: z !! The interpolated z coordinate points.  If the point (x, y) does !! not lie within the range of defined values, then a value of NaN !! is returned. ! Local Variables integer ( int32 ) :: i , j , n1 , n2 , n3 , nxy real ( real64 ) :: x1 , x2 , x3 , y1 , y2 , y3 , z1 , z2 , z3 , nan integer ( int32 ), allocatable , dimension (:,:) :: indices real ( real64 ), allocatable , dimension (:) :: xc , yc , zc ! Initialization nxy = min ( size ( x ), size ( y )) nan = ieee_value ( nan , ieee_quiet_nan ) allocate ( z ( nxy )) z = nan indices = this % get_indices () xc = this % get_points_x () yc = this % get_points_y () zc = this % get_points_z () ! Quick Return if ( this % get_triangle_count () == 0 . or . & this % get_point_count () == 0 . or . & size ( zc ) == 0 ) return ! Locate the triangle to which the point (x, y) belongs.  If no triangle ! is found, simply return NaN do i = 1 , nxy ! Find the index of the triangle j = this % find_triangle ( x ( i ), y ( i )) if ( j == - 1 ) cycle ! Skip if we couldn't find a triangle ! Get the vertices n1 = indices ( j , 1 ) n2 = indices ( j , 2 ) n3 = indices ( j , 3 ) x1 = xc ( n1 ) y1 = yc ( n1 ) z1 = zc ( n1 ) x2 = xc ( n2 ) y2 = yc ( n2 ) z2 = zc ( n2 ) x3 = xc ( n3 ) y3 = yc ( n3 ) z3 = zc ( n3 ) ! Perform the interpolation z ( i ) = linear_interp ( x1 , y1 , z1 , x2 , y2 , z2 , x3 , y3 , z3 , x ( i ), y ( i )) end do end function ! ------------------------------------------------------------------------------ ! Utilizes linear shape functions to interpolate on a triangle given its ! vertex locations, and the desired interpolation location.  Notice, the ! interpolation location is expected to lie within the triangle.  This is ! not checked. pure elemental function linear_interp ( x1 , y1 , z1 , x2 , y2 , z2 , x3 , & y3 , z3 , x , y ) result ( z ) real ( real64 ), intent ( in ) :: x1 , y1 , z1 , x2 , y2 , z2 , x3 , y3 , z3 , x , y real ( real64 ) :: a1 , a2 , a3 , j , z j = ( x2 - x1 ) * y3 + ( x1 - x3 ) * y2 + ( x3 - x2 ) * y1 a1 = ( x2 * y3 - x3 * y2 + ( y2 - y3 ) * x + ( x3 - x2 ) * y ) a2 = ( x3 * y1 - x1 * y3 + ( y3 - y1 ) * x + ( x1 - x3 ) * y ) a3 = ( x1 * y2 - x2 * y1 + ( y1 - y2 ) * x + ( x2 - x1 ) * y ) z = ( a1 * z1 + a2 * z2 + a3 * z3 ) / j end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_delaunay_tri_surface.f90.html"},{"title":"fplot_errors.f90 – FPLOT","text":"Source Code module fplot_errors use iso_fortran_env implicit none type :: errors contains procedure :: report_error end type ! ****************************************************************************** ! ERROR CODES ! ------------------------------------------------------------------------------ integer ( int32 ), parameter :: PLOT_OUT_OF_MEMORY_ERROR = 1000 !! Occurs if there is insufficient memory available for the !! requested operation. integer ( int32 ), parameter :: PLOT_INVALID_INPUT_ERROR = 1001 !! Occurs if an invalid input is provided. integer ( int32 ), parameter :: PLOT_INVALID_OPERATION_ERROR = 1002 !! Occurs if an attempt is made to perform an invalid operation. integer ( int32 ), parameter :: PLOT_ARRAY_SIZE_MISMATCH_ERROR = 1003 !! Occurs if there is an array size mismatch error. integer ( int32 ), parameter :: PLOT_GNUPLOT_FILE_ERROR = 1004 !! Occurs if there is a GNUPLOT file error. contains ! ------------------------------------------------------------------------------ subroutine report_error ( this , fcn , msg , code ) class ( errors ), intent ( inout ) :: this character ( len = * ), intent ( in ) :: fcn character ( len = * ), intent ( in ) :: msg integer ( int32 ), intent ( in ) :: code write ( error_unit , '(A)' ) trim ( fcn ) // ': ' // trim ( msg ) error stop code end subroutine ! ------------------------------------------------------------------------------ subroutine report_memory_error ( err , fcn , flag ) !! Reports a memory allocation error. class ( errors ), intent ( inout ) :: err !! The error handling object. character ( len = * ), intent ( in ) :: fcn !! The name of the function or subroutine in which the error occurred. integer ( int32 ), intent ( in ) :: flag !! The error flag returned by the system. ! Local Variables character ( len = 256 ) :: msg ! Define the error message write ( msg , 100 ) \"Memory allocation error returning flag \" , flag , \".\" call err % report_error ( fcn , trim ( msg ), PLOT_OUT_OF_MEMORY_ERROR ) ! Formatting 100 format ( A , I0 , A ) end subroutine ! ------------------------------------------------------------------------------ subroutine report_file_create_error ( err , fcn , fname , flag ) !! Reports an I/O error related to file creating. class ( errors ), intent ( inout ) :: err !! The error handling object. character ( len = * ), intent ( in ) :: fcn !! The name of the function or subroutine in which the error occurred. character ( len = * ), intent ( in ) :: fname !! The filename. integer ( int32 ), intent ( in ) :: flag !! The error flag returned by the system. ! Local Variables character ( len = 2048 ) :: msg ! Define the error message write ( msg , 100 ) \"File \" , fname , \" could not be created.  The error flag \" , & flag , \" was returned.\" call err % report_error ( fcn , trim ( msg ), PLOT_GNUPLOT_FILE_ERROR ) ! Formatting 100 format ( A , A , A , I0 , A ) end subroutine ! ------------------------------------------------------------------------------ subroutine report_array_size_mismatch_error ( err , fcn , name , expected , actual ) !! Reports an array size mismatch error. class ( errors ), intent ( inout ) :: err !! The error handling object. character ( len = * ), intent ( in ) :: fcn !! The name of the function or subroutine in which the error occurred. character ( len = * ), intent ( in ) :: name !! The variable name. integer ( int32 ), intent ( in ) :: expected !! The expected array size. integer ( int32 ), intent ( in ) :: actual !! The actual array size. ! Local Variables character ( len = 256 ) :: msg ! Define the message write ( msg , 100 ) \"Array \" , name , \" was found to be of length \" , actual , & \", but was expected to be of length \" , expected , \".\" call err % report_error ( fcn , trim ( msg ), PLOT_ARRAY_SIZE_MISMATCH_ERROR ) ! Formatting 100 format ( A , A , A , I0 , A , I0 , A ) end subroutine ! ------------------------------------------------------------------------------ subroutine report_matrix_size_mismatch_error ( err , fcn , name , mexp , nexp , & mact , nact ) !! Reports a matrix size mismatch error. class ( errors ), intent ( inout ) :: err !! The error handling object. character ( len = * ), intent ( in ) :: fcn !! The name of the function or subroutine in which the error occurred. character ( len = * ), intent ( in ) :: name !! The variable name. integer ( int32 ), intent ( in ) :: mexp !! The expected number of rows. integer ( int32 ), intent ( in ) :: nexp !! The expected number of columns. integer ( int32 ), intent ( in ) :: mact !! The actual number of rows. integer ( int32 ), intent ( in ) :: nact !! The actual number of columns. ! Local Variables character ( len = 256 ) :: msg ! Define the error write ( msg , 100 ) \"Matrix \" , name , \" was expected to be of size \" , mexp , & \"-by-\" , nexp , \", but was found to be of size \" , mact , \"-by-\" , nact , \".\" call err % report_error ( fcn , trim ( msg ), PLOT_ARRAY_SIZE_MISMATCH_ERROR ) ! Formatting 100 format ( A , A , A , I0 , A , I0 , A , I0 , A , I0 , A ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_errors.f90.html"},{"title":"fplot_simplify.f90 – FPLOT","text":"Source Code ! fplot_simplify.f90 ! References: ! - https://www.codeproject.com/Articles/114797/Polyline-Simplification ! - https://en.wikipedia.org/wiki/Ramer%E2%80%93Douglas%E2%80%93Peucker_algorithm module fplot_simplify use iso_fortran_env use fplot_errors implicit none private public :: simplify_polyline interface simplify_polyline module procedure :: simplify_polyline_2d1 module procedure :: simplify_polyline_3d1 module procedure :: simplify_polyline_mtx end interface contains function simplify_polyline_2d1 ( x , y , tol , err ) result ( ln ) !! Simplifies a 2D polyline by removing points too close to !! discern given a specified tolerance. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ) :: tol !! The distance tolerance to use when simplifying the polyline. !! This value must be positive, and larger than machine epsilon. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. real ( real64 ), allocatable , dimension (:,:) :: ln !! A matrix containing the simplified polyline vertices.  The first !! column of the matrix contains the x-coordinates, and the second !! column contains the y-coordinates. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n real ( real64 ) :: eps ! Initialization n = size ( x ) eps = epsilon ( eps ) if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Input Check if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"simplify_polyline_2d1\" , \"y\" , n , size ( y )) return end if if ( tol < eps ) then call errmgr % report_error ( \"simplify_polyline_2d1\" , & \"The tolerance value is either negative or less \" // & \"than machine precision.\" , PLOT_INVALID_INPUT_ERROR ) return end if ! Process ln = radial_distance_2d ( x , y , tol , err ) end function function simplify_polyline_3d1 ( x , y , z , tol , err ) result ( ln ) !! Simplifies a 3D polyline by removing points too close to !! discern given a specified tolerance. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ), dimension (:) :: z !! An N-element array containing the z-coordinates of the vertices !! making up the polyline. real ( real64 ), intent ( in ) :: tol !! The distance tolerance to use when simplifying the polyline. !! This value must be positive, and larger than machine epsilon. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. real ( real64 ), allocatable , dimension (:,:) :: ln !! A matrix containing the simplified polyline vertices.  The first !! column of the matrix contains the x-coordinates, the second !! column contains the y-coordinates, and the third column contains !! the z-coordinates. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n real ( real64 ) :: eps ! Initialization n = size ( x ) eps = epsilon ( eps ) if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Input Check if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"simplify_polyline_3d1\" , \"y\" , n , size ( y )) return end if if ( size ( z ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"simplify_polyline_3d1\" , \"z\" , n , size ( z )) return end if if ( tol < eps ) then call errmgr % report_error ( \"simplify_polyline_3d1\" , & \"The tolerance value is either negative or less \" // & \"than machine precision.\" , PLOT_INVALID_INPUT_ERROR ) return end if ! Process ln = radial_distance_3d ( x , y , z , tol , errmgr ) end function function simplify_polyline_mtx ( xy , tol , err ) result ( ln ) !! Simplifies a 2D or 3D polyline by removing points too close to !! discern given a specified tolerance. real ( real64 ), intent ( in ), dimension (:,:) :: xy !! An N-by-2 or N-by-3 matrix containing the polyline vertex data. real ( real64 ), intent ( in ) :: tol !! The distance tolerance to use when simplifying the polyline. !! This value must be positive, and larger than machine epsilon. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. real ( real64 ), allocatable , dimension (:,:) :: ln !! A matrix containing the simplified polyline vertices.  The first !! column of the matrix contains the x-coordinates, the second !! column contains the y-coordinates, and if necessary, the third !! column contains the z-coordinates. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Ensure there are at least 2 columns of data in XY if ( size ( xy , 2 ) < 2 ) then call report_matrix_size_mismatch_error ( errmgr , & \"simplify_polyline_mtx\" , \"xy\" , size ( xy , 1 ), 2 , size ( xy , 1 ), & size ( xy , 2 )) return end if ! Process if ( size ( xy , 2 ) == 2 ) then ln = simplify_polyline_2d1 ( xy (:, 1 ), xy (:, 2 ), tol , errmgr ) else ln = simplify_polyline_3d1 ( xy (:, 1 ), xy (:, 2 ), xy (:, 3 ), tol , errmgr ) end if end function function radial_distance_2d ( x , y , tol , err ) result ( pts ) ! Arguments real ( real64 ), intent ( in ), dimension (:) :: x , y real ( real64 ), intent ( in ) :: tol class ( errors ), intent ( inout ) :: err real ( real64 ), allocatable , dimension (:,:) :: pts ! Local Variables integer ( int32 ) :: i , j , n , nvalid , flag logical , allocatable , dimension (:) :: valid real ( real64 ) :: r , xref , yref ! Initialization n = size ( x ) if ( n == 0 ) return i = 2 xref = x ( 1 ) yref = y ( 1 ) nvalid = 1 ! Local Memory Allocation allocate ( valid ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( err , \"radial_distance_2d\" , flag ) return end if valid ( 1 ) = . true . ! Cycle through and determine which points to keep do if ( i > n ) exit r = pythag2 ( x ( i ), y ( i ), xref , yref ) if ( r < tol ) then ! The point is too close, reject it valid ( i ) = . false . else ! The point is outside the tolerance, and is OK valid ( i ) = . true . nvalid = nvalid + 1 ! Move the reference point xref = x ( i ) yref = y ( i ) end if i = i + 1 end do ! Allocate space, and collect all valid points allocate ( pts ( nvalid , 2 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( err , \"radial_distance_2d\" , flag ) return end if j = 1 do i = 1 , n if ( valid ( i )) then pts ( j , 1 ) = x ( i ) pts ( j , 2 ) = y ( i ) j = j + 1 end if end do end function function radial_distance_3d ( x , y , z , tol , err ) result ( pts ) ! Arguments real ( real64 ), intent ( in ), dimension (:) :: x , y , z real ( real64 ), intent ( in ) :: tol class ( errors ), intent ( inout ) :: err real ( real64 ), allocatable , dimension (:,:) :: pts ! Local Variables integer ( int32 ) :: i , j , n , nvalid , flag logical , allocatable , dimension (:) :: valid real ( real64 ) :: r , xref , yref , zref ! Initialization n = size ( x ) if ( n == 0 ) return i = 2 xref = x ( 1 ) yref = y ( 1 ) zref = z ( 1 ) nvalid = 1 ! Local Memory Allocation allocate ( valid ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( err , \"radial_distance_3d\" , flag ) return end if valid ( 1 ) = . true . ! Cycle through and determine which points to keep do if ( i > n ) exit r = pythag3 ( x ( i ), y ( i ), z ( i ), xref , yref , zref ) if ( r < tol ) then ! The point is too close, reject it valid ( i ) = . false . else ! The point is outside the tolerance, and is OK valid ( i ) = . true . nvalid = nvalid + 1 ! Move the reference point xref = x ( i ) yref = y ( i ) zref = z ( i ) end if i = i + 1 end do ! Allocate space, and collect all valid points allocate ( pts ( nvalid , 3 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( err , \"radial_distance_3d\" , flag ) return end if j = 1 do i = 1 , n if ( valid ( i )) then pts ( j , 1 ) = x ( i ) pts ( j , 2 ) = y ( i ) pts ( j , 3 ) = z ( i ) j = j + 1 end if end do end function pure function pythag2 ( x , y , xo , yo ) result ( r ) ! Arguments real ( real64 ), intent ( in ) :: x , y , xo , yo real ( real64 ) :: r ! Local Variables real ( real64 ) :: w , xabs , yabs ! Process xabs = abs ( x - xo ) yabs = abs ( y - yo ) w = max ( xabs , yabs ) if ( w < epsilon ( w )) then r = xabs + yabs else r = w * sqrt (( xabs / w ) ** 2 + ( yabs / w ) ** 2 ) end if end function pure function pythag3 ( x , y , z , xo , yo , zo ) result ( r ) ! Arguments real ( real64 ), intent ( in ) :: x , y , z , xo , yo , zo real ( real64 ) :: r ! Local Variables real ( real64 ) :: w , xabs , yabs , zabs ! Process xabs = abs ( x - xo ) yabs = abs ( y - yo ) zabs = abs ( z - zo ) w = max ( xabs , yabs , zabs ) if ( w < epsilon ( w )) then r = xabs + yabs + zabs else r = w * sqrt (( xabs / w ) ** 2 + ( yabs / w ) ** 2 + ( zabs / w ) ** 2 ) end if end function end module","tags":"","loc":"sourcefile\\fplot_simplify.f90.html"},{"title":"fplot_qt_terminal.f90 – FPLOT","text":"Source Code ! fplot_qt_terminal.f90 module fplot_qt_terminal use iso_fortran_env use fplot_terminal implicit none private public :: qt_terminal type , extends ( terminal ) :: qt_terminal !! Defines a terminal that utilizes QT. character ( len = 2 ), private :: m_id = \"qt\" !! The terminal ID string contains procedure , public :: get_id_string => qt_get_term_string end type contains function qt_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( qt_terminal ), intent ( in ) :: this !! The qt_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function end module","tags":"","loc":"sourcefile\\fplot_qt_terminal.f90.html"},{"title":"fplot_multiplot.f90 – FPLOT","text":"Source Code ! fplot_multiplot.f90 module fplot_multiplot use iso_fortran_env use fplot_plot_object use fplot_plot use fplot_terminal use fplot_windows_terminal use fplot_qt_terminal use fplot_wxt_terminal use fplot_png_terminal use fplot_latex_terminal use fplot_svg_terminal use fplot_pdf_terminal use fplot_constants use fplot_errors use collections use strings implicit none private public :: multiplot type , extends ( plot_object ) :: multiplot !! Defines a multi-plot layout. type ( list ), private :: m_plots !! The collection of plot objects. integer ( int32 ), private :: m_rows = 0 !! The number of rows of plots. integer ( int32 ), private :: m_cols = 0 !! The number of columns of plots. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_title !! The page title. logical , private :: m_hasTitle = . false . !! Has a title? class ( terminal ), pointer :: m_terminal => null () !! The GNUPLOT terminal object to target. real ( real32 ), private :: m_leftMargin = 0.12 real ( real32 ), private :: m_rightMargin = 0.95 real ( real32 ), private :: m_bottomMargin = 0.10 real ( real32 ), private :: m_topMargin = 0.95 real ( real32 ), private :: m_horizontalSpacing = 0.0 real ( real32 ), private :: m_verticalSpacing = 0.0 logical , private :: m_useAutoMargins = . true . contains final :: mp_clean procedure , public :: get_command_string => mp_get_command procedure , public :: initialize => mp_init procedure , public :: get_row_count => mp_get_rows procedure , public :: get_column_count => mp_get_cols procedure , public :: get_plot_count => mp_get_count procedure , public :: get_title => mp_get_title procedure , public :: set_title => mp_set_title procedure , public :: draw => mp_draw procedure , public :: get => mp_get procedure , public :: set => mp_set procedure , public :: is_title_defined => mp_has_title procedure , public :: get_terminal => mp_get_term procedure , public :: save_file => mp_save procedure , public :: get_font_name => mp_get_font procedure , public :: set_font_name => mp_set_font procedure , public :: get_font_size => mp_get_font_size procedure , public :: set_font_size => mp_set_font_size procedure , public :: set_window_size => mp_set_window_size procedure , public :: get_left_margin => mp_get_left_margin procedure , public :: set_left_margin => mp_set_left_margin procedure , public :: get_right_margin => mp_get_right_margin procedure , public :: set_right_margin => mp_set_right_margin procedure , public :: get_top_margin => mp_get_top_margin procedure , public :: set_top_margin => mp_set_top_margin procedure , public :: get_bottom_margin => mp_get_bottom_margin procedure , public :: set_bottom_margin => mp_set_bottom_margin procedure , public :: get_horizontal_spacing => mp_get_horizontal_spacing procedure , public :: set_horizontal_spacing => mp_set_horizontal_spacing procedure , public :: get_vertical_spacing => mp_get_vertical_spacing procedure , public :: set_vertical_spacing => mp_set_vertical_spacing procedure , public :: get_use_auto_generated_margins => mp_get_use_auto_generated_margins procedure , public :: set_use_auto_generated_margins => mp_set_use_auto_generated_margins end type contains ! ------------------------------------------------------------------------------ function mp_get_command ( this ) result ( x ) !! Gets the GNUPLOT commands for this object. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , m , n class ( plot ), pointer :: ptr ! Initialization call str % initialize () m = this % get_row_count () n = this % get_column_count () ! Set up the multiplot call str % append ( \"set multiplot layout \" ) call str % append ( to_string ( m )) call str % append ( \",\" ) call str % append ( to_string ( n )) call str % append ( \" columnsfirst\" ) if ( this % is_title_defined ()) then call str % append ( \" title \" ) call str % append ( '\"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if if (. not . this % get_use_auto_generated_margins ()) then call str % append ( \" margins \" ) call str % append ( to_string ( this % get_left_margin ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_right_margin ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_bottom_margin ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_top_margin ())) end if call str % append ( \" spacing \" ) call str % append ( to_string ( this % get_horizontal_spacing ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_vertical_spacing ())) call str % append ( new_line ( 'a' )) ! Write commands for each plot object do j = 1 , n do i = 1 , m ptr => this % get ( i , j ) call str % append ( new_line ( 'a' )) call str % append ( ptr % get_command_string ()) end do end do ! Close out the multiplot call str % append ( new_line ( 'a' )) call str % append ( \"unset multiplot\" ) ! Get the string x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine mp_init ( this , m , n , term , width , height , fname , err ) !! Initializes the multiplot object. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: m !! The number of rows of plots. integer ( int32 ), intent ( in ) :: n !! The number of columns of plots. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal.  The !! default terminal is a WXT terminal.  The acceptable inputs are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF integer ( int32 ), intent ( in ), optional :: width !! Optionally, the width of the plot window. integer ( int32 ), intent ( in ), optional :: height !! Optionally, the height of the plot window. character ( len = * ), intent ( in ), optional :: fname !! A filename to associate with terminals that print to file. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag , t , i class ( errors ), pointer :: errmgr type ( errors ), target :: deferr type ( wxt_terminal ), pointer :: wxt type ( windows_terminal ), pointer :: win type ( qt_terminal ), pointer :: qt type ( png_terminal ), pointer :: png type ( latex_terminal ), pointer :: latex type ( svg_terminal ), pointer :: svg type ( pdf_terminal ), pointer :: pdf ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( present ( term )) then t = term else t = GNUPLOT_TERMINAL_WXT end if ! Process call this % m_plots % clear () this % m_rows = m this % m_cols = n flag = 0 ! Populate the list with a dummy variable at the outset.  This allows ! the list to be appropriately sized so the user may use the \"set\" ! subroutine appropriately do i = 1 , m * n call this % m_plots % push ( i ) end do ! Define the terminal if ( associated ( this % m_terminal )) deallocate ( this % m_terminal ) select case ( t ) case ( GNUPLOT_TERMINAL_PNG ) allocate ( png , stat = flag ) if ( present ( fname )) call png % set_filename ( fname ) this % m_terminal => png case ( GNUPLOT_TERMINAL_QT ) allocate ( qt , stat = flag ) this % m_terminal => qt case ( GNUPLOT_TERMINAL_WIN32 ) allocate ( win , stat = flag ) this % m_terminal => win case ( GNUPLOT_TERMINAL_LATEX ) allocate ( latex , stat = flag ) if ( present ( fname )) call latex % set_filename ( fname ) this % m_terminal => latex case ( GNUPLOT_TERMINAL_SVG ) allocate ( svg ) if ( present ( fname )) call svg % set_filename ( fname ) this % m_terminal => svg case ( GNUPLOT_TERMINAL_PDF ) allocate ( pdf , stat = flag ) if ( present ( fname )) call pdf % set_filename ( fname ) this % m_terminal => pdf case default ! WXT is the default allocate ( wxt , stat = flag ) this % m_terminal => wxt end select ! Error Checking if ( flag /= 0 ) then call report_memory_error ( errmgr , \"mp_init\" , flag ) return end if ! Size the window? if ( present ( width )) then call this % m_terminal % set_window_width ( width ) end if if ( present ( height )) then call this % m_terminal % set_window_height ( height ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine mp_clean ( this ) !! Cleans up resources held by the multiplot object. type ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. if ( associated ( this % m_terminal )) deallocate ( this % m_terminal ) nullify ( this % m_terminal ) end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_rows ( this ) result ( x ) !! Gets the number of rows of plots. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ) :: x !! The row count. x = this % m_rows end function ! -------------------- pure function mp_get_cols ( this ) result ( x ) !! Gets the number of columns of plots. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ) :: x !! The column count. x = this % m_cols end function ! -------------------- pure function mp_get_count ( this ) result ( x ) !! Gets the total number of plots. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ) :: x !! The plot count. x = this % m_plots % count () end function ! ------------------------------------------------------------------------------ function mp_get_title ( this ) result ( x ) !! Gets the multiplot's title. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. character ( len = :), allocatable :: x !! The title. x = this % m_title end function ! -------------------- subroutine mp_set_title ( this , x ) !! Sets the multiplot's title. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. character ( len = * ), intent ( in ) :: x !! The title. ! Local Variables integer ( int32 ) :: n ! Process n = min ( len ( x ), PLOTDATA_MAX_NAME_LENGTH ) this % m_title = \"\" if ( n /= 0 ) then this % m_title ( 1 : n ) = x ( 1 : n ) this % m_hasTitle = . true . else this % m_hasTitle = . false . end if end subroutine ! ------------------------------------------------------------------------------ subroutine mp_draw ( this , persist , err ) !! Launches GNUPLOT and draws the multiplot per the current state of !! the command list. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. logical , intent ( in ), optional :: persist !! An optional parameter that can be used to keep GNUPLOT open. !! Set to true to force GNUPLOT to remain open; else, set to false !! to allow GNUPLOT to close after drawing.  The default is true. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Parameters character ( len = * ), parameter :: fname = \"temp_gnuplot_file.plt\" ! Local Variables logical :: p integer ( int32 ) :: fid , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr class ( terminal ), pointer :: term ! Initialization if ( present ( persist )) then p = persist else p = . true . end if if ( present ( err )) then errmgr => err else errmgr => deferr end if term => this % get_terminal () ! Open the file for writing, and write the contents to file open ( newunit = fid , file = fname , iostat = flag ) if ( flag > 0 ) then call report_file_create_error ( errmgr , \"mp_draw\" , fname , flag ) return end if write ( fid , '(A)' ) term % get_command_string () write ( fid , '(A)' ) new_line ( 'a' ) write ( fid , '(A)' ) this % get_command_string () close ( fid ) ! Launch GNUPLOT if ( p ) then call execute_command_line ( \"gnuplot --persist \" // fname ) else call execute_command_line ( \"gnuplot \" // fname ) end if ! Clean up by deleting the file open ( newunit = fid , file = fname ) close ( fid , status = \"delete\" ) end subroutine ! ------------------------------------------------------------------------------ function mp_get ( this , i , j ) result ( x ) !! Gets the requested plot object. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: i !! The row index of the plot to retrieve. integer ( int32 ), intent ( in ) :: j !! The column index of the plot to retrieve. class ( plot ), pointer :: x !! A pointer to the plot object. ! Local Variables class ( * ), pointer :: item integer ( int32 ) :: ind ! Process ind = this % m_rows * ( j - 1 ) + i item => this % m_plots % get ( ind ) select type ( item ) class is ( plot ) x => item class default nullify ( x ) end select end function ! -------------------- subroutine mp_set ( this , i , j , x ) !! Replaces the specified plot. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: i !! The row index of the plot to replace. integer ( int32 ), intent ( in ) :: j !! The column index of the plot to replace. class ( plot ), intent ( in ) :: x !! The new plot. ! Local Variables integer ( int32 ) :: ind ! Process ind = this % m_rows * ( j - 1 ) + i call this % m_plots % set ( ind , x ) end subroutine ! ------------------------------------------------------------------------------ pure function mp_has_title ( this ) result ( x ) !! Gets a value determining if a title has been defined for the !! multiplot object. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. logical :: x !! Returns true if a title has been defined for this multiplot; !! else, returns false. x = this % m_hasTitle end function ! ------------------------------------------------------------------------------ function mp_get_term ( this ) result ( x ) !! Gets the GNUPLOT terminal object. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. class ( terminal ), pointer :: x !! A pointer to the terminal object. x => this % m_terminal end function ! ------------------------------------------------------------------------------ subroutine mp_save ( this , fname , err ) !! Saves a GNUPLOT command file. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. character ( len = * ), intent ( in ) :: fname !! The filename. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: fid , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr class ( terminal ), pointer :: term ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if term => this % get_terminal () ! Open the file for writing, and write the contents to file open ( newunit = fid , file = fname , iostat = flag ) if ( flag > 0 ) then call report_file_create_error ( errmgr , \"mp_save\" , fname , flag ) return end if write ( fid , '(A)' ) term % get_command_string () write ( fid , '(A)' ) new_line ( 'a' ) write ( fid , '(A)' ) this % get_command_string () close ( fid ) end subroutine ! ------------------------------------------------------------------------------ function mp_get_font ( this ) result ( x ) !! Gets the name of the font used for plot text. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. character ( len = :), allocatable :: x !! The font name. class ( terminal ), pointer :: term term => this % get_terminal () x = term % get_font_name () end function ! -------------------- subroutine mp_set_font ( this , x ) !! Sets the name of the font used for plot text. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. character ( len = * ), intent ( in ) :: x !! The font name. class ( terminal ), pointer :: term term => this % get_terminal () call term % set_font_name ( x ) end subroutine ! ------------------------------------------------------------------------------ function mp_get_font_size ( this ) result ( x ) !! Gets the size of the font used by the plot. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. integer ( int32 ) :: x !! The font size. class ( terminal ), pointer :: term term => this % get_terminal () x = term % get_font_size () end function ! -------------------- subroutine mp_set_font_size ( this , x ) !! Sets the size of the font used by the plot. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: x !! The font size. class ( terminal ), pointer :: term term => this % get_terminal () call term % set_font_size ( x ) end subroutine ! ------------------------------------------------------------------------------ subroutine mp_set_window_size ( this , width , height ) !! Sets the height and width of the plot window. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. integer ( int32 ), intent ( in ) :: width !! The plot window width. integer ( int32 ), intent ( in ) :: height !! The plot window height. if ( associated ( this % m_terminal )) then call this % m_terminal % set_window_width ( width ) call this % m_terminal % set_window_height ( height ) end if end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_left_margin ( this ) result ( rst ) !! Gets the left margin.  The value exists in the range [0, 1].  This !! margin is a global margin for the multiplot. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. real ( real32 ) :: rst !! The margin value. rst = this % m_leftMargin end function ! -------------------- subroutine mp_set_left_margin ( this , x ) !! Sets the left margin.  The value exists in the range [0, 1].  This !! margin is a global margin for the multiplot. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. real ( real32 ), intent ( in ) :: x !! The margin value.  This value will be clamped to the range !! [0, 1]. if ( x < 0.0 ) then this % m_leftMargin = 0.0 else if ( x > 1.0 ) then this % m_leftMargin = 1.0 else this % m_leftMargin = x end if this % m_useAutoMargins = . false . end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_right_margin ( this ) result ( rst ) !! Gets the right margin.  The value exists in the range [0, 1].  This !! margin is a global margin for the multiplot. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. real ( real32 ) :: rst !! The margin value. rst = this % m_rightMargin end function ! -------------------- subroutine mp_set_right_margin ( this , x ) !! Sets the right margin.  The value exists in the range [0, 1].  This !! margin is a global margin for the multiplot. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. real ( real32 ), intent ( in ) :: x !! The margin value.  This value will be clamped to the range !! [0, 1]. if ( x < 0.0 ) then this % m_rightMargin = 0.0 else if ( x > 1.0 ) then this % m_rightMargin = 1.0 else this % m_rightMargin = x end if this % m_useAutoMargins = . false . end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_top_margin ( this ) result ( rst ) !! Gets the top margin.  The value exists in the range [0, 1].  This !! margin is a global margin for the multiplot. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. real ( real32 ) :: rst !! The margin value. rst = this % m_topMargin end function ! -------------------- subroutine mp_set_top_margin ( this , x ) !! Sets the top margin.  The value exists in the range [0, 1].  This !! margin is a global margin for the multiplot. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. real ( real32 ), intent ( in ) :: x !! The margin value.  This value will be clamped to the range !! [0, 1]. if ( x < 0.0 ) then this % m_topMargin = 0.0 else if ( x > 1.0 ) then this % m_topMargin = 1.0 else this % m_topMargin = x end if this % m_useAutoMargins = . false . end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_bottom_margin ( this ) result ( rst ) !! Gets the bottom margin.  The value exists in the range [0, 1].  This !! margin is a global margin for the multiplot. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. real ( real32 ) :: rst !! The margin value. rst = this % m_bottomMargin end function ! -------------------- subroutine mp_set_bottom_margin ( this , x ) !! Sets the bottom margin.  The value exists in the range [0, 1].  This !! margin is a global margin for the multiplot. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. real ( real32 ), intent ( in ) :: x !! The margin value.  This value will be clamped to the range !! [0, 1]. if ( x < 0.0 ) then this % m_bottomMargin = 0.0 else if ( x > 1.0 ) then this % m_bottomMargin = 1.0 else this % m_bottomMargin = x end if this % m_useAutoMargins = . false . end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_horizontal_spacing ( this ) result ( rst ) !! Gets the horizontal spacing between plots.  The value must be !! zero or positive. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. real ( real32 ) :: rst !! The spacing value. rst = this % m_horizontalSpacing end function ! -------------------- subroutine mp_set_horizontal_spacing ( this , x ) !! Sets the horizontal spacing between plots.  The value must be !! zero or positive. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. real ( real32 ), intent ( in ) :: x !! The spacing value.  This value will be clamped to zero if !! a negative value is supplied. if ( x < 0.0 ) then this % m_horizontalSpacing = 0.0 else this % m_horizontalSpacing = x end if end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_vertical_spacing ( this ) result ( rst ) !! Gets the vertical spacing between plots.  The value must be !! zero or positive. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. real ( real32 ) :: rst !! The spacing value. rst = this % m_verticalSpacing end function ! -------------------- subroutine mp_set_vertical_spacing ( this , x ) !! Sets the vertical spacing between plots.  The value must be !! zero or positive. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. real ( real32 ), intent ( in ) :: x !! The spacing value.  This value will be clamped to zero if !! a negative value is supplied. if ( x < 0.0 ) then this % m_verticalSpacing = 0.0 else this % m_verticalSpacing = x end if end subroutine ! ------------------------------------------------------------------------------ pure function mp_get_use_auto_generated_margins ( this ) result ( rst ) !! Gets a value determining if the global margins should be !! automatically calculated. class ( multiplot ), intent ( in ) :: this !! The [[multiplot]] object. logical :: rst !! True if the margins should be automatically calculated; else, !! false to use manually defined margins. rst = this % m_useAutoMargins end function ! -------------------- subroutine mp_set_use_auto_generated_margins ( this , x ) !! Sets a value determining if the global margins should be !! automatically calculated. class ( multiplot ), intent ( inout ) :: this !! The [[multiplot]] object. logical , intent ( in ) :: x !! True if the margins should be automatically calculated; else, !! false to use manually defined margins. this % m_useAutoMargins = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_multiplot.f90.html"},{"title":"fplot_vector_field_plot_data.f90 – FPLOT","text":"Source Code ! fplot_vector_field_plot_data.f90 ! REF: ! http://www.gnuplotting.org/vector-field-from-data-file/ ! http://gnuplot.sourceforge.net/demo_5.4/vector.html ! http://www.gnuplot.info/docs_5.4/Gnuplot_5_4.pdf (pg 79) module fplot_vector_field_plot_data use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: vector_field_plot_data type , extends ( plot_data_colored ) :: vector_field_plot_data !! Defines a two-dimensional vector-field plot data set. real ( real64 ), private , allocatable , dimension (:,:,:) :: m_data !! An M-by-N-by-4 array containing the x, y, dx, and dy plot !! data points.  Optionally, a 5th page can be added to define the !! color for each arrow. real ( real64 ), private :: m_arrowSize = 1.0d0 !! The vector size (scaling factor). logical , private :: m_filledHeads = . false . !! Fill the arrow heads? contains procedure , public :: get_data_string => vfpd_get_data_cmd procedure , public :: get_command_string => vfpd_get_cmd procedure , public :: define_data => vfpd_define_data procedure , public :: get_arrow_size => vfpd_get_arrow_size procedure , public :: set_arrow_size => vfpd_set_arrow_size procedure , public :: get_fill_arrow => vfpd_get_fill_arrow procedure , public :: set_fill_arrow => vfpd_set_fill_arrow procedure , public :: get_use_data_dependent_colors => & vfpd_get_use_data_dependent_colors procedure , public :: clear_data => vfpd_clear_data end type contains ! ------------------------------------------------------------------------------ function vfpd_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data to plot. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , m , n character :: delimiter , nl real ( real64 ) :: scaling ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) scaling = this % get_arrow_size () ! Fix later if (. not . allocated ( this % m_data )) then x = \"\" return end if m = size ( this % m_data , 1 ) n = size ( this % m_data , 2 ) ! Need a quick return in the event no data exists ! Process if ( this % get_use_data_dependent_colors ()) then do j = 1 , n do i = 1 , m ! ORDER: X, Y, DX, DY call str % append ( to_string ( this % m_data ( i , j , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , j , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( scaling * this % m_data ( i , j , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( scaling * this % m_data ( i , j , 4 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , j , 5 ))) call str % append ( nl ) end do end do else do j = 1 , n do i = 1 , m ! ORDER: X, Y, DX, DY call str % append ( to_string ( this % m_data ( i , j , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , j , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( scaling * this % m_data ( i , j , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( scaling * this % m_data ( i , j , 4 ))) call str % append ( nl ) end do end do end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function vfpd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this !! vector_field_plot_data object. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Property Definition call str % append ( \" with vectors\" ) if ( this % get_fill_arrow ()) then call str % append ( \" filled head\" ) end if if ( this % get_use_data_dependent_colors ()) then call str % append ( \" lc palette\" ) else clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine vfpd_define_data ( this , x , y , dx , dy , c , err ) !! Defines the data set. class ( vector_field_plot_data ), intent ( inout ) :: this !! The vector_field_plot_data object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! An M-by-N matrix containing the x-locations of each arrow's !! origin. real ( real64 ), intent ( in ), dimension (:,:) :: y !! An M-by-N matrix containing the y-locations of each arrow's !! origin. real ( real64 ), intent ( in ), dimension (:,:) :: dx !! An M-by-N matrix containing the x-direction of each arrow. real ( real64 ), intent ( in ), dimension (:,:) :: dy !! An M-by-N matrix containing the y-direction of each arrow. real ( real64 ), intent ( in ), dimension (:,:), optional :: c !! An optional M-by-N matrix containing information on how to color !! the arrows.  The colors are determined by the active colormap. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , j , m , n , flag type ( errors ), target :: deferr class ( errors ), pointer :: errmgr character ( len = 256 ) :: errmsg ! Set up error handling if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Input Checking m = size ( x , 1 ) n = size ( x , 2 ) if ( size ( y , 1 ) /= m . or . size ( y , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"vfpd_define_data\" , & \"y\" , m , n , size ( y , 1 ), size ( y , 2 )) return end if if ( size ( dx , 1 ) /= m . or . size ( dx , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"vfpd_define_data\" , & \"dx\" , m , n , size ( dx , 1 ), size ( dx , 2 )) return end if if ( size ( dy , 1 ) /= m . or . size ( dy , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"vfpd_define_data\" , & \"dy\" , m , n , size ( dy , 1 ), size ( dy , 2 )) return end if if ( present ( c )) then if ( size ( c , 1 ) /= m . or . size ( c , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , & \"vfpd_define_data\" , \"c\" , m , n , size ( c , 1 ), size ( c , 2 )) return end if end if ! Create a name if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Allocate space for the data if ( allocated ( this % m_data )) deallocate ( this % m_data ) if ( present ( c )) then allocate ( this % m_data ( m , n , 5 ), stat = flag ) else allocate ( this % m_data ( m , n , 4 ), stat = flag ) end if if ( flag /= 0 ) then call report_memory_error ( errmgr , \"vfpd_define_data\" , flag ) return end if ! Store the data if ( present ( c )) then do concurrent ( j = 1 : n ) do i = 1 , m this % m_data ( i , j , 1 ) = x ( i , j ) this % m_data ( i , j , 2 ) = y ( i , j ) this % m_data ( i , j , 3 ) = dx ( i , j ) this % m_data ( i , j , 4 ) = dy ( i , j ) this % m_data ( i , j , 5 ) = c ( i , j ) end do end do else do concurrent ( j = 1 : n ) do i = 1 , m this % m_data ( i , j , 1 ) = x ( i , j ) this % m_data ( i , j , 2 ) = y ( i , j ) this % m_data ( i , j , 3 ) = dx ( i , j ) this % m_data ( i , j , 4 ) = dy ( i , j ) end do end do end if ! End return end subroutine ! ------------------------------------------------------------------------------ pure function vfpd_get_arrow_size ( this ) result ( rst ) !! Gets the scaling factor used to determine the arrow size. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. real ( real64 ) :: rst !! The scaling factor. rst = this % m_arrowSize end function ! -------------------- subroutine vfpd_set_arrow_size ( this , x ) !! Sets the scaling factor used to determine the arrow size. class ( vector_field_plot_data ), intent ( inout ) :: this !! The vector_field_plot_data object. real ( real64 ), intent ( in ) :: x !! The scaling factor. this % m_arrowSize = x end subroutine ! ------------------------------------------------------------------------------ pure function vfpd_get_fill_arrow ( this ) result ( rst ) !! Gets a value determining if the arrow heads should be filled. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. logical :: rst !! True if the arrow heads should be filled; else, false. rst = this % m_filledHeads end function ! -------------------- subroutine vfpd_set_fill_arrow ( this , x ) !! Sets a value determining if the arrow heads should be filled. class ( vector_field_plot_data ), intent ( inout ) :: this !! The vector_field_plot_data object. logical , intent ( in ) :: x !! True if the arrow heads should be filled; else, false. this % m_filledHeads = x end subroutine ! ------------------------------------------------------------------------------ pure function vfpd_get_use_data_dependent_colors ( this ) result ( rst ) !! Gets a value indicating if data-dependent coloring should be !! used.  This is defined by supplying information on how to scale the !! coloring when calling define_data. class ( vector_field_plot_data ), intent ( in ) :: this !! The vector_field_plot_data object. logical :: rst !! Returns true if data-dependent coloring is being used; else, !! false. rst = . false . if (. not . allocated ( this % m_data )) return rst = size ( this % m_data , 3 ) >= 5 end function ! ------------------------------------------------------------------------------ subroutine vfpd_clear_data ( this ) !! Clears the data from the data set. class ( vector_field_plot_data ), intent ( inout ) :: this !! The vector_field_plot_data object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_vector_field_plot_data.f90.html"},{"title":"fplot_surface_plot.f90 – FPLOT","text":"Source Code ! fplot_surface_plot.f90 module fplot_surface_plot use iso_fortran_env use fplot_plot_3d use fplot_errors use fplot_legend use fplot_surface_plot_data use strings implicit none private public :: surface_plot type , extends ( plot_3d ) :: surface_plot logical , private :: m_showHidden = . false . !! Show hidden lines? logical , private :: m_smooth = . true . !! Smooth the surface? logical , private :: m_contour = . false . !! Show a contour plot as well as the surface plot? logical , private :: m_useLighting = . false . !! Use lighting? real ( real32 ), private :: m_lightIntensity = 0.5 !! Lighting intensity (0 - 1) - default is 0.5 real ( real32 ), private :: m_specular = 0.5 !! Specular highlight intensity (0 - 1). real ( real32 ), private :: m_transparency = 1.0 !! Defines the translucency value.  Must exist on (0, 1]. contains procedure , public :: initialize => surf_init procedure , public :: get_show_hidden => surf_get_show_hidden procedure , public :: set_show_hidden => surf_set_show_hidden procedure , public :: get_command_string => surf_get_cmd procedure , public :: get_allow_smoothing => surf_get_smooth procedure , public :: set_allow_smoothing => surf_set_smooth procedure , public :: get_show_contours => surf_get_show_contours procedure , public :: set_show_contours => surf_set_show_contours procedure , public :: get_use_lighting => surf_get_use_lighting procedure , public :: set_use_lighting => surf_set_use_lighting procedure , public :: get_light_intensity => surf_get_light_intensity procedure , public :: set_light_intensity => surf_set_light_intensity procedure , public :: get_specular_intensity => surf_get_specular_intensity procedure , public :: set_specular_intensity => surf_set_specular_intensity procedure , public :: get_transparency => surf_get_transparency procedure , public :: set_transparency => surf_set_transparency procedure , public :: surf_push_data generic , public :: push => surf_push_data end type contains ! ------------------------------------------------------------------------------ subroutine surf_init ( this , term , fname , err ) !! Initializes the surface_plot object. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !!  The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables type ( legend ), pointer :: lgnd ! Initialize the base class call this % plot_3d % initialize ( term , fname , err ) ! Do not display the legend lgnd => this % get_legend () call lgnd % set_is_visible (. false .) end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_show_hidden ( this ) result ( x ) !! Gets a value indicating if hidden lines should be shown. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. logical :: x !! Returns true if hidden lines should be shown; else, false. x = this % m_showHidden end function ! ------------------------------------------------------------------------------ subroutine surf_set_show_hidden ( this , x ) !! Sets a value indicating if hidden lines should be shown. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. logical , intent ( in ) :: x !! Set to true if hidden lines should be shown; else, false. this % m_showHidden = x end subroutine ! ------------------------------------------------------------------------------ function surf_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot_3d !! object. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str ! class(colormap), pointer :: clr ! Initialization call str % initialize () ! Call the base routine call str % append ( this % plot % get_command_string ()) ! Hidden Stuff call str % append ( new_line ( 'a' )) if ( this % get_show_hidden ()) then call str % append ( \"unset hidden3d\" ) else call str % append ( \"set hidden3d\" ) end if ! Define the colormap ! clr => this%get_colormap() ! if (associated(clr)) then !     call str%append(new_line('a')) !     call str%append(clr%get_command_string()) ! end if ! Allow for smoothing interpolation if ( this % get_allow_smoothing ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set pm3d interpolate 0,0\" ) end if ! Draw a contour plot as well? if ( this % get_show_contours ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set contour\" ) end if ! Show colorbar ! if (.not.this%get_show_colorbar()) then !     call str%append(new_line('a')) !     call str%append(\"unset colorbox\") ! end if ! Lighting if ( this % get_use_lighting ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set pm3d lighting primary \" ) call str % append ( to_string ( this % get_light_intensity ())) call str % append ( \" specular \" ) call str % append ( to_string ( this % get_specular_intensity ())) end if ! Translucent if ( this % get_transparency () < 1.0 . and . this % get_transparency () > 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set style fill transparent solid \" ) call str % append ( to_string ( this % get_transparency ())) end if ! Call the base class to define the rest of the plot commands call str % append ( new_line ( 'a' )) call str % append ( this % plot_3d % get_command_string ()) ! Output x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ !     module function surf_get_colormap(this) result(x) !         class(surface_plot), intent(in) :: this !         class(colormap), pointer :: x !         x => this%m_colormap !     end function ! ! -------------------- !     module subroutine surf_set_colormap(this, x, err) !         ! Arguments !         class(surface_plot), intent(inout) :: this !         class(colormap), intent(in) :: x !         class(errors), intent(inout), optional, target :: err !         ! Local Variables !         integer(int32) :: flag !         class(errors), pointer :: errmgr !         type(errors), target :: deferr !         ! Initialization !         if (present(err)) then !             errmgr => err !         else !             errmgr => deferr !         end if !         ! Process !         if (associated(this%m_colormap)) deallocate(this%m_colormap) !         allocate(this%m_colormap, stat = flag, source = x) !         if (flag /= 0) then !             call errmgr%report_error(\"surf_set_colormap\", & !                 \"Insufficient memory available.\", PLOT_OUT_OF_MEMORY_ERROR) !             return !         end if !     end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_smooth ( this ) result ( x ) !! Gets a value determining if the plotted surfaces should be !! smoothed. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. logical :: x !! Returns true if the surface should be smoothed; else, false. x = this % m_smooth end function ! -------------------- subroutine surf_set_smooth ( this , x ) !! Sets a value determining if the plotted surfaces should be !! smoothed. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. logical , intent ( in ) :: x !! Set to true if the surface should be smoothed; else, false. this % m_smooth = x end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_show_contours ( this ) result ( x ) !! Gets a value determining if a contour plot should be drawn in !! conjunction with the surface plot. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. logical :: x !! Returns true if the contour plot should be drawn; else, false to !! only draw the surface. x = this % m_contour end function ! -------------------- subroutine surf_set_show_contours ( this , x ) !! Sets a value determining if a contour plot should be drawn in !! conjunction with the surface plot. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. logical , intent ( in ) :: x !! Set to true if the contour plot should be drawn; else, false to !! only draw the surface. this % m_contour = x end subroutine ! ------------------------------------------------------------------------------ !     pure module function surf_get_show_colorbar(this) result(x) !         class(surface_plot), intent(in) :: this !         logical :: x !         x = this%m_showColorbar !     end function ! ! -------------------- !     module subroutine surf_set_show_colorbar(this, x) !         class(surface_plot), intent(inout) :: this !         logical, intent(in) :: x !         this%m_showColorbar = x !     end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_use_lighting ( this ) result ( x ) !! Gets a value indicating if lighting, beyond the ambient !! light source, is to be used. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. logical :: x !! True if lighting should be used; else, false. x = this % m_useLighting end function ! -------------------- subroutine surf_set_use_lighting ( this , x ) !! Sets a value indicating if lighting, beyond the ambient !! light source, is to be used. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. logical , intent ( in ) :: x !! True if lighting should be used; else, false. this % m_useLighting = x end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_light_intensity ( this ) result ( x ) !! Gets the ratio of the strength of the light source relative !! to the ambient light. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. real ( real32 ) :: x !! The light intensity ratio. x = this % m_lightIntensity end function ! -------------------- subroutine surf_set_light_intensity ( this , x ) !! Sets the ratio of the strength of the light source relative !! to the ambient light. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. real ( real32 ), intent ( in ) :: x !! The light intensity ratio.  The value must exist in the !! set [0, 1]; else, it will be clipped to lie within the range. if ( x < 0.0 ) then this % m_lightIntensity = 0.0 else if ( x > 1.0 ) then this % m_lightIntensity = 1.0 else this % m_lightIntensity = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_specular_intensity ( this ) result ( x ) !! Gets the ratio of the strength of the specular light source !! relative to the ambient light. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. real ( real32 ) :: x !! The specular light intensity ratio. x = this % m_specular end function ! -------------------- subroutine surf_set_specular_intensity ( this , x ) !! Sets the ratio of the strength of the specular light source !! relative to the ambient light. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. real ( real32 ), intent ( in ) :: x !! The specular light intensity ratio.  The value must exist in the !! set [0, 1]; else, it will be clipped to lie within the range. if ( x < 0.0 ) then this % m_specular = 0.0 else if ( x > 1.0 ) then this % m_specular = 1.0 else this % m_specular = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surf_get_transparency ( this ) result ( x ) !! Gets a factor defining the transparency of plotted surfaces. class ( surface_plot ), intent ( in ) :: this !! The [[surface_plot]] object. real ( real32 ) :: x !! A value existing on the set (0 1] defining the level of !! transparency.  A value of 1 indicates a fully opaque surface. x = this % m_transparency end function ! -------------------- subroutine surf_set_transparency ( this , x ) !! Sets a factor defining the transparency of plotted surfaces. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. real ( real32 ), intent ( in ) :: x !! A value existing on the set (0 1] defining the level of !! transparency.  A value of 1 indicates a fully opaque surface. !! Any values supplied outside of the set are clipped to fit within !! (0 1]. if ( x > 1.0 ) then this % m_transparency = 1.0 else if ( x <= 0.0 ) then this % m_transparency = 0.1 else this % m_transparency = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine surf_push_data ( this , x , y , z ) !! Adds a data set to the plot. class ( surface_plot ), intent ( inout ) :: this !! The [[surface_plot]] object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! An M-by-N matrix containing the x-coordinate data. real ( real64 ), intent ( in ), dimension ( size ( x , 1 ), size ( x , 2 )) :: y !! An M-by-N matrix containing the y-coordinate data. real ( real64 ), intent ( in ), dimension ( size ( x , 1 ), size ( x , 2 )) :: z !! An M-by-N matrix containing the z-coordinate data. type ( surface_plot_data ) :: pd call pd % define_data ( x , y , z ) call this % push ( pd ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_surface_plot.f90.html"},{"title":"fplot_plot_data.f90 – FPLOT","text":"Source Code ! fplot_plot_data.f90 module fplot_plot_data use iso_fortran_env use fplot_plot_object use fplot_constants use fplot_colors use strings use fplot_errors implicit none private public :: plot_data public :: pd_get_string_result public :: pd_clear_action public :: plot_data_colored public :: scatter_plot_data public :: line_plot_data public :: spd_get_int_value public :: spd_get_string_result public :: spd_get_value public :: spd_set_value public :: lpd_get_cmd public :: spd_get_cmd type , abstract , extends ( plot_object ) :: plot_data !! A container for plot data. private character ( len = PLOTDATA_MAX_NAME_LENGTH ) :: m_name = \"\" !! The name to associate with the data set. character ( len = PLOTDATA_MAX_NAME_LENGTH ) :: m_datablockName = \"\" !! The name to associate with the datablock used to store the data !! in the actual plot file. contains procedure , public :: get_name => pd_get_name procedure , public :: set_name => pd_set_name procedure , public :: get_datablock_name => pd_get_datablock_name procedure , public :: set_datablock_name => pd_set_datablock_name procedure , public :: create_unique_datablock_name => & pd_create_unique_datablock_name procedure , public :: clear_all => pd_clear procedure ( pd_get_string_result ), deferred , public :: get_data_string procedure ( pd_clear_action ), deferred , public :: clear_data end type interface function pd_get_string_result ( this ) result ( x ) !! Retrieves a string from a plot_data object. import plot_data class ( plot_data ), intent ( in ) :: this !! The plot_data object. character ( len = :), allocatable :: x !! The string. end function subroutine pd_clear_action ( this ) !! Performs a clearing operation. import plot_data class ( plot_data ), intent ( inout ) :: this !! The plot_data object. end subroutine end interface type , abstract , extends ( plot_data ) :: plot_data_colored !! Defines a colored plot data set. private type ( color ) :: m_color = CLR_BLUE !! The line color. logical :: m_useAutoColor = . true . !! Let the object choose colors automatically? integer ( int32 ) :: m_colorIndex = 1 !! The color index to use, assuming we're using auto color contains procedure , public :: get_line_color => pdc_get_line_color procedure , public :: set_line_color => pdc_set_line_color procedure , public :: get_color_index => pdc_get_color_index procedure , public :: set_color_index => pdc_set_color_index end type type , abstract , extends ( plot_data_colored ) :: line_plot_data !! A plot_data object for describing line series data. logical , private :: m_drawLine = . true . !! Draw a line connecting the dots? logical , private :: m_drawMarkers = . false . !! Draw the markers? real ( real32 ), private :: m_lineWidth = 2.0 !! Line width. integer ( int32 ), private :: m_lineStyle = LINE_SOLID !! Line style. integer ( int32 ), private :: m_markerType = MARKER_FILLED_CIRCLE !! Marker type. real ( real32 ), private :: m_markerSize = 1.5 !! Marker size multiplier. integer ( int32 ), private :: m_markerFrequency = 1 !! Marker frequency. logical , private :: m_impulses = . false . !! Draw the impulse lines? contains procedure , public :: get_command_string => lpd_get_cmd procedure , public :: get_line_width => lpd_get_line_width procedure , public :: set_line_width => lpd_set_line_width procedure , public :: get_line_style => lpd_get_line_style procedure , public :: set_line_style => lpd_set_line_style procedure , public :: get_draw_line => lpd_get_draw_line procedure , public :: set_draw_line => lpd_set_draw_line procedure , public :: get_draw_markers => lpd_get_draw_markers procedure , public :: set_draw_markers => lpd_set_draw_markers procedure , public :: get_marker_style => lpd_get_marker_style procedure , public :: set_marker_style => lpd_set_marker_style procedure , public :: get_marker_scaling => lpd_get_marker_scaling procedure , public :: set_marker_scaling => lpd_set_marker_scaling procedure , public :: get_marker_frequency => lpd_get_marker_frequency procedure , public :: set_marker_frequency => lpd_set_marker_frequency procedure , public :: get_draw_impulses => lpd_get_draw_impulse_lines procedure , public :: set_draw_impulses => lpd_set_draw_impulse_lines end type type , abstract , extends ( line_plot_data ) :: scatter_plot_data !! A plot_data object for describing scatter plot data sets. logical , private :: m_simplifyData = . true . !! True if large data sets should be simplified before sending to !! GNUPLOT. real ( real64 ), private :: m_simplifyFactor = 1.0d-3 !! A scaling factor used to establish the simplification tolerance. !! The simplification tolerance is established by multiplying this !! factor by the range in the dependent variable data. logical , private :: m_dataDependentColors = . false . !! Determines if the data should utilize data-dependent colors. logical , private :: m_filledCurve = . false . !! Fill the curve? logical , private :: m_useVariableSizePoints = . false . !! Use variable size data points? contains procedure , public :: get_command_string => spd_get_cmd procedure ( spd_get_int_value ), deferred , public :: get_count procedure ( spd_get_value ), deferred , public :: get_x procedure ( spd_set_value ), deferred , public :: set_x procedure ( spd_get_value ), deferred , public :: get_y procedure ( spd_set_value ), deferred , public :: set_y procedure ( spd_get_string_result ), deferred , public :: get_axes_string procedure , public :: get_simplify_data => spd_get_simplify_data procedure , public :: set_simplify_data => spd_set_simplify_data procedure , public :: get_simplification_factor => spd_get_simplify_factor procedure , public :: set_simplification_factor => spd_set_simplify_factor procedure , public :: get_use_data_dependent_colors => & spd_get_data_dependent_colors procedure , public :: set_use_data_dependent_colors => & spd_set_data_dependent_colors procedure , public :: get_fill_curve => spd_get_filled procedure , public :: set_fill_curve => spd_set_filled procedure , public :: get_use_variable_size_points => spd_get_use_var_point_size procedure , public :: set_use_variable_size_points => spd_set_use_var_point_size end type interface pure function spd_get_value ( this , index ) result ( x ) !! Gets an indexed value from the scatter_plot_data object. use , intrinsic :: iso_fortran_env , only : int32 , real64 import scatter_plot_data class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. integer ( int32 ), intent ( in ) :: index !! The index. real ( real64 ) :: x !! The value. end function subroutine spd_set_value ( this , index , x ) !! Sets an indexed value from the scatter_plot_data object. use , intrinsic :: iso_fortran_env , only : int32 , real64 import scatter_plot_data class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. integer ( int32 ), intent ( in ) :: index !! The index. real ( real64 ), intent ( in ) :: x !! The value. end subroutine pure function spd_get_int_value ( this ) result ( x ) !! Gets an integer value from the scatter_plot_data object. use , intrinsic :: iso_fortran_env , only : int32 import scatter_plot_data class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. integer ( int32 ) :: x !! The value. end function function spd_get_string_result ( this ) result ( x ) !! Gets a string value from the scatter_plot_data object. import scatter_plot_data class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. character ( len = :), allocatable :: x !! The string. end function end interface contains ! ------------------------------------------------------------------------------ pure function pd_get_name ( this ) result ( txt ) !! Gets the name to associate with this data set. class ( plot_data ), intent ( in ) :: this !! The plot_data object. character ( len = :), allocatable :: txt !! The name. txt = trim ( this % m_name ) end function ! -------------------- subroutine pd_set_name ( this , txt ) !! Sets the name to associate with this data set. class ( plot_data ), intent ( inout ) :: this !! The plot_data object. character ( len = * ), intent ( in ) :: txt !! The name. integer ( int32 ) :: n n = min ( len ( txt ), PLOTDATA_MAX_NAME_LENGTH ) this % m_name = \"\" if ( n /= 0 ) then this % m_name ( 1 : n ) = txt ( 1 : n ) end if end subroutine ! ------------------------------------------------------------------------------ pure function pd_get_datablock_name ( this ) result ( rst ) !! Gets the name to associate with the datablock in the actual GNUPLOT !! plot file. class ( plot_data ), intent ( in ) :: this !! The plot_data object. character ( len = :), allocatable :: rst !! The name. rst = trim ( this % m_datablockName ) end function ! -------------------- subroutine pd_set_datablock_name ( this , x ) !! Sets the name to associate with the datablock in the actual GNUPLOT !! plot file. class ( plot_data ), intent ( inout ) :: this !! The plot_data object. character ( len = * ), intent ( in ) :: x !! The name. integer ( int32 ) :: n n = min ( len ( x ), PLOTDATA_MAX_NAME_LENGTH ) this % m_datablockName = \"\" if ( n /= 0 ) then this % m_datablockName ( 1 : n ) = x ( 1 : n ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine pd_create_unique_datablock_name ( this ) !! Creates a unique name for the GNUPLOT datablock representing this !! data set. class ( plot_data ), intent ( inout ) :: this !! The plot_data object. type ( string ) :: str real ( real64 ) :: r , rng integer ( int32 ) :: count call random_seed () call random_number ( r ) r = r * huge ( count ) count = floor ( r ) str = \"PlotData\" // to_string ( count ) call this % set_datablock_name ( char ( str )) end subroutine ! ------------------------------------------------------------------------------ subroutine pd_clear ( this ) !! Clears the data set by removing stored data and clearing the !! GNUPLOT datablock name.  This routine also calls clear_data to !! ensure the data is cleared from the data set as well as the datablock !! name. class ( plot_data ), intent ( inout ) :: this !! The plot_data object. call this % set_datablock_name ( \"\" ) call this % clear_data () end subroutine ! ****************************************************************************** ! PLOT_DATA_COLORED ! ------------------------------------------------------------------------------ pure function pdc_get_line_color ( this ) result ( x ) !! Gets the object color. class ( plot_data_colored ), intent ( in ) :: this !! The plot_data_colored object. type ( color ) :: x !! The color. if ( this % m_useAutoColor ) then x = color_list ( this % get_color_index ()) else x = this % m_color end if end function ! -------------------- subroutine pdc_set_line_color ( this , x ) !! Sets the object color. class ( plot_data_colored ), intent ( inout ) :: this !! The plot_data_colored object. type ( color ), intent ( in ) :: x !! The color. this % m_color = x this % m_useAutoColor = . false . end subroutine ! ------------------------------------------------------------------------------ pure function pdc_get_color_index ( this ) result ( x ) !! Gets the color index. class ( plot_data_colored ), intent ( in ) :: this !! The plot_data_colored object. integer ( int32 ) :: x !! The index value. x = this % m_colorIndex end function ! -------------------- subroutine pdc_set_color_index ( this , x ) !! Sets the color index. class ( plot_data_colored ), intent ( inout ) :: this !! The plot_data_colored object. integer ( int32 ), intent ( in ) :: x !! The index value. this % m_colorIndex = x end subroutine ! ****************************************************************************** ! LINE_PLOT_DATA ! ------------------------------------------------------------------------------ pure function lpd_get_line_width ( this ) result ( x ) !! Gets the width of the line, in pixels. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. real ( real32 ) :: x !! The line width. x = this % m_lineWidth end function ! -------------------- subroutine lpd_set_line_width ( this , x ) !! Sets the width of the line, in pixels. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_lineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_line_style ( this ) result ( x ) !! Gets the line style. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_lineStyle end function ! -------------------- subroutine lpd_set_line_style ( this , x ) !! Sets the line style. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_lineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_draw_line ( this ) result ( x ) !! Gets a value determining if a line should be drawn. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. logical :: x !! Returns true if the line should be drawn; else, false. x = this % m_drawLine end function ! -------------------- subroutine lpd_set_draw_line ( this , x ) !! Sets a value determining if a line should be drawn. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. logical , intent ( in ) :: x !! Set to true if the line should be drawn; else, false. this % m_drawLine = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_draw_markers ( this ) result ( x ) !! Gets a value determining if data point markers should be drawn. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. logical :: x !! Returns true if the markers should be drawn; else, false. x = this % m_drawMarkers end function ! -------------------- subroutine lpd_set_draw_markers ( this , x ) !! Sets a value determining if data point markers should be drawn. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. logical , intent ( in ) :: x !! Set to true if the markers should be drawn; else, false. this % m_drawMarkers = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_marker_style ( this ) result ( x ) !! Gets the marker style. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. integer ( int32 ) :: x !! The marker type.  The marker type must be one of the following: !! !!  - MARKER_ASTERISK !! !!  - MARKER_EMPTY_CIRCLE !! !!  - MARKER_EMPTY_NABLA !! !!  - MARKER_EMPTY_RHOMBUS !! !!  - MARKER_EMPTY_SQUARE !! !!  - MARKER_EMPTY_TRIANGLE !! !!  - MARKER_FILLED_CIRCLE !! !!  - MARKER_FILLED_NABLA !! !!  - MARKER_FILLED_RHOMBUS !! !!  - MARKER_FILLED_SQUARE !! !!  - MARKER_FILLED_TRIANGLE !! !!  - MARKER_PLUS !! !!  - MARKER_X x = this % m_markerType end function ! -------------------- subroutine lpd_set_marker_style ( this , x ) !! Sets the marker style. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. integer ( int32 ), intent ( in ) :: x !! The marker type.  The marker type must be one of the following: !! !!  - MARKER_ASTERISK !! !!  - MARKER_EMPTY_CIRCLE !! !!  - MARKER_EMPTY_NABLA !! !!  - MARKER_EMPTY_RHOMBUS !! !!  - MARKER_EMPTY_SQUARE !! !!  - MARKER_EMPTY_TRIANGLE !! !!  - MARKER_FILLED_CIRCLE !! !!  - MARKER_FILLED_NABLA !! !!  - MARKER_FILLED_RHOMBUS !! !!  - MARKER_FILLED_SQUARE !! !!  - MARKER_FILLED_TRIANGLE !! !!  - MARKER_PLUS !! !!  - MARKER_X if ( x == MARKER_ASTERISK . or . & x == MARKER_EMPTY_CIRCLE . or . & x == MARKER_EMPTY_NABLA . or . & x == MARKER_EMPTY_RHOMBUS . or . & x == MARKER_EMPTY_SQUARE . or . & x == MARKER_EMPTY_TRIANGLE . or . & x == MARKER_FILLED_CIRCLE . or . & x == MARKER_FILLED_NABLA . or . & x == MARKER_FILLED_RHOMBUS . or . & x == MARKER_FILLED_SQUARE . or . & x == MARKER_FILLED_TRIANGLE . or . & x == MARKER_PLUS . or . & x == MARKER_X ) then ! Only alter the value if the marker is a known type this % m_markerType = x end if end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_marker_scaling ( this ) result ( x ) !! Gets the marker scaling. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. real ( real32 ) :: x !! The scaling factor. x = this % m_markerSize end function ! -------------------- subroutine lpd_set_marker_scaling ( this , x ) !! Sets the marker scaling. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. real ( real32 ), intent ( in ) :: x !! The scaling factor. this % m_markerSize = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_marker_frequency ( this ) result ( x ) !! Gets the marker frequency. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. integer ( int32 ) :: x !! The marker frequency. x = this % m_markerFrequency end function ! -------------------- subroutine lpd_set_marker_frequency ( this , x ) !! Sets the marker frequency. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. integer ( int32 ), intent ( in ) :: x !! The marker frequency. this % m_markerFrequency = x end subroutine ! ------------------------------------------------------------------------------ pure function lpd_get_draw_impulse_lines ( this ) result ( x ) !! Gets a value determining if impulse lines should be drawn. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. logical :: x !! True if impulse lines should be drawn; else, false. x = this % m_impulses end function ! -------------------- subroutine lpd_set_draw_impulse_lines ( this , x ) !! Sets a value determining if impulse lines should be drawn. class ( line_plot_data ), intent ( inout ) :: this !! The line_plot_data object. logical , intent ( in ) :: x !! True if impulse lines should be drawn; else, false. this % m_impulses = x end subroutine ! ------------------------------------------------------------------------------ function lpd_get_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string to represent this line_plot_data !! object. class ( line_plot_data ), intent ( in ) :: this !! The line_plot_data object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Lines or points if ( this % get_draw_impulses ()) then call str % append ( \" with impulses\" ) else if ( this % get_draw_line () . and . this % get_draw_markers ()) then call str % append ( \" with linespoints\" ) else if (. not . this % get_draw_line () . and . this % get_draw_markers ()) then call str % append ( \" with points\" ) else call str % append ( \" with lines\" ) end if end if ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Line Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Define other properties specific to the lines and points if ( this % get_draw_line ()) then call str % append ( \" lt \" ) call str % append ( to_string ( this % get_line_style ())) if ( this % get_line_style () /= LINE_SOLID ) then call str % append ( \" dashtype \" ) call str % append ( to_string ( this % get_line_style ())) end if end if if ( this % get_draw_markers ()) then call str % append ( \" pi \" ) call str % append ( to_string ( this % get_marker_frequency ())) call str % append ( \" pt \" ) call str % append ( to_string ( this % get_marker_style ())) call str % append ( \" ps \" ) call str % append ( to_string ( this % get_marker_scaling ())) end if ! End rst = char ( str % to_string ()) end function ! ****************************************************************************** ! SCATTER_PLOT_DATA ! ------------------------------------------------------------------------------ function spd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this !! scatter_plot_data object. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Lines, points, or filled if ( this % get_fill_curve ()) then call str % append ( \" with filledcurves\" ) else if ( this % get_draw_impulses ()) then call str % append ( \" with impulses\" ) else if ( this % get_draw_line () . and . this % get_draw_markers ()) then call str % append ( \" with linespoints\" ) else if (. not . this % get_draw_line () . and . this % get_draw_markers ()) then call str % append ( \" with points\" ) else call str % append ( \" with lines\" ) end if end if ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Line Color if ( this % get_use_data_dependent_colors ()) then ! http://www.gnuplotting.org/using-a-palette-as-line-color/ call str % append ( \" lc palette\" ) else clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) end if ! Define other properties specific to the lines and points if ( this % get_draw_line ()) then call str % append ( \" lt \" ) call str % append ( to_string ( this % get_line_style ())) if ( this % get_line_style () /= LINE_SOLID ) then call str % append ( \" dashtype \" ) call str % append ( to_string ( this % get_line_style ())) end if end if if ( this % get_draw_markers ()) then call str % append ( \" pi \" ) call str % append ( to_string ( this % get_marker_frequency ())) call str % append ( \" pt \" ) call str % append ( to_string ( this % get_marker_style ())) call str % append ( \" ps \" ) if ( this % get_use_variable_size_points ()) then call str % append ( \"variable\" ) else call str % append ( to_string ( this % get_marker_scaling ())) end if end if ! Define the axes structure call str % append ( \" \" ) call str % append ( this % get_axes_string ()) ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function spd_get_simplify_data ( this ) result ( x ) !! Gets a value determining if the stored data should be !! simplified (reduced) before passing to GNUPLOT. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. logical :: x !! True if the data should be simplified prior to sending !! to GNUPLOT; else, false to leave the data alone. x = this % m_simplifyData end function ! -------------------- subroutine spd_set_simplify_data ( this , x ) !! Sets a value determining if the stored data should be !! simplified (reduced) before passing to GNUPLOT. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. logical , intent ( in ) :: x !! True if the data should be simplified prior to sending !! to GNUPLOT; else, false to leave the data alone. this % m_simplifyData = x end subroutine ! ------------------------------------------------------------------------------ pure function spd_get_simplify_factor ( this ) result ( x ) !! Gets a factor used to establish the simplification tolerance. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. real ( real64 ) :: x !! The scaling factor. x = this % m_simplifyFactor end function ! -------------------- subroutine spd_set_simplify_factor ( this , x ) !! Sets a factor used to establish the simplification tolerance. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. real ( real64 ), intent ( in ) :: x !! The scaling factor. this % m_simplifyFactor = x end subroutine ! ------------------------------------------------------------------------------ pure function spd_get_data_dependent_colors ( this ) result ( rst ) !! Gets a value determing if data-dependent colors should be used. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. logical :: rst !! True if data-dependent colors should be used; else, false. rst = this % m_dataDependentColors end function ! -------------------- subroutine spd_set_data_dependent_colors ( this , x ) !! Sets a value determing if data-dependent colors should be used. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. logical , intent ( in ) :: x !! True if data-dependent colors should be used; else, false. this % m_dataDependentColors = x end subroutine ! ****************************************************************************** ! ADDED: JUNE 28, 2021 - JAC ! ------------------------------------------------------------------------------ pure function spd_get_filled ( this ) result ( rst ) !! Gets a logical value determining if a filled curve should be drawn. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. logical :: rst !! True if the curve should be filled; else, false. rst = this % m_filledCurve end function ! -------------------- subroutine spd_set_filled ( this , x ) !! Sets a logical value determining if a filled curve should be drawn. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. logical , intent ( in ) :: x !! True if the curve should be filled; else, false. this % m_filledCurve = x end subroutine ! ****************************************************************************** ! ADDED: JAN 12, 2024 - JAC ! ------------------------------------------------------------------------------ pure function spd_get_use_var_point_size ( this ) result ( rst ) !! Gets a logical value determining if variable sized data points !! should be used.  The default is false, such that points will be of !! a constant size. class ( scatter_plot_data ), intent ( in ) :: this !! The scatter_plot_data object. logical :: rst !! True if variable size points should be used; else, false. rst = this % m_useVariableSizePoints end function ! -------------------- subroutine spd_set_use_var_point_size ( this , x ) !! Sets a logical value determining if variable sized data points !! should be used.  The default is false, such that points will be of !! a constant size. class ( scatter_plot_data ), intent ( inout ) :: this !! The scatter_plot_data object. logical , intent ( in ) :: x !! True if variable size points should be used; else, false. this % m_useVariableSizePoints = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data.f90.html"},{"title":"fplot_plot_axis.f90 – FPLOT","text":"Source Code ! fplot_plot_axis.f90 module fplot_plot_axis use iso_fortran_env use fplot_plot_object use fplot_constants use strings implicit none private public :: plot_axis public :: pa_get_string_result public :: x_axis public :: y_axis public :: y2_axis public :: z_axis public :: name_value_pair type name_value_pair !! Defines a name-value pair. character ( len = :), allocatable :: name !! The name. real ( real64 ) :: value !! The associated value. end type type , abstract , extends ( plot_object ) :: plot_axis !! Defines a plot axis object. logical , private :: m_hasTitle = . false . !! Has a title? character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_title = \"\" !! Axis title. logical , private :: m_autoscale = . true . !! Autoscale? real ( real64 ), private , dimension ( 2 ) :: m_limits = [ 0.0d0 , 1.0d0 ] !! Display limits. logical , private :: m_logScale = . false . !! Log scaled? logical , private :: m_zeroAxis = . false . !! Has a zero axis? real ( real32 ), private :: m_axisWidth = 1.5 !! The width, in pixels, of the zero-axis line. logical , private :: m_defaultTicLabels = . true . !! Use default tic label format? character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_ticLabelFmt = \"%g\" !! The tic lablel format. logical , private :: m_showTicLabels = . true . !! Show tic labels? integer ( int32 ), private :: m_ticXOffset = 0 !! The tic label x-offset, in characters. integer ( int32 ), private :: m_ticYOffset = 0 !! The tic label y-offset, in characters. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: & m_ticLabelAlignment = GNUPLOT_HORIZONTAL_ALIGN_CENTER !! The tic label alignment. !! !! - GNUPLOT_HORIZONTAL_ALIGN_LEFT !! !! - GNUPLOT_HORIZONTAL_ALIGN_CENTER !! !! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT logical , private :: m_offsetTics = . false . !! Offset tics? real ( real32 ), private :: m_ticLabelAngle = 0.0 !! The tic label angle, in degrees. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_ticRotationOrigin = & GNUPLOT_ROTATION_ORIGIN_CENTER !! The tic label rotation origin. !! !! - GNUPLOT_ROTATION_ORIGIN_RIGHT !! !! - GNUPLOT_ROTATION_ORIGIN_LEFT !! !! - GNUPLOT_ROTATION_ORIGIN_CENTER integer ( int32 ), private :: m_titleXOffset = 0 !! The axis title x offset, in characters. integer ( int32 ), private :: m_titleYOffset = 0 !! The axis title y offset, in characters. logical , private :: m_useManualTicLabels = . false . !! Use manual (user-defined) tic labels? type ( name_value_pair ), private , allocatable , dimension (:) :: m_ticLabels !! A list of user-defined tic labels. real ( real32 ), private :: m_titleAngle = 0.0 !! The angle at which to rotate the axis title. logical , private :: m_autoCalcTitleAngle = . true . !! True if GNUPLOT should automatically rotate the title; else, !! false if the m_titleAngle property should determine the angle. contains procedure , public :: get_title => pa_get_title procedure , public :: set_title => pa_set_title procedure , public :: is_title_defined => pa_has_title procedure , public :: get_autoscale => pa_get_autoscale procedure , public :: set_autoscale => pa_set_autoscale procedure , public :: get_limits => pa_get_axis_limits procedure , public :: set_limits => pa_set_axis_limits procedure , public :: get_is_log_scaled => pa_get_log_scale procedure , public :: set_is_log_scaled => pa_set_log_scale procedure , public :: get_command_string => pa_get_cmd_string procedure , public :: get_zero_axis => pa_get_zero_axis procedure , public :: set_zero_axis => pa_set_zero_axis procedure , public :: get_zero_axis_line_width => pa_get_zero_axis_width procedure , public :: set_zero_axis_line_width => pa_set_zero_axis_width procedure ( pa_get_string_result ), deferred , public :: get_id_string procedure , public :: get_use_default_tic_label_format => & pa_get_use_dft_tic_lbl_fmt procedure , public :: set_use_default_tic_label_format => & pa_set_use_dft_tic_lbl_fmt procedure , public :: get_tic_label_format => pa_get_tic_label_fmt procedure , public :: set_tic_label_format => pa_set_tic_label_fmt procedure , public :: get_show_tic_labels => pa_get_show_tic_labels procedure , public :: set_show_tic_labels => pa_set_show_tic_labels procedure , public :: get_tic_label_x_offset => pa_get_tic_x_offset procedure , public :: set_tic_label_x_offset => pa_set_tic_x_offset procedure , public :: get_tic_label_y_offset => pa_get_tic_y_offset procedure , public :: set_tic_label_y_offset => pa_set_tic_y_offset procedure , public :: get_tic_label_angle => pa_get_tic_label_angle procedure , public :: set_tic_label_angle => pa_set_tic_label_angle procedure , public :: get_tic_label_rotation_origin => & pa_get_tic_rotation_origin procedure , public :: set_tic_label_rotation_origin => & pa_set_tic_rotation_origin procedure , public :: get_tic_label_alignment => & pa_get_tic_label_alignment procedure , public :: set_tic_label_alignment => & pa_set_tic_label_alignment procedure , public :: get_offset_tics => pa_get_offset_tics procedure , public :: set_offset_tics => pa_set_offset_tics procedure , public :: get_title_x_offset => pa_get_title_x_offset procedure , public :: set_title_x_offset => pa_set_title_x_offset procedure , public :: get_title_y_offset => pa_get_title_y_offset procedure , public :: set_title_y_offset => pa_set_title_y_offset procedure , public :: get_title_angle => pa_get_title_angle procedure , public :: set_title_angle => pa_set_title_angle procedure , public :: get_auto_calculate_title_angle => & pa_get_auto_calc_title_angle procedure , public :: set_auto_calculate_title_angle => & pa_set_auto_calc_title_angle procedure , public :: get_use_manual_tic_labels => & pa_get_use_manual_tic_labels procedure , public :: set_use_manual_tic_labels => & pa_set_use_manual_tic_labels procedure , public :: get_manual_tic_labels => pa_get_manual_tic_labels procedure , public :: set_manual_tic_labels => pa_set_manual_tic_labels end type interface function pa_get_string_result ( this ) result ( x ) !! Retrieves a string from a plot_axis. import plot_axis class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: x !! The string. end function end interface type , extends ( plot_axis ) :: x_axis !! Defines an x-axis object. character , private :: m_id = \"x\" !! The ID character. contains procedure , public :: get_id_string => xa_get_id end type type , extends ( plot_axis ) :: y_axis !! Defines a y-axis object. character , private :: m_id = \"y\" !! The ID character. contains procedure , public :: get_id_string => ya_get_id end type type , extends ( plot_axis ) :: y2_axis !! Defines a secondary y-axis object. character ( len = 2 ), private :: m_id = \"y2\" !! The ID character. contains procedure , public :: get_id_string => y2a_get_id end type type , extends ( plot_axis ) :: z_axis !! Defines a z-axis object. character , private :: m_id = \"z\" !! The ID character. contains procedure , public :: get_id_string => za_get_id end type contains ! ------------------------------------------------------------------------------ function pa_get_title ( this ) result ( txt ) !! Gets the axis title. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: txt !! The title. integer ( int32 ) :: n n = len_trim ( this % m_title ) allocate ( character ( len = n ) :: txt ) txt = trim ( this % m_title ) end function ! -------------------- subroutine pa_set_title ( this , txt ) !! Sets the axis title. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. character ( len = * ), intent ( in ) :: txt !! The title. ! Local Variables integer ( int32 ) :: n ! Process n = min ( len_trim ( txt ), PLOTDATA_MAX_NAME_LENGTH ) this % m_title = \"\" if ( n /= 0 ) then this % m_title ( 1 : n ) = txt ( 1 : n ) this % m_hasTitle = . true . else this % m_hasTitle = . false . end if end subroutine ! ------------------------------------------------------------------------------ pure function pa_has_title ( this ) result ( x ) !! Gets a value determining if a title has been defined for this axis. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true if a title has been defined; else, false. x = this % m_hasTitle end function ! ------------------------------------------------------------------------------ pure function pa_get_autoscale ( this ) result ( x ) !! Gets a value determining if the axis should be automatically scaled !! to fit the data. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true if the axis should be automatically scaled; else, !! false. x = this % m_autoscale end function ! -------------------- subroutine pa_set_autoscale ( this , x ) !! Sets a value determining if the axis should be automatically scaled !! to fit the data. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true if the axis should be automatically scaled; else, !! set to false. this % m_autoscale = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_axis_limits ( this ) result ( x ) !! Gets the axis display limits, assuming autoscaling is not !! active for this axis. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. real ( real64 ), dimension ( 2 ) :: x !! A two-element array containing the limits as follows: !! [lower, upper]. x ( 1 ) = minval ( this % m_limits ) x ( 2 ) = maxval ( this % m_limits ) end function ! -------------------- subroutine pa_set_axis_limits ( this , lower , upper ) !! Gets the axis display limits, assuming autoscaling is not !! active for this axis.  This routine also calls set_autoscale and !! sets the property value to false. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. real ( real64 ), intent ( in ) :: lower !! The lower display limit. real ( real64 ), intent ( in ) :: upper !! The upper display limit. this % m_limits ( 1 ) = min ( lower , upper ) this % m_limits ( 2 ) = max ( lower , upper ) call this % set_autoscale (. false .) end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_log_scale ( this ) result ( x ) !! Gets a logical value defining if the axis should be log scaled. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true if log scaling is applied to the axis; else, false. x = this % m_logScale end function ! -------------------- subroutine pa_set_log_scale ( this , x ) !! Sets a logical value defining if the axis should be log scaled. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true if log scaling is applied to the axis; else, false. this % m_logScale = x end subroutine ! ------------------------------------------------------------------------------ function pa_get_cmd_string ( this ) result ( txt ) !! Returns the appropriate GNUPLOT command string to define the !! plot_axis properties. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: txt !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str real ( real32 ) :: angle character ( len = :), allocatable :: axis , fmt real ( real64 ) :: lim ( 2 ) integer ( int32 ) :: i type ( name_value_pair ), allocatable , dimension (:) :: ticLabels ! Process axis = this % get_id_string () fmt = this % get_tic_label_format () lim = this % get_limits () call str % initialize () ! Formatting if (. not . this % get_use_default_tic_label_format ()) then call str % append ( \"set format \" ) call str % append ( axis ) call str % append ( '\"' ) call str % append ( fmt ) call str % append ( '\"' ) call str % append ( new_line ( 'a' )) end if ! Show Tic Labels? if ( this % get_show_tic_labels ()) then call str % append ( \"set \" ) else call str % append ( \"unset \" ) end if call str % append ( axis ) call str % append ( \"tics\" ) call str % append ( new_line ( 'a' )) ! Tic Label Offsets if ( this % get_show_tic_labels () . and . this % get_offset_tics ()) then call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"tics \" ) call str % append ( this % get_tic_label_alignment ()) call str % append ( \" offset \" ) call str % append ( to_string ( this % get_tic_label_x_offset ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_tic_label_y_offset ())) call str % append ( new_line ( 'a' )) end if ! Tic Label Rotation angle = this % get_tic_label_angle () if ( this % get_show_tic_labels () . and . angle /= 0.0 ) then call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"tics rotate by \" ) call str % append ( to_string ( angle )) call str % append ( \" \" ) call str % append ( this % get_tic_label_rotation_origin ()) call str % append ( new_line ( 'a' )) end if ! Axis Limits if ( this % get_autoscale ()) then call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"range [*:*]\" ) else call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"range [\" ) call str % append ( to_string ( lim ( 1 ))) call str % append ( \":\" ) call str % append ( to_string ( lim ( 2 ))) call str % append ( \"]\" ) end if ! Titles call str % append ( new_line ( 'a' )) if ( this % is_title_defined ()) then ! Title call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"label \" ) call str % append ( '\"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) ! Rotation if (. not . this % get_auto_calculate_title_angle ()) then call str % append ( \" rotate by \" ) call str % append ( to_string ( this % get_title_angle ())) end if ! Offsets if ( this % get_title_x_offset () /= 0 . or . & this % get_title_y_offset () /= 0 ) & then call str % append ( \" offset \" ) call str % append ( to_string ( this % get_title_x_offset ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_title_y_offset ())) end if else call str % append ( \"set \" ) call str % append ( axis ) call str % append ( \"label \" ) call str % append ( '\"\"' ) end if call str % append ( new_line ( 'a' )) ! Scaling call str % append ( new_line ( 'a' )) if ( this % get_is_log_scaled ()) then call str % append ( \"set log \" ) call str % append ( axis ) else call str % append ( \"unset log \" ) call str % append ( axis ) end if ! Zero Axis if ( this % get_zero_axis ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set \" ) call str % append ( this % get_id_string ()) call str % append ( \"zeroaxis linestyle -1 linewidth \" ) call str % append ( to_string ( this % get_zero_axis_line_width ())) end if ! Use manual labels ticLabels = this % get_manual_tic_labels () if ( this % get_use_manual_tic_labels () . and . size ( ticLabels ) > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set \" ) call str % append ( this % get_id_string () // \"tics(\" ) do i = 1 , size ( ticLabels ) call str % append ( '\"' ) call str % append ( ticLabels ( i )% name ) call str % append ( '\" ' ) call str % append ( to_string ( ticLabels ( i )% value )) if ( i /= size ( ticLabels )) call str % append ( \", \" ) end do call str % append ( \")\" ) end if ! Output txt = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function pa_get_zero_axis ( this ) result ( x ) !! Gets a value determining if the axis should be drawn through !! zero of opposing axes. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true to draw as a zero axis; else, set to false. x = this % m_zeroAxis end function ! -------------------- subroutine pa_set_zero_axis ( this , x ) !! Sets a value determining if the axis should be drawn through !! zero of opposing axes. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true to draw as a zero axis; else, set to false. this % m_zeroAxis = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_zero_axis_width ( this ) result ( x ) !! Gets the width of the line used to represent the zero axis line, if !! active. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. real ( real32 ) :: x !! The width of the line, in pixels. x = this % m_axisWidth end function ! -------------------- subroutine pa_set_zero_axis_width ( this , x ) !! Sets the width of the line used to represent the zero axis line, if !! active. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. real ( real32 ), intent ( in ) :: x !! The width of the line, in pixels. this % m_axisWidth = x end subroutine ! ADDED March 29, 2023 - JAC ! ------------------------------------------------------------------------------ pure function pa_get_use_dft_tic_lbl_fmt ( this ) result ( rst ) !! Gets a value determining if the default tic label format will be !! used. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: rst !! Returns true if the default tic label format will be used; else, !! false. rst = this % m_defaultTicLabels end function ! -------------------- subroutine pa_set_use_dft_tic_lbl_fmt ( this , x ) !! Sets a value determining if the default tic label format will be !! used. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true if the default tic label format will be used; else, !! false. this % m_defaultTicLabels = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_label_fmt ( this ) result ( rst ) !! Gets the tic label format.  The format string can be any format !! string accepted by the C command 'printf.' class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: rst !! The tic label format string. rst = trim ( this % m_ticLabelFmt ) end function ! -------------------- subroutine pa_set_tic_label_fmt ( this , x ) !! Sets the tic label format.  The format string can be any format !! string accepted by the C command 'printf.' class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. character ( len = * ), intent ( in ) :: x !! The tic label format string. this % m_ticLabelFmt = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_show_tic_labels ( this ) result ( x ) !! Gets a value determining if tic labels should be shown. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true to show tic labels; else, set to false. x = this % m_showTicLabels end function ! -------------------- subroutine pa_set_show_tic_labels ( this , x ) !! Sets a value determining if tic labels should be shown. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true to show tic labels; else, set to false. this % m_showTicLabels = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_x_offset ( this ) result ( x ) !! Gets the tic label x-offset, in characters. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. integer ( int32 ) :: x !! The tic label x-offset, in characters. x = this % m_ticXOffset end function ! -------------------- subroutine pa_set_tic_x_offset ( this , x ) !! Sets the tic label x-offset, in characters. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. integer ( int32 ), intent ( in ) :: x !! The tic label x-offset, in characters. this % m_ticXOffset = x call this % set_offset_tics (. true .) end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_y_offset ( this ) result ( x ) !! Gets the tic label y-offset, in characters. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. integer ( int32 ) :: x !! The tic label y-offset, in characters. x = this % m_ticYOffset end function ! -------------------- subroutine pa_set_tic_y_offset ( this , x ) !! Sets the tic label y-offset, in characters. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. integer ( int32 ), intent ( in ) :: x !! The tic label y-offset, in characters. this % m_ticYOffset = x call this % set_offset_tics (. true .) end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_label_angle ( this ) result ( x ) !! Gets the tic label angle, in degrees. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. real ( real32 ) :: x !! The tic label angle, in degrees. x = this % m_ticLabelAngle end function ! -------------------- subroutine pa_set_tic_label_angle ( this , x ) !! Sets the tic label angle, in degrees. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. real ( real32 ), intent ( in ) :: x !! The tic label angle, in degrees. this % m_ticLabelAngle = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_rotation_origin ( this ) result ( x ) !! Gets the tic label rotation origin. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: x !! The tic label rotation origin.  The tic label rotation origin !! must be one of the following: !! !! - GNUPLOT_ROTATION_ORIGIN_RIGHT !! !! - GNUPLOT_ROTATION_ORIGIN_LEFT !! !! - GNUPLOT_ROTATION_ORIGIN_CENTER integer ( int32 ) :: n n = len_trim ( this % m_ticRotationOrigin ) allocate ( character ( len = n ) :: x ) x = trim ( this % m_ticRotationOrigin ) end function ! -------------------- subroutine pa_set_tic_rotation_origin ( this , x ) !! Sets the tic label rotation origin. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. character ( len = * ), intent ( in ) :: x !! The tic label rotation origin.  The tic label rotation origin !! must be one of the following: !! !! - GNUPLOT_ROTATION_ORIGIN_RIGHT !! !! - GNUPLOT_ROTATION_ORIGIN_LEFT !! !! - GNUPLOT_ROTATION_ORIGIN_CENTER this % m_ticRotationOrigin = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_tic_label_alignment ( this ) result ( x ) !! Gets the tic label alignment. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. character ( len = :), allocatable :: x !! The tic label alignment.  The tic label alignment must be one of !! the following: !! !! - GNUPLOT_HORIZONTAL_ALIGN_LEFT !! !! - GNUPLOT_HORIZONTAL_ALIGN_CENTER !! !! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT integer ( int32 ) :: n n = len_trim ( this % m_ticLabelAlignment ) allocate ( character ( len = n ) :: x ) x = trim ( this % m_ticLabelAlignment ) end function ! -------------------- subroutine pa_set_tic_label_alignment ( this , x ) !! Sets the tic label alignment. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. character ( len = * ), intent ( in ) :: x !! The tic label alignment.  The tic label alignment must be one of !! the following: !! !! - GNUPLOT_HORIZONTAL_ALIGN_LEFT !! !! - GNUPLOT_HORIZONTAL_ALIGN_CENTER !! !! - GNUPLOT_HORIZONTAL_ALIGN_RIGHT this % m_ticLabelAlignment = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_offset_tics ( this ) result ( x ) !! Gets a value determining if the tics should be offset. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! Returns true to offset the tics; else, set to false. x = this % m_offsetTics end function ! -------------------- subroutine pa_set_offset_tics ( this , x ) !! Sets a value determining if the tics should be offset. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true to offset the tics; else, set to false. this % m_offsetTics = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_title_x_offset ( this ) result ( x ) !! Gets the axis title x-offset, in characters. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. integer ( int32 ) :: x !! The axis title x-offset, in characters. x = this % m_titleXOffset end function ! -------------------- subroutine pa_set_title_x_offset ( this , x ) !! Sets the axis title x-offset, in characters. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. integer ( int32 ), intent ( in ) :: x !! The axis title x-offset, in characters. this % m_titleXOffset = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_title_y_offset ( this ) result ( x ) !! Gets the axis title y-offset, in characters. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. integer ( int32 ) :: x !! The axis title y-offset, in characters. x = this % m_titleYOffset end function ! -------------------- subroutine pa_set_title_y_offset ( this , x ) !! Sets the axis title y-offset, in characters. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. integer ( int32 ), intent ( in ) :: x !! The axis title y-offset, in characters. this % m_titleYOffset = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_title_angle ( this ) result ( x ) !! Gets the axis title angle, in degrees. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. real ( real32 ) :: x !! The axis title angle, in degrees. x = this % m_titleAngle end function ! -------------------- subroutine pa_set_title_angle ( this , x ) !! Sets the axis title angle, in degrees. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. real ( real32 ), intent ( in ) :: x !! The axis title angle, in degrees. this % m_titleAngle = x this % m_autoCalcTitleAngle = . false . end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_auto_calc_title_angle ( this ) result ( x ) !! Gets whether GNUPLOT should automatically calculate the axis !! title angle. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: x !! True if GNUPLOT should automatically calculate the title !! angle; else, false. x = this % m_autoCalcTitleAngle end function ! -------------------- subroutine pa_set_auto_calc_title_angle ( this , x ) !! Sets whether GNUPLOT should automatically calculate the axis !! title angle. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true to automatically calculate the title angle; !! else, set to false. this % m_autoCalcTitleAngle = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_use_manual_tic_labels ( this ) result ( rst ) !! Gets a value determining if manual tic labels should be used. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. logical :: rst !! True if manual tic labels should be used; else, false. rst = this % m_useManualTicLabels end function ! -------------------- subroutine pa_set_use_manual_tic_labels ( this , x ) !! Sets a value determining if manual tic labels should be used. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. logical , intent ( in ) :: x !! Set to true if manual tic labels should be used; else, false. this % m_useManualTicLabels = x end subroutine ! ------------------------------------------------------------------------------ pure function pa_get_manual_tic_labels ( this ) result ( rst ) !! Gets a list of manual tic labels. class ( plot_axis ), intent ( in ) :: this !! The plot_axis object. type ( name_value_pair ), allocatable , dimension (:) :: rst !! A list of name-value pairs where the name defines the label !! shown with the corresponding axis value. if ( allocated ( this % m_ticLabels )) then rst = this % m_ticLabels else allocate ( rst ( 0 )) end if end function ! -------------------- subroutine pa_set_manual_tic_labels ( this , x ) !! Sets a list of manual tic labels.  This routine also sets !! set_use_manual_tic_labels to true. class ( plot_axis ), intent ( inout ) :: this !! The plot_axis object. type ( name_value_pair ), intent ( in ), dimension (:) :: x !! The list of tic values with the name component representing the !! displayed label text and the value is the associated axis value. if ( allocated ( this % m_ticLabels )) deallocate ( this % m_ticLabels ) allocate ( this % m_ticLabels ( size ( x )), source = x ) call this % set_use_manual_tic_labels (. true .) end subroutine ! ****************************************************************************** ! X_AXIS MEMBERS ! ------------------------------------------------------------------------------ function xa_get_id ( this ) result ( x ) !! Gets the axis identification string. class ( x_axis ), intent ( in ) :: this !! The x_axis object. character ( len = :), allocatable :: x !! The identification string. x = this % m_id end function ! ****************************************************************************** ! Y_AXIS MEMBERS ! ------------------------------------------------------------------------------ function ya_get_id ( this ) result ( x ) !! Gets the axis identification string. class ( y_axis ), intent ( in ) :: this !! The y_axis object. character ( len = :), allocatable :: x !! The identification string. x = this % m_id end function ! ****************************************************************************** ! Y2_AXIS MEMBERS ! ------------------------------------------------------------------------------ function y2a_get_id ( this ) result ( x ) !! Gets the axis identification string. class ( y2_axis ), intent ( in ) :: this !! The y2_axis object. character ( len = :), allocatable :: x !! The identification string. x = this % m_id end function ! ****************************************************************************** ! Z_AXIS MEMBERS ! ------------------------------------------------------------------------------ function za_get_id ( this ) result ( x ) !! Gets the axis identification string. class ( z_axis ), intent ( in ) :: this !! The z_axis object. character ( len = :), allocatable :: x !! The identification string. x = this % m_id end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_axis.f90.html"},{"title":"fplot_plot_2d.f90 – FPLOT","text":"Source Code ! fplot_plot_2d.f90 module fplot_plot_2d use iso_fortran_env use fplot_plot_data use fplot_plot use fplot_errors use fplot_plot_axis use fplot_legend use fplot_plot_data_2d use fplot_colors use strings implicit none private public :: plot_2d type , extends ( plot ) :: plot_2d !! A plot object defining a 2D plot. type ( x_axis ), private , pointer :: m_xAxis => null () !! The x-axis. type ( y_axis ), private , pointer :: m_yAxis => null () !! The y-axis. type ( y2_axis ), private , pointer :: m_y2Axis => null () !! The secondary y-axis. logical , private :: m_useY2 = . false . !! Display the secondary y axis? logical , private :: m_set2square = . false . !! Set to square scaling. logical , private :: m_useJitter = . false . !! Allow jittering? real ( real32 ), private :: m_jitterOverlap = 1.0 !! Jitter overlap. real ( real32 ), private :: m_jitterSpread = 1.0 !! Jitter horizontal spread. contains final :: p2d_clean_up procedure , public :: initialize => p2d_init procedure , public :: get_command_string => p2d_get_cmd procedure , public :: get_x_axis => p2d_get_x_axis procedure , public :: get_y_axis => p2d_get_y_axis procedure , public :: get_y2_axis => p2d_get_y2_axis procedure , public :: get_use_y2_axis => p2d_get_use_y2 procedure , public :: set_use_y2_axis => p2d_set_use_y2 procedure , public :: get_square_axes => p2d_get_square_axes procedure , public :: set_square_axes => p2d_set_square_axes procedure , public :: get_use_jittering => p2d_get_use_jitter procedure , public :: set_use_jittering => p2d_set_use_jitter procedure , public :: get_jitter_overlap => p2d_get_jitter_overlap procedure , public :: set_jitter_overlap => p2d_set_jitter_overlap procedure , public :: get_jitter_spread => p2d_get_jitter_spread procedure , public :: set_jitter_spread => p2d_set_jitter_spread procedure , public :: set_x_axis_title => p2d_set_x_axis_title procedure , public :: set_y_axis_title => p2d_set_y_axis_title procedure , public :: set_y2_axis_title => p2d_set_y2_axis_title procedure , public :: p2d_push_data generic , public :: push => p2d_push_data end type contains ! ------------------------------------------------------------------------------ subroutine p2d_clean_up ( this ) !! Cleans up resources held by the plot_2d object. type ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. call this % free_resources () if ( associated ( this % m_xAxis )) then deallocate ( this % m_xAxis ) nullify ( this % m_xAxis ) end if if ( associated ( this % m_yAxis )) then deallocate ( this % m_yAxis ) nullify ( this % m_yAxis ) end if if ( associated ( this % m_y2Axis )) then deallocate ( this % m_y2Axis ) nullify ( this % m_y2Axis ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_init ( this , term , fname , err ) !! Initializes the plot_2d object. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !!  The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Initialize the base class ! call plt_init(this, term, fname, errmgr) call this % plot % initialize ( term , fname , errmgr ) ! Process flag = 0 if (. not . associated ( this % m_xAxis )) then allocate ( this % m_xAxis , stat = flag ) end if if ( flag == 0 . and . . not . associated ( this % m_yAxis )) then allocate ( this % m_yAxis , stat = flag ) end if if ( flag == 0 . and . . not . associated ( this % m_y2Axis )) then allocate ( this % m_y2Axis , stat = flag ) end if ! Error Checking if ( flag /= 0 ) then call report_memory_error ( errmgr , \"p2d_init\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function p2d_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot_2d object. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , n real ( real32 ) :: lmargin , rmargin , tmargin , bmargin class ( plot_data ), pointer :: ptr class ( plot_axis ), pointer :: axis , xAxis , yAxis type ( legend ), pointer :: leg type ( color ) :: clr ! class(plot_label), pointer :: lbl ! Initialization call str % initialize () ! Call the base routine call str % append ( this % plot % get_command_string ()) ! Grid if ( this % get_show_x_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid xtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_x_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mxtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_y_major_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid ytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_y_minor_grid ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid mytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_minor_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_minor_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_minor_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if if ( this % get_show_gridlines ()) then ! X call str % append ( new_line ( 'a' )) call str % append ( 'set grid xtics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) ! Y call str % append ( new_line ( 'a' )) call str % append ( 'set grid ytics' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_y_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_y_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_y_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if ! Title n = len_trim ( this % get_title ()) if ( n > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( 'set title \"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if ! Margin lmargin = this % get_left_margin () rmargin = this % get_right_margin () tmargin = this % get_top_margin () bmargin = this % get_bottom_margin () if ( lmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set lmargin at screen \" ) call str % append ( to_string ( lmargin )) end if if ( rmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set rmargin at screen \" ) call str % append ( to_string ( rmargin )) end if if ( tmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set tmargin at screen \" ) call str % append ( to_string ( tmargin )) end if if ( bmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set bmargin at screen \" ) call str % append ( to_string ( bmargin )) end if ! Axes call str % append ( new_line ( 'a' )) xAxis => this % get_x_axis () if ( associated ( xAxis )) call str % append ( xAxis % get_command_string ()) call str % append ( new_line ( 'a' )) yAxis => this % get_y_axis () if ( associated ( yAxis )) call str % append ( yAxis % get_command_string ()) ! Secondary Axes if ( this % get_use_y2_axis ()) then call str % append ( new_line ( 'a' )) axis => this % get_y2_axis () if ( associated ( axis )) then call str % append ( axis % get_command_string ()) call str % append ( new_line ( 'a' )) call str % append ( \"set y2tics\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set ytics nomirror\" ) end if end if ! Tic Marks if (. not . this % get_tics_inward ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set tics out\" ) end if if ( xAxis % get_zero_axis ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set xtics axis\" ) end if if ( yAxis % get_zero_axis ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set ytics axis\" ) end if ! Border call str % append ( new_line ( 'a' )) call str % append ( \"set border back\" ) if ( this % get_draw_border ()) then n = 31 else n = 0 if (. not . xAxis % get_zero_axis ()) n = n + 1 if (. not . yAxis % get_zero_axis ()) n = n + 2 call str % append ( new_line ( 'a' )) call str % append ( \"set xtics nomirror\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set ytics nomirror\" ) if ( this % get_use_y2_axis ()) then n = n + 8 end if end if call str % append ( new_line ( 'a' )) if ( n > 0 ) then call str % append ( \"set border \" ) call str % append ( to_string ( n )) else call str % append ( \"unset border\" ) end if call str % append ( new_line ( 'a' )) call str % append ( \"set border linewidth \" ) call str % append ( to_string ( this % get_border_line_width ())) ! Scaling if ( this % get_axis_equal ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set view equal xy\" ) end if if ( this % get_square_axes ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set size square\" ) end if ! Legend call str % append ( new_line ( 'a' )) leg => this % get_legend () if ( associated ( leg )) call str % append ( leg % get_command_string ()) ! ! Labels ! do i = 1, this%get_label_count() !     lbl => this%get_label(i) !     if (.not.associated(lbl)) cycle !     call str%append(new_line('a')) !     call str%append(lbl%get_command_string()) ! end do ! Jittering call str % append ( new_line ( 'a' )) if ( this % get_use_jittering ()) then call str % append ( \"set jitter overlap \" ) call str % append ( to_string ( this % get_jitter_overlap ())) call str % append ( \" spread \" ) call str % append ( to_string ( this % get_jitter_spread ())) else call str % append ( \"unset jitter\" ) end if ! Define the datablock n = this % get_count () do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( new_line ( 'a' )) if ( is_plot_data_function ( ptr )) then call str % append ( ptr % get_data_string ()) else call str % append ( \"$\" ) call str % append ( ptr % get_datablock_name ()) call str % append ( \" << EOD\" ) call str % append ( new_line ( 'a' )) call str % append ( ptr % get_data_string ()) call str % append ( \"EOD\" ) end if end do ! Define the plot function and data formatting commands call str % append ( new_line ( 'a' )) call str % append ( \"plot \" ) do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( ptr % get_command_string ()) if ( i /= n ) call str % append ( \", \" ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function p2d_get_x_axis ( this ) result ( ptr ) !! Gets the x-axis object. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. class ( plot_axis ), pointer :: ptr !! A pointer to the x-axis object. ptr => this % m_xAxis end function ! ------------------------------------------------------------------------------ function p2d_get_y_axis ( this ) result ( ptr ) !! Gets the y-axis object. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. class ( plot_axis ), pointer :: ptr !! A pointer to the y-axis object. ptr => this % m_yAxis end function ! ------------------------------------------------------------------------------ function p2d_get_y2_axis ( this ) result ( ptr ) !! Gets the secondary y-axis object. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. class ( plot_axis ), pointer :: ptr !! A pointer to the secondary y-axis object. ptr => this % m_y2Axis end function ! ------------------------------------------------------------------------------ pure function p2d_get_use_y2 ( this ) result ( x ) !! Gets a flag determining if the secondary y-axis should be !! displayed. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. logical :: x !! Returns true if the axis should be displayed; else, false. x = this % m_useY2 end function ! -------------------- subroutine p2d_set_use_y2 ( this , x ) !! Sets a flag determining if the secondary y-axis should be !! displayed. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. logical , intent ( in ) :: x !! Set to true if the axis should be displayed; else, false. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ pure function p2d_get_square_axes ( this ) result ( rst ) !! Gets a logical flag determining if the axes size should be squared !! off. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. logical :: rst !! Returns true if the axes are to be sized to a square; else, !! false. rst = this % m_set2square end function ! -------------------- subroutine p2d_set_square_axes ( this , x ) !! Sets a logical flag determining if the axes size should be !! squared off. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. logical , intent ( in ) :: x !! Set to true if the axes are to be sized to a square; else, !! false. this % m_set2square = x end subroutine ! ------------------------------------------------------------------------------ pure function p2d_get_use_jitter ( this ) result ( rst ) !! Gets a logical value determining if jittering should be used. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. logical :: rst !! True if jittering should be used; else, false. rst = this % m_useJitter end function ! -------------------- subroutine p2d_set_use_jitter ( this , x ) !! Sets a logical value determining if jittering should be used. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. logical , intent ( in ) :: x !! Set to true if jittering should be used; else, false. this % m_useJitter = x end subroutine ! ------------------------------------------------------------------------------ pure function p2d_get_jitter_overlap ( this ) result ( rst ) !! Gets the jitter overalp. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. real ( real32 ) :: rst !! The jitter overlap. rst = this % m_jitterOverlap end function ! -------------------- subroutine p2d_set_jitter_overlap ( this , x ) !! Sets the jitter overlap. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. real ( real32 ), intent ( in ) :: x !! The jitter overlap. this % m_jitterOverlap = x end subroutine ! ------------------------------------------------------------------------------ pure function p2d_get_jitter_spread ( this ) result ( rst ) !! Gets the jitter horizontal spread. class ( plot_2d ), intent ( in ) :: this !! The [[plot_2d]] object. real ( real32 ) :: rst !! The jitter horizontal spread. rst = this % m_jitterSpread end function ! -------------------- subroutine p2d_set_jitter_spread ( this , x ) !! Sets the jitter horizontal spread. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. real ( real32 ), intent ( in ) :: x !! The jitter horizontal spread. this % m_jitterSpread = x end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_set_x_axis_title ( this , x ) !! Sets the title associated with the plot's x-axis. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_xAxis )) then call this % m_xAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_set_y_axis_title ( this , x ) !! Sets the title associated with the plot's y-axis. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_yAxis )) then call this % m_yAxis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_set_y2_axis_title ( this , x ) !! Sets the title associated with the plot's secondary y-axis. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. character ( len = * ), intent ( in ) :: x !! The title. if ( associated ( this % m_y2Axis )) then call this % m_y2Axis % set_title ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine p2d_push_data ( this , x , y , lw , name , ls , lc ) !! Adds a data set to the plot. class ( plot_2d ), intent ( inout ) :: this !! The [[plot_2d]] object. real ( real64 ), intent ( in ), dimension (:) :: x !! The x-values. real ( real64 ), intent ( in ), dimension ( size ( x )) :: y !! The y-values. real ( real32 ), intent ( in ), optional :: lw !! The line width. character ( len = * ), intent ( in ), optional :: name !! A name to associate with the data set. integer ( int32 ), intent ( in ), optional :: ls !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID type ( color ), intent ( in ), optional :: lc !! The line color. type ( plot_data_2d ) :: pd call pd % define_data ( x , y ) if ( present ( lw )) call pd % set_line_width ( lw ) if ( present ( name )) call pd % set_name ( name ) if ( present ( ls )) call pd % set_line_style ( ls ) if ( present ( lc )) call pd % set_line_color ( lc ) call this % push ( pd ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_2d.f90.html"},{"title":"fplot_triangulations_delaunay_2d.f90 – FPLOT","text":"Source Code module fplot_triangulations_delaunay_2d use iso_fortran_env use delaunay use fplot_errors implicit none private public :: delaunay_tri_2d type delaunay_tri_2d !! Provides a container for a 2D Delaunay triangulation. real ( real64 ), private , allocatable , dimension (:) :: m_x !! An array of the x-coordinates of each point. real ( real64 ), private , allocatable , dimension (:) :: m_y !! An array of the y-coordinates of each point. integer ( int32 ), private , allocatable , dimension (:,:) :: m_indices !! A 3-column matrix containing the indices of each triangle's !! vertex. contains procedure , public :: create => d2d_init procedure , public :: get_point_count => d2d_get_pt_count procedure , public :: get_triangle_count => d2d_get_tri_count procedure , public :: get_points_x => d2d_get_x_pts procedure , public :: get_points_y => d2d_get_y_pts procedure , public :: get_indices => d2d_get_tris procedure , public :: find_triangle => d2d_get_tri_with_pt end type contains ! ------------------------------------------------------------------------------ subroutine d2d_init ( this , x , y , err ) !! Creates an unconstrained 2D Delaunay triangulation given a !! set of x-y points. class ( delaunay_tri_2d ), intent ( inout ) :: this !! The delaunay_tri_2d object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x-coordinates of each !! data point. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y-coordinates of each !! data point. class ( errors ), intent ( inout ), target , optional :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: i , npts , ntri , flag real ( real64 ), allocatable , dimension (:,:) :: nodexy integer ( int32 ), allocatable , dimension (:,:) :: trinode , trinbr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if npts = size ( x ) ! Input Check if ( size ( y ) /= npts ) then call report_array_size_mismatch_error ( errmgr , \"d2d_init\" , \"y\" , & npts , size ( y )) return end if ! Clean up incase of an existing triangulation if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_indices )) deallocate ( this % m_indices ) ! Allocate workspace arrays for the triangulation allocate ( nodexy ( 2 , npts ), stat = flag ) if ( flag == 0 ) allocate ( trinode ( 3 , 2 * npts ), stat = flag ) if ( flag == 0 ) allocate ( trinbr ( 3 , 2 * npts ), stat = flag ) if ( flag /= 0 ) go to 100 ! Generate the points list do i = 1 , npts nodexy ( 1 , i ) = x ( i ) nodexy ( 2 , i ) = y ( i ) end do ! Compute the triangulation call r8tris2 ( npts , nodexy , ntri , trinode , trinbr ) ! Populate the remainder of the object allocate ( this % m_x ( npts ), stat = flag ) if ( flag == 0 ) allocate ( this % m_y ( npts ), stat = flag ) if ( flag == 0 ) allocate ( this % m_indices ( ntri , 3 ), stat = flag ) do i = 1 , npts this % m_x ( i ) = nodexy ( 1 , i ) this % m_y ( i ) = nodexy ( 2 , i ) end do do i = 1 , ntri this % m_indices ( i ,:) = trinode (:, i ) end do ! End return ! Memory Error Handler 100 continue call report_memory_error ( errmgr , \"d2d_init\" , flag ) return end subroutine ! ------------------------------------------------------------------------------ pure function d2d_get_pt_count ( this ) result ( rst ) !! Gets the number of points in the triangulation. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. integer ( int32 ) :: rst !! The number of points in the triangulation. if ( allocated ( this % m_x )) then rst = size ( this % m_x ) else rst = 0 end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_tri_count ( this ) result ( rst ) !! Gets the number of triangles in the triangulation. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. integer ( int32 ) :: rst !! The number of triangles in the triangulation. if ( allocated ( this % m_indices )) then rst = size ( this % m_indices , 1 ) else rst = 0 end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_x_pts ( this ) result ( rst ) !! Gets the x-coordinates of each point. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. real ( real64 ), allocatable , dimension (:) :: rst !! An array of the x-coordinates of each point. if ( allocated ( this % m_x )) then rst = this % m_x else allocate ( rst ( 0 )) end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_y_pts ( this ) result ( rst ) !! Gets the y-coordinates of each point. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. real ( real64 ), allocatable , dimension (:) :: rst !! An array of the y-coordinates of each point. if ( allocated ( this % m_y )) then rst = this % m_y else allocate ( rst ( 0 )) end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_tris ( this ) result ( rst ) !! Gets a list of the indices of each triangle vertex. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. integer ( int32 ), allocatable , dimension (:,:) :: rst !! An N-by-3 matrix with each column containing the index of the !! vertex of each triangle where N is the number of triangles. if ( allocated ( this % m_indices )) then rst = this % m_indices else allocate ( rst ( 0 , 0 )) end if end function ! ------------------------------------------------------------------------------ pure function d2d_get_tri_with_pt ( this , x , y ) result ( rst ) !! Finds the triangle that contains the specified point. class ( delaunay_tri_2d ), intent ( in ) :: this !! The delaunay_tri_2d object. real ( real64 ), intent ( in ) :: x !! The x-coordinate of the point. real ( real64 ), intent ( in ) :: y !! The y-coordinate of the point. integer ( int32 ) :: rst !! Returns the index of the triangle containing the specified !! point.  If no triangle contains the specified point, a value of !! -1 is returned. ! Local Variables integer ( int32 ) :: i , j real ( real64 ) :: x1 , y1 , x2 , y2 , x3 , y3 logical :: check ! Initialization rst = - 1 ! Process do i = 1 , this % get_triangle_count () j = this % m_indices ( i , 1 ) x1 = this % m_x ( j ) y1 = this % m_y ( j ) j = this % m_indices ( i , 2 ) x2 = this % m_x ( j ) y2 = this % m_y ( j ) j = this % m_indices ( i , 3 ) x3 = this % m_x ( j ) y3 = this % m_y ( j ) check = point_inside_triangle ( x1 , y1 , x2 , y2 , x3 , y3 , x , y ) if ( check ) then rst = i end if end do end function ! ------------------------------------------------------------------------------ ! Determine if a point lies within a triangle. ! https://stackoverflow.com/questions/2049582/how-to-determine-if-a-point-is-in-a-2d-triangle ! https://en.wikipedia.org/wiki/Barycentric_coordinate_system pure elemental function point_inside_triangle ( x1 , y1 , x2 , y2 , x3 , y3 , & x , y ) result ( rst ) ! Arguments real ( real64 ), intent ( in ) :: x1 , y1 , x2 , y2 , x3 , y3 , x , y logical :: rst ! Local Variables real ( real64 ) :: lambda1 , lambda2 , dT ! Initialization dT = ( y2 - y3 ) * ( x1 - x3 ) + ( x3 - x2 ) * ( y1 - y3 ) lambda1 = (( y2 - y3 ) * ( x - x3 ) + ( x3 - x2 ) * ( y - y3 )) / dT lambda2 = (( y3 - y1 ) * ( x - x3 ) + ( x1 - x3 ) * ( y - y3 )) / dT ! The point is within the triangle if: ! 0 <= lambda1 <= 1 ! 0 <= lambda2 <= 1 ! 0 <= lambda1 + lambda2 <= 1 rst = ( lambda1 <= 1.0d0 . and . lambda1 >= 0.0d0 ) . and . & ( lambda2 <= 1.0d0 . and . lambda2 >= 0.0d0 ) . and . & ( lambda1 + lambda2 >= 0.0d0 . and . lambda1 + lambda2 <= 1.0d0 ) end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_triangulations_delaunay_2d.f90.html"},{"title":"fplot_core_routines.f90 – FPLOT","text":"Source Code ! fplot_core_routines.f90 module fplot_core_routines use iso_fortran_env implicit none private public :: linspace public :: logspace public :: meshgrid contains ! ------------------------------------------------------------------------------ pure function linspace ( start , finish , npts ) result ( x ) !! Constructs a linearly spaced array. real ( real64 ), intent ( in ) :: start !! The first value in the array. real ( real64 ), intent ( in ) :: finish !! The last value in the array. integer ( int32 ), intent ( in ) :: npts !! The number of values in the array. real ( real64 ), allocatable , dimension (:) :: x !! The resulting array. ! Local Variables integer ( int32 ) :: i real ( real64 ) :: dx ! Process allocate ( x ( npts )) dx = ( finish - start ) / ( npts - 1.0d0 ) x ( 1 ) = start do i = 2 , npts x ( i ) = x ( i - 1 ) + dx end do end function ! ------------------------------------------------------------------------------ pure function logspace ( start , finish , npts ) result ( x ) !! Construcst a logarithmically spaced array. real ( real64 ), intent ( in ) :: start !! The exponent of the first value in the array. real ( real64 ), intent ( in ) :: finish !! The exponent of the final value in the array. integer ( int32 ), intent ( in ) :: npts !! The number of values in the array. real ( real64 ), allocatable , dimension (:) :: x !! The resulting array. ! Local Variables integer ( int32 ) :: i real ( real64 ) :: dx , exponent ! Process allocate ( x ( npts )) dx = ( finish - start ) / ( npts - 1.0d0 ) exponent = start do i = 1 , npts x ( i ) = 1.0d1 ** exponent exponent = exponent + dx end do end function ! ------------------------------------------------------------------------------ pure function meshgrid ( x , y ) result ( xy ) !! Constructs two matrices (X and Y) from x and y data arrays. real ( real64 ), intent ( in ), dimension (:) :: x !! An M-element array of x data points. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array of y data points. real ( real64 ), allocatable , dimension (:,:,:) :: xy !! An N-by-M-by-2 array containing the x data matrix on the first !! page of the array, and the y data matrix on the second page. ! Local Variables integer ( int32 ) :: i , nx , ny ! Process nx = size ( x ) ny = size ( y ) allocate ( xy ( ny , nx , 2 )) do i = 1 , ny xy ( i ,:, 1 ) = x end do do i = 1 , nx xy (:, i , 2 ) = y end do end function end module","tags":"","loc":"sourcefile\\fplot_core_routines.f90.html"},{"title":"fplot_stats_plots.f90 – FPLOT","text":"Source Code module fplot_stats_plots use iso_fortran_env use fplot_plot_object use fplot_plot use fplot_plot_data_2d use fplot_plot_data_histogram use fplot_plot_2d use fplot_multiplot use fplot_terminal use fplot_constants use fplot_errors use fplot_colors use fplot_plot_axis use collections use strings implicit none private public :: correlation_plot type , extends ( plot_object ) :: correlation_plot !! Defines a multiplot arrangement designed to illustrate correlation !! between data sets. type ( multiplot ), private :: m_plt !! The multiplot object. contains procedure , public :: get_command_string => cp_get_command procedure , public :: initialize => cp_init procedure , public :: get_row_count => cp_get_rows procedure , public :: get_column_count => cp_get_cols procedure , public :: get_plot_count => cp_get_count procedure , public :: draw => cp_draw procedure , public :: save_file => cp_save procedure , public :: get => cp_get procedure , public :: get_terminal => cp_get_term procedure , public :: get_font_name => cp_get_font procedure , public :: set_font_name => cp_set_font procedure , public :: get_font_size => cp_get_font_size procedure , public :: set_font_size => cp_set_font_size end type contains ! ------------------------------------------------------------------------------ function cp_get_command ( this ) result ( x ) !! Gets the GNUPLOT commands for this object. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. character ( len = :), allocatable :: x !! The command string. end function ! ------------------------------------------------------------------------------ subroutine cp_init ( this , x , labels , term , width , height , err ) !! Initializes the correlation_plot object. class ( correlation_plot ), intent ( inout ) :: this !! The correlation_plot object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data to plot with each column representing a data set. type ( string ), intent ( in ), optional , dimension (:) :: labels !! An optional array containing a label to associate with each !! data set in x.  If supplied, this array must have the same length !! as x has columns. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal.  The !! default terminal is a WXT terminal.  The acceptable inputs are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF integer ( int32 ), intent ( in ), optional :: width !! Optionally, the width of the plot window. integer ( int32 ), intent ( in ), optional :: height !! Optionally, the height of the plot window. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , j , k , t , n , flag real ( real64 ) :: m , b real ( real64 ), allocatable , dimension (:) :: mdl class ( errors ), pointer :: errmgr type ( errors ), target :: deferr type ( plot_2d ), allocatable , dimension (:) :: plts type ( plot_data_2d ) :: pdata , mdata type ( plot_data_histogram ) :: hdata class ( plot_axis ), pointer :: xAxis , yAxis ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x , 2 ) call this % m_plt % initialize ( n , n , term = term , width = width , & height = height , err = errmgr ) allocate ( plts ( n * n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"cp_init\" , flag ) return end if call this % m_plt % set_font_size ( 11 ) ! use a small font size ! Input Checking if ( present ( labels )) then if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"cp_init\" , & \"labels\" , n , size ( labels )) return end if end if ! Create plots k = 0 call pdata % set_draw_line (. false .) call pdata % set_draw_markers (. true .) call pdata % set_marker_style ( MARKER_FILLED_CIRCLE ) call pdata % set_marker_scaling ( 0.5 ) call mdata % set_line_width ( 2.0 ) call mdata % set_line_color ( CLR_BLACK ) do j = 1 , n do i = 1 , n k = k + 1 call plts ( k )% initialize ( err = errmgr ) if ( i == j ) then ! Plot a histogram of the data call hdata % define_data ( x (:, i ), err = errmgr ) call plts ( k )% push ( hdata ) else ! Plot a scatter plot call pdata % define_data ( x (:, j ), x (:, i ), err = errmgr ) call plts ( k )% push ( pdata ) ! Fit a line to the data call compute_linear_fit ( x (:, j ), x (:, i ), m , b ) mdl = m * x (:, j ) + b ! Plot the fitted line call mdata % define_data ( x (:, j ), mdl , err = err ) call plts ( k )% push ( mdata ) end if ! Deal with axis labels if ( j == 1 ) then ! Display y axis labels for these plots yAxis => plts ( k )% get_y_axis () if ( present ( labels )) then call yAxis % set_title ( char ( labels ( i ))) else call yAxis % set_title ( char ( \"x_{\" // to_string ( i ) // \"}\" )) end if end if ! Get an x-axis object for the plot xAxis => plts ( k )% get_x_axis () ! Define axis labels if ( i == n ) then ! Display x axis labels for these plots if ( present ( labels )) then call xAxis % set_title ( char ( labels ( j ))) else call xAxis % set_title ( char ( \"x_{\" // to_string ( j ) // \"}\" )) end if end if ! Rotate histogram tic labels call xAxis % set_tic_label_angle ( 4 5.0 ) call xAxis % set_tic_label_rotation_origin ( GNUPLOT_ROTATION_ORIGIN_RIGHT ) ! Store the plot - the collection makes a copy of the plot and ! manages it's lifetime call this % m_plt % set ( i , j , plts ( k )) end do end do end subroutine ! ------------------------------------------------------------------------------ pure function cp_get_rows ( this ) result ( x ) !! Gets the number of rows of plots. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ) :: x !! The row count. x = this % m_plt % get_row_count () end function ! -------------------- pure function cp_get_cols ( this ) result ( x ) !! Gets the number of columns of plots. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ) :: x !! The column count. x = this % m_plt % get_column_count () end function ! -------------------- pure function cp_get_count ( this ) result ( x ) !! Gets the total number of plots. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ) :: x !! The plot count. x = this % m_plt % get_plot_count () end function ! ------------------------------------------------------------------------------ subroutine cp_draw ( this , persist , err ) !! Launches GNUPLOT and draws the correlation_plot per the current !! state of the command list. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. logical , intent ( in ), optional :: persist !! An optional parameter that can be used to keep GNUPLOT open. !! Set to true to force GNUPLOT to remain open; else, set to false !! to allow GNUPLOT to close after drawing.  The default is true. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. call this % m_plt % draw ( persist , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine cp_save ( this , fname , err ) !! Saves a GNUPLOT command file. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. character ( len = * ), intent ( in ) :: fname !! The filename. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. call this % m_plt % save_file ( fname , err ) end subroutine ! ------------------------------------------------------------------------------ function cp_get ( this , i , j ) result ( x ) !! Gets the requested plot object. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ), intent ( in ) :: i !! The row index of the plot to retrieve. integer ( int32 ), intent ( in ) :: j !! The column index of the plot to retrieve. class ( plot ), pointer :: x !! A pointer to the plot object. x => this % m_plt % get ( i , j ) end function ! ------------------------------------------------------------------------------ function cp_get_term ( this ) result ( x ) !! Gets the GNUPLOT terminal object. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. class ( terminal ), pointer :: x !! A pointer to the terminal object. x => this % m_plt % get_terminal () end function ! ------------------------------------------------------------------------------ function cp_get_font ( this ) result ( x ) !! Gets the name of the font used for plot text. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. character ( len = :), allocatable :: x !! The font name. x = this % m_plt % get_font_name () end function ! -------------------- subroutine cp_set_font ( this , x ) !! Sets the name of the font used for plot text. class ( correlation_plot ), intent ( inout ) :: this !! The correlation_plot object. character ( len = * ), intent ( in ) :: x !! The font name. call this % m_plt % set_font_name ( x ) end subroutine ! ------------------------------------------------------------------------------ function cp_get_font_size ( this ) result ( x ) !! Gets the size of the font used by the plot. class ( correlation_plot ), intent ( in ) :: this !! The correlation_plot object. integer ( int32 ) :: x !! The font size. x = this % m_plt % get_font_size () end function ! -------------------- subroutine cp_set_font_size ( this , x ) !! Sets the size of the font used by the plot. class ( correlation_plot ), intent ( inout ) :: this !! The correlation_plot object. integer ( int32 ), intent ( in ) :: x !! The font size. call this % m_plt % set_font_size ( x ) end subroutine ! ****************************************************************************** ! PRIVATE HELPER ROUTINES ! ------------------------------------------------------------------------------ subroutine compute_linear_fit ( x , y , m , b ) !! Computes the coefficients of a linear equation (y = m * x + b) using a !! least-squares approach. real ( real64 ), intent ( in ), dimension (:) :: x !! The x-coordinate data. real ( real64 ), intent ( in ), dimension (:) :: y !! The y-coordinate data. real ( real64 ), intent ( out ) :: m !! The slope term. real ( real64 ), intent ( out ) :: b !! The intercept term. ! Local Variables integer ( int32 ) :: i , n real ( real64 ) :: sumX , sumY , sumX2 , sumY2 , sumXY ! Initialization n = size ( x ) sumX = 0.0d0 sumY = 0.0d0 sumX2 = 0.0d0 sumY2 = 0.0d0 sumXY = 0.0d0 ! Process do i = 1 , n sumX = sumX + x ( i ) sumY = sumY + y ( i ) sumXY = sumXY + x ( i ) * y ( i ) sumX2 = sumX2 + ( x ( i )) ** 2 sumY2 = sumY2 + ( y ( i )) ** 2 end do m = ( n * sumXY - sumX * sumY ) / ( n * sumX2 - sumX ** 2 ) b = ( sumY * sumX2 - sumX * sumXY ) / ( n * sumX2 - sumX ** 2 ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_stats_plots.f90.html"},{"title":"fplot_wxt_terminal.f90 – FPLOT","text":"Source Code ! fplot_wxt_terminal.f90 module fplot_wxt_terminal use iso_fortran_env use fplot_terminal implicit none private public :: wxt_terminal type , extends ( terminal ) :: wxt_terminal !! A WXT terminal. character ( len = 3 ), private :: m_id = \"wxt\" !! The terminal ID string contains procedure , public :: get_id_string => wxt_get_term_string end type contains function wxt_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( wxt_terminal ), intent ( in ) :: this !! The wxt_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function end module","tags":"","loc":"sourcefile\\fplot_wxt_terminal.f90.html"},{"title":"fplot_latex_terminal.f90 – FPLOT","text":"Source Code module fplot_latex_terminal use iso_fortran_env use fplot_terminal use fplot_constants use strings implicit none private public :: latex_terminal type , extends ( file_terminal ) :: latex_terminal !! A LATEX terminal. character ( len = 14 ), private :: m_id = \"epslatex color\" !! The terminal ID string contains procedure , public :: get_id_string => tex_get_term_string end type contains ! ------------------------------------------------------------------------------ function tex_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( latex_terminal ), intent ( in ) :: this !! The latex_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len_trim ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_latex_terminal.f90.html"},{"title":"fplot_terminal.f90 – FPLOT","text":"Source Code ! fplot_terminal.f90 module fplot_terminal use iso_fortran_env use fplot_plot_object use fplot_constants use strings implicit none private public :: terminal public :: file_terminal public :: term_get_string_result type , abstract , extends ( plot_object ) :: terminal !! A GNUPLOT terminal object. private integer ( int32 ) :: m_windowHeight = GNUPLOT_DEFAULT_WINDOW_HEIGHT !! The window height, in pixels. integer ( int32 ) :: m_windowWidth = GNUPLOT_DEFAULT_WINDOW_WIDTH !! The window width, in pixels. integer ( int32 ) :: m_termID = 0 !! The terminal ID number. character ( len = GNUPLOT_MAX_LABEL_LENGTH ) :: m_title = \"\" !! The plot window title. logical :: m_hasTitle = . false . !! Determines if the plot title is defined. character ( len = GNUPLOT_MAX_LABEL_LENGTH ) :: m_fontName = & GNUPLOT_DEFAULT_FONTNAME !! The font used by the graph. integer ( int32 ) :: m_fontSize = GNUPLOT_DEFAULT_FONT_SIZE !! The size of the font used by the graph. contains procedure , public :: get_window_width => term_get_window_width procedure , public :: set_window_width => term_set_window_width procedure , public :: get_window_height => term_get_window_height procedure , public :: set_window_height => term_set_window_height procedure , public :: get_command_string => term_get_command_string procedure , public :: get_plot_window_number => & term_get_plot_window_number procedure , public :: set_plot_window_number => & term_set_plot_window_number procedure , public :: get_title => term_get_title procedure , public :: set_title => term_set_title procedure , public :: get_font_name => term_get_font_name procedure , public :: set_font_name => term_set_font_name procedure , public :: get_font_size => term_get_font_size procedure , public :: set_font_size => term_set_font_size procedure ( term_get_string_result ), deferred , public :: get_id_string end type interface function term_get_string_result ( this ) result ( x ) !! Retrieves a string from a terminal. import terminal class ( terminal ), intent ( in ) :: this !! The terminal object. character ( len = :), allocatable :: x !! The string. end function end interface type , abstract , extends ( terminal ) :: file_terminal !! Defines a terminal meant to save results directly to file !! (e.g. PNG, SVG, etc.). character ( len = GNUPLOT_MAX_PATH_LENGTH ), private :: m_fname = \"default.plt\" !! The filename. contains procedure , public :: get_filename => fterm_get_filename procedure , public :: set_filename => fterm_set_filename procedure , public :: get_command_string => fterm_get_command_string end type contains ! ------------------------------------------------------------------------------ pure function term_get_window_width ( this ) result ( x ) !! Gets the width of the plot window. class ( terminal ), intent ( in ) :: this !! The terminal object. integer :: x !! The width of the plot window. x = this % m_windowWidth end function ! -------------------- subroutine term_set_window_width ( this , x ) !! Sets the width of the plot window. class ( terminal ), intent ( inout ) :: this !! The terminal object. integer , intent ( in ) :: x !! The width of the plot window. if ( x == 0 ) then this % m_windowWidth = GNUPLOT_DEFAULT_WINDOW_WIDTH else this % m_windowWidth = abs ( x ) end if end subroutine ! ------------------------------------------------------------------------------ pure function term_get_window_height ( this ) result ( x ) !! Gets the height of the plot window. class ( terminal ), intent ( in ) :: this !! The terminal object. integer :: x !! The height of the plot window. x = this % m_windowHeight end function ! -------------------- subroutine term_set_window_height ( this , x ) !! Sets the height of the plot window. class ( terminal ), intent ( inout ) :: this !! The terminal object. integer , intent ( in ) :: x !! The height of the plot window. if ( x == 0 ) then this % m_windowHeight = GNUPLOT_DEFAULT_WINDOW_HEIGHT else this % m_windowHeight = abs ( x ) end if end subroutine ! ------------------------------------------------------------------------------ pure function term_get_plot_window_number ( this ) result ( x ) !! Gets the targeted plot window number. class ( terminal ), intent ( in ) :: this !! The terminal object. integer ( int32 ) :: x !! The plot window number. x = this % m_termID end function ! -------------------- subroutine term_set_plot_window_number ( this , x ) !! Sets the targeted plot window number. class ( terminal ), intent ( inout ) :: this !! The terminal object. integer ( int32 ), intent ( in ) :: x !! The plot window number. this % m_termID = x end subroutine ! ------------------------------------------------------------------------------ function term_get_title ( this ) result ( str ) !! Gets the plot window's title. class ( terminal ), intent ( in ) :: this !! The terminal object. character ( len = :), allocatable :: str !! The title. integer ( int32 ) :: n n = len_trim ( str ) allocate ( character ( len = n ) :: str ) str = trim ( this % m_title ) end function ! -------------------- subroutine term_set_title ( this , txt ) !! Sets the plot window's title. class ( terminal ), intent ( inout ) :: this !! The terminal object. character ( len = * ), intent ( in ) :: txt !! The title. integer ( int32 ) :: n n = min ( len_trim ( txt ), GNUPLOT_MAX_LABEL_LENGTH ) this % m_title = \"\" if ( n /= 0 ) then this % m_title ( 1 : n ) = txt ( 1 : n ) this % m_hasTitle = . true . else this % m_hasTitle = . false . end if end subroutine ! ------------------------------------------------------------------------------ function term_get_font_name ( this ) result ( name ) !! Gets the name of the font used for text displayed by the graph. class ( terminal ), intent ( in ) :: this !! The terminal object. character ( len = :), allocatable :: name !! The font name. integer ( int32 ) :: n n = len_trim ( this % m_fontName ) allocate ( character ( len = n ) :: name ) name = trim ( this % m_fontName ) end function ! -------------------- subroutine term_set_font_name ( this , name ) !! Sets the name of the font used for text displayed by the graph. class ( terminal ), intent ( inout ) :: this !! The terminal object. character ( len = * ), intent ( in ) :: name !! The font name. integer ( int32 ) :: n n = min ( len_trim ( name ), GNUPLOT_MAX_LABEL_LENGTH ) this % m_fontName = \"\" if ( n == 0 ) then this % m_fontName = GNUPLOT_DEFAULT_FONTNAME else this % m_fontName ( 1 : n ) = name ( 1 : n ) end if end subroutine ! ------------------------------------------------------------------------------ pure function term_get_font_size ( this ) result ( sz ) !! Gets the size of the font used by the graph. class ( terminal ), intent ( in ) :: this !! The terminal object. integer ( int32 ) :: sz !! The font size, in points. sz = this % m_fontSize end function ! -------------------- subroutine term_set_font_size ( this , sz ) !! Sets the size of the font used by the graph. class ( terminal ), intent ( inout ) :: this !! The terminal object. integer ( int32 ), intent ( in ) :: sz !! The font size, in points. if ( sz == 0 ) then this % m_fontSize = GNUPLOT_DEFAULT_FONT_SIZE else this % m_fontSize = abs ( sz ) end if end subroutine ! ------------------------------------------------------------------------------ function term_get_command_string ( this ) result ( x ) !! Returns the appropriate GNUPLOT command string to establish !! appropriate parameters. class ( terminal ), intent ( in ) :: this !! The terminal object. character ( len = :), allocatable :: x !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str ! Process call str % initialize () call str % append ( \"set term \" ) call str % append ( this % get_id_string ()) call str % append ( \" enhanced \" ) call str % append ( to_string ( this % get_plot_window_number ())) call str % append ( \" font \" ) call str % append ( '\"' ) call str % append ( this % get_font_name ()) call str % append ( ',' ) call str % append ( to_string ( this % get_font_size ())) call str % append ( '\"' ) call str % append ( \" size \" ) call str % append ( to_string ( this % get_window_width ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_window_height ())) if ( this % m_hasTitle ) then call str % append ( ' title \"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if x = char ( str % to_string ()) end function ! ****************************************************************************** ! FILE_TERMINAL ! ------------------------------------------------------------------------------ pure function fterm_get_filename ( this ) result ( txt ) !! Gets the filename for the output file. class ( file_terminal ), intent ( in ) :: this !! The file_terminal object. character ( len = :), allocatable :: txt !! The filename. integer ( int32 ) :: n n = len_trim ( this % m_fname ) allocate ( character ( len = n ) :: txt ) txt = trim ( this % m_fname ) end function ! -------------------- subroutine fterm_set_filename ( this , txt ) !! Sets the filename for the output file. class ( file_terminal ), intent ( inout ) :: this !! The file_terminal object. character ( len = * ), intent ( in ) :: txt !! The filename. integer ( int32 ) :: n n = min ( len_trim ( txt ), GNUPLOT_MAX_PATH_LENGTH ) this % m_fname = \"\" if ( n /= 0 ) then this % m_fname ( 1 : n ) = txt ( 1 : n ) else this % m_fname = \"default.plt\" end if end subroutine ! ------------------------------------------------------------------------------ function fterm_get_command_string ( this ) result ( x ) !! Returns the appropriate GNUPLOT command string to establish !! appropriate parameters. class ( file_terminal ), intent ( in ) :: this !! The file_terminal object. character ( len = :), allocatable :: x !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str ! Process call str % initialize () call str % append ( \"set term \" ) call str % append ( this % get_id_string ()) call str % append ( \" font \" ) call str % append ( '\"' ) call str % append ( this % get_font_name ()) call str % append ( ',' ) call str % append ( to_string ( this % get_font_size ())) call str % append ( '\"' ) call str % append ( \" size \" ) call str % append ( to_string ( this % get_window_width ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_window_height ())) call str % append ( new_line ( 'a' )) call str % append ( \"set output \" ) call str % append ( '\"' ) call str % append ( this % get_filename ()) call str % append ( '\"' ) x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_terminal.f90.html"},{"title":"fplot_plot_data_2d.f90 – FPLOT","text":"Source Code module fplot_plot_data_2d use iso_fortran_env use fplot_plot_data use fplot_simplify use fplot_errors use strings implicit none private public :: plot_data_2d type , extends ( scatter_plot_data ) :: plot_data_2d !! Defines a two-dimensional plot data set. real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! An N-by-2 matrix containing the x and y data points. !> Draw against the secondary y axis? logical , private :: m_useY2 = . false . !! Draw against the secondary y axis? contains procedure , public :: get_axes_string => pd2d_get_axes_cmd procedure , public :: get_data_string => pd2d_get_data_cmd procedure , public :: get_count => pd2d_get_data_count procedure , public :: get_x => pd2d_get_x_data procedure , public :: set_x => pd2d_set_x_data procedure , public :: get_y => pd2d_get_y_data procedure , public :: set_y => pd2d_set_y_data procedure , public :: get_draw_against_y2 => pd2d_get_draw_against_y2 procedure , public :: set_draw_against_y2 => pd2d_set_draw_against_y2 generic , public :: define_data => pd2d_set_data_1 , pd2d_set_data_2 procedure :: pd2d_set_data_1 procedure :: pd2d_set_data_2 procedure , public :: get_x_data => pd2d_get_x_array procedure , public :: get_y_data => pd2d_get_y_array procedure , public :: get_color_data => pd2d_get_c_array procedure , public :: get_point_size_data => pd2d_get_ps_array procedure , public :: clear_data => pd2d_clear_data end type contains ! ------------------------------------------------------------------------------ function pd2d_get_axes_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string defining which axes the data !! is to be plotted against. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. character ( len = :), allocatable :: x !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then x = \"axes x1y2\" else x = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ function pd2d_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data !! to plot. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i character :: delimiter , nl real ( real64 ), allocatable , dimension (:) :: xv , yv , cv , ps real ( real64 ), allocatable , dimension (:,:) :: pts real ( real64 ) :: tol , maxy , miny , eps logical :: usecolors , usevarpoints ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) usecolors = this % get_use_data_dependent_colors () usevarpoints = this % get_use_variable_size_points () ! Process xv = this % get_x_data () yv = this % get_y_data () if ( usecolors . and . usevarpoints ) then cv = this % get_color_data () ps = this % get_point_size_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( ps ( i ))) call str % append ( delimiter ) call str % append ( to_string ( cv ( i ))) call str % append ( nl ) end do else if ( usecolors . and . . not . usevarpoints ) then cv = this % get_color_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( cv ( i ))) call str % append ( nl ) end do else if (. not . usecolors . and . usevarpoints ) then ps = this % get_point_size_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( ps ( i ))) call str % append ( nl ) end do else if ( this % get_simplify_data ()) then maxy = maxval ( yv ) miny = minval ( yv ) tol = abs ( this % get_simplification_factor () * ( maxy - miny )) eps = 1 0.0d0 * epsilon ( eps ) if ( tol < eps ) tol = eps pts = simplify_polyline ( xv , yv , tol ) do i = 1 , size ( pts , 1 ) call str % append ( to_string ( pts ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( pts ( i , 2 ))) call str % append ( nl ) end do else do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( nl ) end do end if end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function pd2d_get_data_count ( this ) result ( x ) !! Gets the number of data points. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. integer ( int32 ) :: x !! The number of data points. if ( allocated ( this % m_data )) then x = size ( this % m_data , 1 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pd2d_get_x_data ( this , index ) result ( x ) !! Gets the requested X data point. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 1 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd2d_set_x_data ( this , index , x ) !! Sets the requested X data point. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 1 ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pd2d_get_y_data ( this , index ) result ( x ) !! Gets the requested Y data point. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 2 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd2d_set_y_data ( this , index , x ) !! Sets the requested Y data point. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 2 ) = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine pd2d_set_data_1 ( this , x , y , c , ps , err ) !! Defines the data set to plot. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinate data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinate data. real ( real64 ), intent ( in ), dimension (:), optional :: c !! An N-element array defining how color should vary with the !! current colormap for each value. real ( real64 ), intent ( in ), dimension (:), optional :: ps !! An N-element array defining the size of each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error-handling object. ! Local Variables integer ( int32 ) :: i , n , flag , ncols class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) ncols = 2 if ( present ( c )) ncols = ncols + 1 if ( present ( ps )) ncols = ncols + 1 if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pd2d_set_data_1\" , & \"y\" , n , size ( y )) return end if if ( present ( c )) then if ( size ( c ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pd2d_set_data_1\" , \"c\" , n , size ( c )) return end if end if if ( present ( ps )) then if ( size ( ps ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pd2d_set_data_1\" , \"ps\" , n , size ( ps )) return end if end if ! Process if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , ncols ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pd2d_set_data_1\" , flag ) return end if ! if (present(c)) then !     call this%set_use_data_dependent_colors(.true.) !     do concurrent (i = 1:n) !         this%m_data(i, 1) = x(i) !         this%m_data(i, 2) = y(i) !         this%m_data(i, 3) = c(i) !     end do ! else !     call this%set_use_data_dependent_colors(.false.) !     do concurrent (i = 1:n) !         this%m_data(i, 1) = x(i) !         this%m_data(i, 2) = y(i) !     end do ! end if if ( present ( c ) . and . present ( ps )) then call this % set_use_data_dependent_colors (. true .) call this % set_use_variable_size_points (. true .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = ps ( i ) this % m_data ( i , 4 ) = c ( i ) end do else if ( present ( c ) . and . . not . present ( ps )) then call this % set_use_data_dependent_colors (. true .) call this % set_use_variable_size_points (. false .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = c ( i ) end do else if (. not . present ( c ) . and . present ( ps )) then call this % set_use_data_dependent_colors (. false .) call this % set_use_variable_size_points (. true .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = ps ( i ) end do else call this % set_use_data_dependent_colors (. false .) call this % set_use_variable_size_points (. false .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) end do end if end subroutine ! ------------------------------------------------------------------------------ pure function pd2d_get_draw_against_y2 ( this ) result ( x ) !! Gets a value determining if the data should be plotted against !! the secondary y-axis. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. logical :: x !! Returns true if the data should be plotted against the secondary !! y-axis; else, false to plot against the primary y-axis. x = this % m_useY2 end function ! -------------------- subroutine pd2d_set_draw_against_y2 ( this , x ) !! Sets a value determining if the data should be plotted against !! the secondary y-axis. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. logical , intent ( in ) :: x !! Set to true if the data should be plotted against the !! secondary y-axis; else, false to plot against the primary y-axis. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ subroutine pd2d_set_data_2 ( this , y , err ) !! Defines the data set to plot. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y-coordinate data.  This !! data will be plotted against its own index. class ( errors ), intent ( inout ), optional , target :: err !! An error-handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( y ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Process if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 2 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pd2d_set_data_2\" , flag ) return end if do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = real ( i , real64 ) this % m_data ( i , 2 ) = y ( i ) end do end subroutine ! ------------------------------------------------------------------------------ function pd2d_get_x_array ( this ) result ( x ) !! Gets the stored X data array. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 1 ) end if end function ! ------------------------------------------------------------------------------ function pd2d_get_y_array ( this ) result ( x ) !! Gets the stored Y data array. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 2 ) end if end function ! ****************************************************************************** ! ADDED: OCT. 8, 2020 - JAC ! ------------------------------------------------------------------------------ function pd2d_get_c_array ( this ) result ( x ) !! Gets the stored color scaling data array. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then if ( size ( this % m_data , 2 ) == 3 ) then x = this % m_data (:, 3 ) else if ( size ( this % m_data , 2 ) == 4 ) then x = this % m_data (:, 4 ) end if end if end function ! ------------------------------------------------------------------------------ function pd2d_get_ps_array ( this ) result ( x ) !! Gets the stored point size data array. class ( plot_data_2d ), intent ( in ) :: this !! The plot_data_2d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then if ( size ( this % m_data , 2 ) > 2 ) then x = this % m_data (:, 3 ) end if end if end function ! ------------------------------------------------------------------------------ subroutine pd2d_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_2d ), intent ( inout ) :: this !! The plot_data_2d object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_2d.f90.html"},{"title":"fplot_plot_data_3d.f90 – FPLOT","text":"Source Code module fplot_plot_data_3d use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_simplify use strings implicit none private public :: plot_data_3d type , extends ( scatter_plot_data ) :: plot_data_3d !! Defines a three-dimensional plot data set. real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! An N-by-3 matrix containing the x, y, and z data points. contains procedure , public :: get_count => pd3d_get_data_count procedure , public :: get_x => pd3d_get_x_data procedure , public :: set_x => pd3d_set_x_data procedure , public :: get_y => pd3d_get_y_data procedure , public :: set_y => pd3d_set_y_data procedure , public :: get_z => pd3d_get_z_data procedure , public :: set_z => pd3d_set_z_data procedure , public :: get_axes_string => pd3d_get_axes_cmd procedure , public :: get_data_string => pd3d_get_data_cmd procedure , public :: define_data => pd3d_set_data_1 procedure , public :: get_x_data => pd3d_get_x_array procedure , public :: get_y_data => pd3d_get_y_array procedure , public :: get_z_data => pd3d_get_z_array procedure , public :: get_color_data => pd3d_get_c_array procedure , public :: get_point_size_data => pd3d_get_c_array procedure , public :: clear_data => pd3d_clear_data end type contains ! ------------------------------------------------------------------------------ pure function pd3d_get_data_count ( this ) result ( x ) !! Gets the number of data points. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. integer ( int32 ) :: x !! The number of data points. if ( allocated ( this % m_data )) then x = size ( this % m_data , 1 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pd3d_get_x_data ( this , index ) result ( x ) !! Gets the requested X data point. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 1 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd3d_set_x_data ( this , index , x ) !! Sets the requested X data point. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 1 ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pd3d_get_y_data ( this , index ) result ( x ) !! Gets the requested Y data point. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 2 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd3d_set_y_data ( this , index , x ) !! Sets the requested Y data point. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 2 ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pd3d_get_z_data ( this , index ) result ( x ) !! Gets the requested Z data point. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to retrieve. real ( real64 ) :: x !! The requested data point. if ( allocated ( this % m_data )) then x = this % m_data ( index , 3 ) else x = 0.0d0 end if end function ! -------------------- subroutine pd3d_set_z_data ( this , index , x ) !! Sets the requested Z data point. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. integer ( int32 ), intent ( in ) :: index !! The index of the data point to replace. real ( real64 ), intent ( in ) :: x !! The data point. if ( allocated ( this % m_data )) then this % m_data ( index , 3 ) = x end if end subroutine ! ------------------------------------------------------------------------------ function pd3d_get_axes_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string defining which axes the data !! is to be plotted against. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. character ( len = :), allocatable :: x !! The command string. ! Output x = \"\" end function ! ------------------------------------------------------------------------------ function pd3d_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data to plot. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i character :: delimiter , nl real ( real64 ), allocatable , dimension (:) :: xv , yv , zv , cv , ps real ( real64 ), allocatable , dimension (:,:) :: pts real ( real64 ) :: tol , maxz , minz , eps logical :: usecolors , usevarpoints ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) usecolors = this % get_use_data_dependent_colors () usevarpoints = this % get_use_variable_size_points () ! Process xv = this % get_x_data () yv = this % get_y_data () zv = this % get_z_data () if ( usecolors . and . usevarpoints ) then cv = this % get_color_data () ps = this % get_point_size_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( zv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( ps ( i ))) call str % append ( delimiter ) call str % append ( to_string ( cv ( i ))) call str % append ( nl ) end do else if ( usecolors . and . . not . usevarpoints ) then cv = this % get_color_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( zv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( cv ( i ))) call str % append ( nl ) end do else if (. not . usecolors . and . usevarpoints ) then ps = this % get_point_size_data () do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( zv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( ps ( i ))) call str % append ( nl ) end do else if ( this % get_simplify_data ()) then maxz = maxval ( zv ) minz = minval ( zv ) tol = abs ( this % get_simplification_factor () * ( maxz - minz )) eps = 1 0.0d0 * epsilon ( eps ) if ( tol < eps ) tol = eps pts = simplify_polyline ( xv , yv , zv , tol ) do i = 1 , size ( pts , 1 ) call str % append ( to_string ( pts ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( pts ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( pts ( i , 3 ))) call str % append ( nl ) end do else do i = 1 , size ( xv ) call str % append ( to_string ( xv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( yv ( i ))) call str % append ( delimiter ) call str % append ( to_string ( zv ( i ))) call str % append ( nl ) end do end if end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine pd3d_set_data_1 ( this , x , y , z , c , ps , err ) !! Defines the data set. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinate data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinate data. real ( real64 ), intent ( in ), dimension (:) :: z !! An N-element array containing the z coordinate data. real ( real64 ), intent ( in ), dimension (:), optional :: c !! An N-element array defining how color should vary with the !! current colormap for each value. real ( real64 ), intent ( in ), dimension (:), optional :: ps !! An N-element array defining the size of each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag , ncols class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) ncols = 3 if ( present ( c )) ncols = ncols + 1 if ( present ( ps )) ncols = ncols + 1 if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pd3d_set_data_1\" , & \"y\" , n , size ( y )) return end if if ( size ( z ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pd3d_set_data_1\" , & \"z\" , n , size ( z )) return end if if ( present ( c )) then if ( size ( c ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pd3d_set_data_1\" , \"c\" , n , size ( c )) return end if end if if ( present ( ps )) then if ( size ( ps ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pd3d_set_data_1\" , \"ps\" , n , size ( ps )) end if end if ! Process if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , ncols ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pd3d_set_data_1\" , flag ) return end if if ( present ( c ) . and . present ( ps )) then call this % set_use_data_dependent_colors (. true .) call this % set_use_variable_size_points (. true .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = z ( i ) this % m_data ( i , 4 ) = ps ( i ) this % m_data ( i , 5 ) = c ( i ) end do else if ( present ( c ) . and . . not . present ( ps )) then call this % set_use_data_dependent_colors (. true .) call this % set_use_variable_size_points (. false .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = z ( i ) this % m_data ( i , 4 ) = c ( i ) end do else if (. not . present ( c ) . and . present ( ps )) then call this % set_use_data_dependent_colors (. false .) call this % set_use_variable_size_points (. true .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = z ( i ) this % m_data ( i , 4 ) = ps ( i ) end do else call this % set_use_data_dependent_colors (. false .) call this % set_use_variable_size_points (. false .) do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = z ( i ) end do end if end subroutine ! ------------------------------------------------------------------------------ function pd3d_get_x_array ( this ) result ( x ) !! Gets the stored X data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 1 ) end if end function ! ------------------------------------------------------------------------------ function pd3d_get_y_array ( this ) result ( x ) !! Gets the stored Y data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 2 ) end if end function ! ------------------------------------------------------------------------------ function pd3d_get_z_array ( this ) result ( x ) !! Gets the stored Z data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then x = this % m_data (:, 3 ) end if end function ! ****************************************************************************** ! ADDED: OCT. 9, 2020 - JAC ! ------------------------------------------------------------------------------ function pd3d_get_c_array ( this ) result ( x ) !! Gets the stored color scaling data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then if ( size ( this % m_data , 2 ) == 4 ) then x = this % m_data (:, 4 ) else if ( size ( this % m_data , 2 ) == 5 ) then x = this % m_data (:, 5 ) end if end if end function ! ------------------------------------------------------------------------------ function pd3d_get_ps_array ( this ) result ( x ) !! Gets the stored point scaling data array. class ( plot_data_3d ), intent ( in ) :: this !! The plot_data_3d object. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the stored data array. ! Process if ( allocated ( this % m_data )) then if ( size ( this % m_data , 2 ) > 3 ) then x = this % m_data (:, 4 ) end if end if end function ! ------------------------------------------------------------------------------ subroutine pd3d_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_3d ), intent ( inout ) :: this !! The plot_data_3d object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_3d.f90.html"},{"title":"fplot_colors.f90 – FPLOT","text":"Source Code ! fplot_colors.f90 module fplot_colors use iso_fortran_env implicit none private public :: color public :: operator ( == ) public :: operator ( /= ) public :: CLR_BLACK public :: CLR_WHITE public :: CLR_RED public :: CLR_LIME public :: CLR_BLUE public :: CLR_YELLOW public :: CLR_CYAN public :: CLR_MAGENTA public :: CLR_SILVER public :: CLR_GRAY public :: CLR_MAROON public :: CLR_OLIVE public :: CLR_GREEN public :: CLR_PURPLE public :: CLR_TEAL public :: CLR_NAVY public :: CLR_ORANGE public :: color_list type color !! Describes an RGB color. integer ( int32 ), public :: red = 0 !! The red component of the color (must be between 0 and 255). integer ( int32 ), public :: green = 0 !! The green component of the color (must be between 0 and 255). integer ( int32 ), public :: blue = 255 !! The blue component of the color (must be between 0 and 255). integer ( int32 ), public :: alpha = 0 !! The alpha component of the color (must be between 0 and 255). !! Notice, 0 is fully opaque and 255 is fully transparent. contains procedure , public , pass :: to_hex_string => clr_to_hex_string procedure , public , pass :: rgb_to_hex_string => clr_rgb_to_hex_string procedure , public , pass :: copy_from => clr_copy_from end type interface operator ( == ) module procedure :: clr_equals end interface interface operator ( /= ) module procedure :: clr_not_equals end interface type ( color ), parameter :: CLR_BLACK = color ( 0 , 0 , 0 , 0 ) !! Black. type ( color ), parameter :: CLR_WHITE = color ( 255 , 255 , 255 , 0 ) !! White. type ( color ), parameter :: CLR_RED = color ( 255 , 0 , 0 , 0 ) !! Red. type ( color ), parameter :: CLR_LIME = color ( 0 , 255 , 0 , 0 ) !! Lime. type ( color ), parameter :: CLR_BLUE = color ( 0 , 0 , 255 , 0 ) !! Blue. type ( color ), parameter :: CLR_YELLOW = color ( 255 , 255 , 0 , 0 ) !! Yellow. type ( color ), parameter :: CLR_CYAN = color ( 0 , 255 , 255 , 0 ) !! Cyan. type ( color ), parameter :: CLR_MAGENTA = color ( 255 , 0 , 255 , 0 ) !! Magenta. type ( color ), parameter :: CLR_SILVER = color ( 192 , 192 , 192 , 0 ) !! Silver. type ( color ), parameter :: CLR_GRAY = color ( 128 , 128 , 128 , 0 ) !! Gray. type ( color ), parameter :: CLR_MAROON = color ( 128 , 0 , 0 , 0 ) !! Maroon. type ( color ), parameter :: CLR_OLIVE = color ( 128 , 128 , 0 , 0 ) !! Olive. type ( color ), parameter :: CLR_GREEN = color ( 0 , 128 , 0 , 0 ) !! Green. type ( color ), parameter :: CLR_PURPLE = color ( 128 , 0 , 128 , 0 ) !! Purple. type ( color ), parameter :: CLR_TEAL = color ( 0 , 128 , 128 , 0 ) !! Teal. type ( color ), parameter :: CLR_NAVY = color ( 0 , 0 , 128 , 0 ) !! Navy. type ( color ), parameter :: CLR_ORANGE = color ( 255 , 165 , 0 , 0 ) !! Orange. ! A list of colors that can be cycled through by plotting code type ( color ), parameter , dimension ( 7 ) :: color_list = [ & color ( 0 , int ( 0.447 * 255 ), int ( 0.741 * 255 ), 0 ), & color ( int ( 0.85 * 255 ), int ( 0.325 * 255 ), int ( 0.098 * 255 ), 0 ), & color ( int ( 0.929 * 255 ), int ( 0.694 * 255 ), int ( 0.125 * 255 ), 0 ), & color ( int ( 0.494 * 255 ), int ( 0.184 * 255 ), int ( 0.556 * 255 ), 0 ), & color ( int ( 0.466 * 255 ), int ( 0.674 * 255 ), int ( 0.188 * 255 ), 0 ), & color ( int ( 0.301 * 255 ), int ( 0.745 * 255 ), int ( 0.933 * 255 ), 0 ), & color ( int ( 0.635 * 255 ), int ( 0.078 * 255 ), int ( 0.184 * 255 ), 0 )] contains ! ------------------------------------------------------------------------------ pure function clr_to_hex_string ( this ) result ( txt ) !! Returns the color in hexadecimal format. class ( color ), intent ( in ) :: this !! The color object. character ( 8 ) :: txt !! A string containing the hexadecimal equivalent. ! Local Variables integer ( int32 ) :: r , g , b , a , clr ! Clip each color if necessary if ( this % red < 0 ) then r = 0 else if ( this % red > 255 ) then r = 255 else r = this % red end if if ( this % green < 0 ) then g = 0 else if ( this % green > 255 ) then g = 255 else g = this % green end if if ( this % blue < 0 ) then b = 0 else if ( this % blue > 255 ) then b = 255 else b = this % blue end if if ( this % alpha < 0 ) then a = 0 else if ( this % alpha > 255 ) then a = 255 else a = this % alpha end if ! Build the color information clr = ishft ( a , 24 ) + ishft ( r , 16 ) + ishft ( g , 8 ) + b ! Convert the integer to a hexadecimal string write ( txt , '(Z8.8)' ) clr end function ! ------------------------------------------------------------------------------ pure function clr_rgb_to_hex_string ( this ) result ( txt ) !! Returns the color in hexadecimal format ignoring any alpha channel. class ( color ), intent ( in ) :: this !! The color object. character ( 6 ) :: txt !! A string containing the hexadecimal equivalent. ! Local Variables integer ( int32 ) :: r , g , b , clr ! Clip each color if necessary if ( this % red < 0 ) then r = 0 else if ( this % red > 255 ) then r = 255 else r = this % red end if if ( this % green < 0 ) then g = 0 else if ( this % green > 255 ) then g = 255 else g = this % green end if if ( this % blue < 0 ) then b = 0 else if ( this % blue > 255 ) then b = 255 else b = this % blue end if ! Build the color information clr = ishft ( r , 16 ) + ishft ( g , 8 ) + b ! Convert the integer to a hexadecimal string write ( txt , '(Z6.6)' ) clr end function ! ------------------------------------------------------------------------------ subroutine clr_copy_from ( this , clr ) !! Copies another color to this color. class ( color ), intent ( inout ) :: this !! The color object. class ( color ), intent ( in ) :: clr !! The color to copy. this % red = clr % red this % green = clr % green this % blue = clr % blue end subroutine ! ****************************************************************************** ! ADDED: JAN. 09, 2024 - JAC ! ------------------------------------------------------------------------------ ! pure subroutine clr_assign(x, y) !     type(color), intent(out) :: x !     class(color), intent(in) :: y !     call x%copy_from(y) ! end subroutine ! ------------------------------------------------------------------------------ pure function clr_equals ( x , y ) result ( rst ) type ( color ), intent ( in ) :: x , y logical :: rst rst = . true . if ( x % red /= y % red . or . & x % green /= y % green . or . & x % blue /= y % blue & ) then rst = . false . end if end function ! ------------------------------------------------------------------------------ pure function clr_not_equals ( x , y ) result ( rst ) type ( color ), intent ( in ) :: x , y logical :: rst rst = . not . clr_equals ( x , y ) end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_colors.f90.html"},{"title":"fplot_plot_polar.f90 – FPLOT","text":"Source Code ! fplot_polar.f90 module fplot_plot_polar use iso_fortran_env use fplot_plot use fplot_terminal use fplot_errors use fplot_constants use fplot_legend use fplot_plot_data use fplot_plot_data_2d use fplot_colors use strings implicit none private public :: plot_polar type , extends ( plot ) :: plot_polar private !> @brief Allow the plot to autoscale? logical :: m_autoscale = . true . !> @brief The minimum radius value - only applicable if m_autoscale is !!  false. real ( real64 ) :: m_minrad = 0.0d0 !> @brief The maximum radius value - only applicable if m_autoscale is !!  false. real ( real64 ) :: m_maxrad = 1.0d0 !> @brief The location for theta = 0 character ( len = :), allocatable :: m_thetaStart !> @brief The direction for theta character ( len = :), allocatable :: m_thetaDirection contains final :: plr_clean_up procedure , public :: initialize => plr_init procedure , public :: get_command_string => plr_get_cmd procedure , public :: get_autoscale => plr_get_autoscale procedure , public :: set_autoscale => plr_set_autoscale procedure , public :: get_radial_limits => plr_get_limits procedure , public :: set_radial_limits => plr_set_limits procedure , public :: get_theta_start_position => plr_get_theta_start procedure , public :: set_theta_start_position => plr_set_theta_start procedure , public :: get_theta_direction => plr_get_theta_direction procedure , public :: set_theta_direction => plr_set_theta_direction procedure , public :: plr_push_data generic , public :: push => plr_push_data end type contains ! ------------------------------------------------------------------------------ subroutine plr_clean_up ( this ) !! Cleans up resources held by the plot_polar object. type ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. call this % free_resources () end subroutine ! ------------------------------------------------------------------------------ subroutine plr_init ( this , term , fname , err ) !! Initializes the plot_polar object. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !!  The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Initialize the base class ! call plt_init(this, term, fname, errmgr) call this % plot % initialize ( term , fname , errmgr ) ! Initialize the rest of the object this % m_thetaStart = POLAR_THETA_RIGHT this % m_thetaDirection = POLAR_THETA_CCW end subroutine ! ------------------------------------------------------------------------------ function plr_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot_polar object. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. character ( len = :), allocatable :: x !! The command string. ! Local Variables integer ( int32 ) :: i , n type ( string_builder ) :: str type ( legend ), pointer :: leg real ( real64 ) :: lmargin , rmargin , tmargin , bmargin real ( real64 ) :: lim ( 2 ) ! class(plot_label), pointer :: lbl class ( plot_data ), pointer :: ptr type ( color ) :: clr ! Initialization call str % initialize () ! Call the base routine call str % append ( this % plot % get_command_string ()) ! Margin lmargin = this % get_left_margin () rmargin = this % get_right_margin () tmargin = this % get_top_margin () bmargin = this % get_bottom_margin () if ( lmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set lmargin at screen \" ) call str % append ( to_string ( lmargin )) end if if ( rmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set rmargin at screen \" ) call str % append ( to_string ( rmargin )) end if if ( tmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set tmargin at screen \" ) call str % append ( to_string ( tmargin )) end if if ( bmargin >= 0.0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set bmargin at screen \" ) call str % append ( to_string ( bmargin )) end if ! Polar-Specific Settings call str % append ( new_line ( 'a' )) call str % append ( \"unset border\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set polar\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set size square\" ) call str % append ( new_line ( 'a' )) call str % append ( \"unset xtics\" ) call str % append ( new_line ( 'a' )) call str % append ( \"unset ytics\" ) call str % append ( new_line ( 'a' )) call str % append ( 'set ttics 0, 30 format \"%g\".GPVAL_DEGREE_SIGN' ) call str % append ( new_line ( 'a' )) call str % append ( \"set mttics 3\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set theta \" ) call str % append ( this % get_theta_start_position ()) call str % append ( \" \" ) call str % append ( this % get_theta_direction ()) ! Radial Limits if (. not . this % get_autoscale ()) then lim = this % get_radial_limits () call str % append ( new_line ( 'a' )) call str % append ( \"set rrange [\" ) call str % append ( to_string ( lim ( 1 ))) call str % append ( \":\" ) call str % append ( to_string ( lim ( 2 ))) call str % append ( \"]\" ) end if ! Grid if ( this % get_show_gridlines ()) then call str % append ( new_line ( 'a' )) call str % append ( 'set grid r polar' ) call str % append ( \" lt \" ) call str % append ( to_string ( this % get_x_major_grid_line_style ())) call str % append ( \" lw \" ) call str % append ( to_string ( this % get_x_major_grid_line_width ())) call str % append ( ' lc rgb \"#' ) clr = this % get_x_major_grid_color () call str % append ( clr % rgb_to_hex_string ()) call str % append ( '\"' ) end if ! Title n = len_trim ( this % get_title ()) if ( n > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( 'set title \"' ) call str % append ( this % get_title ()) call str % append ( '\"' ) end if ! Border call str % append ( new_line ( 'a' )) if ( this % get_draw_border ()) then call str % append ( \"set border polar\" ) else call str % append ( \"set border 0\" ) end if call str % append ( new_line ( 'a' )) call str % append ( \"set border linewidth \" ) call str % append ( to_string ( this % get_border_line_width ())) ! Legend call str % append ( new_line ( 'a' )) leg => this % get_legend () if ( associated ( leg )) call str % append ( leg % get_command_string ()) ! ! Labels ! do i = 1, this%get_label_count() !     lbl => this%get_label(i) !     if (.not.associated(lbl)) cycle !     call str%append(new_line('a')) !     call str%append(lbl%get_command_string()) ! end do ! Define the datablock n = this % get_count () do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( new_line ( 'a' )) call str % append ( \"$\" ) call str % append ( ptr % get_datablock_name ()) call str % append ( \" << EOD\" ) call str % append ( new_line ( 'a' )) call str % append ( ptr % get_data_string ()) call str % append ( \"EOD\" ) end do ! Define the plot function and data formatting commands call str % append ( new_line ( 'a' )) call str % append ( \"plot \" ) do i = 1 , n ptr => this % get ( i ) if (. not . associated ( ptr )) cycle call str % append ( ptr % get_command_string ()) if ( i /= n ) call str % append ( \", \" ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function plr_get_autoscale ( this ) result ( rst ) !! Gets a logical value determining if the axis should be !! automatically scaled to fit the data. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. logical :: rst !! Returns true if the plot will autoscale; else, false. rst = this % m_autoscale end function ! -------------------- subroutine plr_set_autoscale ( this , x ) !! Sets a logical value determining if the axis should be !! automatically scaled to fit the data. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. logical , intent ( in ) :: x !! Set to true if the plot will autoscale; else, false. this % m_autoscale = x end subroutine ! ------------------------------------------------------------------------------ pure function plr_get_limits ( this ) result ( rst ) !! Gets the radial axis limits if autoscaling is inactive. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. real ( real64 ) :: rst ( 2 ) !! A 2-element array containing the minimum and maximum limit !! values in that order. rst = [ this % m_minrad , this % m_maxrad ] end function ! -------------------- subroutine plr_set_limits ( this , x ) !! Sets the radial axis limits if autoscaling is inactive. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. real ( real64 ), intent ( in ) :: x ( 2 ) !! A 2-element array containing the minimum and maximum limit !! values in that order. this % m_minrad = minval ( x ) this % m_maxrad = maxval ( x ) end subroutine ! ------------------------------------------------------------------------------ pure function plr_get_theta_start ( this ) result ( rst ) !! Gets the position for \\theta = 0. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. character ( len = :), allocatable :: rst !! The starting position.  It is one of the following flags. !! !!  - POLAR_THETA_BOTTOM !! !!  - POLAR_THETA_TOP !! !!  - POLAR_THETA_RIGHT !! !!  - POLAR_THETA_LEFT rst = this % m_thetaStart end function ! -------------------- subroutine plr_set_theta_start ( this , x ) !! Sets the position for \\theta = 0. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. character ( len = * ), intent ( in ) :: x !! The starting position.  It is one of the following flags. !! !!  - POLAR_THETA_BOTTOM !! !!  - POLAR_THETA_TOP !! !!  - POLAR_THETA_RIGHT !! !!  - POLAR_THETA_LEFT if ( x /= POLAR_THETA_BOTTOM . and . & x /= POLAR_THETA_TOP . and . & x /= POLAR_THETA_LEFT . and . & x /= POLAR_THETA_RIGHT ) & then ! Reset to default this % m_thetaStart = POLAR_THETA_RIGHT else this % m_thetaStart = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plr_get_theta_direction ( this ) result ( rst ) !! Gets the \\theta direction. class ( plot_polar ), intent ( in ) :: this !! The plot_polar object. character ( len = :), allocatable :: rst !! The direction.  It is one of the following flags. !! !!  - POLAR_THETA_CCW !! !!  - POLAR_THETA_CW rst = this % m_thetaDirection end function ! -------------------- subroutine plr_set_theta_direction ( this , x ) !! Sets the \\theta direction. class ( plot_polar ), intent ( inout ) :: this !! The plot_polar object. character ( len = * ), intent ( in ) :: x !! The direction.  It is one of the following flags. !! !!  - POLAR_THETA_CCW !! !!  - POLAR_THETA_CW if ( x /= POLAR_THETA_CCW . and . x /= POLAR_THETA_CW ) then ! Reset to default this % m_thetaDirection = POLAR_THETA_CCW else this % m_thetaDirection = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine plr_push_data ( this , angle , radial , lw , name , ls , lc ) !! Adds a data set to the plot. class ( plot_polar ), intent ( inout ) :: this !! The [[plot_polar]] object. real ( real64 ), intent ( in ), dimension (:) :: angle !! The angular values. real ( real64 ), intent ( in ), dimension ( size ( angle )) :: radial !! The radial values. real ( real32 ), intent ( in ), optional :: lw !! The line width. character ( len = * ), intent ( in ), optional :: name !! A name to associate with the data set. integer ( int32 ), intent ( in ), optional :: ls !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID type ( color ), intent ( in ), optional :: lc !! The line color. type ( plot_data_2d ) :: pd call pd % define_data ( angle , radial ) if ( present ( lw )) call pd % set_line_width ( lw ) if ( present ( name )) call pd % set_name ( name ) if ( present ( ls )) call pd % set_line_style ( ls ) if ( present ( lc )) call pd % set_line_color ( lc ) call this % push ( pd ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_polar.f90.html"},{"title":"fplot_plot_bar.f90 – FPLOT","text":"Source Code ! fplot_plot_bar.f90 module fplot_plot_bar use iso_fortran_env use fplot_plot_2d use strings implicit none private public :: plot_bar type , extends ( plot_2d ) :: plot_bar !! Defines a 2D plot tailored towards bar plotting. real ( real32 ), private :: m_barWidth = 1.0d0 !! A relative scaling of the width of a single bar.  The value !! must be between 0 and 1 with 1 being full width. integer ( int32 ), private :: m_gap = 1 !! The default gap size between groups logical , private :: m_stacked = . false . !! True if bars should be stacked; else, false for side-by-side contains procedure , public :: get_bar_width => pb_get_bar_width procedure , public :: set_bar_width => pb_set_bar_width procedure , public :: get_command_string => pb_get_cmd procedure , public :: get_stacked => pb_get_stacked procedure , public :: set_stacked => pb_set_stacked procedure , public :: get_spacing => pb_get_spacing procedure , public :: set_spacing => pb_set_spacing end type contains ! ------------------------------------------------------------------------------ pure function pb_get_bar_width ( this ) result ( x ) !! Gets the bar width scaling factor. class ( plot_bar ), intent ( in ) :: this !! The plot_bar object. real ( real32 ) :: x !! The scaling factor. x = this % m_barWidth end function ! ------------------------------------------------------------------------------ subroutine pb_set_bar_width ( this , x ) !! Sets the bar width scaling factor. class ( plot_bar ), intent ( inout ) :: this !! The plot_bar object. real ( real32 ), intent ( in ) :: x !! The scaling factor.  The value must be in the set [0, 1]; else, the !! value will be shifted accordingly. if ( x > 1.0 ) then this % m_barWidth = 1.0 else if ( x < 0.0 ) then this % m_barWidth = 0.0 else this % m_barWidth = x end if end subroutine ! ------------------------------------------------------------------------------ function pb_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT commands required to draw the plot. class ( plot_bar ), intent ( in ) :: this !! The plot_bar object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str ! Initialization call str % initialize () ! Style call str % append ( new_line ( 'a' )) call str % append ( \"set style data histogram\" ) if ( this % get_stacked ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set style histogram rowstacked\" ) else call str % append ( new_line ( 'a' )) call str % append ( \"set style histogram cluster gap \" ) call str % append ( to_string ( this % get_spacing ())) end if ! Box Width call str % append ( new_line ( 'a' )) call str % append ( \"set boxwidth \" ) call str % append ( to_string ( this % get_bar_width ())) call str % append ( \" relative\" ) ! Call the base routine to establish the remainder of the plot call str % append ( this % plot_2d % get_command_string ()) ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function pb_get_stacked ( this ) result ( rst ) !! Gets a value determining if data sets should be stacked (true) or !! left side-by-side (false). class ( plot_bar ), intent ( in ) :: this !! The [[plot_bar]] object. logical :: rst !! True if multiple data sets should be stacked; else, false. rst = this % m_stacked end function ! -------------------- subroutine pb_set_stacked ( this , x ) !! Gets a value determining if data sets should be stacked (true) or !! left side-by-side (false). class ( plot_bar ), intent ( inout ) :: this !! The [[plot_bar]] object. logical , intent ( in ) :: x !! True if multiple data sets should be stacked; else, false. this % m_stacked = x end subroutine ! ------------------------------------------------------------------------------ pure function pb_get_spacing ( this ) result ( rst ) !! Gets the spacing between clusters of data sets. class ( plot_bar ), intent ( in ) :: this !! The [[plot+bar]] object. integer ( int32 ) :: rst !! The spacing. rst = this % m_gap end function ! -------------------- subroutine pb_set_spacing ( this , x ) !! Sets the spacing between clusters of data sets. class ( plot_bar ), intent ( inout ) :: this !! The [[plot+bar]] object. integer ( int32 ), intent ( in ) :: x !! The spacing. this % m_gap = x end subroutine ! ------------------------------------------------------------------------------ ! TO DO YET: ! - lighting end module","tags":"","loc":"sourcefile\\fplot_plot_bar.f90.html"},{"title":"fplot_arrow.f90 – FPLOT","text":"Source Code module fplot_arrow use iso_fortran_env use fplot_plot_object use fplot_colors use fplot_constants use strings implicit none private public :: plot_arrow type , extends ( plot_object ) :: plot_arrow !! Defines an arrow that can be drawn on a plot. logical , private :: m_visible = . true . !! Visible? real ( real32 ), private , dimension ( 3 ) :: m_tail = [ 0.0 , 0.0 , 0.0 ] !! The x, y, z coordinates of the tail. real ( real32 ), private , dimension ( 3 ) :: m_head = [ 0.0 , 0.0 , 0.0 ] !! The x, y, z coordinates of the head. type ( color ), private :: m_color = CLR_BLACK !! The arrow color. integer ( int32 ), private :: m_linestyle = LINE_SOLID !! The line style. real ( real32 ), private :: m_linewidth = 1.5 !! The line width. integer ( int32 ), private :: m_head_type = ARROW_HEAD !! The head configuration. integer ( int32 ), private :: m_filling = ARROW_FILLED !! Arrow filling. logical , private :: m_front = . true . !! Move to front? real ( real32 ), private :: m_size = 0.375 !! Arrow head size. real ( real32 ), private :: m_angle = 1 0.0 !! Arrow head angle. real ( real32 ), private :: m_backangle = 9 0.0 !! Arrow head back angle. logical , private :: m_use_default_size = . true . !! Use default head size. contains procedure , public :: get_is_visible => par_get_is_visible procedure , public :: set_is_visible => par_set_is_visible procedure , public :: get_tail_location => par_get_tail generic , public :: set_tail_location => par_set_tail_1 , & par_set_tail_2 , par_set_tail_3 procedure , private :: par_set_tail_1 procedure , private :: par_set_tail_2 procedure , private :: par_set_tail_3 procedure , public :: get_head_location => par_get_head generic , public :: set_head_location => par_set_head_1 , & par_set_head_2 , par_set_head_3 procedure , private :: par_set_head_1 procedure , private :: par_set_head_2 procedure , private :: par_set_head_3 procedure , public :: get_color => par_get_color procedure , public :: set_color => par_set_color procedure , public :: get_line_style => par_get_line_style procedure , public :: set_line_style => par_set_line_style procedure , public :: get_line_width => par_get_line_width procedure , public :: set_line_width => par_set_line_width procedure , public :: get_head_type => par_get_head_type procedure , public :: set_head_type => par_set_head_type procedure , public :: get_head_fill => par_get_fill procedure , public :: set_head_fill => par_set_fill procedure , public :: get_move_to_front => par_get_move_to_front procedure , public :: set_move_to_front => par_set_move_to_front procedure , public :: get_head_size => par_get_head_size procedure , public :: set_head_size => par_set_head_size procedure , public :: get_head_angle => par_get_head_angle procedure , public :: set_head_angle => par_set_head_angle procedure , public :: get_head_back_angle => par_get_head_back_angle procedure , public :: set_head_back_angle => par_set_head_back_angle procedure , public :: get_use_default_size => par_get_use_default_size procedure , public :: set_use_default_size => par_set_use_default_size procedure , public :: get_command_string => par_get_cmd end type contains ! ------------------------------------------------------------------------------ pure function par_get_is_visible ( this ) result ( rst ) !! Gets a value determining if the arrow is visible. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. logical :: rst !! True if the arrow is visible; else, false. rst = this % m_visible end function ! -------------------- subroutine par_set_is_visible ( this , x ) !! Sets a value determining if the arrow is visible. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. logical , intent ( in ) :: x !! True if the arrow is visible; else, false. this % m_visible = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_tail ( this ) result ( rst ) !! Gets the coordinates of the arrow's tail. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ), dimension ( 3 ) :: rst !! A 3-element array containing the x, y, and z coordinates of the !! arrow's tail. rst = this % m_tail end function ! -------------------- subroutine par_set_tail_1 ( this , x ) !! Sets the coordinates of the arrow's tail. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x ( 3 ) !! A 3-element array containing the x, y, and z coordinates of the !! arrow's tail. this % m_tail = x end subroutine ! -------------------- subroutine par_set_tail_2 ( this , x , y ) !! Sets the coordinates of the arrow's tail. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The x-coordinate of the arrow's tail. real ( real32 ), intent ( in ) :: y !! !! The y-coordinate of the arrow's tail. this % m_tail = [ x , y , 0.0 ] end subroutine ! -------------------- subroutine par_set_tail_3 ( this , x , y , z ) !! Sets the coordinates of the arrow's tail. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The x-coordinate of the arrow's tail. real ( real32 ), intent ( in ) :: y !! The y-coordinate of the arrow's tail. real ( real32 ), intent ( in ) :: z !! The z-coordinate of the arrow's tail. this % m_tail = [ x , y , z ] end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head ( this ) result ( rst ) !! Gets the coordinates of the arrow's head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ), dimension ( 3 ) :: rst !! A 3-element array containing the x, y, and z coordinates of the !! arrow's head. rst = this % m_head end function ! -------------------- subroutine par_set_head_1 ( this , x ) !! Sets the location of the arrow's head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x ( 3 ) !! A 3-element array containing the x, y, and z coordinates of the !! arrow's head. this % m_head = x end subroutine ! -------------------- subroutine par_set_head_2 ( this , x , y ) !! Sets the location of the arrow's head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The x-coordinate of the arrow's head. real ( real32 ), intent ( in ) :: y !! The y-coordinate of the arrow's head. this % m_head = [ x , y , 0.0 ] end subroutine ! -------------------- subroutine par_set_head_3 ( this , x , y , z ) !! Sets the location of the arrow's head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The x-coordinate of the arrow's head. real ( real32 ), intent ( in ) :: y !! The y-coordinate of the arrow's head. real ( real32 ), intent ( in ) :: z !! The z-coordinate of the arrow's head. this % m_head = [ x , y , z ] end subroutine ! ------------------------------------------------------------------------------ pure function par_get_color ( this ) result ( rst ) !! Gets the color of the arrow. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. type ( color ) :: rst !! The color. rst = this % m_color end function ! -------------------- subroutine par_set_color ( this , x ) !! Sets the color of the arrow. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. type ( color ), intent ( in ) :: x !! The color. this % m_color = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_line_style ( this ) result ( rst ) !! Gets the line style used to draw the arrow. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. integer ( int32 ) :: rst !! The line style. rst = this % m_linestyle end function ! -------------------- subroutine par_set_line_style ( this , x ) !! Sets the line style used to draw the arrow. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. integer ( int32 ), intent ( in ) :: x !! The line style.  The value must be one of the following. !! !!  - LINE_SOLID !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !! If the value is not one of the above, the command is ignored. if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_linestyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function par_get_line_width ( this ) result ( rst ) !! Gets the width of the lines used to draw the arrow. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ) :: rst !! The width of the line. rst = this % m_linewidth end function ! -------------------- subroutine par_set_line_width ( this , x ) !! Sets the width of the lines used to draw the arrow. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The width of the line. this % m_linewidth = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head_type ( this ) result ( rst ) !! Gets the type of arrow head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. integer ( int32 ) :: rst !! The arrow head type. rst = this % m_head_type end function ! -------------------- subroutine par_set_head_type ( this , x ) !! Sets the type of arrow head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. integer ( int32 ), intent ( in ) :: x !! The arrow head type.  It must be one of the following constants. !! !! - ARROW_HEAD !! !! - ARROW_BACKHEAD !! !! - ARROW_HEADS !! !! - ARROW_NO_HEAD !! !! If the value is not one of the above, the command is ignored. if ( x == ARROW_BACKHEAD . or . & x == ARROW_HEAD . or . & x == ARROW_HEADS . or . & x == ARROW_NO_HEAD & ) then this % m_head_type = x end if end subroutine ! ------------------------------------------------------------------------------ pure function par_get_fill ( this ) result ( rst ) !! Gets a flag denoting the head fill type. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. integer ( int32 ) :: rst !! The flag denoting head fill. rst = this % m_filling end function ! -------------------- subroutine par_set_fill ( this , x ) !! Sets a flag denoting the head fill type. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. integer ( int32 ), intent ( in ) :: x !! The flag denoting head fill.  It must be one of the following !! constants. !! !! - ARROW_FILLED !! !! - ARROW_EMPTY !! !! - ARROW_NO_BORDER !! !! - ARROW_NO_FILL !! !! If the value is not one of the above, the command is ignored. if ( x == ARROW_FILLED . or . & x == ARROW_EMPTY . or . & x == ARROW_NO_BORDER . or . & x == ARROW_NO_FILL & ) then this % m_filling = x end if end subroutine ! ------------------------------------------------------------------------------ pure function par_get_move_to_front ( this ) result ( rst ) !! Gets a value determining if the arrow should be moved to the front. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. logical :: rst !! True if the arrow should be moved to the front; else, false. rst = this % m_front end function ! -------------------- subroutine par_set_move_to_front ( this , x ) !! Sets a value determining if the arrow should be moved to the front. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. logical , intent ( in ) :: x !! True if the arrow should be moved to the front; else, false. this % m_front = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head_size ( this ) result ( rst ) !! Gets the size of the arrow head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ) :: rst !! The head size. rst = this % m_size end function ! -------------------- subroutine par_set_head_size ( this , x ) !! Sets the size of the arrow head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The head size. this % m_size = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head_angle ( this ) result ( rst ) !! Gets the angle of the arrow head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ) :: rst !! The angle, in degrees. rst = this % m_angle end function ! -------------------- subroutine par_set_head_angle ( this , x ) !! Sets the angle of the arrow head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The angle, in degrees. this % m_angle = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_head_back_angle ( this ) result ( rst ) !! Gets the angle of the back of the arrow head. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. real ( real32 ) :: rst !! The angle, in degrees. rst = this % m_backangle end function ! -------------------- subroutine par_set_head_back_angle ( this , x ) !! Sets the angle of the back of the arrow head. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. real ( real32 ), intent ( in ) :: x !! The angle, in degrees. this % m_backangle = x end subroutine ! ------------------------------------------------------------------------------ pure function par_get_use_default_size ( this ) result ( rst ) !! Gets a value determining if arrow head sizing defaults should be used. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. logical :: rst !! True if the defaults should be used; else, false. rst = this % m_use_default_size end function ! -------------------- subroutine par_set_use_default_size ( this , x ) !! Sets a value determining if arrow head sizing defaults should be used. class ( plot_arrow ), intent ( inout ) :: this !! The plot_arrow object. logical , intent ( in ) :: x !! True if the defaults should be used; else, false. this % m_use_default_size = x end subroutine ! ------------------------------------------------------------------------------ function par_get_cmd ( this ) result ( rst ) !! Returns the appropriate GNUPLOT command string to establish appropriate !! parameters. class ( plot_arrow ), intent ( in ) :: this !! The plot_arrow object. character ( len = :), allocatable :: rst !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str type ( color ) :: clr real ( real32 ) :: tail ( 3 ), head ( 3 ) ! Quick Return if (. not . this % get_is_visible ()) then rst = \"\" return end if ! Command call str % append ( \"set arrow\" ) ! Position Info tail = this % get_tail_location () head = this % get_head_location () call str % append ( \" from \" ) call str % append ( to_string ( tail ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( tail ( 2 ))) call str % append ( \",\" ) call str % append ( to_string ( tail ( 3 ))) call str % append ( \" to \" ) call str % append ( to_string ( head ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( head ( 2 ))) call str % append ( \",\" ) call str % append ( to_string ( head ( 3 ))) ! Head Type select case ( this % get_head_type ()) case ( ARROW_BACKHEAD ) call str % append ( \" backhead\" ) case ( ARROW_HEAD ) call str % append ( \" head\" ) case ( ARROW_HEADS ) call str % append ( \" heads\" ) case ( ARROW_NO_HEAD ) call str % append ( \" nohead\" ) end select if ( this % get_head_type () /= ARROW_NO_HEAD ) then ! Fill Info select case ( this % get_head_fill ()) case ( ARROW_FILLED ) call str % append ( \" filled\" ) case ( ARROW_EMPTY ) call str % append ( \" empty\" ) case ( ARROW_NO_BORDER ) call str % append ( \" noborder\" ) case ( ARROW_NO_FILL ) call str % append ( \" nofilled\" ) end select ! Size if (. not . this % get_use_default_size ()) then call str % append ( \" size \" ) call str % append ( to_string ( this % get_head_size ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_head_angle ())) call str % append ( \",\" ) call str % append ( to_string ( this % get_head_back_angle ())) end if end if ! Front/Back if ( this % get_move_to_front ()) then call str % append ( \" front\" ) else call str % append ( \" back\" ) end if ! Line Color clr = this % get_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Line Style call str % append ( \" lt \" ) call str % append ( to_string ( this % get_line_style ())) if ( this % get_line_style () /= LINE_SOLID ) then call str % append ( \" dashtype \" ) call str % append ( to_string ( this % get_line_style ())) end if ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ ! pure subroutine par_assign(x, y) !     type(plot_arrow), intent(out) :: x !     class(plot_arrow), intent(in) :: y !     x%m_visible = y%m_visible !     x%m_tail = y%m_tail !     x%m_head = y%m_head !     x%m_color = y%m_color !     x%m_linestyle = y%m_linestyle !     x%m_linewidth = y%m_linewidth !     x%m_head_type = y%m_head_type !     x%m_filling = y%m_filling !     x%m_front = y%m_front !     x%m_size = y%m_size !     x%m_angle = y%m_angle !     x%m_backangle = y%m_backangle !     x%m_use_default_size = y%m_use_default_size ! end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_arrow.f90.html"},{"title":"fplot_png_terminal.f90 – FPLOT","text":"Source Code ! fplot_png_terminal.f90 module fplot_png_terminal use iso_fortran_env use strings use fplot_terminal use fplot_constants implicit none private public :: png_terminal type , extends ( file_terminal ) :: png_terminal !! Defines a terminal used for producing PNG outputs. character ( len = 17 ), private :: m_id = \"pngcairo enhanced\" !! The terminal ID string contains procedure , public :: get_id_string => png_get_term_string end type contains ! ------------------------------------------------------------------------------ function png_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( png_terminal ), intent ( in ) :: this !! The png_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_png_terminal.f90.html"},{"title":"fplot_colormap.f90 – FPLOT","text":"Source Code ! fplot_colormap.f90 module fplot_colormap use iso_fortran_env use fplot_plot_object use strings use fplot_errors use fplot_colors use forcolormap , cmap => Colormap ! avoid conflict with the internally defined colormap type implicit none private public :: cmap public :: colormap public :: cm_get_string_result public :: rainbow_colormap public :: hot_colormap public :: cool_colormap public :: parula_colormap public :: grey_colormap public :: earth_colormap public :: custom_colormap public :: spectral_colormap type , abstract , extends ( plot_object ) :: colormap !! A colormap object for a surface plot. character ( len = :), private , allocatable :: m_label !! The label to associate with the colormap. logical , private :: m_horizontal = . false . !! The colormap should be drawn horizontally. logical , private :: m_drawBorder = . false . !! Draw the colormap border. logical , private :: m_showTics = . false . !! Show the tic marks. real ( real32 ), private :: m_colorbarThickness = 0.02 !! The relative thickness of the colorbar itself.  A value of 0 !! allows GNUPLOT to use it's defaults.  This value is clamped to !! the range [0.0, 1.0]. real ( real32 ), private :: m_colorbarLength = 0.4 !! The relative length of the colorbar itself.  A value of 0 !! allows GNUPLOT to use it's defaults.  This value is clamped to !! the range [0.0, 1.0]. real ( real32 ), private :: m_axesSize ( 2 ) = [ 0.85 , 0.85 ] !! The size of the axes size defined as [width, height] !! clamped to the interval [0.0, 1.0]. real ( real32 ), private :: m_axesOrigin ( 2 ) = [ 0.05 , 0.05 ] !! The x-y coordinates of the axes clamped to the interval !! [0.0, 1.0]. contains procedure , public :: get_command_string => cm_get_cmd procedure ( cm_get_string_result ), deferred , public :: get_color_string procedure , public :: get_label => cm_get_label procedure , public :: set_label => cm_set_label procedure , public :: get_horizontal => cm_get_horizontal procedure , public :: set_horizontal => cm_set_horizontal procedure , public :: get_draw_border => cm_get_draw_border procedure , public :: set_draw_border => cm_set_draw_border procedure , public :: get_show_tics => cm_get_show_tics procedure , public :: set_show_tics => cm_set_show_tics procedure , public :: get_colorbar_thickness => cm_get_colorbar_thickness procedure , public :: set_colorbar_thickness => cm_set_colorbar_thickness procedure , public :: get_colorbar_length => cm_get_colorbar_length procedure , public :: set_colorbar_length => cm_set_colorbar_length procedure , public :: get_axes_size => cm_get_axes_size procedure , public :: set_axes_size => cm_set_axes_size procedure , public :: get_axes_origin => cm_get_axes_origin procedure , public :: set_axes_origin => cm_set_axes_origin end type interface function cm_get_string_result ( this ) result ( x ) !! Retrieves a string result from a colormap object. import colormap class ( colormap ), intent ( in ) :: this !! The colormap object. character ( len = :), allocatable :: x !! The string. end function end interface ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: rainbow_colormap !! Defines a rainbow colormap. contains procedure , public :: get_color_string => rcm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: hot_colormap !! Defines a colormap consisting of \"hot\" colors. contains procedure , public :: get_color_string => hcm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: cool_colormap !! Defines a colormap consisting of \"cool\" colors. contains procedure , public :: get_color_string => ccm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: parula_colormap !! Defines a colormap equivalent to the MATLAB parula colormap. contains procedure , public :: get_color_string => pcm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: grey_colormap !! Defines a grey-scaled colormap. contains procedure , public :: get_color_string => gcm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: earth_colormap !! Defines an earthy-colored colormap. contains procedure , public :: get_color_string => ecm_get_clr end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: custom_colormap !! Defines a custom colormap that utilizes the FORCOLORMAP library !! to provide the map. class ( cmap ), private , pointer :: m_map => null () !! The FORCOLORMAP object. contains final :: custom_final procedure , public :: get_color_string => custom_get_clr procedure , public :: set_colormap => custom_set procedure , public :: get_colormap => custom_get end type ! ------------------------------------------------------------------------------ type , extends ( colormap ) :: spectral_colormap !! Defines the spectral colormap available at !! https://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal. contains procedure , public :: get_color_string => spcm_get_clr end type contains ! ****************************************************************************** ! COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function cm_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this colormap object. class ( colormap ), intent ( in ) :: this !! The colormap object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str real ( real32 ) :: sz ( 2 ), origin ( 2 ), length , thickness ! Initialization call str % initialize () sz = this % get_axes_size () origin = this % get_axes_origin () length = this % get_colorbar_length () thickness = this % get_colorbar_thickness () ! Palette Definition call str % append ( \"set palette defined (\" ) call str % append ( this % get_color_string ()) call str % append ( \")\" ) if ( len ( this % get_label ()) > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( 'set cblabel \"' ) call str % append ( this % get_label ()) call str % append ( '\"' ) end if ! Orientation if ( this % get_horizontal ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set colorbox horizontal\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set size \" ) call str % append ( to_string ( sz ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( sz ( 2 ))) call str % append ( \"; set origin \" ) call str % append ( to_string ( origin ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( origin ( 2 ) + 0.075 )) call str % append ( new_line ( 'a' )) call str % append ( \"set colorbox user origin \" ) call str % append ( to_string ( 0.5 - 0.5 * length )) call str % append ( \",0.1 size \" ) call str % append ( to_string ( length )) call str % append ( \",\" ) call str % append ( to_string ( thickness )) if ( len ( this % get_label ()) > 0 ) then call str % append ( new_line ( 'a' )) call str % append ( \"set cblabel offset 0,0.8\" ) end if else call str % append ( new_line ( 'a' )) call str % append ( \"set colorbox vertical\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set size \" ) call str % append ( to_string ( sz ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( sz ( 2 ))) call str % append ( \"; set origin \" ) call str % append ( to_string ( origin ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( origin ( 2 ))) call str % append ( new_line ( 'a' )) call str % append ( \"set colorbox user origin 0.9,\" ) call str % append ( to_string ( 0.5 - 0.5 * length )) call str % append ( \" size \" ) call str % append ( to_string ( thickness )) call str % append ( \",\" ) call str % append ( to_string ( length )) end if ! Border & Tic Marks if (. not . this % get_draw_border ()) then ! Eliminate the border call str % append ( new_line ( 'a' )) call str % append ( \"set colorbox noborder\" ) ! Hide the tic marks call str % append ( new_line ( 'a' )) call str % append ( \"set cbtic scale 0\" ) else ! Respect the tic mark visibility setting if the border is shown if (. not . this % get_show_tics ()) then call str % append ( new_line ( 'a' )) call str % append ( \"set cbtic scale 0\" ) end if end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function cm_get_label ( this ) result ( rst ) !! Gets the label to associate with the colorbar. class ( colormap ), intent ( in ) :: this !! The colormap object. character ( len = :), allocatable :: rst !! The label. if ( allocated ( this % m_label )) then rst = this % m_label else rst = \"\" end if end function ! -------------------- subroutine cm_set_label ( this , x ) !! Sets the label to associate with the colorbar. class ( colormap ), intent ( inout ) :: this !! The colormap object. character ( len = * ), intent ( in ) :: x !! The label. this % m_label = x end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_horizontal ( this ) result ( rst ) !! Gets a logical value determining if the colormap should be !! drawn horizontally and below the plot. class ( colormap ), intent ( in ) :: this !! The colormap object. logical :: rst !! Returns true if the colormap should be drawn horizontally; !! else, false. rst = this % m_horizontal end function ! -------------------- subroutine cm_set_horizontal ( this , x ) !! Sets a logical value determining if the colormap should be !! drawn horizontally and below the plot. class ( colormap ), intent ( inout ) :: this !! The colormap object. logical , intent ( in ) :: x !! Set to true if the colormap should be drawn horizontally; !! else, false. this % m_horizontal = x end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_draw_border ( this ) result ( rst ) !! Gets a logical value determining if the border should be drawn. class ( colormap ), intent ( in ) :: this !! The colormap object. logical :: rst !! Returns true if the border should be drawn; else, false. rst = this % m_drawBorder end function ! -------------------- subroutine cm_set_draw_border ( this , x ) !! Sets a logical value determining if the border should be drawn. class ( colormap ), intent ( inout ) :: this !! The colormap object. logical , intent ( in ) :: x !! Set to true if the border should be drawn; else, false. this % m_drawBorder = x end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_show_tics ( this ) result ( rst ) !! Gets a logical value determining if the tic marks should be drawn. class ( colormap ), intent ( in ) :: this !! The colormap object. logical :: rst !! Returns true if the tic marks should be drawn; else, false. rst = this % m_showTics end function ! -------------------- subroutine cm_set_show_tics ( this , x ) !! Sets a logical value determining if the tic marks should be drawn. class ( colormap ), intent ( inout ) :: this !! The colormap object. logical , intent ( in ) :: x !! Set to true if the tic marks should be drawn; else, false. this % m_showTics = x end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_colorbar_thickness ( this ) result ( rst ) !! Gets the relative thickness of the colorbar. class ( colormap ), intent ( in ) :: this !! The colormap object. real ( real32 ) :: rst !! The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default. rst = this % m_colorbarThickness end function ! -------------------- subroutine cm_set_colorbar_thickness ( this , x ) !! Sets the relative colorbar thickness, clamped to [0.0, 1.0]. class ( colormap ), intent ( inout ) :: this !! The colormap object. real ( real32 ), intent ( in ) :: x !! The requested thickness; 0 uses GNUPLOT's default. this % m_colorbarThickness = max ( 0.0 , min ( 1.0 , x )) end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_colorbar_length ( this ) result ( rst ) !! Gets the relative length of the colorbar. class ( colormap ), intent ( in ) :: this !! The colormap object. real ( real32 ) :: rst !! The length in [0.0, 1.0]; 0 uses GNUPLOT's default. rst = this % m_colorbarLength end function ! -------------------- subroutine cm_set_colorbar_length ( this , x ) !! Sets the relative colorbar length, clamped to [0.0, 1.0]. class ( colormap ), intent ( inout ) :: this !! The colormap object. real ( real32 ), intent ( in ) :: x !! The requested length; 0 uses GNUPLOT's default. this % m_colorbarLength = max ( 0.0 , min ( 1.0 , x )) end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_axes_size ( this ) result ( rst ) !! Gets the relative width and height of the axes. class ( colormap ), intent ( in ) :: this !! The colormap object. real ( real32 ), dimension ( 2 ) :: rst !! The [width, height], each in [0.0, 1.0]. rst = this % m_axesSize end function ! -------------------- subroutine cm_set_axes_size ( this , x ) !! Sets the axes width and height, each clamped to [0.0, 1.0]. class ( colormap ), intent ( inout ) :: this !! The colormap object. real ( real32 ), dimension ( 2 ), intent ( in ) :: x !! The requested [width, height]. this % m_axesSize = max ( 0.0 , min ( 1.0 , x )) end subroutine ! ------------------------------------------------------------------------------ pure function cm_get_axes_origin ( this ) result ( rst ) !! Gets the relative x-y coordinates of the axes origin. class ( colormap ), intent ( in ) :: this !! The colormap object. real ( real32 ), dimension ( 2 ) :: rst !! The [x, y] coordinates, each in [0.0, 1.0]. rst = this % m_axesOrigin end function ! -------------------- subroutine cm_set_axes_origin ( this , x ) !! Sets the axes origin coordinates, each clamped to [0.0, 1.0]. class ( colormap ), intent ( inout ) :: this !! The colormap object. real ( real32 ), dimension ( 2 ), intent ( in ) :: x !! The requested [x, y] coordinates. this % m_axesOrigin = max ( 0.0 , min ( 1.0 , x )) end subroutine ! ------------------------------------------------------------------------------ ! TO DO: !   - Set user-defined tic labels & limits (ref: http://gnuplot.sourceforge.net/demo_5.4/cerf.html) ! ****************************************************************************** ! RAINBOW_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function rcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( rainbow_colormap ), intent ( in ) :: this !! The rainbow_colormap object. character ( len = :), allocatable :: x !! The command string. x = '0 \"dark-blue\", 1 \"blue\", 2 \"cyan\", 3 \"green\", 4 \"yellow\", ' // & '5 \"orange\", 6 \"red\", 7 \"dark-red\"' end function ! ****************************************************************************** ! HOT_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function hcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( hot_colormap ), intent ( in ) :: this !! The hot_colormap object. character ( len = :), allocatable :: x !! The command string. x = '0 \"black\", 1 \"red\", 2 \"orange\", 3 \"yellow\", 4 \"white\"' end function ! ****************************************************************************** ! COOL_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function ccm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( cool_colormap ), intent ( in ) :: this !! The cool_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#08589E',\" ) call str % append ( \"1 '#2B8CBE',\" ) call str % append ( \"2 '#4EB3D3',\" ) call str % append ( \"3 '#7BCCC4',\" ) call str % append ( \"4 '#A8DDB5',\" ) call str % append ( \"5 '#CCEBC5',\" ) call str % append ( \"6 '#E0F3DB',\" ) call str % append ( \"7 '#F7FCF0'\" ) x = char ( str % to_string ()) ! x = '0 \"blue\", 1 \"turquoise\", 2 \"light-green\"' end function ! ****************************************************************************** ! PARULA_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function pcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( parula_colormap ), intent ( in ) :: this !! The parula_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#352a87',\" ) call str % append ( \"1 '#0363e1',\" ) call str % append ( \"2 '#1485d4',\" ) call str % append ( \"3 '#06a7c6',\" ) call str % append ( \"4 '#38b99e',\" ) call str % append ( \"5 '#92bf73',\" ) call str % append ( \"6 '#d9ba56',\" ) call str % append ( \"7 '#fcce2e',\" ) call str % append ( \"8 '#f9fb0e'\" ) x = char ( str % to_string ()) end function ! ****************************************************************************** ! GREY_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function gcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( grey_colormap ), intent ( in ) :: this !! The grey_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#FFFFFF',\" ) call str % append ( \"1 '#F0F0F0',\" ) call str % append ( \"2 '#D9D9D9',\" ) call str % append ( \"3 '#BDBDBD',\" ) call str % append ( \"4 '#969696',\" ) call str % append ( \"5 '#737373',\" ) call str % append ( \"6 '#525252',\" ) call str % append ( \"7 '#252525'\" ) x = char ( str % to_string ()) end function ! ****************************************************************************** ! EARTH_COLORMAP ! ------------------------------------------------------------------------------ function ecm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( earth_colormap ), intent ( in ) :: this !! The earth_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#8C510A',\" ) call str % append ( \"1 '#BF812D',\" ) call str % append ( \"2 '#DFC27D',\" ) call str % append ( \"3 '#F6E8C3',\" ) call str % append ( \"4 '#D9F0D3',\" ) call str % append ( \"5 '#A6DBA0',\" ) call str % append ( \"6 '#5AAE61',\" ) call str % append ( \"7 '#1B7837'\" ) x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ ! Additional Color Maps: ! https://github.com/Gnuplotting/gnuplot-palettes ! ****************************************************************************** ! ADDED: Jan. 08, 2024 - JAC ! CUSTOM_COLORMAP ! ------------------------------------------------------------------------------ function custom_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( custom_colormap ), intent ( in ) :: this !! The custom_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str integer ( int32 ) :: i , n , r , g , b , c character ( len = 6 ) :: ctxt if (. not . associated ( this % m_map )) then allocate ( character ( len = 0 ) :: x ) return end if n = this % m_map % get_levels () do i = 0 , n - 1 ! Get the RGB triple call this % m_map % get_RGB ( i , r , g , b ) c = ishft ( r , 16 ) + ishft ( g , 8 ) + b write ( ctxt , '(Z6.6)' ) c ! Append the color information call str % append ( to_string ( i )) call str % append ( \" '#\" ) call str % append ( ctxt ) call str % append ( \"'\" ) if ( i /= n - 1 ) then call str % append ( \",\" ) end if end do x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine custom_set ( this , map , err ) !! Sets the FORCOLORMAP colormap object. class ( custom_colormap ), intent ( inout ) :: this !! The custom_colormap object. class ( cmap ), intent ( in ) :: map !! The FORCOLORMAP colormap object.  The custom_colormap object !! stores a copy of this object; therefore, any changes made to !! x after calls to this routine will not impact the behavior of !! the custom_colormap object. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Process if ( associated ( this % m_map )) deallocate ( this % m_map ) allocate ( this % m_map , source = map , stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"custom_set\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function custom_get ( this ) result ( rst ) !! Gets a pointer to the FORCOLORMAP colormap object. class ( custom_colormap ), intent ( in ) :: this !! The custom_colormap object. class ( cmap ), pointer :: rst !! A pointer to the FORCOLORMAP colormap object. rst => this % m_map end function ! ------------------------------------------------------------------------------ subroutine custom_final ( this ) type ( custom_colormap ), intent ( inout ) :: this !! The custom_colormap object. if ( associated ( this % m_map )) then deallocate ( this % m_map ) nullify ( this % m_map ) end if end subroutine ! ****************************************************************************** ! SPECTRAL_COLORMAP MEMBERS ! ------------------------------------------------------------------------------ function spcm_get_clr ( this ) result ( x ) !! Gets the GNUPLOT string defining the color distribution. class ( spectral_colormap ), intent ( in ) :: this !! The spectral_colormap object. character ( len = :), allocatable :: x !! The command string. type ( string_builder ) :: str call str % append ( \"0 '#D53E4F',\" ) call str % append ( \"1 '#F46D43',\" ) call str % append ( \"2 '#FDAE61',\" ) call str % append ( \"3 '#FEE08B',\" ) call str % append ( \"4 '#E6F598',\" ) call str % append ( \"5 '#ABDDA4',\" ) call str % append ( \"6 '#66C2A5',\" ) call str % append ( \"7 '#3288BD'\" ) x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_colormap.f90.html"},{"title":"fplot_filled_plot_data.f90 – FPLOT","text":"Source Code ! fplot_filled_plot_data.f90 module fplot_filled_plot_data use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: filled_plot_data type , extends ( plot_data_colored ) :: filled_plot_data !! Defines a two-dimensional filled plot data set. logical , private :: m_useY2 = . false . !! Plot against the secondary y-axis. real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! The data set (column 1 = x, column 2 = y, column 3 = constraint y) contains procedure , public :: get_axes_string => fpd_get_axes_cmd procedure , public :: get_draw_against_y2 => fpd_get_draw_against_y2 procedure , public :: set_draw_against_y2 => fpd_set_draw_against_y2 procedure , public :: get_command_string => fpd_get_cmd procedure , public :: get_data_string => fpd_get_data_cmd procedure , public :: define_data => fpd_define_data procedure , public :: clear_data => fpd_clear_data end type contains ! ------------------------------------------------------------------------------ function fpd_get_axes_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string defining which axes the data !! is to be plotted against. class ( filled_plot_data ), intent ( in ) :: this !! The filled_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then x = \"axes x1y2\" else x = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ pure function fpd_get_draw_against_y2 ( this ) result ( x ) !! Gets a value determining if the data should be plotted against !! the secondary y-axis. class ( filled_plot_data ), intent ( in ) :: this !! The filled_plot_data object. logical :: x !! Returns true if the data should be plotted against the secondary !! y-axis; else, false to plot against the primary y-axis. x = this % m_useY2 end function ! -------------------- subroutine fpd_set_draw_against_y2 ( this , x ) !! Sets a value determining if the data should be plotted against !! the secondary y-axis. class ( filled_plot_data ), intent ( inout ) :: this !! The filled_plot_data object. logical , intent ( in ) :: x !! Set to true if the data should be plotted against the secondary !! y-axis; else, false to plot against the primary y-axis. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ function fpd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this !! filled_plot_data object. class ( filled_plot_data ), intent ( in ) :: this !! The filled_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Establish filled data call str % append ( \" with filledcurves\" ) ! Line Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Define the axes structure call str % append ( \" \" ) call str % append ( this % get_axes_string ()) ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function fpd_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data to plot. class ( filled_plot_data ), intent ( in ) :: this !! The filled_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i character ( len = :), allocatable :: nl , delimiter ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) ! Process do i = 1 , size ( this % m_data , 1 ) call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( nl ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine fpd_define_data ( this , x , y , yc , err ) !! Defines the data set. class ( filled_plot_data ), intent ( inout ) :: this !! The filled_plot_data object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinate data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinate data. real ( real64 ), intent ( in ), dimension (:) :: yc !! An N-element array containing the constraining curve y !! coordinate data. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables type ( errors ), target :: deferr class ( errors ), pointer :: errmgr integer ( int32 ) :: i , n , flag ! Set up error handling if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Input Checking n = size ( x ) if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"fpd_define_data\" , & \"y\" , n , size ( y )) return end if if ( size ( yc ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"fpd_define_data\" , & \"yc\" , n , size ( yc )) return end if ! Allocate space for the data if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 3 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"fpd_define_data\" , flag ) return end if ! Create a name if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Store the data do concurrent ( i = 1 : n ) this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = yc ( i ) end do end subroutine ! ------------------------------------------------------------------------------ subroutine fpd_clear_data ( this ) !! Clears the data from this data set. class ( filled_plot_data ), intent ( inout ) :: this !! The filled_plot_data object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_filled_plot_data.f90.html"},{"title":"fplot_pdf_terminal.f90 – FPLOT","text":"Source Code module fplot_pdf_terminal use iso_fortran_env use fplot_terminal use strings implicit none private public :: pdf_terminal type , extends ( file_terminal ) :: pdf_terminal !! Defines a terminal used for producing PDF outputs. character ( len = 17 ), private :: m_id = \"pdfcairo enhanced\" !! The terminal ID string. integer ( int32 ), private :: m_resolution = 100 !! The device resolution in DPI. contains procedure , public :: get_id_string => pdf_get_term_string procedure , public :: get_command_string => pdf_get_command_string procedure , public :: get_resolution => pdf_get_resolution procedure , public :: set_resolution => pdf_set_resolution end type contains ! ------------------------------------------------------------------------------ function pdf_get_term_string ( this ) result ( x ) !! Retrieves a GNUPLOT terminal identifier string. class ( pdf_terminal ), intent ( in ) :: this !! The pdf_terminal object. character ( len = :), allocatable :: x !! The string. integer ( int32 ) :: n n = len ( this % m_id ) allocate ( character ( len = n ) :: x ) x = this % m_id end function ! ------------------------------------------------------------------------------ function pdf_get_command_string ( this ) result ( x ) !! Returns the appropriate GNUPLOT command string to establish !! appropriate parameters. class ( pdf_terminal ), intent ( in ) :: this !! The pdf_terminal object. character ( len = :), allocatable :: x !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str real ( real32 ) :: xsize , ysize ! Compute the size xsize = real ( this % get_window_width (), real32 ) / real ( this % get_resolution (), real32 ) ysize = real ( this % get_window_height (), real32 ) / real ( this % get_resolution (), real32 ) ! Process call str % initialize () call str % append ( \"set term \" ) call str % append ( this % get_id_string ()) call str % append ( \" font \" ) call str % append ( '\"' ) call str % append ( this % get_font_name ()) call str % append ( ',' ) call str % append ( to_string ( this % get_font_size ())) call str % append ( '\"' ) call str % append ( \" size \" ) call str % append ( to_string ( xsize )) call str % append ( \"in,\" ) call str % append ( to_string ( ysize )) call str % append ( \"in\" ) call str % append ( new_line ( 'a' )) call str % append ( \"set output \" ) call str % append ( '\"' ) call str % append ( this % get_filename ()) call str % append ( '\"' ) x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ pure function pdf_get_resolution ( this ) result ( x ) !! Gets the target device resolution. class ( pdf_terminal ), intent ( in ) :: this !! The pdf_terminal object. integer ( int32 ) :: x !! The resolution, in DPI. x = this % m_resolution end function ! -------------------- subroutine pdf_set_resolution ( this , x ) !! Sets the target device resolution. class ( pdf_terminal ), intent ( inout ) :: this !! The pdf_terminal object. integer ( int32 ), intent ( in ) :: x !! The resolution, in DPI. this % m_resolution = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_pdf_terminal.f90.html"},{"title":"fplot_plot_data_bar.f90 – FPLOT","text":"Source Code ! fplot_plot_data_bar.f90 ! TO DO: ! - Allow naming of each data set at the define_data level as well module fplot_plot_data_bar use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: plot_data_bar type , extends ( plot_data_colored ) :: plot_data_bar !! Defines a data set tailored to bar charts. type ( string ), private , allocatable , dimension (:) :: m_axisLabels !! An array containing axis labels to associate with each bar. real ( real64 ), private , allocatable , dimension (:,:) :: m_barData !! An array of data defining each bar - the matrix contains !! multiple columns to allow multiple bars per label. logical , private :: m_useAxisLabels = . true . !! Determines if the axis labels should be used - only applicable !! if there is existing data stored in m_axisLabels & m_axisLabels !! is the same size as m_barData. logical , private :: m_useY2 = . false . !! Draw against the secondary y axis? logical , private :: m_filled = . true . !! Determines if each bar is filled. real ( real32 ), private :: m_alpha = 1.0 !! The alpha value (transparency) for each bar. type ( color ), private , allocatable , dimension (:) :: m_barColors !! The color to use for each data series (column).  If not !! set, a default color cycle is used for multi-series data, !! or the base line color is used for single-series data. type ( string ), private , allocatable , dimension (:) :: m_seriesNames !! The legend title to associate with each data series (column). contains procedure , public :: get_count => pdb_get_count procedure , public :: get => pdb_get_data procedure , public :: set => pdb_set_data procedure , public :: get_data => pdb_get_data_set procedure , public :: get_label => pdb_get_label procedure , public :: set_label => pdb_set_label procedure , public :: get_use_labels => pdb_get_use_labels procedure , public :: set_use_labels => pdb_set_use_labels procedure , public :: get_command_string => pdb_get_cmd procedure , public :: get_data_string => pdb_get_data_cmd procedure , public :: get_axes_string => pdb_get_axes_cmd procedure , public :: get_bar_per_label_count => pdb_get_col_count procedure , public :: get_draw_against_y2 => pdb_get_use_y2 procedure , public :: set_draw_against_y2 => pdb_set_use_y2 procedure , public :: get_is_filled => pdb_get_is_filled procedure , public :: set_is_filled => pdb_set_is_filled procedure , public :: get_transparency => pdb_get_alpha procedure , public :: set_transparency => pdb_set_alpha procedure , public :: get_bar_color => pdb_get_bar_color procedure , public :: set_bar_color => pdb_set_bar_color procedure , public :: get_series_name => pdb_get_series_name procedure , public :: set_series_name => pdb_set_series_name generic , public :: define_data => pdb_set_data_1 , pdb_set_data_2 , & pdb_set_data_3 , pdb_set_data_4 , pdb_set_data_5 , pdb_set_data_6 procedure , private :: pdb_set_data_1 procedure , private :: pdb_set_data_2 procedure , private :: pdb_set_data_3 procedure , private :: pdb_set_data_4 procedure , private :: pdb_set_data_5 procedure , private :: pdb_set_data_6 procedure , public :: set_data_1 => pdb_set_data_1_core procedure , public :: set_data_2 => pdb_set_data_2_core procedure , public :: set_data_3 => pdb_set_data_3_core procedure , public :: set_data_4 => pdb_set_data_4_core procedure , public :: set_data_5 => pdb_set_data_5_core procedure , public :: set_data_6 => pdb_set_data_6_core procedure , public :: clear_data => pdb_clear_data end type contains ! ------------------------------------------------------------------------------ pure function pdb_get_count ( this ) result ( x ) !!  Gets the number of stored data points. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ) :: x !! The number of stored data points. if ( allocated ( this % m_barData )) then x = size ( this % m_barData , 1 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pdb_get_data ( this , index , col ) result ( x ) !! Gets the requested data point. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The data point index. integer ( int32 ), intent ( in ) :: col !! The column index. real ( real64 ) :: x !! The value. if ( allocated ( this % m_barData )) then x = this % m_barData ( index , col ) else x = 0.0d0 end if end function ! ------------------------------------------------------------------------------ subroutine pdb_set_data ( this , index , col , x ) !! Replaces the requested data point. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The data point index. integer ( int32 ), intent ( in ) :: col !! The column index. real ( real64 ), intent ( in ) :: x !! The new value. if ( allocated ( this % m_barData )) then this % m_barData ( index , col ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_data_set ( this , col ) result ( x ) !! Gets the requested data set. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: col !! The column index. real ( real64 ), allocatable , dimension (:) :: x !! A copy of the data set. if ( allocated ( this % m_barData )) then x = this % m_barData (:, col ) else allocate ( x ( 0 )) end if end function ! ------------------------------------------------------------------------------ pure function pdb_get_label ( this , index ) result ( x ) !! Gets the axis label associated with a specific data set. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data set. character ( len = :), allocatable :: x !! The label. if ( allocated ( this % m_axisLabels )) then x = char ( this % m_axisLabels ( index )) else x = \"\" end if end function ! ------------------------------------------------------------------------------ subroutine pdb_set_label ( this , index , txt ) !! Sets the axis label for a specific data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. integer ( int32 ) :: index !! The index of the data set. character ( len = * ), intent ( in ) :: txt !! The label. if ( allocated ( this % m_axisLabels )) then this % m_axisLabels ( index ) = txt end if end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_use_labels ( this ) result ( x ) !! Gets a value determining if labels are used to identify the data. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. logical :: x !! Returns true if labels are used; else, false. x = this % m_useAxisLabels end function ! ------------------------------------------------------------------------------ subroutine pdb_set_use_labels ( this , x ) !! Sets a value determining if labels are used to identify the data. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. logical , intent ( in ) :: x !! Set to true if labels are used; else, false. this % m_useAxisLabels = x end subroutine ! ------------------------------------------------------------------------------ function pdb_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for this object. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: j , ncols , offset logical :: uselabels character ( len = :), allocatable :: title type ( color ) :: clr ! Initialization call str % initialize () ncols = max ( this % get_bar_per_label_count (), 1 ) uselabels = this % get_use_labels () . and . allocated ( this % m_barData ) . and . & allocated ( this % m_axisLabels ) if ( uselabels ) then offset = 1 else offset = 0 end if ! Each data series (column) is drawn with its own \"using\" clause so ! that multiple bar series stored in a single datablock all appear do j = 1 , ncols if ( j > 1 ) call str % append ( \", \" ) ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) call str % append ( \" using \" ) call str % append ( to_string ( j + offset )) if ( j == 1 . and . uselabels ) call str % append ( \":xtic(1)\" ) ! Filled? if ( this % get_is_filled ()) then call str % append ( \" fill solid \" ) else call str % append ( \" fill empty \" ) end if ! Transparency call str % append ( to_string ( this % get_transparency ())) ! Title title = this % get_series_name ( j ) if ( len_trim ( title ) == 0 . and . ncols == 1 ) title = this % get_name () if ( len_trim ( title ) > 0 ) then call str % append ( ' title \"' ) call str % append ( title ) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Color clr = this % get_bar_color ( j ) call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Define the axes structure call str % append ( \" \" ) call str % append ( this % get_axes_string ()) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdb_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string defining the data for this object. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , nbars , ncols character :: delimiter , nl ! Initialization call str % initialize () delimiter = achar ( 9 ) nl = new_line ( nl ) nbars = this % get_count () ncols = this % get_bar_per_label_count () ! Process if ( this % get_use_labels () . and . allocated ( this % m_axisLabels ) . and . & allocated ( this % m_barData )) then do i = 1 , nbars call str % append ( char ( this % m_axisLabels ( i ))) call str % append ( delimiter ) do j = 1 , ncols call str % append ( to_string ( this % get ( i , j ))) if ( j /= ncols ) call str % append ( delimiter ) end do call str % append ( nl ) end do else do i = 1 , nbars do j = 1 , ncols call str % append ( to_string ( this % get ( i , j ))) if ( j /= ncols ) call str % append ( delimiter ) end do call str % append ( nl ) end do end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdb_get_axes_cmd ( this ) result ( x ) !! Gets the GNUPLOT command defining which axes to plot against. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. character ( len = :), allocatable :: x !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then x = \"axes x1y2\" else x = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ pure function pdb_get_col_count ( this ) result ( x ) !! Gets the number of data sets (columns). class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ) :: x !! The count. if ( allocated ( this % m_barData )) then x = size ( this % m_barData , 2 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pdb_get_use_y2 ( this ) result ( x ) !! Gets a value determining if the data should be plotted against a !! secondary y-axis. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. logical :: x !! Returns true to plot against a secondary y-axis; else, false. x = this % m_useY2 end function ! ------------------------------------------------------------------------------ subroutine pdb_set_use_y2 ( this , x ) !! Sets a value determining if the data should be plotted against a !! secondary y-axis. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. logical , intent ( in ) :: x !! Set to true to plot against a secondary y-axis; else, false. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_bar_color ( this , index ) result ( x ) !! Gets the color to use for the requested data series (column).  If !! no color has been explicitly set, a default color cycle is used !! for multi-series data, or the base line color for single-series !! data. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data series (column). type ( color ) :: x !! The color. if ( allocated ( this % m_barColors )) then if ( index >= 1 . and . index <= size ( this % m_barColors )) then x = this % m_barColors ( index ) return end if end if if ( this % get_bar_per_label_count () <= 1 ) then x = this % get_line_color () else x = color_list ( mod ( index - 1 , size ( color_list )) + 1 ) end if end function ! ------------------------------------------------------------------------------ subroutine pdb_set_bar_color ( this , index , x ) !! Sets the color to use for the requested data series (column). class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data series (column). type ( color ), intent ( in ) :: x !! The color. ! Local Variables type ( color ), allocatable , dimension (:) :: temp integer ( int32 ) :: i , n n = max ( index , this % get_bar_per_label_count ()) if (. not . allocated ( this % m_barColors )) then allocate ( this % m_barColors ( n )) do i = 1 , n this % m_barColors ( i ) = this % get_bar_color ( i ) end do else if ( size ( this % m_barColors ) < n ) then allocate ( temp ( n )) do i = 1 , n if ( i <= size ( this % m_barColors )) then temp ( i ) = this % m_barColors ( i ) else temp ( i ) = this % get_bar_color ( i ) end if end do call move_alloc ( temp , this % m_barColors ) end if this % m_barColors ( index ) = x end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_series_name ( this , index ) result ( x ) !! Gets the legend title associated with the requested data series !! (column). class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data series (column). character ( len = :), allocatable :: x !! The title. if ( allocated ( this % m_seriesNames )) then if ( index >= 1 . and . index <= size ( this % m_seriesNames )) then x = char ( this % m_seriesNames ( index )) return end if end if x = \"\" end function ! ------------------------------------------------------------------------------ subroutine pdb_set_series_name ( this , index , txt ) !! Sets the legend title to associate with the requested data series !! (column). class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. integer ( int32 ), intent ( in ) :: index !! The index of the data series (column). character ( len = * ), intent ( in ) :: txt !! The title. ! Local Variables type ( string ), allocatable , dimension (:) :: temp integer ( int32 ) :: i , n n = max ( index , this % get_bar_per_label_count ()) if (. not . allocated ( this % m_seriesNames )) then allocate ( this % m_seriesNames ( n )) else if ( size ( this % m_seriesNames ) < n ) then allocate ( temp ( n )) do i = 1 , size ( this % m_seriesNames ) temp ( i ) = this % m_seriesNames ( i ) end do call move_alloc ( temp , this % m_seriesNames ) end if this % m_seriesNames ( index ) = txt end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_1 ( this , x , err ) !! Defines a single data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: x !! The data to plot. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_1 ( x , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_2 ( this , labels , x , err ) !! Defines data along with associated axis labels. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. class ( string ), intent ( in ), dimension (:) :: labels !! The axis labels to associate with the data. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_2 ( labels , x , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_3 ( this , labels , x , fmt , err ) !! Defines data along with labels and formatting information. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: labels !! The axis labels to associate with the data. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. character ( len = * ), intent ( in ), optional :: fmt !! The format string for the labels (e.g. '(I0)', etc.). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_3 ( labels , x , fmt , err ) end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_is_filled ( this ) result ( x ) !! Gets a value determining if each bar is filled. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. logical :: x !! Returns true if the bars are to be filled; else, false. x = this % m_filled end function ! ------------------------------------------------------------------------------ subroutine pdb_set_is_filled ( this , x ) !! Sets a value determining if each bar is filled. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. logical , intent ( in ) :: x !! Set to true if the bars are to be filled; else, false. this % m_filled = x end subroutine ! ------------------------------------------------------------------------------ pure function pdb_get_alpha ( this ) result ( x ) !! Gets the alpha (transparency) for the bar color. class ( plot_data_bar ), intent ( in ) :: this !! The plot_data_bar object. real ( real32 ) :: x !! The alpha value ([0, 1]). x = this % m_alpha end function ! ------------------------------------------------------------------------------ subroutine pdb_set_alpha ( this , x ) !! Gets the alpha (transparency) for the bar color. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real32 ), intent ( in ) :: x !! The alpha value ([0, 1]). if ( x > 1.0 ) then this % m_alpha = 1.0 else if ( x < 0.0 ) then this % m_alpha = 0.0 else this % m_alpha = x end if end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_1_core ( this , x , err ) !! Defines the data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n , flag ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Process if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( n , 1 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_1_core\" , flag ) return end if this % m_barData (:, 1 ) = x end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_2_core ( this , labels , x , err ) ! Arguments class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. class ( string ), intent ( in ), dimension (:) :: labels !! The axis labels. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n , flag ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pdb_set_data_2_core\" , & \"labels\" , n , size ( labels )) return end if ! Process if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( n , 1 ), stat = flag ) if ( flag == 0 ) allocate ( this % m_axisLabels ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_2_core\" , flag ) return end if this % m_barData (:, 1 ) = x this % m_axisLabels = labels end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_3_core ( this , labels , x , fmt , err ) ! Arguments class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: labels !! The axis labels. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set. character ( len = * ), intent ( in ), optional :: fmt !! The format string for the labels (e.g. '(I0)', etc.). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: i , n , flag type ( string ), allocatable , dimension (:) :: lbls ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pdb_set_data_3_core\" , & \"labels\" , n , size ( labels )) return end if ! Convert the numeric labels to strings allocate ( lbls ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_3_core\" , flag ) return end if do i = 1 , n lbls ( i ) = to_string ( labels ( i ), fmt ) end do ! Store the data if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( n , 1 ), stat = flag ) if ( flag == 0 ) allocate ( this % m_axisLabels ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_3_core\" , flag ) return end if this % m_barData (:, 1 ) = x this % m_axisLabels = lbls end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_4_core ( this , x , err ) !! Defines the data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: flag ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Process if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( size ( x , 1 ), size ( x , 2 )), stat = flag , source = x ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_4_core\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_5_core ( this , labels , x , err ) ! Arguments class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. class ( string ), intent ( in ), dimension (:) :: labels !! The axis labels. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: n , flag ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x , 1 ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pdb_set_data_5_core\" , & \"labels\" , n , size ( labels )) return end if ! Process if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( size ( x , 1 ), size ( x , 2 )), stat = flag , source = x ) if ( flag == 0 ) allocate ( this % m_axisLabels ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_5_core\" , flag ) return end if this % m_axisLabels = labels end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_6_core ( this , labels , x , fmt , err ) ! Arguments class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: labels !! The axis labels. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. character ( len = * ), intent ( in ), optional :: fmt !! The format string for the labels (e.g. '(I0)', etc.). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables class ( errors ), pointer :: errmgr type ( errors ), target :: deferr integer ( int32 ) :: i , n , flag type ( string ), allocatable , dimension (:) :: lbls ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x , 1 ) if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( labels ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pdb_set_data_6_core\" , & \"labels\" , n , size ( labels )) return end if ! Convert the numeric labels to strings allocate ( lbls ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_6_core\" , flag ) return end if do i = 1 , n lbls ( i ) = to_string ( labels ( i ), fmt ) end do ! Store the data if ( allocated ( this % m_axisLabels )) deallocate ( this % m_axisLabels ) if ( allocated ( this % m_barData )) deallocate ( this % m_barData ) allocate ( this % m_barData ( size ( x , 1 ), size ( x , 2 )), stat = flag , source = x ) if ( flag == 0 ) allocate ( this % m_axisLabels ( n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdb_set_data_6_core\" , flag ) return end if this % m_axisLabels = lbls end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_4 ( this , x , err ) !! Defines a single data set. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data to plot. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_4 ( x , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_5 ( this , labels , x , err ) !! Defines data along with associated axis labels. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. class ( string ), intent ( in ), dimension (:) :: labels !! The axis labels to associate with the data. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_5 ( labels , x , err ) end subroutine ! ------------------------------------------------------------------------------ subroutine pdb_set_data_6 ( this , labels , x , fmt , err ) !! Defines data along with labels and formatting information. class ( plot_data_bar ), intent ( inout ) :: this !! The plot_data_bar object. real ( real64 ), intent ( in ), dimension (:) :: labels !! The axis labels to associate with the data. real ( real64 ), intent ( in ), dimension (:,:) :: x !! The data set. character ( len = * ), intent ( in ), optional :: fmt !! The format string for the labels (e.g. '(I0)', etc.). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % set_data_6 ( labels , x , fmt , err ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_bar.f90.html"},{"title":"fplot_label.f90 – FPLOT","text":"Source Code ! fplot_label.f90 module fplot_label use iso_fortran_env use fplot_plot_object use fplot_constants use strings implicit none private public :: plot_label type , extends ( plot_object ) :: plot_label !! Defines a plot label. logical , private :: m_visible = . true . !! Is the label visible? real ( real32 ), private , dimension ( 3 ) :: m_position !! The x, y, and z coordinates of the label. real ( real32 ), private :: m_angle = 0.0 !! The rotation angle of the label. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_text !! The label text. contains procedure , public :: get_command_string => lbl_get_cmd procedure , public :: get_is_visible => lbl_get_is_visible procedure , public :: set_is_visible => lbl_set_is_visible procedure , public :: get_position => lbl_get_position procedure , public :: set_position => lbl_set_position procedure , public :: get_angle => lbl_get_angle procedure , public :: set_angle => lbl_set_angle procedure , public :: get_text => lbl_get_txt procedure , public :: set_text => lbl_set_txt end type contains ! ------------------------------------------------------------------------------ function lbl_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string for the label. class ( plot_label ), intent ( in ) :: this !! The plot_label object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str real ( real32 ) :: pt ( 3 ) ! Initialization call str % initialize () pt = this % get_position () ! If visible, draw the label if ( this % get_is_visible ()) then call str % append ( 'set label \"' ) call str % append ( this % get_text ()) call str % append ( '\"' ) call str % append ( \" at \" ) call str % append ( to_string ( pt ( 1 ))) call str % append ( \",\" ) call str % append ( to_string ( pt ( 2 ))) call str % append ( \",\" ) call str % append ( to_string ( pt ( 3 ))) call str % append ( \" rotate by \" ) call str % append ( to_string ( this % get_angle ())) x = char ( str % to_string ()) end if end function ! ------------------------------------------------------------------------------ pure function lbl_get_is_visible ( this ) result ( x ) !! Gets a value determining if the label is to be drawn. class ( plot_label ), intent ( in ) :: this !! The plot_label object. logical :: x !! Returns true if the label is to be drawn; else, false. x = this % m_visible end function ! -------------------- subroutine lbl_set_is_visible ( this , x ) !! Sets a value determining if the label is to be drawn. class ( plot_label ), intent ( inout ) :: this !! The plot_label object. logical , intent ( in ) :: x !! Set to true if the label is to be drawn; else, false. this % m_visible = x end subroutine ! ------------------------------------------------------------------------------ pure function lbl_get_position ( this ) result ( x ) !! Gets the position of the label in terms of plot coordinates. class ( plot_label ), intent ( in ) :: this !! The plot_label object. real ( real32 ), dimension ( 3 ) :: x !! A 3-element array containing the X, Y, and Z position of the !! label. x = this % m_position end function ! -------------------- subroutine lbl_set_position ( this , x ) !! Sets the position of the label in terms of plot coordinates. class ( plot_label ), intent ( inout ) :: this !! The plot_label object. real ( real32 ), intent ( in ), dimension ( 3 ) :: x !! A 3-element array containing the X, Y, and Z position of the !! label. this % m_position = x end subroutine ! ------------------------------------------------------------------------------ pure function lbl_get_angle ( this ) result ( x ) !! Gets the angle of the label text, in degrees. class ( plot_label ), intent ( in ) :: this !! The plot_label object. real ( real32 ) :: x !! The angle, in degrees. x = this % m_angle end function ! -------------------- subroutine lbl_set_angle ( this , x ) !! Sets the angle of the label text, in degrees. class ( plot_label ), intent ( inout ) :: this !! The plot_label object. real ( real32 ), intent ( in ) :: x !! The angle, in degrees. this % m_angle = x end subroutine ! ------------------------------------------------------------------------------ function lbl_get_txt ( this ) result ( x ) !! Gets the text displayed by the label. class ( plot_label ), intent ( in ) :: this !! The plot_label object. character ( len = :), allocatable :: x !! The text string to display. x = trim ( this % m_text ) end function ! -------------------- subroutine lbl_set_txt ( this , x ) !! Sets the text displayed by the label. class ( plot_label ), intent ( inout ) :: this !! The plot_label object. character ( len = * ), intent ( in ) :: x !! The text string to display. integer ( int32 ) :: n n = min ( len ( x ), PLOTDATA_MAX_NAME_LENGTH ) this % m_text = \"\" this % m_text ( 1 : n ) = x ( 1 : n ) end subroutine ! ****************************************************************************** ! ADDED: JAN. 09, 2024 - JAC ! ------------------------------------------------------------------------------ ! pure subroutine lbl_assign(x, y) !     type(plot_label), intent(out) :: x !     class(plot_label), intent(in) :: y !     x%m_visible = y%m_visible !     x%m_position = y%m_position !     x%m_angle = y%m_angle !     x%m_text = y%m_text ! end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_label.f90.html"},{"title":"fplot_plot_data_histogram.f90 – FPLOT","text":"Source Code ! fplot_plot_data_histogram.f90 ! TO DO: ! - Allow naming of each data set at the define_data level as well as at the !   get/set level module fplot_plot_data_histogram use iso_fortran_env use fplot_plot_data use fplot_errors use strings use fplot_colors implicit none private public :: plot_data_histogram type , extends ( plot_data_colored ) :: plot_data_histogram !! A container for plotting data in the form of a histogram. integer ( int32 ), private :: m_binCount = 20 !! The number of bins. real ( real64 ), private :: m_minX !! The minimum data value. real ( real64 ), private :: m_maxX !! The maximum data value. real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! Column 1 is the center of each bin and column 2 is the number !! of items in each bin. logical , private :: m_filled = . true . !! Determines if each bar is filled. logical , private :: m_useY2 = . false . !! Draw against the secondary y axis? contains procedure , public :: get_bin_count => pdh_get_bin_count procedure , public :: set_bin_count => pdh_set_bin_count procedure , public :: get_minimum_value => pdh_get_min_x procedure , public :: get_maximum_value => pdh_get_max_x procedure , public :: define_data => pdh_define_data procedure , public :: get_command_string => pdh_get_cmd procedure , public :: get_data_string => pdh_get_data_cmd procedure , public :: get_axes_string => pdh_get_axes_cmd procedure , public :: get_is_filled => pdh_get_is_filled procedure , public :: set_is_filled => pdh_set_is_filled procedure , public :: get_draw_against_y2 => pdh_get_use_y2 procedure , public :: set_draw_against_y2 => pdh_set_use_y2 procedure , public :: get => pdh_get_bin_data procedure , public :: clear_data => pdh_clear_data end type contains ! ------------------------------------------------------------------------------ pure function pdh_get_bin_count ( this ) result ( x ) !! Gets the number of bins. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. integer ( int32 ) :: x !! The bin count. x = this % m_binCount end function ! ------------------------------------------------------------------------------ subroutine pdh_set_bin_count ( this , x ) !! Sets the bin count.  For this property to have an effect, call before !! calling the define_data subroutine or bin_data subroutine. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. integer ( int32 ), intent ( in ) :: x !! The bin count. this % m_binCount = x end subroutine ! ------------------------------------------------------------------------------ pure function pdh_get_min_x ( this ) result ( x ) !! Gets the minimum data value. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. real ( real64 ) :: x !! The minimum data value. x = this % m_minX end function ! ------------------------------------------------------------------------------ pure function pdh_get_max_x ( this ) result ( x ) !! Gets the maximum data value. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. real ( real64 ) :: x !! The maximum data value. x = this % m_maxX end function ! ------------------------------------------------------------------------------ subroutine pdh_define_data ( this , x , err ) !! Defines the data set to plot. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. real ( real64 ), intent ( in ), dimension (:) :: x !! The data set to plot. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , j , n , nbins , flag real ( real64 ) :: maxX , minX , width , val real ( real64 ), allocatable , dimension (:,:) :: ranges class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if n = size ( x ) nbins = min ( n , this % get_bin_count ()) ! protects against the case where nbins > n however unlikely if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Get the max and min of the entire data set maxX = maxval ( x ) minX = minval ( x ) width = ( maxX - minX ) / ( nbins - 1.0 ) this % m_minX = minX this % m_maxX = maxX ! Allocate space for the output if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( nbins , 2 ), stat = flag , source = 0.0d0 ) if ( flag == 0 ) allocate ( ranges ( nbins , 2 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pdh_define_data\" , flag ) return end if ! Define each range ranges ( 1 ,:) = [ minX , minX + width ] do i = 2 , nbins ranges ( i , 1 ) = ranges ( i - 1 , 2 ) ranges ( i , 2 ) = ranges ( i , 1 ) + width end do ! Construct the bins do i = 1 , n val = x ( i ) do j = 1 , nbins if (( val >= ranges ( j , 1 )) . and . ( val <= ranges ( j , 2 ))) then this % m_data ( j , 1 ) = this % m_data ( j , 1 ) + 1.0d0 ! Counter exit ! Exit the inner do loop end if end do end do ! Now compute the center of each bin - store in column 2 of this%m_data this % m_data (:, 2 ) = 0.5d0 * ( ranges (:, 1 ) + ranges (:, 2 )) end subroutine ! ------------------------------------------------------------------------------ function pdh_get_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string for this object. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n , ncols type ( color ) :: clr ! Process call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) call str % append ( \" with boxes \" ) ! Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Filled if ( this % get_is_filled ()) then call str % append ( \" fill solid \" ) else call str % append ( \" fill empty \" ) end if ! Define the axes structure call str % append ( \" \" ) call str % append ( this % get_axes_string ()) ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdh_get_data_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining the data for this object. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. character ( len = :), allocatable :: rst !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , nbars , cnt real ( real64 ) :: val character :: delimiter , nl ! Initialization delimiter = achar ( 9 ) nl = new_line ( nl ) nbars = size ( this % m_data , 1 ) ! Process do i = 1 , nbars call this % get ( i , val , cnt ) call str % append ( to_string ( val )) call str % append ( delimiter ) call str % append ( to_string ( cnt )) call str % append ( nl ) end do ! End rst = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pdh_get_axes_cmd ( this ) result ( rst ) !! Gets the GNUPLOT command string defining which axes the data is to be !! plotted against. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. character ( len = :), allocatable :: rst !! The command string. ! Define which axes the data is to be plotted against if ( this % get_draw_against_y2 ()) then rst = \"axes x1y2\" else rst = \"axes x1y1\" end if end function ! ------------------------------------------------------------------------------ pure function pdh_get_is_filled ( this ) result ( rst ) !! Gets a value determining if each box is filled. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. logical :: rst !! Returns true if the boxes are filled; else, false for an empty box. rst = this % m_filled end function ! -------------------- subroutine pdh_set_is_filled ( this , x ) !! Sets a value determining if each box is filled. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. logical , intent ( in ) :: x !! Set to true if the boxes should be filled; else, false for an empty !! box. this % m_filled = x end subroutine ! ------------------------------------------------------------------------------ pure function pdh_get_use_y2 ( this ) result ( rst ) !! Gets a value determining if the data is to be plotted against the !! secondary y axis. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. logical :: rst !! Returns true if the data is to be plotted against the secondary y !! axis; else, false for the primary y axis. rst = this % m_useY2 end function ! -------------------- subroutine pdh_set_use_y2 ( this , x ) !! Sets a value determining if the data is to be plotted against the !! secondary y axis. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. logical , intent ( in ) :: x !! Set to true if the data is to be plotted against the secondary y !! axis; else, false for the primary y axis. this % m_useY2 = x end subroutine ! ------------------------------------------------------------------------------ subroutine pdh_get_bin_data ( this , i , x , cnt ) !! Gets the requested binned data. class ( plot_data_histogram ), intent ( in ) :: this !! The plot_data_histogram object. integer ( int32 ), intent ( in ) :: i !! The bin number to get. real ( real64 ), intent ( out ) :: x !! The center of the bin. integer ( int32 ), intent ( out ) :: cnt !! The number of items in the bin. ! Process if (. not . allocated ( this % m_data )) then cnt = 0 x = 0.0d0 return end if x = this % m_data ( i , 2 ) cnt = floor ( this % m_data ( i , 1 )) end subroutine ! ------------------------------------------------------------------------------ subroutine pdh_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_histogram ), intent ( inout ) :: this !! The plot_data_histogram object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_histogram.f90.html"},{"title":"fplot_plot.f90 – FPLOT","text":"Source Code ! fplot_plot.f90 module fplot_plot use iso_fortran_env use fplot_plot_object use fplot_plot_data use fplot_terminal use fplot_windows_terminal use fplot_qt_terminal use fplot_wxt_terminal use fplot_png_terminal use fplot_latex_terminal use fplot_svg_terminal use fplot_pdf_terminal use fplot_colormap use fplot_colors use fplot_errors use fplot_constants use fplot_legend use fplot_label use fplot_arrow use fplot_plot_data_function use strings use collections implicit none private public :: plot public :: is_plot_data_function type , extends ( plot_object ) :: plot !! Defines the basic GNUPLOT plot. character ( len = PLOTDATA_MAX_NAME_LENGTH ), private :: m_title = \"\" !! The plot title. logical , private :: m_hasTitle = . false . !! Has a title? class ( terminal ), private , pointer :: m_terminal => null () !! The GNUPLOT terminal object to target. type ( list ), private :: m_data !! A collection of plot_data items to plot. type ( legend ), private , pointer :: m_legend => null () !! The legend. logical , private :: m_showGrid = . false . !! Show grid lines? logical , private :: m_ticsIn = . true . !! Point tic marks in? logical , private :: m_drawBorder = . false . !! Draw the border? type ( list ), private :: m_labels ! Added 6/22/2018, JAC !! A collection of plot_label items to draw. integer ( int32 ), private :: m_colorIndex = 1 !! The color index to use for automatic line coloring for scatter plots. logical , private :: m_axisEqual = . false . !! Determines if the axes should be scaled proportionally. class ( colormap ), private , pointer :: m_colormap !! The colormap. logical , private :: m_showColorbar = . true . !! Show the colorbar? type ( list ), private :: m_arrows ! Added 1/3/2024, JAC !! A collection of plot_arrow items to draw. real ( real32 ), private :: m_leftMargin = - 1.0 real ( real32 ), private :: m_rightMargin = - 1.0 real ( real32 ), private :: m_topMargin = - 1.0 real ( real32 ), private :: m_bottomMargin = - 1.0 real ( real32 ), private :: m_borderLineWidth = 1.2 !! Border line width logical , private :: m_showXMajorGrid = . false . logical , private :: m_showXMinorGrid = . false . logical , private :: m_showYMajorGrid = . false . logical , private :: m_showYMinorGrid = . false . type ( color ), private :: m_xMajorGridColor = color ( 204 , 204 , 204 , 0 ) type ( color ), private :: m_xMinorGridColor = color ( 230 , 230 , 230 , 0 ) type ( color ), private :: m_yMajorGridColor = color ( 204 , 204 , 204 , 0 ) type ( color ), private :: m_yMinorGridColor = color ( 230 , 230 , 230 , 0 ) integer ( int32 ), private :: m_xMajorGridLineStyle = LINE_SOLID integer ( int32 ), private :: m_xMinorGridLineStyle = LINE_DASHED integer ( int32 ), private :: m_yMajorGridLineStyle = LINE_SOLID integer ( int32 ), private :: m_yMinorGridLineStyle = LINE_DASHED real ( real32 ), private :: m_xMajorGridLineWidth = 1.2 real ( real32 ), private :: m_xMinorGridLineWidth = 0.7 real ( real32 ), private :: m_yMajorGridLineWidth = 1.2 real ( real32 ), private :: m_yMinorGridLineWidth = 0.7 contains procedure , public :: free_resources => plt_clean_up procedure , public :: initialize => plt_init procedure , public :: get_title => plt_get_title procedure , public :: set_title => plt_set_title procedure , public :: is_title_defined => plt_has_title procedure , public :: get_legend => plt_get_legend procedure , public :: get_count => plt_get_count procedure , public :: plt_push_data generic , public :: push => plt_push_data procedure , public :: pop => plt_pop_data procedure , public :: clear_all => plt_clear_all procedure , public :: get => plt_get procedure , public :: set => plt_set procedure , public :: get_terminal => plt_get_term procedure , public :: get_show_gridlines => plt_get_show_grid procedure , public :: set_show_gridlines => plt_set_show_grid procedure , public :: draw => plt_draw procedure , public :: save_file => plt_save procedure , public :: get_font_name => plt_get_font procedure , public :: set_font_name => plt_set_font procedure , public :: get_font_size => plt_get_font_size procedure , public :: set_font_size => plt_set_font_size procedure , public :: get_tics_inward => plt_get_tics_in procedure , public :: set_tics_inward => plt_set_tics_in procedure , public :: get_draw_border => plt_get_draw_border procedure , public :: set_draw_border => plt_set_draw_border procedure , public :: push_label => plt_push_label procedure , public :: pop_label => plt_pop_label procedure , public :: get_label => plt_get_label procedure , public :: set_label => plt_set_label procedure , public :: get_label_count => plt_get_label_count procedure , public :: clear_all_labels => plt_clear_labels procedure , public :: get_axis_equal => plt_get_axis_equal procedure , public :: set_axis_equal => plt_set_axis_equal procedure , public :: get_colormap => plt_get_colormap procedure , public :: set_colormap => plt_set_colormap procedure , public :: get_show_colorbar => plt_get_show_colorbar procedure , public :: set_show_colorbar => plt_set_show_colorbar procedure , public :: get_command_string => plt_get_cmd procedure , public :: push_arrow => plt_push_arrow procedure , public :: pop_arrow => plt_pop_arrow procedure , public :: get_arrow => plt_get_arrow procedure , public :: set_arrow => plt_set_arrow procedure , public :: get_arrow_count => plt_get_arrow_count procedure , public :: clear_arrows => plt_clear_arrows procedure , public :: get_left_margin => plt_get_left_margin procedure , public :: set_left_margin => plt_set_left_margin procedure , public :: get_right_margin => plt_get_right_margin procedure , public :: set_right_margin => plt_set_right_margin procedure , public :: get_top_margin => plt_get_top_margin procedure , public :: set_top_margin => plt_set_top_margin procedure , public :: get_bottom_margin => plt_get_bottom_margin procedure , public :: set_bottom_margin => plt_set_bottom_margin procedure , public :: show_legend => plt_show_legend procedure , public :: set_window_size => plt_set_window_size procedure , public :: get_border_line_width => plt_get_border_line_width procedure , public :: set_border_line_width => plt_set_border_line_width procedure , public :: get_show_x_major_grid => plt_get_show_x_major_grid procedure , public :: set_show_x_major_grid => plt_set_show_x_major_grid procedure , public :: get_show_x_minor_grid => plt_get_show_x_minor_grid procedure , public :: set_show_x_minor_grid => plt_set_show_x_minor_grid procedure , public :: get_show_y_major_grid => plt_get_show_y_major_grid procedure , public :: set_show_y_major_grid => plt_set_show_y_major_grid procedure , public :: get_show_y_minor_grid => plt_get_show_y_minor_grid procedure , public :: set_show_y_minor_grid => plt_set_show_y_minor_grid procedure , public :: get_x_major_grid_color => plt_get_x_major_grid_color procedure , public :: set_x_major_grid_color => plt_set_x_major_grid_color procedure , public :: get_x_minor_grid_color => plt_get_x_minor_grid_color procedure , public :: set_x_minor_grid_color => plt_set_x_minor_grid_color procedure , public :: get_y_major_grid_color => plt_get_y_major_grid_color procedure , public :: set_y_major_grid_color => plt_set_y_major_grid_color procedure , public :: get_y_minor_grid_color => plt_get_y_minor_grid_color procedure , public :: set_y_minor_grid_color => plt_set_y_minor_grid_color procedure , public :: get_x_major_grid_line_style => & plt_get_x_major_grid_line_style procedure , public :: set_x_major_grid_line_style => & plt_set_x_major_grid_line_style procedure , public :: get_x_minor_grid_line_style => & plt_get_x_minor_grid_line_style procedure , public :: set_x_minor_grid_line_style => & plt_set_x_minor_grid_line_style procedure , public :: get_y_major_grid_line_style => & plt_get_y_major_grid_line_style procedure , public :: set_y_major_grid_line_style => & plt_set_y_major_grid_line_style procedure , public :: get_y_minor_grid_line_style => & plt_get_y_minor_grid_line_style procedure , public :: set_y_minor_grid_line_style => & plt_set_y_minor_grid_line_style procedure , public :: get_x_major_grid_line_width => & plt_get_x_major_grid_line_width procedure , public :: set_x_major_grid_line_width => & plt_set_x_major_grid_line_width procedure , public :: get_x_minor_grid_line_width => & plt_get_x_minor_grid_line_width procedure , public :: set_x_minor_grid_line_width => & plt_set_x_minor_grid_line_width procedure , public :: get_y_major_grid_line_width => & plt_get_y_major_grid_line_width procedure , public :: set_y_major_grid_line_width => & plt_set_y_major_grid_line_width procedure , public :: get_y_minor_grid_line_width => & plt_get_y_minor_grid_line_width procedure , public :: set_y_minor_grid_line_width => & plt_set_y_minor_grid_line_width end type contains ! ------------------------------------------------------------------------------ pure function is_plot_data_function ( x ) result ( rst ) !! Tests to see if the supplied [[plot_data]] object is a !! [[plot_data_function]] based type. class ( plot_data ), intent ( in ) :: x !! The [[plot_data]] object. logical :: rst !! True if x is a [[plot_data_function]] based type. select type ( x ) class is ( plot_data_function ) rst = . true . class default rst = . false . end select end function ! ------------------------------------------------------------------------------ subroutine plt_clean_up ( this ) !! Cleans up resources held by the plot object.  Inheriting !! classes are expected to call this routine to free internally held !! resources. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. if ( associated ( this % m_terminal )) then deallocate ( this % m_terminal ) nullify ( this % m_terminal ) end if if ( associated ( this % m_legend )) then deallocate ( this % m_legend ) nullify ( this % m_legend ) end if if ( associated ( this % m_colormap )) then deallocate ( this % m_colormap ) nullify ( this % m_colormap ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine plt_init ( this , term , fname , err ) !! Initializes the plot object. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ), optional :: term !! An optional input that is used to define the terminal. !! The default terminal is a WXT terminal.  The acceptable inputs !! are: !! !!  - GNUPLOT_TERMINAL_PNG !! !!  - GNUPLOT_TERMINAL_QT !! !!  - GNUPLOT_TERMINAL_WIN32 !! !!  - GNUPLOT_TERMINAL_WXT !! !!  - GNUPLOT_TERMINAL_LATEX !! !!  - GNUPLOT_TERMINAL_SVG !! !! - GNUPLOT_TERMINAL_PDF character ( len = * ), intent ( in ), optional :: fname !! A filename to pass to the terminal in the event the !! terminal is a file type (e.g. GNUPLOT_TERMINAL_PNG). class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: flag , t class ( errors ), pointer :: errmgr type ( errors ), target :: deferr type ( wxt_terminal ), pointer :: wxt type ( windows_terminal ), pointer :: win type ( qt_terminal ), pointer :: qt type ( png_terminal ), pointer :: png type ( latex_terminal ), pointer :: latex type ( svg_terminal ), pointer :: svg type ( pdf_terminal ), pointer :: pdf ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( present ( term )) then t = term else t = GNUPLOT_TERMINAL_WXT end if ! Process flag = 0 if ( associated ( this % m_terminal )) deallocate ( this % m_terminal ) select case ( t ) case ( GNUPLOT_TERMINAL_PNG ) allocate ( png , stat = flag ) if ( present ( fname )) call png % set_filename ( fname ) this % m_terminal => png case ( GNUPLOT_TERMINAL_QT ) allocate ( qt , stat = flag ) this % m_terminal => qt case ( GNUPLOT_TERMINAL_WIN32 ) allocate ( win , stat = flag ) this % m_terminal => win case ( GNUPLOT_TERMINAL_LATEX ) allocate ( latex , stat = flag ) if ( present ( fname )) call latex % set_filename ( fname ) this % m_terminal => latex case ( GNUPLOT_TERMINAL_SVG ) allocate ( svg , stat = flag ) if ( present ( fname )) call svg % set_filename ( fname ) this % m_terminal => svg case ( GNUPLOT_TERMINAL_PDF ) allocate ( pdf , stat = flag ) if ( present ( fname )) call pdf % set_filename ( fname ) this % m_terminal => pdf case default ! WXT is the default allocate ( wxt , stat = flag ) this % m_terminal => wxt end select ! Establish the colormap nullify ( this % m_colormap ) if ( flag == 0 . and . . not . associated ( this % m_legend )) then allocate ( this % m_legend , stat = flag ) end if ! Error Checking if ( flag /= 0 ) then call report_memory_error ( errmgr , \"plt_init\" , flag ) return end if end subroutine ! ------------------------------------------------------------------------------ function plt_get_title ( this ) result ( txt ) !! Gets the plot's title. class ( plot ), intent ( in ) :: this !! The [[plot]] object. character ( len = :), allocatable :: txt !! The title. integer ( int32 ) :: n n = len_trim ( this % m_title ) allocate ( character ( len = n ) :: txt ) txt = trim ( this % m_title ) end function ! -------------------- subroutine plt_set_title ( this , txt ) !! Sets the plot's title. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. character ( len = * ), intent ( in ) :: txt !! The title. integer :: n n = min ( len_trim ( txt ), PLOTDATA_MAX_NAME_LENGTH ) this % m_title = \"\" if ( n /= 0 ) then this % m_title ( 1 : n ) = txt ( 1 : n ) this % m_hasTitle = . true . else this % m_hasTitle = . false . end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_has_title ( this ) result ( x ) !! Gets a value determining if a title has been defined for the plot !! object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if a title has been defined for this plot; else, !! returns false. x = this % m_hasTitle end function ! ------------------------------------------------------------------------------ function plt_get_legend ( this ) result ( x ) !! Gets the plot's legend object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( legend ), pointer :: x !! A pointer to the legend object. x => this % m_legend end function ! ------------------------------------------------------------------------------ pure function plt_get_count ( this ) result ( x ) !! Gets the number of stored plot_data objects. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The number of plot_data objects. x = this % m_data % count () end function ! ------------------------------------------------------------------------------ subroutine plt_push_data ( this , x , err ) !! Pushes a plot_data object onto the stack. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. class ( plot_data ), intent ( inout ) :: x !! The plot_data object. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Index the color tracking index if the type is of plot_data_colored select type ( x ) class is ( plot_data_colored ) call x % set_color_index ( this % m_colorIndex ) if ( this % m_colorIndex == size ( color_list )) then this % m_colorIndex = 1 else this % m_colorIndex = this % m_colorIndex + 1 end if end select ! Store the object call this % m_data % push ( x ) end subroutine ! ------------------------------------------------------------------------------ subroutine plt_pop_data ( this ) !! Pops the last plot_data object from the stack. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. ! Process call this % m_data % pop () end subroutine ! ------------------------------------------------------------------------------ subroutine plt_clear_all ( this ) !! Removes all plot_data objects from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. ! Process this % m_colorIndex = 1 call this % m_data % clear () end subroutine ! ------------------------------------------------------------------------------ function plt_get ( this , i ) result ( x ) !! Gets a pointer to the requested plot_data object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_data object. class ( plot_data ), pointer :: x !! A pointer to the requested plot_data object. ! Local Variables class ( * ), pointer :: item ! Process item => this % m_data % get ( i ) select type ( item ) class is ( plot_data ) x => item class default nullify ( x ) end select end function ! -------------------- subroutine plt_set ( this , i , x ) !! Sets the requested plot_data object into the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_data object. class ( plot_data ), intent ( in ) :: x !! The plot_data object. call this % m_data % set ( i , x ) end subroutine ! ------------------------------------------------------------------------------ function plt_get_term ( this ) result ( x ) !! Gets the GNUPLOT terminal object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. class ( terminal ), pointer :: x !! A pointer to the GNUPLOT terminal object. x => this % m_terminal end function ! ------------------------------------------------------------------------------ pure function plt_get_show_grid ( this ) result ( x ) !! Gets a flag determining if the grid lines should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if the grid lines should be shown; else, false. x = this % m_showGrid end function ! -------------------- subroutine plt_set_show_grid ( this , x ) !! Sets a flag determining if the grid lines should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the grid lines should be shown; else, false. this % m_showGrid = x end subroutine ! ------------------------------------------------------------------------------ subroutine plt_draw ( this , persist , err ) !! Launches GNUPLOT and draws the plot per the current state of !! the command list. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical , intent ( in ), optional :: persist !! An optional parameter that can be used to keep GNUPLOT open. !! Set to true to force GNUPLOT to remain open; else, set to false !! to allow GNUPLOT to close after drawing.  The default is true. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Parameters character ( len = * ), parameter :: fname = \"temp_gnuplot_file.plt\" ! Local Variables logical :: p integer ( int32 ) :: fid , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr class ( terminal ), pointer :: term ! Initialization if ( present ( persist )) then p = persist else p = . true . end if if ( present ( err )) then errmgr => err else errmgr => deferr end if term => this % get_terminal () ! Open the file for writing, and write the contents to file open ( newunit = fid , file = fname , iostat = flag ) if ( flag > 0 ) then call report_file_create_error ( errmgr , \"plt_draw\" , fname , flag ) return end if write ( fid , '(A)' ) term % get_command_string () write ( fid , '(A)' ) new_line ( 'a' ) write ( fid , '(A)' ) this % get_command_string () close ( fid ) ! Launch GNUPLOT if ( p ) then call execute_command_line ( \"gnuplot --persist \" // fname ) else call execute_command_line ( \"gnuplot \" // fname ) end if ! Clean up by deleting the file open ( newunit = fid , file = fname ) close ( fid , status = \"delete\" ) end subroutine ! ------------------------------------------------------------------------------ subroutine plt_save ( this , fname , err ) !! Saves a GNUPLOT command file. class ( plot ), intent ( in ) :: this !! The [[plot]] object. character ( len = * ), intent ( in ) :: fname !! The filename. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: fid , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr class ( terminal ), pointer :: term ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if term => this % get_terminal () ! Open the file for writing, and write the contents to file open ( newunit = fid , file = fname , iostat = flag ) if ( flag > 0 ) then call report_file_create_error ( errmgr , \"plt_save\" , fname , flag ) return end if write ( fid , '(A)' ) term % get_command_string () write ( fid , '(A)' ) new_line ( 'a' ) write ( fid , '(A)' ) this % get_command_string () close ( fid ) end subroutine ! ------------------------------------------------------------------------------ function plt_get_font ( this ) result ( x ) !! Gets the name of the font used for plot text. class ( plot ), intent ( in ) :: this !! The [[plot]] object. character ( len = :), allocatable :: x !! The font name. class ( terminal ), pointer :: term term => this % get_terminal () x = term % get_font_name () end function ! -------------------- subroutine plt_set_font ( this , x ) !! Sets the name of the font used for plot text. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. character ( len = * ), intent ( in ) :: x !! The font name. class ( terminal ), pointer :: term term => this % get_terminal () call term % set_font_name ( x ) end subroutine ! ------------------------------------------------------------------------------ function plt_get_font_size ( this ) result ( x ) !! Gets the size of the font used by the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The size of the font, in points. class ( terminal ), pointer :: term term => this % get_terminal () x = term % get_font_size () end function ! -------------------- subroutine plt_set_font_size ( this , x ) !! Sets the size of the font used by the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The font size, in points.  If a value of zero is provided, !! the font size is reset to its default value; or, if a negative !! value is provided, the absolute value of the supplied value is !! utilized. class ( terminal ), pointer :: term term => this % get_terminal () call term % set_font_size ( x ) end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_tics_in ( this ) result ( x ) !! Gets a value determining if the axis tic marks should point inwards. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if the tic marks should point inwards; else, false !! if the tic marks should point outwards. x = this % m_ticsIn end function ! -------------------- subroutine plt_set_tics_in ( this , x ) !! Sets a value determining if the axis tic marks should point inwards. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the tic marks should point inwards; else, false !! if the tic marks should point outwards. this % m_ticsIn = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_draw_border ( this ) result ( x ) !! Gets a value determining if the border should be drawn. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if the border should be drawn; else, false. x = this % m_drawBorder end function ! -------------------- subroutine plt_set_draw_border ( this , x ) !! Sets a value determining if the border should be drawn. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the border should be drawn; else, false. this % m_drawBorder = x end subroutine ! ****************************************************************************** ! ADDED: JUNE 22, 2018 - JAC ! ------------------------------------------------------------------------------ subroutine plt_push_label ( this , lbl , err ) !! Adds a label to the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. class ( plot_label ), intent ( in ) :: lbl !! The plot label. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Process call this % m_labels % push ( lbl ) end subroutine ! ------------------------------------------------------------------------------ subroutine plt_pop_label ( this ) !! Removes the last label from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. call this % m_labels % pop () end subroutine ! ------------------------------------------------------------------------------ function plt_get_label ( this , i ) result ( x ) !! Gets the requested plot_label from the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_label object to retrieve. class ( plot_label ), pointer :: x !! A pointer to the requested plot_label object. ! Local Variables class ( * ), pointer :: item ! Process item => this % m_labels % get ( i ) select type ( item ) class is ( plot_label ) x => item class default nullify ( x ) end select end function ! -------------------- subroutine plt_set_label ( this , i , x ) !! Sets the specified plot_label object. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_label to replace. class ( plot_label ), intent ( in ) :: x !! The new plot_label object. call this % m_labels % set ( i , x ) end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_label_count ( this ) result ( x ) !! Gets the number of plot_label objects belonging to the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The number of plot_label objects. x = this % m_labels % count () end function ! ------------------------------------------------------------------------------ subroutine plt_clear_labels ( this ) !! Clears all plot_label objects from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. call this % m_labels % clear () end subroutine ! ****************************************************************************** ! ADDED: SEPT. 25, 2020 - JAC ! ------------------------------------------------------------------------------ pure function plt_get_axis_equal ( this ) result ( rst ) !! Gets a flag determining if the axes should be equally scaled. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: rst !! Returns true if the axes should be scaled equally; else, false. rst = this % m_axisEqual end function ! -------------------- subroutine plt_set_axis_equal ( this , x ) !! Sets a flag determining if the axes should be equally scaled. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the axes should be scaled equally; else, false. this % m_axisEqual = x end subroutine ! ****************************************************************************** ! ADDED: OCT. 8, 2020 - JAC ! ------------------------------------------------------------------------------ function plt_get_colormap ( this ) result ( x ) !! Gets a pointer to the colormap object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. class ( colormap ), pointer :: x !! A pointer to the colormap object.  If no colormap is defined, a !! null pointer is returned. x => this % m_colormap end function ! -------------------- subroutine plt_set_colormap ( this , x , err ) !! Sets the colormap object. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. class ( colormap ), intent ( in ) :: x !! The colormap object.  Notice, a copy of this object is !! stored, and the plot object then manages the lifetime of the !! copy. class ( errors ), intent ( inout ), optional , target :: err !! An error handler object. ! Local Variables integer ( int32 ) :: flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization if ( present ( err )) then errmgr => err else errmgr => deferr end if ! Process if ( associated ( this % m_colormap )) deallocate ( this % m_colormap ) allocate ( this % m_colormap , stat = flag , source = x ) if ( flag /= 0 ) then call errmgr % report_error ( \"surf_set_colormap\" , & \"Insufficient memory available.\" , PLOT_OUT_OF_MEMORY_ERROR ) return end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_colorbar ( this ) result ( x ) !! Gets a value determining if the colorbar should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! Returns true if the colorbar should be drawn; else, false. x = this % m_showColorbar end function ! -------------------- subroutine plt_set_show_colorbar ( this , x ) !! Sets a value determining if the colorbar should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true if the colorbar should be drawn; else, false. this % m_showColorbar = x end subroutine ! ------------------------------------------------------------------------------ function plt_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this plot object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. character ( len = :), allocatable :: x !! The command string. ! Local Variables integer ( int32 ) :: i type ( string_builder ) :: str class ( colormap ), pointer :: clr class ( plot_arrow ), pointer :: arrow class ( plot_label ), pointer :: lbl ! Initialization call str % initialize () ! Define the colormap clr => this % get_colormap () if ( associated ( clr )) then call str % append ( new_line ( 'a' )) call str % append ( clr % get_command_string ()) end if ! Show the colorbar if (. not . this % get_show_colorbar ()) then call str % append ( new_line ( 'a' )) call str % append ( \"unset colorbox\" ) end if ! Arrows do i = 1 , this % get_arrow_count () arrow => this % get_arrow ( i ) if (. not . associated ( arrow )) cycle call str % append ( new_line ( 'a' )) call str % append ( arrow % get_command_string ()) end do ! Labels do i = 1 , this % get_label_count () lbl => this % get_label ( i ) if (. not . associated ( lbl )) cycle call str % append ( new_line ( 'a' )) call str % append ( lbl % get_command_string ()) end do ! End x = char ( str % to_string ()) end function ! ****************************************************************************** ! ADDED: 1/3/2024 - JAC ! ------------------------------------------------------------------------------ subroutine plt_push_arrow ( this , x , err ) !! Pushes a new @ref plot_arrow object onto the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. class ( plot_arrow ), intent ( in ) :: x !! The plot_arrow object. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. call this % m_arrows % push ( x , manage = . true .) end subroutine ! ------------------------------------------------------------------------------ subroutine plt_pop_arrow ( this ) !! Pops the last plot_arrow object from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. call this % m_arrows % pop () end subroutine ! ------------------------------------------------------------------------------ function plt_get_arrow ( this , i ) result ( rst ) !! Gets a pointer to the requested plot_arrow object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_arrow to retrieve. class ( plot_arrow ), pointer :: rst !! The plot_arrow object to retrieve. class ( * ), pointer :: ptr ptr => this % m_arrows % get ( i ) select type ( ptr ) class is ( plot_arrow ) rst => ptr class default nullify ( rst ) end select end function ! ------------------------------------------------------------------------------ subroutine plt_set_arrow ( this , i , x ) !! Sets a plot_arrow into the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: i !! The index of the plot_arrow object to replace. class ( plot_arrow ), intent ( in ) :: x !! The new plot_arrow object. call this % m_arrows % set ( i , x ) end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_arrow_count ( this ) result ( rst ) !! Gets the number of plot_arrow objects held by the plot object. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: rst !! The plot_arrow objects count. rst = this % m_arrows % count () end function ! ------------------------------------------------------------------------------ subroutine plt_clear_arrows ( this ) !! Clears all plot_arrow objects from the plot. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. call this % m_arrows % clear () end subroutine ! ****************************************************************************** ! ADDED: 4/7/2025 - JAC ! ------------------------------------------------------------------------------ pure function plt_get_left_margin ( this ) result ( x ) !! Gets the left margin of the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. x = this % m_leftMargin end function ! ---------- subroutine plt_set_left_margin ( this , x ) !! Sets the left margin of the plot.  If the value is negative, the !! default margin is used. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. this % m_leftMargin = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_right_margin ( this ) result ( x ) !! Gets the right margin of the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. x = this % m_rightMargin end function ! ---------- subroutine plt_set_right_margin ( this , x ) !! Sets the right margin of the plot.  If the value is negative, the !! default margin is used. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. this % m_rightMargin = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_top_margin ( this ) result ( x ) !! Gets the top margin of the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. x = this % m_topMargin end function ! ---------- subroutine plt_set_top_margin ( this , x ) !! Sets the top margin of the plot.  If the value is negative, the !! default margin is used. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. this % m_topMargin = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_bottom_margin ( this ) result ( x ) !! Gets the bottom margin of the plot. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. x = this % m_bottomMargin end function ! ---------- subroutine plt_set_bottom_margin ( this , x ) !! Sets the bottom margin of the plot.  If the value is negative, the !! default margin is used. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The margin, in percent of screen.  A negative value indicates the !! default margin is used. this % m_bottomMargin = x end subroutine ! ****************************************************************************** ! ADDED AUG. 16, 2026 - V1.9.0 ! ------------------------------------------------------------------------------ subroutine plt_show_legend ( this , x ) !! Sets a value determining the legend should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! Set to true to show the legend; else, set to false. if ( associated ( this % m_legend )) then call this % m_legend % set_is_visible ( x ) end if end subroutine ! ------------------------------------------------------------------------------ subroutine plt_set_window_size ( this , width , height ) !! Sets the height and width of the plot window. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: width !! The plot window width. integer ( int32 ), intent ( in ) :: height !! The plot window height. if ( associated ( this % m_terminal )) then call this % m_terminal % set_window_width ( width ) call this % m_terminal % set_window_height ( height ) end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_border_line_width ( this ) result ( x ) !! Gets the width of the lines used to draw the border. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_borderLineWidth end function ! -------------------- subroutine plt_set_border_line_width ( this , x ) !! Sets the width of the lines used to draw the border. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_borderLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_x_major_grid ( this ) result ( x ) !! Gets a value determining if the x-axis major grid should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showXMajorGrid end function ! -------------------- subroutine plt_set_show_x_major_grid ( this , x ) !! Sets a value determining if the x-axis major grid should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showXMajorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_x_minor_grid ( this ) result ( x ) !! Gets a value determining if the x-axis minor grid should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showXMinorGrid end function ! -------------------- subroutine plt_set_show_x_minor_grid ( this , x ) !! Sets a value determining if the x-axis minor grid should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showXMinorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_y_major_grid ( this ) result ( x ) !! Gets a value determining if the x-axis major grid should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showYMajorGrid end function ! -------------------- subroutine plt_set_show_y_major_grid ( this , x ) !! Sets a value determining if the x-axis major grid should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showYMajorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_show_y_minor_grid ( this ) result ( x ) !! Gets a value determining if the x-axis minor grid should be shown. class ( plot ), intent ( in ) :: this !! The [[plot]] object. logical :: x !! True if the grid should be shown; else, false. x = this % m_showYMinorGrid end function ! -------------------- subroutine plt_set_show_y_minor_grid ( this , x ) !! Sets a value determining if the x-axis minor grid should be shown. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. logical , intent ( in ) :: x !! True if the grid should be shown; else, false. this % m_showYMinorGrid = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_major_grid_color ( this ) result ( x ) !! Gets the color of the x-axis major grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( color ) :: x !! The color. x = this % m_xMajorGridColor end function ! -------------------- subroutine plt_set_x_major_grid_color ( this , x ) !! Sets the color of the x-axis major grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. type ( color ), intent ( in ) :: x !! The color. this % m_xMajorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_minor_grid_color ( this ) result ( x ) !! Gets the color of the x-axis minor grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( color ) :: x !! The color. x = this % m_xMinorGridColor end function ! -------------------- subroutine plt_set_x_minor_grid_color ( this , x ) !! Sets the color of the x-axis minor grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. type ( color ), intent ( in ) :: x !! The color. this % m_xMinorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_major_grid_color ( this ) result ( x ) !! Gets the color of the y-axis major grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( color ) :: x !! The color. x = this % m_yMajorGridColor end function ! -------------------- subroutine plt_set_y_major_grid_color ( this , x ) !! Sets the color of the y-axis major grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. type ( color ), intent ( in ) :: x !! The color. this % m_yMajorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_minor_grid_color ( this ) result ( x ) !! Gets the color of the y-axis minor grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. type ( color ) :: x !! The color. x = this % m_yMinorGridColor end function ! -------------------- subroutine plt_set_y_minor_grid_color ( this , x ) !! Sets the color of the y-axis minor grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. type ( color ), intent ( in ) :: x !! The color. this % m_yMinorGridColor = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_major_grid_line_style ( this ) result ( x ) !! Gets the line style used for the x-axis major grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_xMajorGridLineStyle end function ! -------------------- subroutine plt_set_x_major_grid_line_style ( this , x ) !! Sets the line style used for the x-axis major grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_xMajorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_minor_grid_line_style ( this ) result ( x ) !! Gets the line style used for the x-axis minor grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_xMinorGridLineStyle end function ! -------------------- subroutine plt_set_x_minor_grid_line_style ( this , x ) !! Sets the line style used for the x-axis minor grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_xMinorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_major_grid_line_style ( this ) result ( x ) !! Gets the line style used for the y-axis major grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_yMajorGridLineStyle end function ! -------------------- subroutine plt_set_y_major_grid_line_style ( this , x ) !! Sets the line style used for the y-axis major grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_yMajorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_minor_grid_line_style ( this ) result ( x ) !! Gets the line style used for the y-axis minor grid lines. class ( plot ), intent ( in ) :: this !! The [[plot]] object. integer ( int32 ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID x = this % m_yMinorGridLineStyle end function ! -------------------- subroutine plt_set_y_minor_grid_line_style ( this , x ) !! Sets the line style used for the y-axis minor grid lines. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. integer ( int32 ), intent ( in ) :: x !! The line style.  The line style must be one of the following. !! !!  - LINE_DASHED !! !!  - LINE_DASH_DOTTED !! !!  - LINE_DASH_DOT_DOT !! !!  - LINE_DOTTED !! !!  - LINE_SOLID if ( x == LINE_DASHED . or . & x == LINE_DASH_DOTTED . or . & x == LINE_DASH_DOT_DOT . or . & x == LINE_DOTTED . or . & x == LINE_SOLID ) then ! Only reset the line style if it is a valid type. this % m_yMinorGridLineStyle = x end if end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_major_grid_line_width ( this ) result ( x ) !! Gets the width of the x-axis major grid lines, in pixels. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_xMajorGridLineWidth end function ! -------------------- subroutine plt_set_x_major_grid_line_width ( this , x ) !! Sets the width of the x-axis major grid lines, in pixels. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_xMajorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_x_minor_grid_line_width ( this ) result ( x ) !! Gets the width of the x-axis minor grid lines, in pixels. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_xMinorGridLineWidth end function ! -------------------- subroutine plt_set_x_minor_grid_line_width ( this , x ) !! Sets the width of the x-axis minor grid lines, in pixels. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_xMinorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_major_grid_line_width ( this ) result ( x ) !! Gets the width of the y-axis major grid lines, in pixels. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_yMajorGridLineWidth end function ! -------------------- subroutine plt_set_y_major_grid_line_width ( this , x ) !! Sets the width of the y-axis major grid lines, in pixels. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_yMajorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ pure function plt_get_y_minor_grid_line_width ( this ) result ( x ) !! Gets the width of the y-axis minor grid lines, in pixels. class ( plot ), intent ( in ) :: this !! The [[plot]] object. real ( real32 ) :: x !! The line width. x = this % m_yMinorGridLineWidth end function ! -------------------- subroutine plt_set_y_minor_grid_line_width ( this , x ) !! Sets the width of the y-axis minor grid lines, in pixels. class ( plot ), intent ( inout ) :: this !! The [[plot]] object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_yMinorGridLineWidth = x end subroutine ! ------------------------------------------------------------------------------ ! -------------------- ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot.f90.html"},{"title":"fplot_surface_plot_data.f90 – FPLOT","text":"Source Code module fplot_surface_plot_data use iso_fortran_env use fplot_plot_data use fplot_errors use strings implicit none private public :: surface_plot_data type , extends ( plot_data ) :: surface_plot_data !! Provides a three-dimensional surface plot data set. real ( real64 ), private , allocatable , dimension (:,:) :: m_x !! Stores the x-coordinate data real ( real64 ), private , allocatable , dimension (:,:) :: m_y !! Stores the y-coordinate data real ( real64 ), private , allocatable , dimension (:,:) :: m_z !! Stores the z-coordinate data logical , private :: m_wireframe = . false . !! Set to true to display a wireframe of the surface; else, just a !! smooth surface will be drawn contains procedure , public :: get_size => surfd_get_size procedure , public :: get_x => surfd_get_x procedure , public :: set_x => surfd_set_x procedure , public :: get_y => surfd_get_y procedure , public :: set_y => surfd_set_y procedure , public :: get_z => surfd_get_z procedure , public :: set_z => surfd_set_z procedure , public :: get_use_wireframe => surfd_get_wireframe procedure , public :: set_use_wireframe => surfd_set_wireframe procedure , public :: get_command_string => surfd_get_cmd procedure , public :: get_data_string => surfd_get_data_cmd procedure , public :: define_data => surfd_set_data_1 procedure , public :: clear_data => surfd_clear_data end type contains ! ------------------------------------------------------------------------------ pure function surfd_get_size ( this , dim ) result ( x ) !! Gets the size of the stored data set. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: dim !! The dimension of interest.  Notice, data is stored as a !! 2D matrix (i.e. only 1 and 2 are valid inputs). integer ( int32 ) :: x !! The size of the requested dimension. if ( allocated ( this % m_x )) then x = size ( this % m_x , dim ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function surfd_get_x ( this , i , j ) result ( x ) !! Gets the requested X data point. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ) :: x !! The value. if ( allocated ( this % m_x )) then x = this % m_x ( i , j ) else x = 0.0d0 end if end function ! -------------------- subroutine surfd_set_x ( this , i , j , x ) !! Sets the requested X data point. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ), intent ( in ) :: x !! The value. if ( allocated ( this % m_x )) then this % m_x ( i , j ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surfd_get_y ( this , i , j ) result ( x ) !! Gets the requested Y data point. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ) :: x !! The value. if ( allocated ( this % m_y )) then x = this % m_y ( i , j ) else x = 0.0d0 end if end function ! -------------------- subroutine surfd_set_y ( this , i , j , x ) !! Sets the requested Y data point. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ), intent ( in ) :: x !! The value. if ( allocated ( this % m_y )) then this % m_y ( i , j ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surfd_get_z ( this , i , j ) result ( x ) !! Gets the requested Z data point. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ) :: x !! The value. if ( allocated ( this % m_z )) then x = this % m_z ( i , j ) else x = 0.0d0 end if end function ! -------------------- subroutine surfd_set_z ( this , i , j , x ) !! Sets the requested Z data point. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. integer ( int32 ), intent ( in ) :: i !! The row index. integer ( int32 ), intent ( in ) :: j !! The column index. real ( real64 ), intent ( in ) :: x !! The value. if ( allocated ( this % m_z )) then this % m_z ( i , j ) = x end if end subroutine ! ------------------------------------------------------------------------------ pure function surfd_get_wireframe ( this ) result ( x ) !! Gets a value determining if a wireframe mesh should be displayed. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. logical :: x !! Returns true if a wireframe mesh should be displayed; else, !! false to display a solid surface. x = this % m_wireframe end function ! -------------------- subroutine surfd_set_wireframe ( this , x ) !! Sets a value determining if a wireframe mesh should be displayed. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. logical , intent ( in ) :: x !! Set to true if a wireframe mesh should be displayed; else, !! false to display a solid surface. this % m_wireframe = x end subroutine ! ------------------------------------------------------------------------------ function surfd_get_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string to represent this surface_plot_data !! object. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. character ( len = :), allocatable :: x !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! PM3D or wireframe? if ( this % get_use_wireframe ()) then call str % append ( \" with lines\" ) else call str % append ( \" with pm3d\" ) end if ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function surfd_get_data_cmd ( this ) result ( x ) !! Gets the GNUPLOT command string containing the actual data to plot. class ( surface_plot_data ), intent ( in ) :: this !! The suface_plot_data object. character ( len = :), allocatable :: x !! The GNUPLOT command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , j , m , n character :: delimiter , nl ! Initialization call str % initialize () m = this % get_size ( 1 ) n = this % get_size ( 2 ) delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) ! Process do j = 1 , n do i = 1 , m call str % append ( to_string ( this % get_x ( i , j ))) call str % append ( delimiter ) call str % append ( to_string ( this % get_y ( i , j ))) call str % append ( delimiter ) call str % append ( to_string ( this % get_z ( i , j ))) call str % append ( nl ) end do if ( j /= n ) call str % append ( nl ) end do ! End x = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine surfd_set_data_1 ( this , x , y , z , err ) !! Defines the data set. class ( surface_plot_data ), intent ( inout ) :: this !! The suface_plot_data object. real ( real64 ), intent ( in ), dimension (:,:) :: x !! An M-by-N matrix containing the x-coordinate data. real ( real64 ), intent ( in ), dimension (:,:) :: y !! An M-by-N matrix containing the y-coordinate data. real ( real64 ), intent ( in ), dimension (:,:) :: z !! An M-by-N matrix containing the z-coordinate data. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , j , m , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization m = size ( x , 1 ) n = size ( x , 2 ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Check if ( size ( y , 1 ) /= m . or . size ( y , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"surfd_set_data_1\" , & \"y\" , m , n , size ( y , 1 ), size ( y , 2 )) return end if if ( size ( z , 1 ) /= m . or . size ( z , 2 ) /= n ) then call report_matrix_size_mismatch_error ( errmgr , \"surfd_set_data_1\" , & \"z\" , m , n , size ( z , 1 ), size ( z , 2 )) return end if ! Process if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_z )) deallocate ( this % m_z ) allocate ( this % m_x ( m , n ), stat = flag ) if ( flag == 0 ) allocate ( this % m_y ( m , n ), stat = flag ) if ( flag == 0 ) allocate ( this % m_z ( m , n ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"surfd_set_data_1\" , flag ) return end if do concurrent ( j = 1 : n ) do i = 1 , m this % m_x ( i , j ) = x ( i , j ) this % m_y ( i , j ) = y ( i , j ) this % m_z ( i , j ) = z ( i , j ) end do end do end subroutine ! ------------------------------------------------------------------------------ subroutine surfd_clear_data ( this ) !! Clears the data from this data set. class ( surface_plot_data ), intent ( inout ) :: this !! The surface_plot_data object. if ( allocated ( this % m_x )) deallocate ( this % m_x ) if ( allocated ( this % m_y )) deallocate ( this % m_y ) if ( allocated ( this % m_z )) deallocate ( this % m_z ) end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_surface_plot_data.f90.html"},{"title":"fplot_plot_data_error_bars.f90 – FPLOT","text":"Source Code ! fplot_plot_data_error_bars.f90 module fplot_plot_data_error_bars use iso_fortran_env use fplot_plot_data use fplot_errors use fplot_colors use strings implicit none private public :: plot_data_error_bars type , extends ( plot_data_colored ) :: plot_data_error_bars !! Defines a 2D error-bar based data set. logical , private :: m_xBars = . false . !! Display x error bars? logical , private :: m_yBars = . false . !! Display y error bars? real ( real64 ), private , allocatable , dimension (:,:) :: m_data !! A matrix containing the raw and error data.  Column 1 is for the !! x coordinate, column 2 for the y coordinate, and the remaining !! columns are for the error data (x, then y if applicable). logical , private :: m_box = . false . !! Display an error box for the case where x and y errors are !! defined. logical , private :: m_range = . false . !! Plot error bars using a defined range vs. a +/- value. real ( real32 ), private :: m_lineWidth = 2.0 !! Line width contains procedure , public :: get_command_string => pde_get_cmd procedure , public :: get_data_string => pde_get_data_cmd generic , public :: define_x_error_data => pde_define_x_err , & pde_define_x_err_lim generic , public :: define_y_error_data => pde_define_y_err , & pde_define_y_err_lim generic , public :: define_xy_error_data => pde_define_xy_err , & pde_define_xy_err_lim procedure , public :: get_plot_x_error_bars => pde_get_plot_x_err procedure , public :: get_plot_y_error_bars => pde_get_plot_y_err procedure , public :: get_count => pde_get_count procedure , public :: get_use_error_box => pde_get_box procedure , public :: set_use_error_box => pde_set_box procedure , public :: get_use_range => pde_get_use_range procedure , public :: clear_data => pde_clear_data procedure :: pde_define_x_err procedure :: pde_define_y_err procedure :: pde_define_xy_err procedure :: pde_define_x_err_lim procedure :: pde_define_y_err_lim procedure :: pde_define_xy_err_lim procedure , public :: get_line_width => pde_get_line_width procedure , public :: set_line_width => pde_set_line_width end type contains ! ------------------------------------------------------------------------------ function pde_get_cmd ( this ) result ( cmd ) !! Gets the appropriate GNUPLOT command string for the object. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. character ( len = :), allocatable :: cmd !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: n type ( color ) :: clr ! Initialization call str % initialize () ! Data Block call str % append ( \" $\" ) call str % append ( this % get_datablock_name ()) ! Title n = len_trim ( this % get_name ()) if ( n > 0 ) then call str % append ( ' title \"' ) call str % append ( this % get_name ()) call str % append ( '\"' ) else call str % append ( ' notitle' ) end if ! Color clr = this % get_line_color () call str % append ( ' lc rgb \"#' ) call str % append ( clr % to_hex_string ()) call str % append ( '\"' ) ! Line Width call str % append ( \" lw \" ) call str % append ( to_string ( this % get_line_width ())) ! Error Bars if ( this % get_plot_x_error_bars () . and . this % get_plot_y_error_bars ()) then if ( this % get_use_error_box ()) then call str % append ( \" w boxxyerr\" ) else call str % append ( \" w xyerr\" ) end if else if ( this % get_plot_x_error_bars () . and . . not . this % get_plot_y_error_bars ()) then call str % append ( \" w xerr\" ) else if (. not . this % get_plot_x_error_bars () . and . this % get_plot_y_error_bars ()) then call str % append ( \" w yerr\" ) end if ! Output cmd = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ function pde_get_data_cmd ( this ) result ( cmd ) !! Gets the appropriate GNUPLOT commands to plot the data itself. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. character ( len = :), allocatable :: cmd !! The command string. ! Local Variables type ( string_builder ) :: str integer ( int32 ) :: i , n character :: delimiter , nl ! Initialization call str % initialize () delimiter = achar ( 9 ) ! tab delimiter nl = new_line ( nl ) n = this % get_count () ! Process if ( this % get_plot_x_error_bars () . and . this % get_plot_y_error_bars ()) then if ( this % get_use_range ()) then do i = 1 , n call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 4 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 5 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 6 ))) call str % append ( nl ) end do else do i = 1 , n call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 4 ))) call str % append ( nl ) end do end if else if ( this % get_use_range ()) then do i = 1 , n call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 4 ))) call str % append ( nl ) end do else do i = 1 , n call str % append ( to_string ( this % m_data ( i , 1 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 2 ))) call str % append ( delimiter ) call str % append ( to_string ( this % m_data ( i , 3 ))) call str % append ( nl ) end do end if end if ! if (this%get_plot_x_error_bars() .and. this%get_plot_y_error_bars()) then !     do i = 1, n !         call str%append(to_string(this%m_data(i, 1))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 2))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 3))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 4))) !         call str%append(nl) !     end do ! else !     do i = 1, n !         call str%append(to_string(this%m_data(i, 1))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 2))) !         call str%append(delimiter) !         call str%append(to_string(this%m_data(i, 3))) !         call str%append(nl) !     end do ! end if ! End cmd = char ( str % to_string ()) end function ! ------------------------------------------------------------------------------ subroutine pde_define_x_err ( this , x , y , xerr , err ) !! Defines the x error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: xerr !! An N-element array containing the x errors at each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_x_err\" , & \"y\" , n , size ( y )) return end if if ( size ( xerr ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_x_err\" , & \"xerr\" , n , size ( xerr )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 3 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_x_err\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = xerr ( i ) end do this % m_xBars = . true . this % m_range = . false . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_define_y_err ( this , x , y , yerr , err ) !! Defines the y error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: yerr !! An N-element array containing the y errors at each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_y_err\" , & \"y\" , n , size ( y )) return end if if ( size ( yerr ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_y_err\" , & \"yerr\" , n , size ( yerr )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 3 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_y_err\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = yerr ( i ) end do this % m_yBars = . true . this % m_range = . false . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_define_xy_err ( this , x , y , xerr , yerr , err ) !! Defines x and y error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: xerr !! An N-element array containing the x errors at each data point. real ( real64 ), intent ( in ), dimension (:) :: yerr !! An N-element array containing the y errors at each data point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_xy_err\" , & \"y\" , n , size ( y )) return end if if ( size ( xerr ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_xy_err\" , & \"xerr\" , n , size ( xerr )) return end if if ( size ( yerr ) /= n ) then call report_array_size_mismatch_error ( errmgr , \"pde_define_xy_err\" , & \"yerr\" , n , size ( yerr )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 4 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_xy_err\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = xerr ( i ) this % m_data ( i , 4 ) = yerr ( i ) end do this % m_xBars = . true . this % m_yBars = . true . this % m_range = . false . end subroutine ! ------------------------------------------------------------------------------ pure function pde_get_plot_x_err ( this ) result ( x ) !! Checks to see if the x error bar data has been defined, and as !! a result, if the x error data is to be plotted. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. logical :: x !! Returns true if the x error bars are to be plotted; else, false. x = this % m_xBars end function ! ------------------------------------------------------------------------------ pure function pde_get_plot_y_err ( this ) result ( x ) !! Checks to see if the y error bar data has been defined, and as !! a result, if the x error data is to be plotted. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. logical :: x !! Returns true if the y error bars are to be plotted; else, false. x = this % m_yBars end function ! ------------------------------------------------------------------------------ pure function pde_get_count ( this ) result ( x ) !! Gets the number of stored data points. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. integer ( int32 ) :: x !! The number of data points. if ( allocated ( this % m_data )) then x = size ( this % m_data , 1 ) else x = 0 end if end function ! ------------------------------------------------------------------------------ pure function pde_get_box ( this ) result ( x ) !! Checks to see if the x and y error boxes should be utilized. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. logical :: x !! Returns true if the error boxes are to be plotted; else, !! false.  Notice, the error boxes are only utilized if there is !! both x and y error data defined, regardless of the value of this !! property. x = this % m_box end function ! -------------------- subroutine pde_set_box ( this , x ) !! Deterimines if the x and y error boxes should be utilized. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. logical , intent ( in ) :: x !! Set to true if the error boxes are to be plotted; else, !! false.  Notice, the error boxes are only utilized if there is !! both x and y error data defined, regardless of the value of this !! property. this % m_box = x end subroutine ! ------------------------------------------------------------------------------ pure function pde_get_use_range ( this ) result ( x ) !! Gets a value determining if a defined range is being used !! to define the error bar extremes. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. logical :: x !! True if a defined range is being used; else, false. x = this % m_range end function ! ------------------------------------------------------------------------------ subroutine pde_define_x_err_lim ( this , x , y , xmin , xmax , err ) !! Defines the x error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: xmin !! An N-element array containing the minimum x values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: xmax !! An N-element array containing the maximum x values at each data !! point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_x_err_lim\" , \"y\" , n , size ( y )) return end if if ( size ( xmin ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_x_err_lim\" , \"xmin\" , n , size ( xmin )) return end if if ( size ( xmax ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_x_err_lim\" , \"xmax\" , n , size ( xmax )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 4 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_x_err_lim\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = xmin ( i ) this % m_data ( i , 4 ) = xmax ( i ) end do this % m_xBars = . true . this % m_range = . true . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_define_y_err_lim ( this , x , y , ymin , ymax , err ) !! Defines the y error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: ymin !! An N-element array containing the minimum y values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: ymax !! An N-element array containing the maximum y values at each data !! point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_y_err_lim\" , \"y\" , n , size ( y )) return end if if ( size ( ymin ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_y_err_lim\" , \"ymin\" , n , size ( ymin )) return end if if ( size ( ymax ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_y_err_lim\" , \"ymax\" , n , size ( ymax )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 4 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_y_err_lim\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = ymin ( i ) this % m_data ( i , 4 ) = ymax ( i ) end do this % m_yBars = . true . this % m_range = . true . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_define_xy_err_lim ( this , x , y , xmin , xmax , ymin , & ymax , err ) !! Defines the x and y error data. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real64 ), intent ( in ), dimension (:) :: x !! An N-element array containing the x coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: y !! An N-element array containing the y coordinates of the data. real ( real64 ), intent ( in ), dimension (:) :: xmin !! An N-element array containing the minimum x values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: xmax !! An N-element array containing the maximum x values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: ymin !! An N-element array containing the minimum y values at each data !! point. real ( real64 ), intent ( in ), dimension (:) :: ymax !! An N-element array containing the maximum x values at each data !! point. class ( errors ), intent ( inout ), optional , target :: err !! An error handling object. ! Local Variables integer ( int32 ) :: i , n , flag class ( errors ), pointer :: errmgr type ( errors ), target :: deferr ! Initialization n = size ( x ) if ( present ( err )) then errmgr => err else errmgr => deferr end if if ( len ( this % get_datablock_name ()) == 0 ) then call this % create_unique_datablock_name () end if ! Input Checking if ( size ( y ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"y\" , n , size ( y )) return end if if ( size ( xmin ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"xmin\" , n , size ( xmin )) return end if if ( size ( xmax ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"xmax\" , n , size ( xmax )) return end if if ( size ( ymin ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"ymin\" , n , size ( ymin )) return end if if ( size ( ymax ) /= n ) then call report_array_size_mismatch_error ( errmgr , & \"pde_define_xy_err_lim\" , \"ymax\" , n , size ( ymax )) return end if ! Process this % m_xBars = . false . this % m_yBars = . false . this % m_range = . false . if ( allocated ( this % m_data )) deallocate ( this % m_data ) allocate ( this % m_data ( n , 6 ), stat = flag ) if ( flag /= 0 ) then call report_memory_error ( errmgr , \"pde_define_xy_err_lim\" , flag ) return end if do i = 1 , n this % m_data ( i , 1 ) = x ( i ) this % m_data ( i , 2 ) = y ( i ) this % m_data ( i , 3 ) = xmin ( i ) this % m_data ( i , 4 ) = xmax ( i ) this % m_data ( i , 5 ) = ymin ( i ) this % m_data ( i , 6 ) = ymax ( i ) end do this % m_xBars = . true . this % m_yBars = . true . this % m_range = . true . end subroutine ! ------------------------------------------------------------------------------ subroutine pde_clear_data ( this ) !! Clears the data from this data set. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. if ( allocated ( this % m_data )) deallocate ( this % m_data ) end subroutine ! ------------------------------------------------------------------------------ pure function pde_get_line_width ( this ) result ( x ) !! Gets the line width. class ( plot_data_error_bars ), intent ( in ) :: this !! The plot_data_error_bars object. real ( real32 ) :: x !! The line width. x = this % m_lineWidth end function ! -------------------- subroutine pde_set_line_width ( this , x ) !! Sets the line width. class ( plot_data_error_bars ), intent ( inout ) :: this !! The plot_data_error_bars object. real ( real32 ), intent ( in ) :: x !! The line width. this % m_lineWidth = x end subroutine ! ------------------------------------------------------------------------------ end module","tags":"","loc":"sourcefile\\fplot_plot_data_error_bars.f90.html"}]}
\ No newline at end of file
diff --git a/doc/type/color.html b/doc/type/color.html
index ec4232da..29f1c578 100644
--- a/doc/type/color.html
+++ b/doc/type/color.html
@@ -74,7 +74,7 @@ <h1>color
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.0% of total for derived types.</p>Including implementation: 80 statements,  0.5% of total for derived types.">10 statements</a>
+                 title="<p> 0.9% of total for derived types.</p>Including implementation: 80 statements,  0.5% of total for derived types.">10 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -458,7 +458,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/colormap.html b/doc/type/colormap.html
index 8bc72926..57079ae1 100644
--- a/doc/type/colormap.html
+++ b/doc/type/colormap.html
@@ -74,7 +74,7 @@ <h1>colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.7% of total for derived types.</p>Including implementation: 100 statements,  0.6% of total for derived types.">17 statements</a>
+                 title="<p> 2.7% of total for derived types.</p>Including implementation: 188 statements,  1.1% of total for derived types.">29 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,15 +130,23 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
             <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_color_string">get_color_string</a>
-            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_command_string~14">get_command_string</a>
-            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
             <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
-            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_label~2">get_label</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_label">get_label</a>
             <a class="list-group-item" href="../type/colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
-            <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
             <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
-            <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_label~2">set_label</a>
+            <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_label">set_label</a>
             <a class="list-group-item" href="../type/colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
         </div>
       </div>
@@ -165,6 +173,122 @@ <h2>
         <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
     <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_color_string"></span>
       <h3>
@@ -224,7 +348,123 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cm_get_cmd
@@ -282,7 +522,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => cm_get_draw_border
@@ -400,7 +640,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~2"></span>
+      <span class="anchor" id="boundprocedure-get_label"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => cm_get_label
@@ -516,7 +756,279 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => cm_set_draw_border
@@ -654,7 +1166,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~2"></span>
+      <span class="anchor" id="boundprocedure-set_label"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => cm_set_label
@@ -805,7 +1317,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/cool_colormap.html b/doc/type/cool_colormap.html
index 7cf58ec3..5d112105 100644
--- a/doc/type/cool_colormap.html
+++ b/doc/type/cool_colormap.html
@@ -74,7 +74,7 @@ <h1>cool_colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.4% of total for derived types.</p>Including implementation: 101 statements,  0.6% of total for derived types.">4 statements</a>
+                 title="<p> 0.4% of total for derived types.</p>Including implementation: 177 statements,  1.1% of total for derived types.">4 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,15 +130,23 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
             <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_color_string~4">get_color_string</a>
-            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_command_string~14">get_command_string</a>
-            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
             <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
-            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_label~2">get_label</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_label">get_label</a>
             <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
-            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
             <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
-            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_label~2">set_label</a>
+            <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_label">set_label</a>
             <a class="list-group-item" href="../type/cool_colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
         </div>
       </div>
@@ -165,6 +173,122 @@ <h2>
         <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
     <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_color_string~4"></span>
       <h3>
@@ -224,7 +348,123 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cm_get_cmd
@@ -282,7 +522,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => cm_get_draw_border
@@ -400,7 +640,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~2"></span>
+      <span class="anchor" id="boundprocedure-get_label"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => cm_get_label
@@ -516,7 +756,279 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => cm_set_draw_border
@@ -654,7 +1166,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~2"></span>
+      <span class="anchor" id="boundprocedure-set_label"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => cm_set_label
@@ -805,7 +1317,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/correlation_plot.html b/doc/type/correlation_plot.html
index 75147e68..7f17e27b 100644
--- a/doc/type/correlation_plot.html
+++ b/doc/type/correlation_plot.html
@@ -74,7 +74,7 @@ <h1>correlation_plot
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.7% of total for derived types.</p>Including implementation: 160 statements,  1.0% of total for derived types.">17 statements</a>
+                 title="<p> 1.6% of total for derived types.</p>Including implementation: 160 statements,  1.0% of total for derived types.">17 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,19 +130,19 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-draw~3">draw</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get~4">get</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-draw~2">draw</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get~2">get</a>
             <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_column_count~2">get_column_count</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_command_string~16">get_command_string</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_font_name~3">get_font_name</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_font_size~3">get_font_size</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_command_string~15">get_command_string</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_font_name~2">get_font_name</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_font_size~2">get_font_size</a>
             <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_plot_count~2">get_plot_count</a>
             <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_row_count~2">get_row_count</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_terminal~3">get_terminal</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-initialize~6">initialize</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-save_file~3">save_file</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-set_font_name~3">set_font_name</a>
-            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-set_font_size~3">set_font_size</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-get_terminal~2">get_terminal</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-initialize~5">initialize</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-save_file~2">save_file</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-set_font_name~2">set_font_name</a>
+            <a class="list-group-item" href="../type/correlation_plot.html#boundprocedure-set_font_size~2">set_font_size</a>
         </div>
       </div>
     </div>
@@ -170,7 +170,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-draw~3"></span>
+      <span class="anchor" id="boundprocedure-draw~2"></span>
       <h3>
           procedure, public ::
   <strong>draw</strong> => cp_draw
@@ -256,7 +256,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get~4"></span>
+      <span class="anchor" id="boundprocedure-get~2"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => cp_get
@@ -402,7 +402,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~16"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~15"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cp_get_command
@@ -460,7 +460,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~2"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => cp_get_font
@@ -518,7 +518,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~2"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => cp_get_font_size
@@ -692,7 +692,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_terminal~3"></span>
+      <span class="anchor" id="boundprocedure-get_terminal~2"></span>
       <h3>
           procedure, public ::
   <strong>get_terminal</strong> => cp_get_term
@@ -750,7 +750,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-initialize~6"></span>
+      <span class="anchor" id="boundprocedure-initialize~5"></span>
       <h3>
           procedure, public ::
   <strong>initialize</strong> => cp_init
@@ -919,7 +919,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-save_file~3"></span>
+      <span class="anchor" id="boundprocedure-save_file~2"></span>
       <h3>
           procedure, public ::
   <strong>save_file</strong> => cp_save
@@ -1002,7 +1002,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~2"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => cp_set_font
@@ -1070,7 +1070,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~2"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => cp_set_font_size
@@ -1153,7 +1153,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/custom_colormap.html b/doc/type/custom_colormap.html
index 1b58f94f..274d0126 100644
--- a/doc/type/custom_colormap.html
+++ b/doc/type/custom_colormap.html
@@ -74,7 +74,7 @@ <h1>custom_colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.8% of total for derived types.</p>Including implementation: 147 statements,  0.9% of total for derived types.">8 statements</a>
+                 title="<p> 0.8% of total for derived types.</p>Including implementation: 223 statements,  1.3% of total for derived types.">8 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -141,17 +141,25 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
             <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_color_string~8">get_color_string</a>
-            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_colormap~2">get_colormap</a>
-            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_command_string~14">get_command_string</a>
-            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_colormap">get_colormap</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
             <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
-            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_label~2">get_label</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_label">get_label</a>
             <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
-            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_colormap~2">set_colormap</a>
-            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_colormap">set_colormap</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
             <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
-            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_label~2">set_label</a>
+            <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_label">set_label</a>
             <a class="list-group-item" href="../type/custom_colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
         </div>
       </div>
@@ -206,7 +214,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~350"></span>
+              <span class="anchor" id="variable-this~434"></span>
               type(<a href='custom_colormap.html'>custom_colormap</a>),
             </td>
 <td>intent(inout)</td>
@@ -234,6 +242,122 @@ <h4>Arguments</h4>
         <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
     <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_color_string~8"></span>
       <h3>
@@ -293,7 +417,123 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_colormap~2"></span>
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colormap"></span>
       <h3>
           procedure, public ::
   <strong>get_colormap</strong> => custom_get
@@ -351,7 +591,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cm_get_cmd
@@ -409,7 +649,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => cm_get_draw_border
@@ -527,7 +767,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~2"></span>
+      <span class="anchor" id="boundprocedure-get_label"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => cm_get_label
@@ -643,7 +883,279 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_colormap~2"></span>
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colormap"></span>
       <h3>
           procedure, public ::
   <strong>set_colormap</strong> => custom_set
@@ -729,7 +1241,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => cm_set_draw_border
@@ -867,7 +1379,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~2"></span>
+      <span class="anchor" id="boundprocedure-set_label"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => cm_set_label
@@ -1018,7 +1530,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/delaunay_tri_2d.html b/doc/type/delaunay_tri_2d.html
index c350001c..081af3fb 100644
--- a/doc/type/delaunay_tri_2d.html
+++ b/doc/type/delaunay_tri_2d.html
@@ -74,7 +74,7 @@ <h1>delaunay_tri_2d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.3% of total for derived types.</p>Including implementation: 130 statements,  0.8% of total for derived types.">13 statements</a>
+                 title="<p> 1.2% of total for derived types.</p>Including implementation: 130 statements,  0.8% of total for derived types.">13 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -660,7 +660,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/delaunay_tri_surface.html b/doc/type/delaunay_tri_surface.html
index 0e12d35c..923929ce 100644
--- a/doc/type/delaunay_tri_surface.html
+++ b/doc/type/delaunay_tri_surface.html
@@ -74,7 +74,7 @@ <h1>delaunay_tri_surface
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.9% of total for derived types.</p>Including implementation: 231 statements,  1.5% of total for derived types.">9 statements</a>
+                 title="<p> 0.8% of total for derived types.</p>Including implementation: 231 statements,  1.4% of total for derived types.">9 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -973,7 +973,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/earth_colormap.html b/doc/type/earth_colormap.html
index b14348d4..3e748c89 100644
--- a/doc/type/earth_colormap.html
+++ b/doc/type/earth_colormap.html
@@ -74,7 +74,7 @@ <h1>earth_colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.4% of total for derived types.</p>Including implementation: 101 statements,  0.6% of total for derived types.">4 statements</a>
+                 title="<p> 0.4% of total for derived types.</p>Including implementation: 177 statements,  1.1% of total for derived types.">4 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,15 +130,23 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
             <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_color_string~7">get_color_string</a>
-            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_command_string~14">get_command_string</a>
-            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
             <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
-            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_label~2">get_label</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_label">get_label</a>
             <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
-            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
             <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
-            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_label~2">set_label</a>
+            <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_label">set_label</a>
             <a class="list-group-item" href="../type/earth_colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
         </div>
       </div>
@@ -165,6 +173,122 @@ <h2>
         <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
     <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_color_string~7"></span>
       <h3>
@@ -224,7 +348,123 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cm_get_cmd
@@ -282,7 +522,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => cm_get_draw_border
@@ -400,7 +640,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~2"></span>
+      <span class="anchor" id="boundprocedure-get_label"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => cm_get_label
@@ -516,7 +756,279 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => cm_set_draw_border
@@ -654,7 +1166,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~2"></span>
+      <span class="anchor" id="boundprocedure-set_label"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => cm_set_label
@@ -805,7 +1317,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/errors.html b/doc/type/errors.html
index 1b811940..f2522efa 100644
--- a/doc/type/errors.html
+++ b/doc/type/errors.html
@@ -271,7 +271,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/file_terminal.html b/doc/type/file_terminal.html
index 463729cb..2a3359b5 100644
--- a/doc/type/file_terminal.html
+++ b/doc/type/file_terminal.html
@@ -130,20 +130,20 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_command_string~24">get_command_string</a>
+            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_command_string~17">get_command_string</a>
             <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_filename">get_filename</a>
-            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
-            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_id_string~12">get_id_string</a>
+            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
+            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_id_string~11">get_id_string</a>
             <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
-            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-get_window_width">get_window_width</a>
             <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_filename">set_filename</a>
-            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
-            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/file_terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -173,7 +173,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~24"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~17"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => fterm_get_command_string
@@ -290,7 +290,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -348,7 +348,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -406,7 +406,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_id_string~12"></span>
+      <span class="anchor" id="boundprocedure-get_id_string~11"></span>
       <h3>
           procedure(<a href='..\interface\term_get_string_result.html'>term_get_string_result</a>), public, deferred ::
   <strong>get_id_string</strong>
@@ -522,7 +522,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -764,7 +764,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -832,7 +832,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -968,7 +968,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1187,7 +1187,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/filled_plot_data.html b/doc/type/filled_plot_data.html
index e0c3589a..7de5609d 100644
--- a/doc/type/filled_plot_data.html
+++ b/doc/type/filled_plot_data.html
@@ -74,7 +74,7 @@ <h1>filled_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.2% of total for derived types.</p>Including implementation: 190 statements,  1.2% of total for derived types.">12 statements</a>
+                 title="<p> 1.1% of total for derived types.</p>Including implementation: 190 statements,  1.1% of total for derived types.">12 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,14 +130,14 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-clear_data~7">clear_data</a>
+            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-clear_data~9">clear_data</a>
             <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-define_data~6">define_data</a>
+            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-define_data~8">define_data</a>
             <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_axes_string~4">get_axes_string</a>
             <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_command_string~17">get_command_string</a>
-            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_data_string~7">get_data_string</a>
+            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_command_string~22">get_command_string</a>
+            <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_data_string~9">get_data_string</a>
             <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_draw_against_y2~3">get_draw_against_y2</a>
             <a class="list-group-item" href="../type/filled_plot_data.html#boundprocedure-get_line_color">get_line_color</a>
@@ -173,7 +173,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -229,7 +229,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~7"></span>
+      <span class="anchor" id="boundprocedure-clear_data~9"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => fpd_clear_data
@@ -336,7 +336,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~6"></span>
+      <span class="anchor" id="boundprocedure-define_data~8"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => fpd_define_data
@@ -567,7 +567,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~17"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~22"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => fpd_get_cmd
@@ -626,7 +626,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~7"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~9"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => fpd_get_data_cmd
@@ -1277,7 +1277,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/grey_colormap.html b/doc/type/grey_colormap.html
index e10e2cae..0cb73a4a 100644
--- a/doc/type/grey_colormap.html
+++ b/doc/type/grey_colormap.html
@@ -74,7 +74,7 @@ <h1>grey_colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.4% of total for derived types.</p>Including implementation: 101 statements,  0.6% of total for derived types.">4 statements</a>
+                 title="<p> 0.4% of total for derived types.</p>Including implementation: 177 statements,  1.1% of total for derived types.">4 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,15 +130,23 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
             <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_color_string~6">get_color_string</a>
-            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_command_string~14">get_command_string</a>
-            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
             <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
-            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_label~2">get_label</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_label">get_label</a>
             <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
-            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
             <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
-            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_label~2">set_label</a>
+            <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_label">set_label</a>
             <a class="list-group-item" href="../type/grey_colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
         </div>
       </div>
@@ -165,6 +173,122 @@ <h2>
         <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
     <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_color_string~6"></span>
       <h3>
@@ -224,7 +348,123 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cm_get_cmd
@@ -282,7 +522,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => cm_get_draw_border
@@ -400,7 +640,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~2"></span>
+      <span class="anchor" id="boundprocedure-get_label"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => cm_get_label
@@ -516,7 +756,279 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => cm_set_draw_border
@@ -654,7 +1166,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~2"></span>
+      <span class="anchor" id="boundprocedure-set_label"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => cm_set_label
@@ -805,7 +1317,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/hot_colormap.html b/doc/type/hot_colormap.html
index e54d187a..e6e91faa 100644
--- a/doc/type/hot_colormap.html
+++ b/doc/type/hot_colormap.html
@@ -74,7 +74,7 @@ <h1>hot_colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.4% of total for derived types.</p>Including implementation: 92 statements,  0.6% of total for derived types.">4 statements</a>
+                 title="<p> 0.4% of total for derived types.</p>Including implementation: 168 statements,  1.0% of total for derived types.">4 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,15 +130,23 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
             <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_color_string~3">get_color_string</a>
-            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_command_string~14">get_command_string</a>
-            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
             <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
-            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_label~2">get_label</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_label">get_label</a>
             <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
-            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
             <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
-            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_label~2">set_label</a>
+            <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_label">set_label</a>
             <a class="list-group-item" href="../type/hot_colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
         </div>
       </div>
@@ -165,6 +173,122 @@ <h2>
         <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
     <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_color_string~3"></span>
       <h3>
@@ -224,7 +348,123 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cm_get_cmd
@@ -282,7 +522,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => cm_get_draw_border
@@ -400,7 +640,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~2"></span>
+      <span class="anchor" id="boundprocedure-get_label"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => cm_get_label
@@ -516,7 +756,279 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => cm_set_draw_border
@@ -654,7 +1166,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~2"></span>
+      <span class="anchor" id="boundprocedure-set_label"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => cm_set_label
@@ -805,7 +1317,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/latex_terminal.html b/doc/type/latex_terminal.html
index 7899c57b..88a2ccd1 100644
--- a/doc/type/latex_terminal.html
+++ b/doc/type/latex_terminal.html
@@ -74,7 +74,7 @@ <h1>latex_terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.5% of total for derived types.</p>Including implementation: 150 statements,  1.0% of total for derived types.">5 statements</a>
+                 title="<p> 0.5% of total for derived types.</p>Including implementation: 150 statements,  0.9% of total for derived types.">5 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,20 +130,20 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_command_string~24">get_command_string</a>
+            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_command_string~17">get_command_string</a>
             <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_filename">get_filename</a>
-            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
-            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_id_string~2">get_id_string</a>
+            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
+            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_id_string~10">get_id_string</a>
             <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
-            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-get_window_width">get_window_width</a>
             <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_filename">set_filename</a>
-            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
-            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/latex_terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -172,7 +172,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~24"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~17"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => fterm_get_command_string
@@ -289,7 +289,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -347,7 +347,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -405,7 +405,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_id_string~2"></span>
+      <span class="anchor" id="boundprocedure-get_id_string~10"></span>
       <h3>
           procedure, public ::
   <strong>get_id_string</strong> => tex_get_term_string
@@ -521,7 +521,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -763,7 +763,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -831,7 +831,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -967,7 +967,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1186,7 +1186,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/legend.html b/doc/type/legend.html
index b4a9d2bd..33845bc8 100644
--- a/doc/type/legend.html
+++ b/doc/type/legend.html
@@ -74,7 +74,7 @@ <h1>legend
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.5% of total for derived types.</p>Including implementation: 141 statements,  0.9% of total for derived types.">25 statements</a>
+                 title="<p> 2.4% of total for derived types.</p>Including implementation: 141 statements,  0.8% of total for derived types.">25 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,19 +130,19 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/legend.html#boundprocedure-get_command_string~7">get_command_string</a>
-            <a class="list-group-item" href="../type/legend.html#boundprocedure-get_draw_border~2">get_draw_border</a>
+            <a class="list-group-item" href="../type/legend.html#boundprocedure-get_command_string~2">get_command_string</a>
+            <a class="list-group-item" href="../type/legend.html#boundprocedure-get_draw_border">get_draw_border</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-get_draw_inside_axes">get_draw_inside_axes</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-get_horizontal_position">get_horizontal_position</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-get_is_opaque">get_is_opaque</a>
-            <a class="list-group-item" href="../type/legend.html#boundprocedure-get_is_visible~2">get_is_visible</a>
+            <a class="list-group-item" href="../type/legend.html#boundprocedure-get_is_visible">get_is_visible</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-get_layout">get_layout</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-get_vertical_position">get_vertical_position</a>
-            <a class="list-group-item" href="../type/legend.html#boundprocedure-set_draw_border~2">set_draw_border</a>
+            <a class="list-group-item" href="../type/legend.html#boundprocedure-set_draw_border">set_draw_border</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-set_draw_inside_axes">set_draw_inside_axes</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-set_horizontal_position">set_horizontal_position</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-set_is_opaque">set_is_opaque</a>
-            <a class="list-group-item" href="../type/legend.html#boundprocedure-set_is_visible~2">set_is_visible</a>
+            <a class="list-group-item" href="../type/legend.html#boundprocedure-set_is_visible">set_is_visible</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-set_layout">set_layout</a>
             <a class="list-group-item" href="../type/legend.html#boundprocedure-set_vertical_position">set_vertical_position</a>
         </div>
@@ -171,7 +171,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~7"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~2"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => leg_get_command_txt
@@ -229,7 +229,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => leg_get_box
@@ -463,7 +463,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_is_visible~2"></span>
+      <span class="anchor" id="boundprocedure-get_is_visible"></span>
       <h3>
           procedure, public ::
   <strong>get_is_visible</strong> => leg_get_visible
@@ -639,7 +639,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
+      <span class="anchor" id="boundprocedure-set_draw_border"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => leg_set_box
@@ -914,7 +914,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_is_visible~2"></span>
+      <span class="anchor" id="boundprocedure-set_is_visible"></span>
       <h3>
           procedure, public ::
   <strong>set_is_visible</strong> => leg_set_visible
@@ -1136,7 +1136,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/line_plot_data.html b/doc/type/line_plot_data.html
index bdca8e5d..932daefe 100644
--- a/doc/type/line_plot_data.html
+++ b/doc/type/line_plot_data.html
@@ -74,7 +74,7 @@ <h1>line_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.8% of total for derived types.</p>Including implementation: 234 statements,  1.5% of total for derived types.">28 statements</a>
+                 title="<p> 2.6% of total for derived types.</p>Including implementation: 234 statements,  1.4% of total for derived types.">28 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,19 +130,19 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-clear_data~11">clear_data</a>
+            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-clear_data~6">clear_data</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_command_string~25">get_command_string</a>
-            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_data_string~11">get_data_string</a>
+            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_command_string~11">get_command_string</a>
+            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_data_string~6">get_data_string</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_draw_impulses">get_draw_impulses</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_draw_line">get_draw_line</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_draw_markers">get_draw_markers</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_line_color">get_line_color</a>
-            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_line_style~3">get_line_style</a>
-            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_line_width~5">get_line_width</a>
+            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_line_style~2">get_line_style</a>
+            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_line_width~3">get_line_width</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_marker_frequency">get_marker_frequency</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_marker_scaling">get_marker_scaling</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-get_marker_style">get_marker_style</a>
@@ -153,8 +153,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_draw_line">set_draw_line</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_draw_markers">set_draw_markers</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_line_color">set_line_color</a>
-            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_line_style~3">set_line_style</a>
-            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_line_width~5">set_line_width</a>
+            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_line_style~2">set_line_style</a>
+            <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_line_width~3">set_line_width</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_marker_frequency">set_marker_frequency</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_marker_scaling">set_marker_scaling</a>
             <a class="list-group-item" href="../type/line_plot_data.html#boundprocedure-set_marker_style">set_marker_style</a>
@@ -185,7 +185,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -241,7 +241,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~11"></span>
+      <span class="anchor" id="boundprocedure-clear_data~6"></span>
       <h3>
           procedure(<a href='..\interface\pd_clear_action.html'>pd_clear_action</a>), public, deferred ::
   <strong>clear_data</strong>
@@ -406,7 +406,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~25"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~11"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => <a href='D:\Code\fplot\doc\proc\lpd_get_cmd.html'>lpd_get_cmd</a>
@@ -466,7 +466,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~11"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~6"></span>
       <h3>
           procedure(<a href='..\interface\pd_get_string_result.html'>pd_get_string_result</a>), public, deferred ::
   <strong>get_data_string</strong>
@@ -815,7 +815,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-get_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>get_line_style</strong> => lpd_get_line_style
@@ -890,7 +890,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-get_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => lpd_get_line_width
@@ -1630,7 +1630,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-set_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>set_line_style</strong> => lpd_set_line_style
@@ -1715,7 +1715,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-set_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => lpd_set_line_width
@@ -2111,7 +2111,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/multiplot.html b/doc/type/multiplot.html
index 93cb101b..4c11eabb 100644
--- a/doc/type/multiplot.html
+++ b/doc/type/multiplot.html
@@ -74,7 +74,7 @@ <h1>multiplot
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.8% of total for derived types.</p>Including implementation: 307 statements,  2.0% of total for derived types.">28 statements</a>
+                 title="<p> 4.6% of total for derived types.</p>Including implementation: 448 statements,  2.7% of total for derived types.">49 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -114,7 +114,7 @@ <h4 class="card-header bg-primary text-white">Variables</h4>
       </a>
       <div id="vars-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/multiplot.html#variable-m_terminal~2">m_terminal</a>
+            <a class="list-group-item" href="../type/multiplot.html#variable-m_terminal">m_terminal</a>
         </div>
       </div>
     </div>
@@ -152,24 +152,38 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-draw~2">draw</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get~3">get</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-draw">draw</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get">get</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_bottom_margin">get_bottom_margin</a>
             <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_column_count">get_column_count</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_command_string~11">get_command_string</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_font_name~2">get_font_name</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_font_size~2">get_font_size</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_command_string~8">get_command_string</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_font_name">get_font_name</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_font_size">get_font_size</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_horizontal_spacing">get_horizontal_spacing</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_left_margin">get_left_margin</a>
             <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_plot_count">get_plot_count</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_right_margin">get_right_margin</a>
             <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_row_count">get_row_count</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_terminal~2">get_terminal</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_title~3">get_title</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-initialize~5">initialize</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-is_title_defined~3">is_title_defined</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-save_file~2">save_file</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set~2">set</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_font_name~2">set_font_name</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_font_size~2">set_font_size</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_title~3">set_title</a>
-            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_window_size~2">set_window_size</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_terminal">get_terminal</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_title">get_title</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_top_margin">get_top_margin</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_use_auto_generated_margins">get_use_auto_generated_margins</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-get_vertical_spacing">get_vertical_spacing</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-initialize~2">initialize</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-is_title_defined">is_title_defined</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-save_file">save_file</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set">set</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_bottom_margin">set_bottom_margin</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_font_name">set_font_name</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_font_size">set_font_size</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_horizontal_spacing">set_horizontal_spacing</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_left_margin">set_left_margin</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_right_margin">set_right_margin</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_title">set_title</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_top_margin">set_top_margin</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_use_auto_generated_margins">set_use_auto_generated_margins</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_vertical_spacing">set_vertical_spacing</a>
+            <a class="list-group-item" href="../type/multiplot.html#boundprocedure-set_window_size">set_window_size</a>
         </div>
       </div>
     </div>
@@ -202,7 +216,7 @@ <h2>Components</h2>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-m_terminal~2"></span>
+              <span class="anchor" id="variable-m_terminal"></span>
               class(<a href='terminal.html'>terminal</a>),
             </td>
               <td>public,</td>
@@ -256,7 +270,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~296"></span>
+              <span class="anchor" id="variable-this~112"></span>
               type(<a href='multiplot.html'>multiplot</a>),
             </td>
 <td>intent(inout)</td>
@@ -285,7 +299,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-draw~2"></span>
+      <span class="anchor" id="boundprocedure-draw"></span>
       <h3>
           procedure, public ::
   <strong>draw</strong> => mp_draw
@@ -371,7 +385,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get~3"></span>
+      <span class="anchor" id="boundprocedure-get"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => mp_get
@@ -459,6 +473,65 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_bottom_margin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_bottom_margin</strong> => mp_get_bottom_margin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function mp_get_bottom_margin(this) result(rst)  
+</h3>
+
+  <p>Gets the bottom margin.  The value exists in the range [0, 1].  This
+margin is a global margin for the multiplot.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The margin value.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_column_count"></span>
       <h3>
           procedure, public ::
@@ -517,7 +590,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~11"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~8"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => mp_get_command
@@ -575,7 +648,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~2"></span>
+      <span class="anchor" id="boundprocedure-get_font_name"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => mp_get_font
@@ -633,7 +706,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~2"></span>
+      <span class="anchor" id="boundprocedure-get_font_size"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => mp_get_font_size
@@ -691,20 +764,21 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_plot_count"></span>
+      <span class="anchor" id="boundprocedure-get_horizontal_spacing"></span>
       <h3>
           procedure, public ::
-  <strong>get_plot_count</strong> => mp_get_count
+  <strong>get_horizontal_spacing</strong> => mp_get_horizontal_spacing
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private pure function mp_get_count(this) result(x)  
+    private pure function mp_get_horizontal_spacing(this) result(rst)  
 </h3>
 
-  <p>Gets the total number of plots.</p>
+  <p>Gets the horizontal spacing between plots.  The value must be
+zero or positive.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -737,9 +811,9 @@ <h4>Arguments</h4>
 
     <h4>
     Return Value
-    <small>integer(kind=int32)</small>
+    <small>real(kind=real32)</small>
     </h4>
-    <p>The plot count.</p>
+    <p>The spacing value.</p>
 
         </li>
     </ul>
@@ -749,20 +823,21 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_row_count"></span>
+      <span class="anchor" id="boundprocedure-get_left_margin"></span>
       <h3>
           procedure, public ::
-  <strong>get_row_count</strong> => mp_get_rows
+  <strong>get_left_margin</strong> => mp_get_left_margin
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private pure function mp_get_rows(this) result(x)  
+    private pure function mp_get_left_margin(this) result(rst)  
 </h3>
 
-  <p>Gets the number of rows of plots.</p>
+  <p>Gets the left margin.  The value exists in the range [0, 1].  This
+margin is a global margin for the multiplot.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -795,9 +870,9 @@ <h4>Arguments</h4>
 
     <h4>
     Return Value
-    <small>integer(kind=int32)</small>
+    <small>real(kind=real32)</small>
     </h4>
-    <p>The row count.</p>
+    <p>The margin value.</p>
 
         </li>
     </ul>
@@ -807,20 +882,20 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_terminal~2"></span>
+      <span class="anchor" id="boundprocedure-get_plot_count"></span>
       <h3>
           procedure, public ::
-  <strong>get_terminal</strong> => mp_get_term
+  <strong>get_plot_count</strong> => mp_get_count
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private  function mp_get_term(this) result(x)  
+    private pure function mp_get_count(this) result(x)  
 </h3>
 
-  <p>Gets the GNUPLOT terminal object.</p>
+  <p>Gets the total number of plots.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -853,9 +928,9 @@ <h4>Arguments</h4>
 
     <h4>
     Return Value
-    <small>class(<a href='terminal.html'>terminal</a>), pointer</small>
+    <small>integer(kind=int32)</small>
     </h4>
-    <p>A pointer to the terminal object.</p>
+    <p>The plot count.</p>
 
         </li>
     </ul>
@@ -865,20 +940,21 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~3"></span>
+      <span class="anchor" id="boundprocedure-get_right_margin"></span>
       <h3>
           procedure, public ::
-  <strong>get_title</strong> => mp_get_title
+  <strong>get_right_margin</strong> => mp_get_right_margin
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private  function mp_get_title(this) result(x)  
+    private pure function mp_get_right_margin(this) result(rst)  
 </h3>
 
-  <p>Gets the multiplot's title.</p>
+  <p>Gets the right margin.  The value exists in the range [0, 1].  This
+margin is a global margin for the multiplot.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -911,9 +987,9 @@ <h4>Arguments</h4>
 
     <h4>
     Return Value
-    <small>character(len=:), allocatable</small>
+    <small>real(kind=real32)</small>
     </h4>
-    <p>The title.</p>
+    <p>The margin value.</p>
 
         </li>
     </ul>
@@ -923,20 +999,20 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-initialize~5"></span>
+      <span class="anchor" id="boundprocedure-get_row_count"></span>
       <h3>
           procedure, public ::
-  <strong>initialize</strong> => mp_init
+  <strong>get_row_count</strong> => mp_get_rows
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private  subroutine mp_init(this, m, n, term, width, height, fname, err)  
+    private pure function mp_get_rows(this) result(x)  
 </h3>
 
-  <p>Initializes the multiplot object.</p>
+  <p>Gets the number of rows of plots.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -954,7 +1030,7 @@ <h4>Arguments</h4>
               <span class="anchor" ></span>
               class(<a href='multiplot.html'>multiplot</a>),
             </td>
-<td>intent(inout)</td>
+<td>intent(in)</td>
               <td></td>            <td>
               
             </td>
@@ -964,138 +1040,14 @@ <h4>Arguments</h4>
                 <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
             </td>
         </tr>
-        <tr>
-            <td>
-              <span class="anchor" ></span>
-              integer(kind=int32),
-            </td>
-<td>intent(in)</td>
-              <td></td>            <td>
-              
-            </td>
-            <td>::</td>
-            <td><strong>m</strong></td>
-            <td>
-                <p>The number of rows of plots.</p>
-            </td>
-        </tr>
-        <tr>
-            <td>
-              <span class="anchor" ></span>
-              integer(kind=int32),
-            </td>
-<td>intent(in)</td>
-              <td></td>            <td>
-              
-            </td>
-            <td>::</td>
-            <td><strong>n</strong></td>
-            <td>
-                <p>The number of columns of plots.</p>
-            </td>
-        </tr>
-        <tr>
-            <td>
-              <span class="anchor" ></span>
-              integer(kind=int32),
-            </td>
-<td>intent(in),</td>
-              <td>optional</td>            <td>
-              
-            </td>
-            <td>::</td>
-            <td><strong>term</strong></td>
-            <td>
-                <p>An optional input that is used to define the terminal.  The 
-default terminal is a WXT terminal.  The acceptable inputs are:</p>
-<ul>
-<li>
-<p>GNUPLOT_TERMINAL_PNG</p>
-</li>
-<li>
-<p>GNUPLOT_TERMINAL_QT</p>
-</li>
-<li>
-<p>GNUPLOT_TERMINAL_WIN32</p>
-</li>
-<li>
-<p>GNUPLOT_TERMINAL_WXT</p>
-</li>
-<li>
-<p>GNUPLOT_TERMINAL_LATEX</p>
-</li>
-<li>
-<p>GNUPLOT_TERMINAL_SVG</p>
-</li>
-<li>
-<p>GNUPLOT_TERMINAL_PDF</p>
-</li>
-</ul>
-            </td>
-        </tr>
-        <tr>
-            <td>
-              <span class="anchor" ></span>
-              integer(kind=int32),
-            </td>
-<td>intent(in),</td>
-              <td>optional</td>            <td>
-              
-            </td>
-            <td>::</td>
-            <td><strong>width</strong></td>
-            <td>
-                <p>Optionally, the width of the plot window.</p>
-            </td>
-        </tr>
-        <tr>
-            <td>
-              <span class="anchor" ></span>
-              integer(kind=int32),
-            </td>
-<td>intent(in),</td>
-              <td>optional</td>            <td>
-              
-            </td>
-            <td>::</td>
-            <td><strong>height</strong></td>
-            <td>
-                <p>Optionally, the height of the plot window.</p>
-            </td>
-        </tr>
-        <tr>
-            <td>
-              <span class="anchor" ></span>
-              character(len=*),
-            </td>
-<td>intent(in),</td>
-              <td>optional</td>            <td>
-              
-            </td>
-            <td>::</td>
-            <td><strong>fname</strong></td>
-            <td>
-                <p>A filename to associate with terminals that print to file.</p>
-            </td>
-        </tr>
-        <tr>
-            <td>
-              <span class="anchor" ></span>
-              class(<a href='errors.html'>errors</a>),
-            </td>
-<td>intent(inout),</td>
-              <td>optional,</td>            <td>
-              target
-            </td>
-            <td>::</td>
-            <td><strong>err</strong></td>
-            <td>
-                <p>An error handling object.</p>
-            </td>
-        </tr>
     </tbody>
   </table>
 
+    <h4>
+    Return Value
+    <small>integer(kind=int32)</small>
+    </h4>
+    <p>The row count.</p>
 
         </li>
     </ul>
@@ -1105,21 +1057,20 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-is_title_defined~3"></span>
+      <span class="anchor" id="boundprocedure-get_terminal"></span>
       <h3>
           procedure, public ::
-  <strong>is_title_defined</strong> => mp_has_title
+  <strong>get_terminal</strong> => mp_get_term
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private pure function mp_has_title(this) result(x)  
+    private  function mp_get_term(this) result(x)  
 </h3>
 
-  <p>Gets a value determining if a title has been defined for the
-multiplot object.</p>
+  <p>Gets the GNUPLOT terminal object.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -1152,10 +1103,9 @@ <h4>Arguments</h4>
 
     <h4>
     Return Value
-    <small>logical</small>
+    <small>class(<a href='terminal.html'>terminal</a>), pointer</small>
     </h4>
-    <p>Returns true if a title has been defined for this multiplot; 
-else, returns false.</p>
+    <p>A pointer to the terminal object.</p>
 
         </li>
     </ul>
@@ -1165,20 +1115,498 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-save_file~2"></span>
+      <span class="anchor" id="boundprocedure-get_title"></span>
       <h3>
           procedure, public ::
-  <strong>save_file</strong> => mp_save
+  <strong>get_title</strong> => mp_get_title
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private  subroutine mp_save(this, fname, err)  
+    private  function mp_get_title(this) result(x)  
 </h3>
 
-  <p>Saves a GNUPLOT command file.</p>
+  <p>Gets the multiplot's title.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>character(len=:), allocatable</small>
+    </h4>
+    <p>The title.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_top_margin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_top_margin</strong> => mp_get_top_margin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function mp_get_top_margin(this) result(rst)  
+</h3>
+
+  <p>Gets the top margin.  The value exists in the range [0, 1].  This
+margin is a global margin for the multiplot.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The margin value.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_use_auto_generated_margins"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_use_auto_generated_margins</strong> => mp_get_use_auto_generated_margins
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function mp_get_use_auto_generated_margins(this) result(rst)  
+</h3>
+
+  <p>Gets a value determining if the global margins should be 
+automatically calculated.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>True if the margins should be automatically calculated; else,
+false to use manually defined margins.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_vertical_spacing"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_vertical_spacing</strong> => mp_get_vertical_spacing
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function mp_get_vertical_spacing(this) result(rst)  
+</h3>
+
+  <p>Gets the vertical spacing between plots.  The value must be
+zero or positive.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The spacing value.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-initialize~2"></span>
+      <h3>
+          procedure, public ::
+  <strong>initialize</strong> => mp_init
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_init(this, m, n, term, width, height, fname, err)  
+</h3>
+
+  <p>Initializes the multiplot object.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>m</strong></td>
+            <td>
+                <p>The number of rows of plots.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>n</strong></td>
+            <td>
+                <p>The number of columns of plots.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in),</td>
+              <td>optional</td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>term</strong></td>
+            <td>
+                <p>An optional input that is used to define the terminal.  The 
+default terminal is a WXT terminal.  The acceptable inputs are:</p>
+<ul>
+<li>
+<p>GNUPLOT_TERMINAL_PNG</p>
+</li>
+<li>
+<p>GNUPLOT_TERMINAL_QT</p>
+</li>
+<li>
+<p>GNUPLOT_TERMINAL_WIN32</p>
+</li>
+<li>
+<p>GNUPLOT_TERMINAL_WXT</p>
+</li>
+<li>
+<p>GNUPLOT_TERMINAL_LATEX</p>
+</li>
+<li>
+<p>GNUPLOT_TERMINAL_SVG</p>
+</li>
+<li>
+<p>GNUPLOT_TERMINAL_PDF</p>
+</li>
+</ul>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in),</td>
+              <td>optional</td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>width</strong></td>
+            <td>
+                <p>Optionally, the width of the plot window.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in),</td>
+              <td>optional</td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>height</strong></td>
+            <td>
+                <p>Optionally, the height of the plot window.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              character(len=*),
+            </td>
+<td>intent(in),</td>
+              <td>optional</td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>fname</strong></td>
+            <td>
+                <p>A filename to associate with terminals that print to file.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='errors.html'>errors</a>),
+            </td>
+<td>intent(inout),</td>
+              <td>optional,</td>            <td>
+              target
+            </td>
+            <td>::</td>
+            <td><strong>err</strong></td>
+            <td>
+                <p>An error handling object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-is_title_defined"></span>
+      <h3>
+          procedure, public ::
+  <strong>is_title_defined</strong> => mp_has_title
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function mp_has_title(this) result(x)  
+</h3>
+
+  <p>Gets a value determining if a title has been defined for the
+multiplot object.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>Returns true if a title has been defined for this multiplot; 
+else, returns false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-save_file"></span>
+      <h3>
+          procedure, public ::
+  <strong>save_file</strong> => mp_save
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_save(this, fname, err)  
+</h3>
+
+  <p>Saves a GNUPLOT command file.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -1209,21 +1637,21 @@ <h4>Arguments</h4>
         <tr>
             <td>
               <span class="anchor" ></span>
-              character(len=*),
-            </td>
-<td>intent(in)</td>
-              <td></td>            <td>
-              
-            </td>
-            <td>::</td>
-            <td><strong>fname</strong></td>
-            <td>
-                <p>The filename.</p>
-            </td>
-        </tr>
-        <tr>
-            <td>
-              <span class="anchor" ></span>
+              character(len=*),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>fname</strong></td>
+            <td>
+                <p>The filename.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
               class(<a href='errors.html'>errors</a>),
             </td>
 <td>intent(inout),</td>
@@ -1231,9 +1659,245 @@ <h4>Arguments</h4>
               target
             </td>
             <td>::</td>
-            <td><strong>err</strong></td>
+            <td><strong>err</strong></td>
+            <td>
+                <p>An error handling object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set"></span>
+      <h3>
+          procedure, public ::
+  <strong>set</strong> => mp_set
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_set(this, i, j, x)  
+</h3>
+
+  <p>Replaces the specified plot.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>i</strong></td>
+            <td>
+                <p>The row index of the plot to replace.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              integer(kind=int32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>j</strong></td>
+            <td>
+                <p>The column index of the plot to replace.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot.html'>plot</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The new plot.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_bottom_margin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_bottom_margin</strong> => mp_set_bottom_margin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_set_bottom_margin(this, x)  
+</h3>
+
+  <p>Sets the bottom margin.  The value exists in the range [0, 1].  This
+margin is a global margin for the multiplot.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The margin value.  This value will be clamped to the range
+[0, 1].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_font_name"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_font_name</strong> => mp_set_font
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_set_font(this, x)  
+</h3>
+
+  <p>Sets the name of the font used for plot text.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              character(len=*),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
             <td>
-                <p>An error handling object.</p>
+                <p>The font name.</p>
             </td>
         </tr>
     </tbody>
@@ -1248,20 +1912,20 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set~2"></span>
+      <span class="anchor" id="boundprocedure-set_font_size"></span>
       <h3>
           procedure, public ::
-  <strong>set</strong> => mp_set
+  <strong>set_font_size</strong> => mp_set_font_size
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private  subroutine mp_set(this, i, j, x)  
+    private  subroutine mp_set_font_size(this, x)  
 </h3>
 
-  <p>Replaces the specified plot.</p>
+  <p>Sets the size of the font used by the plot.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -1299,30 +1963,69 @@ <h4>Arguments</h4>
               
             </td>
             <td>::</td>
-            <td><strong>i</strong></td>
+            <td><strong>x</strong></td>
             <td>
-                <p>The row index of the plot to replace.</p>
+                <p>The font size.</p>
             </td>
         </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_horizontal_spacing"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_horizontal_spacing</strong> => mp_set_horizontal_spacing
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_set_horizontal_spacing(this, x)  
+</h3>
+
+  <p>Sets the horizontal spacing between plots.  The value must be
+zero or positive.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
         <tr>
             <td>
               <span class="anchor" ></span>
-              integer(kind=int32),
+              class(<a href='multiplot.html'>multiplot</a>),
             </td>
-<td>intent(in)</td>
+<td>intent(inout)</td>
               <td></td>            <td>
               
             </td>
             <td>::</td>
-            <td><strong>j</strong></td>
+            <td><strong>this</strong></td>
             <td>
-                <p>The column index of the plot to replace.</p>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
             </td>
         </tr>
         <tr>
             <td>
               <span class="anchor" ></span>
-              class(<a href='plot.html'>plot</a>),
+              real(kind=real32),
             </td>
 <td>intent(in)</td>
               <td></td>            <td>
@@ -1331,7 +2034,8 @@ <h4>Arguments</h4>
             <td>::</td>
             <td><strong>x</strong></td>
             <td>
-                <p>The new plot.</p>
+                <p>The spacing value.  This value will be clamped to zero if
+a negative value is supplied.</p>
             </td>
         </tr>
     </tbody>
@@ -1346,20 +2050,21 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~2"></span>
+      <span class="anchor" id="boundprocedure-set_left_margin"></span>
       <h3>
           procedure, public ::
-  <strong>set_font_name</strong> => mp_set_font
+  <strong>set_left_margin</strong> => mp_set_left_margin
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private  subroutine mp_set_font(this, x)  
+    private  subroutine mp_set_left_margin(this, x)  
 </h3>
 
-  <p>Sets the name of the font used for plot text.</p>
+  <p>Sets the left margin.  The value exists in the range [0, 1].  This
+margin is a global margin for the multiplot.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -1390,7 +2095,7 @@ <h4>Arguments</h4>
         <tr>
             <td>
               <span class="anchor" ></span>
-              character(len=*),
+              real(kind=real32),
             </td>
 <td>intent(in)</td>
               <td></td>            <td>
@@ -1399,7 +2104,8 @@ <h4>Arguments</h4>
             <td>::</td>
             <td><strong>x</strong></td>
             <td>
-                <p>The font name.</p>
+                <p>The margin value.  This value will be clamped to the range
+[0, 1].</p>
             </td>
         </tr>
     </tbody>
@@ -1414,20 +2120,21 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~2"></span>
+      <span class="anchor" id="boundprocedure-set_right_margin"></span>
       <h3>
           procedure, public ::
-  <strong>set_font_size</strong> => mp_set_font_size
+  <strong>set_right_margin</strong> => mp_set_right_margin
         
       </h3>
     </div>
     <ul class="list-group">
         <li class="list-group-item">
                   <h3>
-    private  subroutine mp_set_font_size(this, x)  
+    private  subroutine mp_set_right_margin(this, x)  
 </h3>
 
-  <p>Sets the size of the font used by the plot.</p>
+  <p>Sets the right margin.  The value exists in the range [0, 1].  This
+margin is a global margin for the multiplot.</p>
 
   <h4>Arguments</h4>
       <table class="table table-striped varlist">
@@ -1458,7 +2165,7 @@ <h4>Arguments</h4>
         <tr>
             <td>
               <span class="anchor" ></span>
-              integer(kind=int32),
+              real(kind=real32),
             </td>
 <td>intent(in)</td>
               <td></td>            <td>
@@ -1467,7 +2174,8 @@ <h4>Arguments</h4>
             <td>::</td>
             <td><strong>x</strong></td>
             <td>
-                <p>The font size.</p>
+                <p>The margin value.  This value will be clamped to the range
+[0, 1].</p>
             </td>
         </tr>
     </tbody>
@@ -1482,7 +2190,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~3"></span>
+      <span class="anchor" id="boundprocedure-set_title"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => mp_set_title
@@ -1550,7 +2258,217 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_window_size~2"></span>
+      <span class="anchor" id="boundprocedure-set_top_margin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_top_margin</strong> => mp_set_top_margin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_set_top_margin(this, x)  
+</h3>
+
+  <p>Sets the top margin.  The value exists in the range [0, 1].  This
+margin is a global margin for the multiplot.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The margin value.  This value will be clamped to the range
+[0, 1].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_use_auto_generated_margins"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_use_auto_generated_margins</strong> => mp_set_use_auto_generated_margins
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_set_use_auto_generated_margins(this, x)  
+</h3>
+
+  <p>Sets a value determining if the global margins should be 
+automatically calculated.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>True if the margins should be automatically calculated; else,
+false to use manually defined margins.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_vertical_spacing"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_vertical_spacing</strong> => mp_set_vertical_spacing
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine mp_set_vertical_spacing(this, x)  
+</h3>
+
+  <p>Sets the vertical spacing between plots.  The value must be
+zero or positive.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='multiplot.html'>multiplot</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The <a href="..\type\multiplot.html">multiplot</a> object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The spacing value.  This value will be clamped to zero if
+a negative value is supplied.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_window_size"></span>
       <h3>
           procedure, public ::
   <strong>set_window_size</strong> => mp_set_window_size
@@ -1648,7 +2566,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/name_value_pair.html b/doc/type/name_value_pair.html
index 8bd1afbb..f99eec4f 100644
--- a/doc/type/name_value_pair.html
+++ b/doc/type/name_value_pair.html
@@ -114,7 +114,7 @@ <h4 class="card-header bg-primary text-white">Variables</h4>
       </a>
       <div id="vars-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/name_value_pair.html#variable-name~6">name</a>
+            <a class="list-group-item" href="../type/name_value_pair.html#variable-name~5">name</a>
             <a class="list-group-item" href="../type/name_value_pair.html#variable-value">value</a>
         </div>
       </div>
@@ -164,7 +164,7 @@ <h2>Components</h2>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-name~6"></span>
+              <span class="anchor" id="variable-name~5"></span>
               character(len=:),
             </td>
               <td>public,</td>
@@ -221,7 +221,7 @@ <h2>Components</h2>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/parula_colormap.html b/doc/type/parula_colormap.html
index a2238b3f..265e5887 100644
--- a/doc/type/parula_colormap.html
+++ b/doc/type/parula_colormap.html
@@ -74,7 +74,7 @@ <h1>parula_colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.4% of total for derived types.</p>Including implementation: 102 statements,  0.6% of total for derived types.">4 statements</a>
+                 title="<p> 0.4% of total for derived types.</p>Including implementation: 178 statements,  1.1% of total for derived types.">4 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,15 +130,23 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
             <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_color_string~5">get_color_string</a>
-            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_command_string~14">get_command_string</a>
-            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
             <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
-            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_label~2">get_label</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_label">get_label</a>
             <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
-            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
             <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
-            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_label~2">set_label</a>
+            <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_label">set_label</a>
             <a class="list-group-item" href="../type/parula_colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
         </div>
       </div>
@@ -165,6 +173,122 @@ <h2>
         <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
     <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_color_string~5"></span>
       <h3>
@@ -224,7 +348,123 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cm_get_cmd
@@ -282,7 +522,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => cm_get_draw_border
@@ -400,7 +640,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~2"></span>
+      <span class="anchor" id="boundprocedure-get_label"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => cm_get_label
@@ -516,7 +756,279 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => cm_set_draw_border
@@ -654,7 +1166,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~2"></span>
+      <span class="anchor" id="boundprocedure-set_label"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => cm_set_label
@@ -805,7 +1317,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/pdf_terminal.html b/doc/type/pdf_terminal.html
index 0cd83247..be7bac12 100644
--- a/doc/type/pdf_terminal.html
+++ b/doc/type/pdf_terminal.html
@@ -74,7 +74,7 @@ <h1>pdf_terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.9% of total for derived types.</p>Including implementation: 168 statements,  1.1% of total for derived types.">9 statements</a>
+                 title="<p> 0.8% of total for derived types.</p>Including implementation: 168 statements,  1.0% of total for derived types.">9 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,22 +130,22 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_command_string~28">get_command_string</a>
+            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_command_string~23">get_command_string</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_filename">get_filename</a>
-            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
+            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_id_string~13">get_id_string</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_resolution">get_resolution</a>
-            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-get_window_width">get_window_width</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_filename">set_filename</a>
-            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_resolution">set_resolution</a>
-            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/pdf_terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -174,7 +174,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~28"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~23"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pdf_get_command_string
@@ -291,7 +291,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -349,7 +349,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -581,7 +581,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -823,7 +823,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -891,7 +891,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -1095,7 +1095,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1314,7 +1314,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot.html b/doc/type/plot.html
index d988d228..be02e4be 100644
--- a/doc/type/plot.html
+++ b/doc/type/plot.html
@@ -74,7 +74,7 @@ <h1>plot
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p>12.5% of total for derived types.</p>Including implementation: 795 statements,  5.1% of total for derived types.">127 statements</a>
+                 title="<p>12.0% of total for derived types.</p>Including implementation: 795 statements,  4.7% of total for derived types.">127 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,38 +130,38 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-clear_all~2">clear_all</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-clear_all_labels">clear_all_labels</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-clear_arrows">clear_arrows</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-draw">draw</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-draw~3">draw</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-free_resources">free_resources</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get">get</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get~5">get</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_arrow">get_arrow</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_arrow_count">get_arrow_count</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_axis_equal">get_axis_equal</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_border_line_width">get_border_line_width</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_bottom_margin">get_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_colormap">get_colormap</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_command_string~3">get_command_string</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_count~3">get_count</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_draw_border">get_draw_border</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_font_name">get_font_name</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_font_size">get_font_size</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_label">get_label</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_bottom_margin~2">get_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_colormap~2">get_colormap</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_command_string~27">get_command_string</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_count~5">get_count</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_font_name~4">get_font_name</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_font_size~4">get_font_size</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_label~3">get_label</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_label_count">get_label_count</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_left_margin">get_left_margin</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_left_margin~2">get_left_margin</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_legend">get_legend</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_right_margin">get_right_margin</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_right_margin~2">get_right_margin</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_show_colorbar">get_show_colorbar</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_show_gridlines">get_show_gridlines</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_show_x_major_grid">get_show_x_major_grid</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_show_x_minor_grid">get_show_x_minor_grid</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_show_y_major_grid">get_show_y_major_grid</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_show_y_minor_grid">get_show_y_minor_grid</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_terminal">get_terminal</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_terminal~3">get_terminal</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_tics_inward">get_tics_inward</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_title">get_title</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_top_margin">get_top_margin</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-get_top_margin~2">get_top_margin</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_x_major_grid_color">get_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_x_major_grid_line_style">get_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_x_major_grid_line_width">get_x_major_grid_line_width</a>
@@ -174,28 +174,28 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_y_minor_grid_color">get_y_minor_grid_color</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_y_minor_grid_line_style">get_y_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-get_y_minor_grid_line_width">get_y_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-initialize~3">initialize</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-is_title_defined">is_title_defined</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-initialize~7">initialize</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-is_title_defined~3">is_title_defined</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-plt_push_data">plt_push_data</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-pop">pop</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-pop_arrow">pop_arrow</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-pop_label">pop_label</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-push~3">push</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-push~5">push</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-push_arrow">push_arrow</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-push_label">push_label</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-save_file">save_file</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set">set</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-save_file~3">save_file</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set~3">set</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_arrow">set_arrow</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_axis_equal">set_axis_equal</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_border_line_width">set_border_line_width</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_bottom_margin">set_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_colormap">set_colormap</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_draw_border">set_draw_border</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_font_name">set_font_name</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_font_size">set_font_size</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_label">set_label</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_left_margin">set_left_margin</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_right_margin">set_right_margin</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_bottom_margin~2">set_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_colormap~2">set_colormap</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_font_name~4">set_font_name</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_label~3">set_label</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_left_margin~2">set_left_margin</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_right_margin~2">set_right_margin</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_show_colorbar">set_show_colorbar</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_show_gridlines">set_show_gridlines</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_show_x_major_grid">set_show_x_major_grid</a>
@@ -203,9 +203,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_show_y_major_grid">set_show_y_major_grid</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_show_y_minor_grid">set_show_y_minor_grid</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_tics_inward">set_tics_inward</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_title">set_title</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_top_margin">set_top_margin</a>
-            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_window_size">set_window_size</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_top_margin~2">set_top_margin</a>
+            <a class="list-group-item" href="../type/plot.html#boundprocedure-set_window_size~2">set_window_size</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_x_major_grid_color">set_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_x_major_grid_line_style">set_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot.html#boundprocedure-set_x_major_grid_line_width">set_x_major_grid_line_width</a>
@@ -245,7 +245,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all"></span>
+      <span class="anchor" id="boundprocedure-clear_all~2"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => plt_clear_all
@@ -404,7 +404,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-draw"></span>
+      <span class="anchor" id="boundprocedure-draw~3"></span>
       <h3>
           procedure, public ::
   <strong>draw</strong> => plt_draw
@@ -545,7 +545,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get"></span>
+      <span class="anchor" id="boundprocedure-get~5"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => plt_get
@@ -865,7 +865,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-get_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_bottom_margin</strong> => plt_get_bottom_margin
@@ -924,7 +924,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_colormap"></span>
+      <span class="anchor" id="boundprocedure-get_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>get_colormap</strong> => plt_get_colormap
@@ -983,7 +983,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~3"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~27"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => plt_get_cmd
@@ -1041,7 +1041,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~3"></span>
+      <span class="anchor" id="boundprocedure-get_count~5"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => plt_get_count
@@ -1099,7 +1099,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => plt_get_draw_border
@@ -1157,7 +1157,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => plt_get_font
@@ -1215,7 +1215,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => plt_get_font_size
@@ -1273,7 +1273,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label"></span>
+      <span class="anchor" id="boundprocedure-get_label~3"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => plt_get_label
@@ -1404,7 +1404,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_left_margin"></span>
+      <span class="anchor" id="boundprocedure-get_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_left_margin</strong> => plt_get_left_margin
@@ -1521,7 +1521,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_right_margin"></span>
+      <span class="anchor" id="boundprocedure-get_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_right_margin</strong> => plt_get_right_margin
@@ -1928,7 +1928,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_terminal"></span>
+      <span class="anchor" id="boundprocedure-get_terminal~3"></span>
       <h3>
           procedure, public ::
   <strong>get_terminal</strong> => plt_get_term
@@ -2045,7 +2045,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title"></span>
+      <span class="anchor" id="boundprocedure-get_title~4"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => plt_get_title
@@ -2103,7 +2103,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_top_margin"></span>
+      <span class="anchor" id="boundprocedure-get_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_top_margin</strong> => plt_get_top_margin
@@ -2926,7 +2926,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-initialize~3"></span>
+      <span class="anchor" id="boundprocedure-initialize~7"></span>
       <h3>
           procedure, public ::
   <strong>initialize</strong> => plt_init
@@ -3050,7 +3050,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-is_title_defined"></span>
+      <span class="anchor" id="boundprocedure-is_title_defined~3"></span>
       <h3>
           procedure, public ::
   <strong>is_title_defined</strong> => plt_has_title
@@ -3352,7 +3352,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-push~3"></span>
+      <span class="anchor" id="boundprocedure-push~5"></span>
       <h3>
           generic, public ::
   <strong>push</strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>
@@ -3601,7 +3601,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-save_file"></span>
+      <span class="anchor" id="boundprocedure-save_file~3"></span>
       <h3>
           procedure, public ::
   <strong>save_file</strong> => plt_save
@@ -3684,7 +3684,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set"></span>
+      <span class="anchor" id="boundprocedure-set~3"></span>
       <h3>
           procedure, public ::
   <strong>set</strong> => plt_set
@@ -3986,7 +3986,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-set_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_bottom_margin</strong> => plt_set_bottom_margin
@@ -4056,7 +4056,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_colormap"></span>
+      <span class="anchor" id="boundprocedure-set_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>set_colormap</strong> => plt_set_colormap
@@ -4141,7 +4141,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border"></span>
+      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => plt_set_draw_border
@@ -4209,7 +4209,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => plt_set_font
@@ -4277,7 +4277,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => plt_set_font_size
@@ -4348,7 +4348,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label"></span>
+      <span class="anchor" id="boundprocedure-set_label~3"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => plt_set_label
@@ -4431,7 +4431,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_left_margin"></span>
+      <span class="anchor" id="boundprocedure-set_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_left_margin</strong> => plt_set_left_margin
@@ -4501,7 +4501,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_right_margin"></span>
+      <span class="anchor" id="boundprocedure-set_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_right_margin</strong> => plt_set_right_margin
@@ -5048,7 +5048,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title"></span>
+      <span class="anchor" id="boundprocedure-set_title~4"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => plt_set_title
@@ -5116,7 +5116,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_top_margin"></span>
+      <span class="anchor" id="boundprocedure-set_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_top_margin</strong> => plt_set_top_margin
@@ -5186,7 +5186,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_window_size"></span>
+      <span class="anchor" id="boundprocedure-set_window_size~2"></span>
       <h3>
           procedure, public ::
   <strong>set_window_size</strong> => plt_set_window_size
@@ -6236,7 +6236,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_2d.html b/doc/type/plot_2d.html
index f4ba3c90..8e344568 100644
--- a/doc/type/plot_2d.html
+++ b/doc/type/plot_2d.html
@@ -74,7 +74,7 @@ <h1>plot_2d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 3.1% of total for derived types.</p>Including implementation: 966 statements,  6.1% of total for derived types.">32 statements</a>
+                 title="<p> 3.0% of total for derived types.</p>Including implementation: 966 statements,  5.8% of total for derived types.">32 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -141,30 +141,30 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-clear_all~2">clear_all</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-clear_all_labels">clear_all_labels</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-clear_arrows">clear_arrows</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-draw">draw</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-draw~3">draw</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-free_resources">free_resources</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get">get</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get~5">get</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_arrow">get_arrow</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_arrow_count">get_arrow_count</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_axis_equal">get_axis_equal</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_border_line_width">get_border_line_width</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_bottom_margin">get_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_colormap">get_colormap</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_command_string~2">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_count~3">get_count</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_draw_border">get_draw_border</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_font_name">get_font_name</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_font_size">get_font_size</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_bottom_margin~2">get_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_colormap~2">get_colormap</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_command_string~14">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_count~5">get_count</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_font_name~4">get_font_name</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_font_size~4">get_font_size</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_jitter_overlap">get_jitter_overlap</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_jitter_spread">get_jitter_spread</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_label">get_label</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_label~3">get_label</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_label_count">get_label_count</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_left_margin">get_left_margin</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_left_margin~2">get_left_margin</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_legend">get_legend</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_right_margin">get_right_margin</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_right_margin~2">get_right_margin</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_show_colorbar">get_show_colorbar</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_show_gridlines">get_show_gridlines</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_show_x_major_grid">get_show_x_major_grid</a>
@@ -172,13 +172,13 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_show_y_major_grid">get_show_y_major_grid</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_show_y_minor_grid">get_show_y_minor_grid</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_square_axes">get_square_axes</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_terminal">get_terminal</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_terminal~3">get_terminal</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_tics_inward">get_tics_inward</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_title">get_title</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_top_margin">get_top_margin</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_top_margin~2">get_top_margin</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_use_jittering">get_use_jittering</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_use_y2_axis">get_use_y2_axis</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_x_axis">get_x_axis</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_x_axis~2">get_x_axis</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_x_major_grid_color">get_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_x_major_grid_line_style">get_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_x_major_grid_line_width">get_x_major_grid_line_width</a>
@@ -186,38 +186,38 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_x_minor_grid_line_style">get_x_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_x_minor_grid_line_width">get_x_minor_grid_line_width</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y2_axis">get_y2_axis</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y_axis">get_y_axis</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y_axis~2">get_y_axis</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y_major_grid_color">get_y_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y_major_grid_line_style">get_y_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y_major_grid_line_width">get_y_major_grid_line_width</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y_minor_grid_color">get_y_minor_grid_color</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y_minor_grid_line_style">get_y_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-get_y_minor_grid_line_width">get_y_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-initialize~2">initialize</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-is_title_defined">is_title_defined</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-initialize~4">initialize</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-is_title_defined~3">is_title_defined</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-p2d_push_data">p2d_push_data</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-plt_push_data">plt_push_data</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-pop">pop</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-pop_arrow">pop_arrow</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-pop_label">pop_label</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-push~2">push</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-push~3">push</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-push_arrow">push_arrow</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-push_label">push_label</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-save_file">save_file</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set">set</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-save_file~3">save_file</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set~3">set</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_arrow">set_arrow</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_axis_equal">set_axis_equal</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_border_line_width">set_border_line_width</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_bottom_margin">set_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_colormap">set_colormap</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_draw_border">set_draw_border</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_font_name">set_font_name</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_font_size">set_font_size</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_bottom_margin~2">set_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_colormap~2">set_colormap</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_font_name~4">set_font_name</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_font_size~4">set_font_size</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_jitter_overlap">set_jitter_overlap</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_jitter_spread">set_jitter_spread</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_label">set_label</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_left_margin">set_left_margin</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_right_margin">set_right_margin</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_label~3">set_label</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_left_margin~2">set_left_margin</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_right_margin~2">set_right_margin</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_show_colorbar">set_show_colorbar</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_show_gridlines">set_show_gridlines</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_show_x_major_grid">set_show_x_major_grid</a>
@@ -226,12 +226,12 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_show_y_minor_grid">set_show_y_minor_grid</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_square_axes">set_square_axes</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_tics_inward">set_tics_inward</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_title">set_title</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_top_margin">set_top_margin</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_top_margin~2">set_top_margin</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_use_jittering">set_use_jittering</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_use_y2_axis">set_use_y2_axis</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_window_size">set_window_size</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_x_axis_title">set_x_axis_title</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_window_size~2">set_window_size</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_x_axis_title~2">set_x_axis_title</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_x_major_grid_color">set_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_x_major_grid_line_style">set_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_x_major_grid_line_width">set_x_major_grid_line_width</a>
@@ -239,7 +239,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_x_minor_grid_line_style">set_x_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_x_minor_grid_line_width">set_x_minor_grid_line_width</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_y2_axis_title">set_y2_axis_title</a>
-            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_y_axis_title">set_y_axis_title</a>
+            <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_y_axis_title~2">set_y_axis_title</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_y_major_grid_color">set_y_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_y_major_grid_line_style">set_y_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_2d.html#boundprocedure-set_y_major_grid_line_width">set_y_major_grid_line_width</a>
@@ -299,7 +299,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~48"></span>
+              <span class="anchor" id="variable-this~262"></span>
               type(<a href='plot_2d.html'>plot_2d</a>),
             </td>
 <td>intent(inout)</td>
@@ -328,7 +328,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all"></span>
+      <span class="anchor" id="boundprocedure-clear_all~2"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => plt_clear_all
@@ -487,7 +487,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-draw"></span>
+      <span class="anchor" id="boundprocedure-draw~3"></span>
       <h3>
           procedure, public ::
   <strong>draw</strong> => plt_draw
@@ -628,7 +628,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get"></span>
+      <span class="anchor" id="boundprocedure-get~5"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => plt_get
@@ -948,7 +948,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-get_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_bottom_margin</strong> => plt_get_bottom_margin
@@ -1007,7 +1007,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_colormap"></span>
+      <span class="anchor" id="boundprocedure-get_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>get_colormap</strong> => plt_get_colormap
@@ -1066,7 +1066,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~2"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => p2d_get_cmd
@@ -1124,7 +1124,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~3"></span>
+      <span class="anchor" id="boundprocedure-get_count~5"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => plt_get_count
@@ -1182,7 +1182,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => plt_get_draw_border
@@ -1240,7 +1240,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => plt_get_font
@@ -1298,7 +1298,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => plt_get_font_size
@@ -1472,7 +1472,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label"></span>
+      <span class="anchor" id="boundprocedure-get_label~3"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => plt_get_label
@@ -1603,7 +1603,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_left_margin"></span>
+      <span class="anchor" id="boundprocedure-get_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_left_margin</strong> => plt_get_left_margin
@@ -1720,7 +1720,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_right_margin"></span>
+      <span class="anchor" id="boundprocedure-get_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_right_margin</strong> => plt_get_right_margin
@@ -2187,7 +2187,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_terminal"></span>
+      <span class="anchor" id="boundprocedure-get_terminal~3"></span>
       <h3>
           procedure, public ::
   <strong>get_terminal</strong> => plt_get_term
@@ -2304,7 +2304,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title"></span>
+      <span class="anchor" id="boundprocedure-get_title~4"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => plt_get_title
@@ -2362,7 +2362,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_top_margin"></span>
+      <span class="anchor" id="boundprocedure-get_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_top_margin</strong> => plt_get_top_margin
@@ -2538,7 +2538,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x_axis"></span>
+      <span class="anchor" id="boundprocedure-get_x_axis~2"></span>
       <h3>
           procedure, public ::
   <strong>get_x_axis</strong> => p2d_get_x_axis
@@ -3036,7 +3036,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y_axis"></span>
+      <span class="anchor" id="boundprocedure-get_y_axis~2"></span>
       <h3>
           procedure, public ::
   <strong>get_y_axis</strong> => p2d_get_y_axis
@@ -3476,7 +3476,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-initialize~2"></span>
+      <span class="anchor" id="boundprocedure-initialize~4"></span>
       <h3>
           procedure, public ::
   <strong>initialize</strong> => p2d_init
@@ -3600,7 +3600,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-is_title_defined"></span>
+      <span class="anchor" id="boundprocedure-is_title_defined~3"></span>
       <h3>
           procedure, public ::
   <strong>is_title_defined</strong> => plt_has_title
@@ -4062,7 +4062,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-push~2"></span>
+      <span class="anchor" id="boundprocedure-push~3"></span>
       <h3>
           generic, public ::
   <strong>push</strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_2d.html#boundprocedure-p2d_push_data'>p2d_push_data</a>
@@ -4456,7 +4456,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-save_file"></span>
+      <span class="anchor" id="boundprocedure-save_file~3"></span>
       <h3>
           procedure, public ::
   <strong>save_file</strong> => plt_save
@@ -4539,7 +4539,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set"></span>
+      <span class="anchor" id="boundprocedure-set~3"></span>
       <h3>
           procedure, public ::
   <strong>set</strong> => plt_set
@@ -4841,7 +4841,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-set_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_bottom_margin</strong> => plt_set_bottom_margin
@@ -4911,7 +4911,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_colormap"></span>
+      <span class="anchor" id="boundprocedure-set_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>set_colormap</strong> => plt_set_colormap
@@ -4996,7 +4996,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border"></span>
+      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => plt_set_draw_border
@@ -5064,7 +5064,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => plt_set_font
@@ -5132,7 +5132,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => plt_set_font_size
@@ -5339,7 +5339,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label"></span>
+      <span class="anchor" id="boundprocedure-set_label~3"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => plt_set_label
@@ -5422,7 +5422,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_left_margin"></span>
+      <span class="anchor" id="boundprocedure-set_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_left_margin</strong> => plt_set_left_margin
@@ -5492,7 +5492,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_right_margin"></span>
+      <span class="anchor" id="boundprocedure-set_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_right_margin</strong> => plt_set_right_margin
@@ -6109,7 +6109,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title"></span>
+      <span class="anchor" id="boundprocedure-set_title~4"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => plt_set_title
@@ -6177,7 +6177,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_top_margin"></span>
+      <span class="anchor" id="boundprocedure-set_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_top_margin</strong> => plt_set_top_margin
@@ -6384,7 +6384,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_window_size"></span>
+      <span class="anchor" id="boundprocedure-set_window_size~2"></span>
       <h3>
           procedure, public ::
   <strong>set_window_size</strong> => plt_set_window_size
@@ -6467,7 +6467,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_x_axis_title"></span>
+      <span class="anchor" id="boundprocedure-set_x_axis_title~2"></span>
       <h3>
           procedure, public ::
   <strong>set_x_axis_title</strong> => p2d_set_x_axis_title
@@ -7045,7 +7045,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_y_axis_title"></span>
+      <span class="anchor" id="boundprocedure-set_y_axis_title~2"></span>
       <h3>
           procedure, public ::
   <strong>set_y_axis_title</strong> => p2d_set_y_axis_title
@@ -7638,7 +7638,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_3d.html b/doc/type/plot_3d.html
index 63ea78b7..20c69965 100644
--- a/doc/type/plot_3d.html
+++ b/doc/type/plot_3d.html
@@ -74,7 +74,7 @@ <h1>plot_3d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 5.5% of total for derived types.</p>Including implementation: 1102 statements,  7.0% of total for derived types.">56 statements</a>
+                 title="<p> 5.3% of total for derived types.</p>Including implementation: 1102 statements,  6.6% of total for derived types.">56 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -141,31 +141,31 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-clear_all~2">clear_all</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-clear_all_labels">clear_all_labels</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-clear_arrows">clear_arrows</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-draw">draw</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-draw~3">draw</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-free_resources">free_resources</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get">get</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get~5">get</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_arrow">get_arrow</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_arrow_count">get_arrow_count</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_axis_equal">get_axis_equal</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_azimuth">get_azimuth</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_border_line_width">get_border_line_width</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_bottom_margin">get_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_colormap">get_colormap</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_command_string~22">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_bottom_margin~2">get_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_colormap~2">get_colormap</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_command_string~5">get_command_string</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_coordinate_system">get_coordinate_system</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_count~3">get_count</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_draw_border">get_draw_border</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_count~5">get_count</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_draw_border~3">get_draw_border</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_elevation">get_elevation</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_font_name">get_font_name</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_font_size">get_font_size</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_label">get_label</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_font_name~4">get_font_name</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_font_size~4">get_font_size</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_label~3">get_label</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_label_count">get_label_count</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_left_margin">get_left_margin</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_left_margin~2">get_left_margin</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_legend">get_legend</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_right_margin">get_right_margin</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_right_margin~2">get_right_margin</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_show_colorbar">get_show_colorbar</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_show_gridlines">get_show_gridlines</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_show_x_major_grid">get_show_x_major_grid</a>
@@ -174,19 +174,19 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_show_y_minor_grid">get_show_y_minor_grid</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_show_z_major_grid">get_show_z_major_grid</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_show_z_minor_grid">get_show_z_minor_grid</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_terminal">get_terminal</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_terminal~3">get_terminal</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_tics_inward">get_tics_inward</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_title">get_title</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_top_margin">get_top_margin</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_top_margin~2">get_top_margin</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_use_map_view">get_use_map_view</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_x_axis~2">get_x_axis</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_x_axis">get_x_axis</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_x_major_grid_color">get_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_x_major_grid_line_style">get_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_x_major_grid_line_width">get_x_major_grid_line_width</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_x_minor_grid_color">get_x_minor_grid_color</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_x_minor_grid_line_style">get_x_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_x_minor_grid_line_width">get_x_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_y_axis~2">get_y_axis</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_y_axis">get_y_axis</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_y_major_grid_color">get_y_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_y_major_grid_line_style">get_y_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_y_major_grid_line_width">get_y_major_grid_line_width</a>
@@ -201,32 +201,32 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_z_minor_grid_color">get_z_minor_grid_color</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_z_minor_grid_line_style">get_z_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-get_z_minor_grid_line_width">get_z_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-initialize~7">initialize</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-is_title_defined">is_title_defined</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-initialize">initialize</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-is_title_defined~3">is_title_defined</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-p3d_push_data">p3d_push_data</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-plt_push_data">plt_push_data</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-pop">pop</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-pop_arrow">pop_arrow</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-pop_label">pop_label</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-push~5">push</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-push">push</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-push_arrow">push_arrow</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-push_label">push_label</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-save_file">save_file</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set">set</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-save_file~3">save_file</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set~3">set</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_arrow">set_arrow</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_axis_equal">set_axis_equal</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_azimuth">set_azimuth</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_border_line_width">set_border_line_width</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_bottom_margin">set_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_colormap">set_colormap</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_bottom_margin~2">set_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_colormap~2">set_colormap</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_coordinate_system">set_coordinate_system</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_draw_border">set_draw_border</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_draw_border~3">set_draw_border</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_elevation">set_elevation</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_font_name">set_font_name</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_font_size">set_font_size</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_label">set_label</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_left_margin">set_left_margin</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_right_margin">set_right_margin</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_font_name~4">set_font_name</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_label~3">set_label</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_left_margin~2">set_left_margin</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_right_margin~2">set_right_margin</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_show_colorbar">set_show_colorbar</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_show_gridlines">set_show_gridlines</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_show_x_major_grid">set_show_x_major_grid</a>
@@ -236,18 +236,18 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_show_z_major_grid">set_show_z_major_grid</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_show_z_minor_grid">set_show_z_minor_grid</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_tics_inward">set_tics_inward</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_title">set_title</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_top_margin">set_top_margin</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_top_margin~2">set_top_margin</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_use_map_view">set_use_map_view</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_window_size">set_window_size</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_x_axis_title~2">set_x_axis_title</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_window_size~2">set_window_size</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_x_axis_title">set_x_axis_title</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_x_major_grid_color">set_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_x_major_grid_line_style">set_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_x_major_grid_line_width">set_x_major_grid_line_width</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_x_minor_grid_color">set_x_minor_grid_color</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_x_minor_grid_line_style">set_x_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_x_minor_grid_line_width">set_x_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_y_axis_title~2">set_y_axis_title</a>
+            <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_y_axis_title">set_y_axis_title</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_y_major_grid_color">set_y_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_y_major_grid_line_style">set_y_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_3d.html#boundprocedure-set_y_major_grid_line_width">set_y_major_grid_line_width</a>
@@ -315,7 +315,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~454"></span>
+              <span class="anchor" id="variable-this~42"></span>
               type(<a href='plot_3d.html'>plot_3d</a>),
             </td>
 <td>intent(inout)</td>
@@ -344,7 +344,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all"></span>
+      <span class="anchor" id="boundprocedure-clear_all~2"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => plt_clear_all
@@ -503,7 +503,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-draw"></span>
+      <span class="anchor" id="boundprocedure-draw~3"></span>
       <h3>
           procedure, public ::
   <strong>draw</strong> => plt_draw
@@ -644,7 +644,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get"></span>
+      <span class="anchor" id="boundprocedure-get~5"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => plt_get
@@ -1022,7 +1022,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-get_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_bottom_margin</strong> => plt_get_bottom_margin
@@ -1081,7 +1081,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_colormap"></span>
+      <span class="anchor" id="boundprocedure-get_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>get_colormap</strong> => plt_get_colormap
@@ -1140,7 +1140,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~22"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~5"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => p3d_get_cmd
@@ -1267,7 +1267,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~3"></span>
+      <span class="anchor" id="boundprocedure-get_count~5"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => plt_get_count
@@ -1325,7 +1325,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => plt_get_draw_border
@@ -1441,7 +1441,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => plt_get_font
@@ -1499,7 +1499,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => plt_get_font_size
@@ -1557,7 +1557,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label"></span>
+      <span class="anchor" id="boundprocedure-get_label~3"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => plt_get_label
@@ -1688,7 +1688,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_left_margin"></span>
+      <span class="anchor" id="boundprocedure-get_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_left_margin</strong> => plt_get_left_margin
@@ -1805,7 +1805,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_right_margin"></span>
+      <span class="anchor" id="boundprocedure-get_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_right_margin</strong> => plt_get_right_margin
@@ -2328,7 +2328,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_terminal"></span>
+      <span class="anchor" id="boundprocedure-get_terminal~3"></span>
       <h3>
           procedure, public ::
   <strong>get_terminal</strong> => plt_get_term
@@ -2445,7 +2445,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title"></span>
+      <span class="anchor" id="boundprocedure-get_title~4"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => plt_get_title
@@ -2503,7 +2503,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_top_margin"></span>
+      <span class="anchor" id="boundprocedure-get_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_top_margin</strong> => plt_get_top_margin
@@ -2621,7 +2621,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x_axis~2"></span>
+      <span class="anchor" id="boundprocedure-get_x_axis"></span>
       <h3>
           procedure, public ::
   <strong>get_x_axis</strong> => p3d_get_x_axis
@@ -3061,7 +3061,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y_axis~2"></span>
+      <span class="anchor" id="boundprocedure-get_y_axis"></span>
       <h3>
           procedure, public ::
   <strong>get_y_axis</strong> => p3d_get_y_axis
@@ -4001,7 +4001,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-initialize~7"></span>
+      <span class="anchor" id="boundprocedure-initialize"></span>
       <h3>
           procedure, public ::
   <strong>initialize</strong> => p3d_init
@@ -4125,7 +4125,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-is_title_defined"></span>
+      <span class="anchor" id="boundprocedure-is_title_defined~3"></span>
       <h3>
           procedure, public ::
   <strong>is_title_defined</strong> => plt_has_title
@@ -4602,7 +4602,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-push~5"></span>
+      <span class="anchor" id="boundprocedure-push"></span>
       <h3>
           generic, public ::
   <strong>push</strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_3d.html#boundprocedure-p3d_push_data'>p3d_push_data</a>
@@ -5011,7 +5011,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-save_file"></span>
+      <span class="anchor" id="boundprocedure-save_file~3"></span>
       <h3>
           procedure, public ::
   <strong>save_file</strong> => plt_save
@@ -5094,7 +5094,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set"></span>
+      <span class="anchor" id="boundprocedure-set~3"></span>
       <h3>
           procedure, public ::
   <strong>set</strong> => plt_set
@@ -5464,7 +5464,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-set_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_bottom_margin</strong> => plt_set_bottom_margin
@@ -5534,7 +5534,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_colormap"></span>
+      <span class="anchor" id="boundprocedure-set_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>set_colormap</strong> => plt_set_colormap
@@ -5698,7 +5698,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border"></span>
+      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => plt_set_draw_border
@@ -5834,7 +5834,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => plt_set_font
@@ -5902,7 +5902,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => plt_set_font_size
@@ -5973,7 +5973,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label"></span>
+      <span class="anchor" id="boundprocedure-set_label~3"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => plt_set_label
@@ -6056,7 +6056,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_left_margin"></span>
+      <span class="anchor" id="boundprocedure-set_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_left_margin</strong> => plt_set_left_margin
@@ -6126,7 +6126,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_right_margin"></span>
+      <span class="anchor" id="boundprocedure-set_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_right_margin</strong> => plt_set_right_margin
@@ -6809,7 +6809,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title"></span>
+      <span class="anchor" id="boundprocedure-set_title~4"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => plt_set_title
@@ -6877,7 +6877,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_top_margin"></span>
+      <span class="anchor" id="boundprocedure-set_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_top_margin</strong> => plt_set_top_margin
@@ -7016,7 +7016,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_window_size"></span>
+      <span class="anchor" id="boundprocedure-set_window_size~2"></span>
       <h3>
           procedure, public ::
   <strong>set_window_size</strong> => plt_set_window_size
@@ -7099,7 +7099,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_x_axis_title~2"></span>
+      <span class="anchor" id="boundprocedure-set_x_axis_title"></span>
       <h3>
           procedure, public ::
   <strong>set_x_axis_title</strong> => p3d_set_x_axis_title
@@ -7609,7 +7609,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_y_axis_title~2"></span>
+      <span class="anchor" id="boundprocedure-set_y_axis_title"></span>
       <h3>
           procedure, public ::
   <strong>set_y_axis_title</strong> => p3d_set_y_axis_title
@@ -8782,7 +8782,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_arrow.html b/doc/type/plot_arrow.html
index d9458b6a..fcd749e6 100644
--- a/doc/type/plot_arrow.html
+++ b/doc/type/plot_arrow.html
@@ -74,7 +74,7 @@ <h1>plot_arrow
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 4.8% of total for derived types.</p>Including implementation: 285 statements,  1.8% of total for derived types.">49 statements</a>
+                 title="<p> 4.6% of total for derived types.</p>Including implementation: 285 statements,  1.7% of total for derived types.">49 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -131,16 +131,16 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_color">get_color</a>
-            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_command_string~15">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_command_string~20">get_command_string</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_head_angle">get_head_angle</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_head_back_angle">get_head_back_angle</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_head_fill">get_head_fill</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_head_location">get_head_location</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_head_size">get_head_size</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_head_type">get_head_type</a>
-            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_is_visible~3">get_is_visible</a>
-            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_line_style">get_line_style</a>
-            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_line_width~2">get_line_width</a>
+            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_is_visible~2">get_is_visible</a>
+            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_line_style~3">get_line_style</a>
+            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_line_width~4">get_line_width</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_move_to_front">get_move_to_front</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_tail_location">get_tail_location</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-get_use_default_size">get_use_default_size</a>
@@ -151,9 +151,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_head_location">set_head_location</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_head_size">set_head_size</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_head_type">set_head_type</a>
-            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_is_visible~3">set_is_visible</a>
-            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_line_style">set_line_style</a>
-            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_line_width~2">set_line_width</a>
+            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_is_visible~2">set_is_visible</a>
+            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_line_style~3">set_line_style</a>
+            <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_line_width~4">set_line_width</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_move_to_front">set_move_to_front</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_tail_location">set_tail_location</a>
             <a class="list-group-item" href="../type/plot_arrow.html#boundprocedure-set_use_default_size">set_use_default_size</a>
@@ -241,7 +241,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~15"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~20"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => par_get_cmd
@@ -649,7 +649,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_is_visible~3"></span>
+      <span class="anchor" id="boundprocedure-get_is_visible~2"></span>
       <h3>
           procedure, public ::
   <strong>get_is_visible</strong> => par_get_is_visible
@@ -707,7 +707,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_style"></span>
+      <span class="anchor" id="boundprocedure-get_line_style~3"></span>
       <h3>
           procedure, public ::
   <strong>get_line_style</strong> => par_get_line_style
@@ -765,7 +765,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width~2"></span>
+      <span class="anchor" id="boundprocedure-get_line_width~4"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => par_get_line_width
@@ -1657,7 +1657,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_is_visible~3"></span>
+      <span class="anchor" id="boundprocedure-set_is_visible~2"></span>
       <h3>
           procedure, public ::
   <strong>set_is_visible</strong> => par_set_is_visible
@@ -1725,7 +1725,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_style"></span>
+      <span class="anchor" id="boundprocedure-set_line_style~3"></span>
       <h3>
           procedure, public ::
   <strong>set_line_style</strong> => par_set_line_style
@@ -1811,7 +1811,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width~2"></span>
+      <span class="anchor" id="boundprocedure-set_line_width~4"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => par_set_line_width
@@ -2250,7 +2250,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_axis.html b/doc/type/plot_axis.html
index 5a97b591..7f3bb732 100644
--- a/doc/type/plot_axis.html
+++ b/doc/type/plot_axis.html
@@ -74,7 +74,7 @@ <h1>plot_axis
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 6.3% of total for derived types.</p>Including implementation: 403 statements,  2.6% of total for derived types.">64 statements</a>
+                 title="<p> 6.6% of total for derived types.</p>Including implementation: 434 statements,  2.6% of total for derived types.">70 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,8 +130,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_autoscale~2">get_autoscale</a>
-            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_command_string~9">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_auto_calculate_title_angle">get_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_autoscale">get_autoscale</a>
+            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_command_string~13">get_command_string</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_id_string~4">get_id_string</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_is_log_scaled">get_is_log_scaled</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_limits">get_limits</a>
@@ -145,6 +146,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_tic_label_x_offset">get_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_tic_label_y_offset">get_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_title~2">get_title</a>
+            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_title_angle">get_title_angle</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_title_x_offset">get_title_x_offset</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_title_y_offset">get_title_y_offset</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_use_default_tic_label_format">get_use_default_tic_label_format</a>
@@ -152,7 +154,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_zero_axis">get_zero_axis</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-get_zero_axis_line_width">get_zero_axis_line_width</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-is_title_defined~2">is_title_defined</a>
-            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_autoscale~2">set_autoscale</a>
+            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_auto_calculate_title_angle">set_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_autoscale">set_autoscale</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_is_log_scaled">set_is_log_scaled</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_limits">set_limits</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_manual_tic_labels">set_manual_tic_labels</a>
@@ -165,6 +168,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_tic_label_x_offset">set_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_tic_label_y_offset">set_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_title~2">set_title</a>
+            <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_title_angle">set_title_angle</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_title_x_offset">set_title_x_offset</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_title_y_offset">set_title_y_offset</a>
             <a class="list-group-item" href="../type/plot_axis.html#boundprocedure-set_use_default_tic_label_format">set_use_default_tic_label_format</a>
@@ -197,7 +201,67 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-get_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_auto_calculate_title_angle</strong> => pa_get_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_auto_calc_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>True if GNUPLOT should automatically calculate the title
+angle; else, false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>get_autoscale</strong> => pa_get_autoscale
@@ -257,7 +321,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~9"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~13"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pa_get_cmd_string
@@ -1098,6 +1162,64 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_title_angle</strong> => pa_get_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The axis title angle, in degrees.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_title_x_offset"></span>
       <h3>
           procedure, public ::
@@ -1508,7 +1630,77 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-set_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_auto_calculate_title_angle</strong> => pa_set_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_auto_calc_title_angle(this, x)  
+</h3>
+
+  <p>Sets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>Set to true to automatically calculate the title angle;
+else, set to false.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>set_autoscale</strong> => pa_set_autoscale
@@ -2430,6 +2622,74 @@ <h4>Arguments</h4>
   </table>
 
 
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_title_angle</strong> => pa_set_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_title_angle(this, x)  
+</h3>
+
+  <p>Sets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The axis title angle, in degrees.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
         </li>
     </ul>
   </div>
@@ -2865,7 +3125,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_bar.html b/doc/type/plot_bar.html
index ae3be876..a3a72425 100644
--- a/doc/type/plot_bar.html
+++ b/doc/type/plot_bar.html
@@ -74,7 +74,7 @@ <h1>plot_bar
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.3% of total for derived types.</p>Including implementation: 775 statements,  4.9% of total for derived types.">13 statements</a>
+                 title="<p> 1.2% of total for derived types.</p>Including implementation: 775 statements,  4.6% of total for derived types.">13 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,31 +130,31 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-clear_all~2">clear_all</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-clear_all_labels">clear_all_labels</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-clear_arrows">clear_arrows</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-draw">draw</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-draw~3">draw</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-free_resources">free_resources</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get">get</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get~5">get</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_arrow">get_arrow</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_arrow_count">get_arrow_count</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_axis_equal">get_axis_equal</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_bar_width">get_bar_width</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_border_line_width">get_border_line_width</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_bottom_margin">get_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_colormap">get_colormap</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_command_string~18">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_count~3">get_count</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_draw_border">get_draw_border</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_font_name">get_font_name</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_font_size">get_font_size</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_bottom_margin~2">get_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_colormap~2">get_colormap</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_command_string~19">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_count~5">get_count</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_font_name~4">get_font_name</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_font_size~4">get_font_size</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_jitter_overlap">get_jitter_overlap</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_jitter_spread">get_jitter_spread</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_label">get_label</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_label~3">get_label</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_label_count">get_label_count</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_left_margin">get_left_margin</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_left_margin~2">get_left_margin</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_legend">get_legend</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_right_margin">get_right_margin</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_right_margin~2">get_right_margin</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_show_colorbar">get_show_colorbar</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_show_gridlines">get_show_gridlines</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_show_x_major_grid">get_show_x_major_grid</a>
@@ -164,13 +164,13 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_spacing">get_spacing</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_square_axes">get_square_axes</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_stacked">get_stacked</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_terminal">get_terminal</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_terminal~3">get_terminal</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_tics_inward">get_tics_inward</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_title">get_title</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_top_margin">get_top_margin</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_top_margin~2">get_top_margin</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_use_jittering">get_use_jittering</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_use_y2_axis">get_use_y2_axis</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_x_axis">get_x_axis</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_x_axis~2">get_x_axis</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_x_major_grid_color">get_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_x_major_grid_line_style">get_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_x_major_grid_line_width">get_x_major_grid_line_width</a>
@@ -178,15 +178,15 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_x_minor_grid_line_style">get_x_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_x_minor_grid_line_width">get_x_minor_grid_line_width</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y2_axis">get_y2_axis</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y_axis">get_y_axis</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y_axis~2">get_y_axis</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y_major_grid_color">get_y_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y_major_grid_line_style">get_y_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y_major_grid_line_width">get_y_major_grid_line_width</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y_minor_grid_color">get_y_minor_grid_color</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y_minor_grid_line_style">get_y_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-get_y_minor_grid_line_width">get_y_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-initialize~2">initialize</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-is_title_defined">is_title_defined</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-initialize~4">initialize</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-is_title_defined~3">is_title_defined</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-p2d_push_data">p2d_push_data</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-plt_push_data">plt_push_data</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-pop">pop</a>
@@ -195,22 +195,22 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-push~6">push</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-push_arrow">push_arrow</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-push_label">push_label</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-save_file">save_file</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set">set</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-save_file~3">save_file</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set~3">set</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_arrow">set_arrow</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_axis_equal">set_axis_equal</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_bar_width">set_bar_width</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_border_line_width">set_border_line_width</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_bottom_margin">set_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_colormap">set_colormap</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_draw_border">set_draw_border</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_font_name">set_font_name</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_font_size">set_font_size</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_bottom_margin~2">set_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_colormap~2">set_colormap</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_font_name~4">set_font_name</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_font_size~4">set_font_size</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_jitter_overlap">set_jitter_overlap</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_jitter_spread">set_jitter_spread</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_label">set_label</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_left_margin">set_left_margin</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_right_margin">set_right_margin</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_label~3">set_label</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_left_margin~2">set_left_margin</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_right_margin~2">set_right_margin</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_show_colorbar">set_show_colorbar</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_show_gridlines">set_show_gridlines</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_show_x_major_grid">set_show_x_major_grid</a>
@@ -221,12 +221,12 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_square_axes">set_square_axes</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_stacked">set_stacked</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_tics_inward">set_tics_inward</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_title">set_title</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_top_margin">set_top_margin</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_top_margin~2">set_top_margin</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_use_jittering">set_use_jittering</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_use_y2_axis">set_use_y2_axis</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_window_size">set_window_size</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_x_axis_title">set_x_axis_title</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_window_size~2">set_window_size</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_x_axis_title~2">set_x_axis_title</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_x_major_grid_color">set_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_x_major_grid_line_style">set_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_x_major_grid_line_width">set_x_major_grid_line_width</a>
@@ -234,7 +234,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_x_minor_grid_line_style">set_x_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_x_minor_grid_line_width">set_x_minor_grid_line_width</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_y2_axis_title">set_y2_axis_title</a>
-            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_y_axis_title">set_y_axis_title</a>
+            <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_y_axis_title~2">set_y_axis_title</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_y_major_grid_color">set_y_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_y_major_grid_line_style">set_y_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_bar.html#boundprocedure-set_y_major_grid_line_width">set_y_major_grid_line_width</a>
@@ -268,7 +268,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all"></span>
+      <span class="anchor" id="boundprocedure-clear_all~2"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => plt_clear_all
@@ -427,7 +427,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-draw"></span>
+      <span class="anchor" id="boundprocedure-draw~3"></span>
       <h3>
           procedure, public ::
   <strong>draw</strong> => plt_draw
@@ -568,7 +568,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get"></span>
+      <span class="anchor" id="boundprocedure-get~5"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => plt_get
@@ -946,7 +946,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-get_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_bottom_margin</strong> => plt_get_bottom_margin
@@ -1005,7 +1005,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_colormap"></span>
+      <span class="anchor" id="boundprocedure-get_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>get_colormap</strong> => plt_get_colormap
@@ -1064,7 +1064,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~18"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~19"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pb_get_cmd
@@ -1122,7 +1122,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~3"></span>
+      <span class="anchor" id="boundprocedure-get_count~5"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => plt_get_count
@@ -1180,7 +1180,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => plt_get_draw_border
@@ -1238,7 +1238,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => plt_get_font
@@ -1296,7 +1296,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => plt_get_font_size
@@ -1470,7 +1470,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label"></span>
+      <span class="anchor" id="boundprocedure-get_label~3"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => plt_get_label
@@ -1601,7 +1601,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_left_margin"></span>
+      <span class="anchor" id="boundprocedure-get_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_left_margin</strong> => plt_get_left_margin
@@ -1718,7 +1718,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_right_margin"></span>
+      <span class="anchor" id="boundprocedure-get_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_right_margin</strong> => plt_get_right_margin
@@ -2302,7 +2302,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_terminal"></span>
+      <span class="anchor" id="boundprocedure-get_terminal~3"></span>
       <h3>
           procedure, public ::
   <strong>get_terminal</strong> => plt_get_term
@@ -2419,7 +2419,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title"></span>
+      <span class="anchor" id="boundprocedure-get_title~4"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => plt_get_title
@@ -2477,7 +2477,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_top_margin"></span>
+      <span class="anchor" id="boundprocedure-get_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_top_margin</strong> => plt_get_top_margin
@@ -2653,7 +2653,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x_axis"></span>
+      <span class="anchor" id="boundprocedure-get_x_axis~2"></span>
       <h3>
           procedure, public ::
   <strong>get_x_axis</strong> => p2d_get_x_axis
@@ -3151,7 +3151,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y_axis"></span>
+      <span class="anchor" id="boundprocedure-get_y_axis~2"></span>
       <h3>
           procedure, public ::
   <strong>get_y_axis</strong> => p2d_get_y_axis
@@ -3591,7 +3591,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-initialize~2"></span>
+      <span class="anchor" id="boundprocedure-initialize~4"></span>
       <h3>
           procedure, public ::
   <strong>initialize</strong> => p2d_init
@@ -3715,7 +3715,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-is_title_defined"></span>
+      <span class="anchor" id="boundprocedure-is_title_defined~3"></span>
       <h3>
           procedure, public ::
   <strong>is_title_defined</strong> => plt_has_title
@@ -4571,7 +4571,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-save_file"></span>
+      <span class="anchor" id="boundprocedure-save_file~3"></span>
       <h3>
           procedure, public ::
   <strong>save_file</strong> => plt_save
@@ -4654,7 +4654,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set"></span>
+      <span class="anchor" id="boundprocedure-set~3"></span>
       <h3>
           procedure, public ::
   <strong>set</strong> => plt_set
@@ -5025,7 +5025,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-set_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_bottom_margin</strong> => plt_set_bottom_margin
@@ -5095,7 +5095,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_colormap"></span>
+      <span class="anchor" id="boundprocedure-set_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>set_colormap</strong> => plt_set_colormap
@@ -5180,7 +5180,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border"></span>
+      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => plt_set_draw_border
@@ -5248,7 +5248,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => plt_set_font
@@ -5316,7 +5316,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => plt_set_font_size
@@ -5523,7 +5523,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label"></span>
+      <span class="anchor" id="boundprocedure-set_label~3"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => plt_set_label
@@ -5606,7 +5606,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_left_margin"></span>
+      <span class="anchor" id="boundprocedure-set_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_left_margin</strong> => plt_set_left_margin
@@ -5676,7 +5676,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_right_margin"></span>
+      <span class="anchor" id="boundprocedure-set_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_right_margin</strong> => plt_set_right_margin
@@ -6430,7 +6430,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title"></span>
+      <span class="anchor" id="boundprocedure-set_title~4"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => plt_set_title
@@ -6498,7 +6498,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_top_margin"></span>
+      <span class="anchor" id="boundprocedure-set_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_top_margin</strong> => plt_set_top_margin
@@ -6705,7 +6705,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_window_size"></span>
+      <span class="anchor" id="boundprocedure-set_window_size~2"></span>
       <h3>
           procedure, public ::
   <strong>set_window_size</strong> => plt_set_window_size
@@ -6788,7 +6788,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_x_axis_title"></span>
+      <span class="anchor" id="boundprocedure-set_x_axis_title~2"></span>
       <h3>
           procedure, public ::
   <strong>set_x_axis_title</strong> => p2d_set_x_axis_title
@@ -7366,7 +7366,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_y_axis_title"></span>
+      <span class="anchor" id="boundprocedure-set_y_axis_title~2"></span>
       <h3>
           procedure, public ::
   <strong>set_y_axis_title</strong> => p2d_set_y_axis_title
@@ -7959,7 +7959,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data.html b/doc/type/plot_data.html
index e442ba32..4aecacfc 100644
--- a/doc/type/plot_data.html
+++ b/doc/type/plot_data.html
@@ -74,7 +74,7 @@ <h1>plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.4% of total for derived types.</p>Including implementation: 61 statements,  0.4% of total for derived types.">14 statements</a>
+                 title="<p> 1.3% of total for derived types.</p>Including implementation: 61 statements,  0.4% of total for derived types.">14 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,11 +130,11 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data.html#boundprocedure-clear_data~11">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data.html#boundprocedure-clear_data~6">clear_data</a>
             <a class="list-group-item" href="../type/plot_data.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data.html#boundprocedure-get_command_string~12">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data.html#boundprocedure-get_data_string~11">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data.html#boundprocedure-get_command_string~7">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data.html#boundprocedure-get_data_string~6">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data.html#boundprocedure-get_name">get_name</a>
             <a class="list-group-item" href="../type/plot_data.html#boundprocedure-set_datablock_name">set_datablock_name</a>
@@ -165,7 +165,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -221,7 +221,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~11"></span>
+      <span class="anchor" id="boundprocedure-clear_data~6"></span>
       <h3>
           procedure(<a href='..\interface\pd_clear_action.html'>pd_clear_action</a>), public, deferred ::
   <strong>clear_data</strong>
@@ -328,7 +328,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~12"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~7"></span>
       <h3>
           procedure(<a href='..\interface\get_string_result.html'>get_string_result</a>), public, deferred ::
   <strong>get_command_string</strong>
@@ -386,7 +386,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~11"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~6"></span>
       <h3>
           procedure(<a href='..\interface\pd_get_string_result.html'>pd_get_string_result</a>), public, deferred ::
   <strong>get_data_string</strong>
@@ -713,7 +713,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_2d.html b/doc/type/plot_data_2d.html
index d775c41c..162ffe8c 100644
--- a/doc/type/plot_data_2d.html
+++ b/doc/type/plot_data_2d.html
@@ -74,7 +74,7 @@ <h1>plot_data_2d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.2% of total for derived types.</p>Including implementation: 574 statements,  3.7% of total for derived types.">22 statements</a>
+                 title="<p> 2.1% of total for derived types.</p>Including implementation: 574 statements,  3.4% of total for derived types.">22 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,50 +130,50 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-clear_data~2">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-clear_data~7">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-define_data~2">define_data</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-define_data~6">define_data</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_axes_string~2">get_axes_string</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_color_data~2">get_color_data</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_color_data">get_color_data</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_command_string~26">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_command_string~12">get_command_string</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_count~2">get_count</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_data_string~2">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_data_string~7">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_datablock_name">get_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_draw_against_y2">get_draw_against_y2</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_draw_against_y2~2">get_draw_against_y2</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_draw_impulses">get_draw_impulses</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_draw_line">get_draw_line</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_draw_markers">get_draw_markers</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_fill_curve">get_fill_curve</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_line_color">get_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_line_style~3">get_line_style</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_line_width~5">get_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_line_style~2">get_line_style</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_line_width~3">get_line_width</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_marker_frequency">get_marker_frequency</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_marker_scaling">get_marker_scaling</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_marker_style">get_marker_style</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_name">get_name</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_point_size_data~2">get_point_size_data</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_point_size_data">get_point_size_data</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_simplification_factor">get_simplification_factor</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_simplify_data">get_simplify_data</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_use_data_dependent_colors~2">get_use_data_dependent_colors</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_use_variable_size_points">get_use_variable_size_points</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_x~2">get_x</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_x_data~2">get_x_data</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_x_data">get_x_data</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_y~2">get_y</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_y_data~2">get_y_data</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-get_y_data">get_y_data</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-pd2d_set_data_1">pd2d_set_data_1</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-pd2d_set_data_2">pd2d_set_data_2</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_color_index">set_color_index</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_datablock_name">set_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_draw_against_y2">set_draw_against_y2</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_draw_against_y2~2">set_draw_against_y2</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_draw_impulses">set_draw_impulses</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_draw_line">set_draw_line</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_draw_markers">set_draw_markers</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_fill_curve">set_fill_curve</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_line_color">set_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_line_style~3">set_line_style</a>
-            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_line_width~5">set_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_line_style~2">set_line_style</a>
+            <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_line_width~3">set_line_width</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_marker_frequency">set_marker_frequency</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_marker_scaling">set_marker_scaling</a>
             <a class="list-group-item" href="../type/plot_data_2d.html#boundprocedure-set_marker_style">set_marker_style</a>
@@ -210,7 +210,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -266,7 +266,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~2"></span>
+      <span class="anchor" id="boundprocedure-clear_data~7"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => pd2d_clear_data
@@ -373,7 +373,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~2"></span>
+      <span class="anchor" id="boundprocedure-define_data~6"></span>
       <h3>
           generic, public ::
   <strong>define_data</strong> => <a href='D:\Code\fplot\doc\type\plot_data_2d.html#boundprocedure-pd2d_set_data_1'>pd2d_set_data_1</a>, <a href='D:\Code\fplot\doc\type\plot_data_2d.html#boundprocedure-pd2d_set_data_2'>pd2d_set_data_2</a>
@@ -630,7 +630,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_color_data~2"></span>
+      <span class="anchor" id="boundprocedure-get_color_data"></span>
       <h3>
           procedure, public ::
   <strong>get_color_data</strong> => pd2d_get_c_array
@@ -746,7 +746,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~26"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~12"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a>
@@ -864,7 +864,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~2"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~7"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => pd2d_get_data_cmd
@@ -982,7 +982,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_against_y2"></span>
+      <span class="anchor" id="boundprocedure-get_draw_against_y2~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_against_y2</strong> => pd2d_get_draw_against_y2
@@ -1332,7 +1332,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-get_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>get_line_style</strong> => lpd_get_line_style
@@ -1407,7 +1407,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-get_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => lpd_get_line_width
@@ -1738,7 +1738,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_point_size_data~2"></span>
+      <span class="anchor" id="boundprocedure-get_point_size_data"></span>
       <h3>
           procedure, public ::
   <strong>get_point_size_data</strong> => pd2d_get_ps_array
@@ -2105,7 +2105,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x_data~2"></span>
+      <span class="anchor" id="boundprocedure-get_x_data"></span>
       <h3>
           procedure, public ::
   <strong>get_x_data</strong> => pd2d_get_x_array
@@ -2236,7 +2236,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y_data~2"></span>
+      <span class="anchor" id="boundprocedure-get_y_data"></span>
       <h3>
           procedure, public ::
   <strong>get_y_data</strong> => pd2d_get_y_array
@@ -2644,7 +2644,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_against_y2"></span>
+      <span class="anchor" id="boundprocedure-set_draw_against_y2~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_against_y2</strong> => pd2d_set_draw_against_y2
@@ -3054,7 +3054,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-set_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>set_line_style</strong> => lpd_set_line_style
@@ -3139,7 +3139,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-set_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => lpd_set_line_width
@@ -3977,7 +3977,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_3d.html b/doc/type/plot_data_3d.html
index 34c41763..b15a6ca9 100644
--- a/doc/type/plot_data_3d.html
+++ b/doc/type/plot_data_3d.html
@@ -74,7 +74,7 @@ <h1>plot_data_3d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.0% of total for derived types.</p>Including implementation: 577 statements,  3.7% of total for derived types.">20 statements</a>
+                 title="<p> 1.9% of total for derived types.</p>Including implementation: 577 statements,  3.4% of total for derived types.">20 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,37 +130,37 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-clear_data">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-clear_data~8">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-define_data">define_data</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_axes_string">get_axes_string</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_color_data">get_color_data</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-define_data~7">define_data</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_axes_string~3">get_axes_string</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_color_data~2">get_color_data</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_command_string~26">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_count">get_count</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_data_string">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_command_string~12">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_count~3">get_count</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_data_string~8">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_draw_impulses">get_draw_impulses</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_draw_line">get_draw_line</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_draw_markers">get_draw_markers</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_fill_curve">get_fill_curve</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_line_color">get_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_line_style~3">get_line_style</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_line_width~5">get_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_line_style~2">get_line_style</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_line_width~3">get_line_width</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_marker_frequency">get_marker_frequency</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_marker_scaling">get_marker_scaling</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_marker_style">get_marker_style</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_name">get_name</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_point_size_data">get_point_size_data</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_point_size_data~2">get_point_size_data</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_simplification_factor">get_simplification_factor</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_simplify_data">get_simplify_data</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_use_data_dependent_colors~2">get_use_data_dependent_colors</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_use_variable_size_points">get_use_variable_size_points</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_x">get_x</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_x_data">get_x_data</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_y">get_y</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_y_data">get_y_data</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_x~3">get_x</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_x_data~2">get_x_data</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_y~3">get_y</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_y_data~2">get_y_data</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_z">get_z</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-get_z_data">get_z_data</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_color_index">set_color_index</a>
@@ -170,8 +170,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_draw_markers">set_draw_markers</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_fill_curve">set_fill_curve</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_line_color">set_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_line_style~3">set_line_style</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_line_width~5">set_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_line_style~2">set_line_style</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_line_width~3">set_line_width</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_marker_frequency">set_marker_frequency</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_marker_scaling">set_marker_scaling</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_marker_style">set_marker_style</a>
@@ -180,8 +180,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_simplify_data">set_simplify_data</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_use_data_dependent_colors">set_use_data_dependent_colors</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_use_variable_size_points">set_use_variable_size_points</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_x">set_x</a>
-            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_y">set_y</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_x~3">set_x</a>
+            <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_y~3">set_y</a>
             <a class="list-group-item" href="../type/plot_data_3d.html#boundprocedure-set_z">set_z</a>
         </div>
       </div>
@@ -209,7 +209,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -265,7 +265,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data"></span>
+      <span class="anchor" id="boundprocedure-clear_data~8"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => pd3d_clear_data
@@ -372,7 +372,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data"></span>
+      <span class="anchor" id="boundprocedure-define_data~7"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => pd3d_set_data_1
@@ -516,7 +516,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_axes_string"></span>
+      <span class="anchor" id="boundprocedure-get_axes_string~3"></span>
       <h3>
           procedure, public ::
   <strong>get_axes_string</strong> => pd3d_get_axes_cmd
@@ -575,7 +575,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_color_data"></span>
+      <span class="anchor" id="boundprocedure-get_color_data~2"></span>
       <h3>
           procedure, public ::
   <strong>get_color_data</strong> => pd3d_get_c_array
@@ -691,7 +691,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~26"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~12"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a>
@@ -751,7 +751,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count"></span>
+      <span class="anchor" id="boundprocedure-get_count~3"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => pd3d_get_data_count
@@ -809,7 +809,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~8"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => pd3d_get_data_cmd
@@ -1216,7 +1216,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-get_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>get_line_style</strong> => lpd_get_line_style
@@ -1291,7 +1291,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-get_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => lpd_get_line_width
@@ -1622,7 +1622,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_point_size_data"></span>
+      <span class="anchor" id="boundprocedure-get_point_size_data~2"></span>
       <h3>
           procedure, public ::
   <strong>get_point_size_data</strong> => pd3d_get_c_array
@@ -1916,7 +1916,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x"></span>
+      <span class="anchor" id="boundprocedure-get_x~3"></span>
       <h3>
           procedure, public ::
   <strong>get_x</strong> => pd3d_get_x_data
@@ -1989,7 +1989,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x_data"></span>
+      <span class="anchor" id="boundprocedure-get_x_data~2"></span>
       <h3>
           procedure, public ::
   <strong>get_x_data</strong> => pd3d_get_x_array
@@ -2047,7 +2047,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y"></span>
+      <span class="anchor" id="boundprocedure-get_y~3"></span>
       <h3>
           procedure, public ::
   <strong>get_y</strong> => pd3d_get_y_data
@@ -2120,7 +2120,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y_data"></span>
+      <span class="anchor" id="boundprocedure-get_y_data~2"></span>
       <h3>
           procedure, public ::
   <strong>get_y_data</strong> => pd3d_get_y_array
@@ -2786,7 +2786,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-set_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>set_line_style</strong> => lpd_set_line_style
@@ -2871,7 +2871,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-set_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => lpd_set_line_width
@@ -3528,7 +3528,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_x"></span>
+      <span class="anchor" id="boundprocedure-set_x~3"></span>
       <h3>
           procedure, public ::
   <strong>set_x</strong> => pd3d_set_x_data
@@ -3611,7 +3611,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_y"></span>
+      <span class="anchor" id="boundprocedure-set_y~3"></span>
       <h3>
           procedure, public ::
   <strong>set_y</strong> => pd3d_set_y_data
@@ -3792,7 +3792,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_bar.html b/doc/type/plot_data_bar.html
index ea6a67f1..aa6a4102 100644
--- a/doc/type/plot_data_bar.html
+++ b/doc/type/plot_data_bar.html
@@ -74,7 +74,7 @@ <h1>plot_data_bar
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 4.6% of total for derived types.</p>Including implementation: 631 statements,  4.0% of total for derived types.">47 statements</a>
+                 title="<p> 4.4% of total for derived types.</p>Including implementation: 631 statements,  3.8% of total for derived types.">47 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,29 +130,29 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-clear_data~12">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-clear_data~10">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-define_data~10">define_data</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get~5">get</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_axes_string~6">get_axes_string</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-define_data~9">define_data</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get~3">get</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_axes_string~5">get_axes_string</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_bar_color">get_bar_color</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_bar_per_label_count">get_bar_per_label_count</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_command_string~27">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_count~6">get_count</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_command_string~24">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_count~4">get_count</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_data">get_data</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_data_string~12">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_data_string~10">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_datablock_name">get_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_draw_against_y2~5">get_draw_against_y2</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_is_filled~2">get_is_filled</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_label~3">get_label</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_draw_against_y2~4">get_draw_against_y2</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_is_filled">get_is_filled</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_label~2">get_label</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_line_color">get_line_color</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_name">get_name</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_series_name">get_series_name</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_transparency~2">get_transparency</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-get_use_labels">get_use_labels</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set~3">set</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set~2">set</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_bar_color">set_bar_color</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_color_index">set_color_index</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_data_1">set_data_1</a>
@@ -162,9 +162,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_data_5">set_data_5</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_data_6">set_data_6</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_datablock_name">set_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_draw_against_y2~5">set_draw_against_y2</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_is_filled~2">set_is_filled</a>
-            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_label~3">set_label</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_draw_against_y2~4">set_draw_against_y2</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_is_filled">set_is_filled</a>
+            <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_label~2">set_label</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_line_color">set_line_color</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_name">set_name</a>
             <a class="list-group-item" href="../type/plot_data_bar.html#boundprocedure-set_series_name">set_series_name</a>
@@ -196,7 +196,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -252,7 +252,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~12"></span>
+      <span class="anchor" id="boundprocedure-clear_data~10"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => pdb_clear_data
@@ -359,7 +359,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~10"></span>
+      <span class="anchor" id="boundprocedure-define_data~9"></span>
       <h3>
           generic, public ::
   <strong>define_data</strong> => pdb_set_data_1, pdb_set_data_2, pdb_set_data_3, pdb_set_data_4, pdb_set_data_5, pdb_set_data_6
@@ -872,7 +872,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get~5"></span>
+      <span class="anchor" id="boundprocedure-get~3"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => pdb_get_data
@@ -960,7 +960,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_axes_string~6"></span>
+      <span class="anchor" id="boundprocedure-get_axes_string~5"></span>
       <h3>
           procedure, public ::
   <strong>get_axes_string</strong> => pdb_get_axes_cmd
@@ -1210,7 +1210,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~27"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~24"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pdb_get_cmd
@@ -1268,7 +1268,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~6"></span>
+      <span class="anchor" id="boundprocedure-get_count~4"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => pdb_get_count
@@ -1399,7 +1399,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~12"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~10"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => pdb_get_data_cmd
@@ -1516,7 +1516,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_against_y2~5"></span>
+      <span class="anchor" id="boundprocedure-get_draw_against_y2~4"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_against_y2</strong> => pdb_get_use_y2
@@ -1575,7 +1575,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_is_filled~2"></span>
+      <span class="anchor" id="boundprocedure-get_is_filled"></span>
       <h3>
           procedure, public ::
   <strong>get_is_filled</strong> => pdb_get_is_filled
@@ -1633,7 +1633,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~3"></span>
+      <span class="anchor" id="boundprocedure-get_label~2"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => pdb_get_label
@@ -2012,7 +2012,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set~3"></span>
+      <span class="anchor" id="boundprocedure-set~2"></span>
       <h3>
           procedure, public ::
   <strong>set</strong> => pdb_set_data
@@ -2918,7 +2918,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_against_y2~5"></span>
+      <span class="anchor" id="boundprocedure-set_draw_against_y2~4"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_against_y2</strong> => pdb_set_use_y2
@@ -2987,7 +2987,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_is_filled~2"></span>
+      <span class="anchor" id="boundprocedure-set_is_filled"></span>
       <h3>
           procedure, public ::
   <strong>set_is_filled</strong> => pdb_set_is_filled
@@ -3055,7 +3055,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~3"></span>
+      <span class="anchor" id="boundprocedure-set_label~2"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => pdb_set_label
@@ -3509,7 +3509,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_box_whisker.html b/doc/type/plot_data_box_whisker.html
index 731eeba3..92cd24ed 100644
--- a/doc/type/plot_data_box_whisker.html
+++ b/doc/type/plot_data_box_whisker.html
@@ -74,7 +74,7 @@ <h1>plot_data_box_whisker
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 4.0% of total for derived types.</p>Including implementation: 334 statements,  2.1% of total for derived types.">41 statements</a>
+                 title="<p> 3.9% of total for derived types.</p>Including implementation: 334 statements,  2.0% of total for derived types.">41 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,20 +130,20 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-clear_data~8">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-clear_data~4">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-define_data~7">define_data</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-define_data~4">define_data</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_box_fill_opacity">get_box_fill_opacity</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_box_width">get_box_width</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_command_string~19">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_data_string~8">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_command_string~6">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_data_string~4">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_datablock_name">get_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_draw_against_y2~4">get_draw_against_y2</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_draw_against_y2">get_draw_against_y2</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_fill_boxes">get_fill_boxes</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_line_color">get_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_line_width~3">get_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_line_width~2">get_line_width</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_midline_color">get_midline_color</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_midline_width">get_midline_width</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-get_name">get_name</a>
@@ -153,10 +153,10 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_box_width">set_box_width</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_color_index">set_color_index</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_datablock_name">set_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_draw_against_y2~4">set_draw_against_y2</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_draw_against_y2">set_draw_against_y2</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_fill_boxes">set_fill_boxes</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_line_color">set_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_line_width~3">set_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_line_width~2">set_line_width</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_midline_color">set_midline_color</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_midline_width">set_midline_width</a>
             <a class="list-group-item" href="../type/plot_data_box_whisker.html#boundprocedure-set_name">set_name</a>
@@ -188,7 +188,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -244,7 +244,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~8"></span>
+      <span class="anchor" id="boundprocedure-clear_data~4"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => pdbw_clear_data
@@ -351,7 +351,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~7"></span>
+      <span class="anchor" id="boundprocedure-define_data~4"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => pdbw_define_data_xstring
@@ -685,7 +685,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~19"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~6"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pdbw_get_cmd
@@ -743,7 +743,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~8"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~4"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => pdbw_get_data_cmd
@@ -860,7 +860,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_against_y2~4"></span>
+      <span class="anchor" id="boundprocedure-get_draw_against_y2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_against_y2</strong> => pdbw_get_use_y2
@@ -1036,7 +1036,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width~3"></span>
+      <span class="anchor" id="boundprocedure-get_line_width~2"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => pdbw_get_line_width
@@ -1659,7 +1659,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_against_y2~4"></span>
+      <span class="anchor" id="boundprocedure-set_draw_against_y2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_against_y2</strong> => pdbw_set_use_y2
@@ -1865,7 +1865,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width~3"></span>
+      <span class="anchor" id="boundprocedure-set_line_width~2"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => pdbw_set_line_width
@@ -2289,7 +2289,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_colored.html b/doc/type/plot_data_colored.html
index 056bb52f..098acc4e 100644
--- a/doc/type/plot_data_colored.html
+++ b/doc/type/plot_data_colored.html
@@ -74,7 +74,7 @@ <h1>plot_data_colored
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.1% of total for derived types.</p>Including implementation: 83 statements,  0.5% of total for derived types.">11 statements</a>
+                 title="<p> 1.0% of total for derived types.</p>Including implementation: 83 statements,  0.5% of total for derived types.">11 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,12 +130,12 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-clear_data~11">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-clear_data~6">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-get_command_string~12">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-get_data_string~11">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-get_command_string~7">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-get_data_string~6">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-get_line_color">get_line_color</a>
             <a class="list-group-item" href="../type/plot_data_colored.html#boundprocedure-get_name">get_name</a>
@@ -169,7 +169,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -225,7 +225,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~11"></span>
+      <span class="anchor" id="boundprocedure-clear_data~6"></span>
       <h3>
           procedure(<a href='..\interface\pd_clear_action.html'>pd_clear_action</a>), public, deferred ::
   <strong>clear_data</strong>
@@ -390,7 +390,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~12"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~7"></span>
       <h3>
           procedure(<a href='..\interface\get_string_result.html'>get_string_result</a>), public, deferred ::
   <strong>get_command_string</strong>
@@ -448,7 +448,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~11"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~6"></span>
       <h3>
           procedure(<a href='..\interface\pd_get_string_result.html'>pd_get_string_result</a>), public, deferred ::
   <strong>get_data_string</strong>
@@ -969,7 +969,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_error_bars.html b/doc/type/plot_data_error_bars.html
index fa385f82..d5541c64 100644
--- a/doc/type/plot_data_error_bars.html
+++ b/doc/type/plot_data_error_bars.html
@@ -74,7 +74,7 @@ <h1>plot_data_error_bars
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.8% of total for derived types.</p>Including implementation: 544 statements,  3.5% of total for derived types.">29 statements</a>
+                 title="<p> 2.7% of total for derived types.</p>Including implementation: 544 statements,  3.2% of total for derived types.">29 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,19 +130,19 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-clear_data~6">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-clear_data~13">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-define_x_error_data">define_x_error_data</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-define_xy_error_data">define_xy_error_data</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-define_y_error_data">define_y_error_data</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_command_string~13">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_count~4">get_count</a>
-            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_data_string~6">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_command_string~29">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_count~6">get_count</a>
+            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_data_string~13">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_line_color">get_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_line_width">get_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_line_width~5">get_line_width</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_name">get_name</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_plot_x_error_bars">get_plot_x_error_bars</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-get_plot_y_error_bars">get_plot_y_error_bars</a>
@@ -157,7 +157,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-set_color_index">set_color_index</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-set_datablock_name">set_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-set_line_color">set_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-set_line_width">set_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-set_line_width~5">set_line_width</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-set_name">set_name</a>
             <a class="list-group-item" href="../type/plot_data_error_bars.html#boundprocedure-set_use_error_box">set_use_error_box</a>
         </div>
@@ -186,7 +186,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -242,7 +242,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~6"></span>
+      <span class="anchor" id="boundprocedure-clear_data~13"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => pde_clear_data
@@ -1138,7 +1138,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~13"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~29"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pde_get_cmd
@@ -1196,7 +1196,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~4"></span>
+      <span class="anchor" id="boundprocedure-get_count~6"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => pde_get_count
@@ -1254,7 +1254,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~6"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~13"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => pde_get_data_cmd
@@ -1429,7 +1429,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width"></span>
+      <span class="anchor" id="boundprocedure-get_line_width~5"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => pde_get_line_width
@@ -2764,7 +2764,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width"></span>
+      <span class="anchor" id="boundprocedure-set_line_width~5"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => pde_set_line_width
@@ -2986,7 +2986,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_function.html b/doc/type/plot_data_function.html
index 33920278..e310c015 100644
--- a/doc/type/plot_data_function.html
+++ b/doc/type/plot_data_function.html
@@ -74,7 +74,7 @@ <h1>plot_data_function
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.0% of total for derived types.</p>Including implementation: 288 statements,  1.8% of total for derived types.">20 statements</a>
+                 title="<p> 1.9% of total for derived types.</p>Including implementation: 288 statements,  1.7% of total for derived types.">20 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,13 +130,13 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-clear_data~4">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-clear_data~2">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-define_data~4">define_data</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-define_data~2">define_data</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_command_string~6">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_data_string~4">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_command_string~3">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_data_string~2">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_draw_impulses">get_draw_impulses</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_draw_line">get_draw_line</a>
@@ -144,8 +144,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_function">get_function</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_function_name">get_function_name</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_line_color">get_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_line_style~3">get_line_style</a>
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_line_width~5">get_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_line_style~2">get_line_style</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_line_width~3">get_line_width</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_marker_frequency">get_marker_frequency</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_marker_scaling">get_marker_scaling</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-get_marker_style">get_marker_style</a>
@@ -159,8 +159,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_draw_line">set_draw_line</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_draw_markers">set_draw_markers</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_line_color">set_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_line_style~3">set_line_style</a>
-            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_line_width~5">set_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_line_style~2">set_line_style</a>
+            <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_line_width~3">set_line_width</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_marker_frequency">set_marker_frequency</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_marker_scaling">set_marker_scaling</a>
             <a class="list-group-item" href="../type/plot_data_function.html#boundprocedure-set_marker_style">set_marker_style</a>
@@ -194,7 +194,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -250,7 +250,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~4"></span>
+      <span class="anchor" id="boundprocedure-clear_data~2"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => pdf_clear_data
@@ -357,7 +357,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~4"></span>
+      <span class="anchor" id="boundprocedure-define_data~2"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => pdf_define_data
@@ -547,7 +547,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~6"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~3"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pdf_get_cmd
@@ -605,7 +605,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~4"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~2"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => pdf_get_data_cmd
@@ -1070,7 +1070,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-get_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>get_line_style</strong> => lpd_get_line_style
@@ -1145,7 +1145,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-get_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => lpd_get_line_width
@@ -2059,7 +2059,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-set_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>set_line_style</strong> => lpd_set_line_style
@@ -2144,7 +2144,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-set_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => lpd_set_line_width
@@ -2747,7 +2747,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_histogram.html b/doc/type/plot_data_histogram.html
index 51cb354e..736445a8 100644
--- a/doc/type/plot_data_histogram.html
+++ b/doc/type/plot_data_histogram.html
@@ -74,7 +74,7 @@ <h1>plot_data_histogram
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.3% of total for derived types.</p>Including implementation: 249 statements,  1.6% of total for derived types.">23 statements</a>
+                 title="<p> 2.2% of total for derived types.</p>Including implementation: 249 statements,  1.5% of total for derived types.">23 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,19 +130,19 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-clear_data~3">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-clear_data~11">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-define_data~3">define_data</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get~2">get</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_axes_string~3">get_axes_string</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-define_data~10">define_data</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get~4">get</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_axes_string~6">get_axes_string</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_bin_count">get_bin_count</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_command_string~5">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_data_string~3">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_command_string~26">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_data_string~11">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_datablock_name">get_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_draw_against_y2~2">get_draw_against_y2</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_is_filled">get_is_filled</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_draw_against_y2~5">get_draw_against_y2</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_is_filled~2">get_is_filled</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_line_color">get_line_color</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_maximum_value">get_maximum_value</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-get_minimum_value">get_minimum_value</a>
@@ -150,8 +150,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_bin_count">set_bin_count</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_color_index">set_color_index</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_datablock_name">set_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_draw_against_y2~2">set_draw_against_y2</a>
-            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_is_filled">set_is_filled</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_draw_against_y2~5">set_draw_against_y2</a>
+            <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_is_filled~2">set_is_filled</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_line_color">set_line_color</a>
             <a class="list-group-item" href="../type/plot_data_histogram.html#boundprocedure-set_name">set_name</a>
         </div>
@@ -180,7 +180,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -236,7 +236,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~3"></span>
+      <span class="anchor" id="boundprocedure-clear_data~11"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => pdh_clear_data
@@ -343,7 +343,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~3"></span>
+      <span class="anchor" id="boundprocedure-define_data~10"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => pdh_define_data
@@ -426,7 +426,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get~2"></span>
+      <span class="anchor" id="boundprocedure-get~4"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => pdh_get_bin_data
@@ -524,7 +524,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_axes_string~3"></span>
+      <span class="anchor" id="boundprocedure-get_axes_string~6"></span>
       <h3>
           procedure, public ::
   <strong>get_axes_string</strong> => pdh_get_axes_cmd
@@ -699,7 +699,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~5"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~26"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pdh_get_cmd
@@ -757,7 +757,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~3"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~11"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => pdh_get_data_cmd
@@ -874,7 +874,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_against_y2~2"></span>
+      <span class="anchor" id="boundprocedure-get_draw_against_y2~5"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_against_y2</strong> => pdh_get_use_y2
@@ -934,7 +934,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_is_filled"></span>
+      <span class="anchor" id="boundprocedure-get_is_filled~2"></span>
       <h3>
           procedure, public ::
   <strong>get_is_filled</strong> => pdh_get_is_filled
@@ -1430,7 +1430,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_against_y2~2"></span>
+      <span class="anchor" id="boundprocedure-set_draw_against_y2~5"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_against_y2</strong> => pdh_set_use_y2
@@ -1500,7 +1500,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_is_filled"></span>
+      <span class="anchor" id="boundprocedure-set_is_filled~2"></span>
       <h3>
           procedure, public ::
   <strong>set_is_filled</strong> => pdh_set_is_filled
@@ -1720,7 +1720,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_data_tri_2d.html b/doc/type/plot_data_tri_2d.html
index 318adb1a..a5fb1306 100644
--- a/doc/type/plot_data_tri_2d.html
+++ b/doc/type/plot_data_tri_2d.html
@@ -74,7 +74,7 @@ <h1>plot_data_tri_2d
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.6% of total for derived types.</p>Including implementation: 227 statements,  1.4% of total for derived types.">16 statements</a>
+                 title="<p> 1.5% of total for derived types.</p>Including implementation: 227 statements,  1.4% of total for derived types.">16 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,23 +130,23 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-clear_data~9">clear_data</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-clear_data~3">clear_data</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-define_data~8">define_data</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-define_data~3">define_data</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_command_string~20">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_data_string~9">get_data_string</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_command_string~4">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_data_string~3">get_data_string</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_line_color">get_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_line_style~2">get_line_style</a>
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_line_width~4">get_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_line_style">get_line_style</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_line_width">get_line_width</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-get_name">get_name</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-set_color_index">set_color_index</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-set_datablock_name">set_datablock_name</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-set_line_color">set_line_color</a>
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-set_line_style~2">set_line_style</a>
-            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-set_line_width~4">set_line_width</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-set_line_style">set_line_style</a>
+            <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-set_line_width">set_line_width</a>
             <a class="list-group-item" href="../type/plot_data_tri_2d.html#boundprocedure-set_name">set_name</a>
         </div>
       </div>
@@ -174,7 +174,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -230,7 +230,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~9"></span>
+      <span class="anchor" id="boundprocedure-clear_data~3"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => pdt2d_clear_data
@@ -337,7 +337,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~8"></span>
+      <span class="anchor" id="boundprocedure-define_data~3"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => pdt2d_define_data
@@ -463,7 +463,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~20"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~4"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pdt2d_get_cmd
@@ -521,7 +521,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~9"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~3"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => pdt2d_get_data_cmd
@@ -696,7 +696,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_style~2"></span>
+      <span class="anchor" id="boundprocedure-get_line_style"></span>
       <h3>
           procedure, public ::
   <strong>get_line_style</strong> => pdt2d_get_line_style
@@ -772,7 +772,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width~4"></span>
+      <span class="anchor" id="boundprocedure-get_line_width"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => pdt2d_get_line_width
@@ -1093,7 +1093,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_style~2"></span>
+      <span class="anchor" id="boundprocedure-set_line_style"></span>
       <h3>
           procedure, public ::
   <strong>set_line_style</strong> => pdt2d_set_line_style
@@ -1179,7 +1179,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width~4"></span>
+      <span class="anchor" id="boundprocedure-set_line_width"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => pdt2d_set_line_width
@@ -1330,7 +1330,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_label.html b/doc/type/plot_label.html
index 0cb818db..24138ebb 100644
--- a/doc/type/plot_label.html
+++ b/doc/type/plot_label.html
@@ -74,7 +74,7 @@ <h1>plot_label
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.6% of total for derived types.</p>Including implementation: 81 statements,  0.5% of total for derived types.">16 statements</a>
+                 title="<p> 1.5% of total for derived types.</p>Including implementation: 81 statements,  0.5% of total for derived types.">16 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -131,12 +131,12 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
             <a class="list-group-item" href="../type/plot_label.html#boundprocedure-get_angle">get_angle</a>
-            <a class="list-group-item" href="../type/plot_label.html#boundprocedure-get_command_string~4">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_label.html#boundprocedure-get_is_visible">get_is_visible</a>
+            <a class="list-group-item" href="../type/plot_label.html#boundprocedure-get_command_string~25">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_label.html#boundprocedure-get_is_visible~3">get_is_visible</a>
             <a class="list-group-item" href="../type/plot_label.html#boundprocedure-get_position">get_position</a>
             <a class="list-group-item" href="../type/plot_label.html#boundprocedure-get_text">get_text</a>
             <a class="list-group-item" href="../type/plot_label.html#boundprocedure-set_angle">set_angle</a>
-            <a class="list-group-item" href="../type/plot_label.html#boundprocedure-set_is_visible">set_is_visible</a>
+            <a class="list-group-item" href="../type/plot_label.html#boundprocedure-set_is_visible~3">set_is_visible</a>
             <a class="list-group-item" href="../type/plot_label.html#boundprocedure-set_position">set_position</a>
             <a class="list-group-item" href="../type/plot_label.html#boundprocedure-set_text">set_text</a>
         </div>
@@ -223,7 +223,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~4"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~25"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => lbl_get_cmd
@@ -281,7 +281,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_is_visible"></span>
+      <span class="anchor" id="boundprocedure-get_is_visible~3"></span>
       <h3>
           procedure, public ::
   <strong>get_is_visible</strong> => lbl_get_is_visible
@@ -524,7 +524,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_is_visible"></span>
+      <span class="anchor" id="boundprocedure-set_is_visible~3"></span>
       <h3>
           procedure, public ::
   <strong>set_is_visible</strong> => lbl_set_is_visible
@@ -744,7 +744,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_object.html b/doc/type/plot_object.html
index 4002a05b..6026ee67 100644
--- a/doc/type/plot_object.html
+++ b/doc/type/plot_object.html
@@ -130,7 +130,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_object.html#boundprocedure-get_command_string~12">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_object.html#boundprocedure-get_command_string~7">get_command_string</a>
         </div>
       </div>
     </div>
@@ -157,7 +157,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~12"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~7"></span>
       <h3>
           procedure(<a href='..\interface\get_string_result.html'>get_string_result</a>), public, deferred ::
   <strong>get_command_string</strong>
@@ -230,7 +230,7 @@ <h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/plot_polar.html b/doc/type/plot_polar.html
index a8a40714..1302bca1 100644
--- a/doc/type/plot_polar.html
+++ b/doc/type/plot_polar.html
@@ -74,7 +74,7 @@ <h1>plot_polar
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.2% of total for derived types.</p>Including implementation: 797 statements,  5.1% of total for derived types.">22 statements</a>
+                 title="<p> 2.1% of total for derived types.</p>Including implementation: 797 statements,  4.7% of total for derived types.">22 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -141,42 +141,42 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-clear_all~2">clear_all</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-clear_all_labels">clear_all_labels</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-clear_arrows">clear_arrows</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-draw">draw</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-draw~3">draw</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-free_resources">free_resources</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get">get</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get~5">get</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_arrow">get_arrow</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_arrow_count">get_arrow_count</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_autoscale">get_autoscale</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_autoscale~2">get_autoscale</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_axis_equal">get_axis_equal</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_border_line_width">get_border_line_width</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_bottom_margin">get_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_colormap">get_colormap</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_command_string">get_command_string</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_count~3">get_count</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_draw_border">get_draw_border</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_font_name">get_font_name</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_font_size">get_font_size</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_label">get_label</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_bottom_margin~2">get_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_colormap~2">get_colormap</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_command_string~18">get_command_string</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_count~5">get_count</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_font_name~4">get_font_name</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_font_size~4">get_font_size</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_label~3">get_label</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_label_count">get_label_count</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_left_margin">get_left_margin</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_left_margin~2">get_left_margin</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_legend">get_legend</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_radial_limits">get_radial_limits</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_right_margin">get_right_margin</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_right_margin~2">get_right_margin</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_show_colorbar">get_show_colorbar</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_show_gridlines">get_show_gridlines</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_show_x_major_grid">get_show_x_major_grid</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_show_x_minor_grid">get_show_x_minor_grid</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_show_y_major_grid">get_show_y_major_grid</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_show_y_minor_grid">get_show_y_minor_grid</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_terminal">get_terminal</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_terminal~3">get_terminal</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_theta_direction">get_theta_direction</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_theta_start_position">get_theta_start_position</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_tics_inward">get_tics_inward</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_title">get_title</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_top_margin">get_top_margin</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_top_margin~2">get_top_margin</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_x_major_grid_color">get_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_x_major_grid_line_style">get_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_x_major_grid_line_width">get_x_major_grid_line_width</a>
@@ -189,31 +189,31 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_y_minor_grid_color">get_y_minor_grid_color</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_y_minor_grid_line_style">get_y_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-get_y_minor_grid_line_width">get_y_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-initialize">initialize</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-is_title_defined">is_title_defined</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-initialize~6">initialize</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-is_title_defined~3">is_title_defined</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-plr_push_data">plr_push_data</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-plt_push_data">plt_push_data</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-pop">pop</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-pop_arrow">pop_arrow</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-pop_label">pop_label</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-push">push</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-push~4">push</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-push_arrow">push_arrow</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-push_label">push_label</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-save_file">save_file</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set">set</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-save_file~3">save_file</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set~3">set</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_arrow">set_arrow</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_autoscale">set_autoscale</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_autoscale~2">set_autoscale</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_axis_equal">set_axis_equal</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_border_line_width">set_border_line_width</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_bottom_margin">set_bottom_margin</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_colormap">set_colormap</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_draw_border">set_draw_border</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_font_name">set_font_name</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_font_size">set_font_size</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_label">set_label</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_left_margin">set_left_margin</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_bottom_margin~2">set_bottom_margin</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_colormap~2">set_colormap</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_font_name~4">set_font_name</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_label~3">set_label</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_left_margin~2">set_left_margin</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_radial_limits">set_radial_limits</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_right_margin">set_right_margin</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_right_margin~2">set_right_margin</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_show_colorbar">set_show_colorbar</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_show_gridlines">set_show_gridlines</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_show_x_major_grid">set_show_x_major_grid</a>
@@ -223,9 +223,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_theta_direction">set_theta_direction</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_theta_start_position">set_theta_start_position</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_tics_inward">set_tics_inward</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_title">set_title</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_top_margin">set_top_margin</a>
-            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_window_size">set_window_size</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_top_margin~2">set_top_margin</a>
+            <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_window_size~2">set_window_size</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_x_major_grid_color">set_x_major_grid_color</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_x_major_grid_line_style">set_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/plot_polar.html#boundprocedure-set_x_major_grid_line_width">set_x_major_grid_line_width</a>
@@ -291,7 +291,7 @@ <h4>Arguments</h4>
     <tbody>
         <tr>
             <td>
-              <span class="anchor" id="variable-this~35"></span>
+              <span class="anchor" id="variable-this~356"></span>
               type(<a href='plot_polar.html'>plot_polar</a>),
             </td>
 <td>intent(inout)</td>
@@ -320,7 +320,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all"></span>
+      <span class="anchor" id="boundprocedure-clear_all~2"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => plt_clear_all
@@ -479,7 +479,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-draw"></span>
+      <span class="anchor" id="boundprocedure-draw~3"></span>
       <h3>
           procedure, public ::
   <strong>draw</strong> => plt_draw
@@ -620,7 +620,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get"></span>
+      <span class="anchor" id="boundprocedure-get~5"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => plt_get
@@ -824,7 +824,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_autoscale"></span>
+      <span class="anchor" id="boundprocedure-get_autoscale~2"></span>
       <h3>
           procedure, public ::
   <strong>get_autoscale</strong> => plr_get_autoscale
@@ -999,7 +999,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-get_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_bottom_margin</strong> => plt_get_bottom_margin
@@ -1058,7 +1058,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_colormap"></span>
+      <span class="anchor" id="boundprocedure-get_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>get_colormap</strong> => plt_get_colormap
@@ -1117,7 +1117,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~18"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => plr_get_cmd
@@ -1175,7 +1175,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~3"></span>
+      <span class="anchor" id="boundprocedure-get_count~5"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => plt_get_count
@@ -1233,7 +1233,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => plt_get_draw_border
@@ -1291,7 +1291,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => plt_get_font
@@ -1349,7 +1349,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => plt_get_font_size
@@ -1407,7 +1407,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label"></span>
+      <span class="anchor" id="boundprocedure-get_label~3"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => plt_get_label
@@ -1538,7 +1538,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_left_margin"></span>
+      <span class="anchor" id="boundprocedure-get_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_left_margin</strong> => plt_get_left_margin
@@ -1714,7 +1714,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_right_margin"></span>
+      <span class="anchor" id="boundprocedure-get_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_right_margin</strong> => plt_get_right_margin
@@ -2121,7 +2121,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_terminal"></span>
+      <span class="anchor" id="boundprocedure-get_terminal~3"></span>
       <h3>
           procedure, public ::
   <strong>get_terminal</strong> => plt_get_term
@@ -2376,7 +2376,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title"></span>
+      <span class="anchor" id="boundprocedure-get_title~4"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => plt_get_title
@@ -2434,7 +2434,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_top_margin"></span>
+      <span class="anchor" id="boundprocedure-get_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_top_margin</strong> => plt_get_top_margin
@@ -3257,7 +3257,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-initialize"></span>
+      <span class="anchor" id="boundprocedure-initialize~6"></span>
       <h3>
           procedure, public ::
   <strong>initialize</strong> => plr_init
@@ -3381,7 +3381,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-is_title_defined"></span>
+      <span class="anchor" id="boundprocedure-is_title_defined~3"></span>
       <h3>
           procedure, public ::
   <strong>is_title_defined</strong> => plt_has_title
@@ -3843,7 +3843,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-push"></span>
+      <span class="anchor" id="boundprocedure-push~4"></span>
       <h3>
           generic, public ::
   <strong>push</strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_polar.html#boundprocedure-plr_push_data'>plr_push_data</a>
@@ -4237,7 +4237,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-save_file"></span>
+      <span class="anchor" id="boundprocedure-save_file~3"></span>
       <h3>
           procedure, public ::
   <strong>save_file</strong> => plt_save
@@ -4320,7 +4320,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set"></span>
+      <span class="anchor" id="boundprocedure-set~3"></span>
       <h3>
           procedure, public ::
   <strong>set</strong> => plt_set
@@ -4486,7 +4486,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_autoscale"></span>
+      <span class="anchor" id="boundprocedure-set_autoscale~2"></span>
       <h3>
           procedure, public ::
   <strong>set_autoscale</strong> => plr_set_autoscale
@@ -4691,7 +4691,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-set_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_bottom_margin</strong> => plt_set_bottom_margin
@@ -4761,7 +4761,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_colormap"></span>
+      <span class="anchor" id="boundprocedure-set_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>set_colormap</strong> => plt_set_colormap
@@ -4846,7 +4846,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border"></span>
+      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => plt_set_draw_border
@@ -4914,7 +4914,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => plt_set_font
@@ -4982,7 +4982,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => plt_set_font_size
@@ -5053,7 +5053,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label"></span>
+      <span class="anchor" id="boundprocedure-set_label~3"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => plt_set_label
@@ -5136,7 +5136,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_left_margin"></span>
+      <span class="anchor" id="boundprocedure-set_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_left_margin</strong> => plt_set_left_margin
@@ -5275,7 +5275,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_right_margin"></span>
+      <span class="anchor" id="boundprocedure-set_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_right_margin</strong> => plt_set_right_margin
@@ -5980,7 +5980,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title"></span>
+      <span class="anchor" id="boundprocedure-set_title~4"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => plt_set_title
@@ -6048,7 +6048,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_top_margin"></span>
+      <span class="anchor" id="boundprocedure-set_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_top_margin</strong> => plt_set_top_margin
@@ -6118,7 +6118,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_window_size"></span>
+      <span class="anchor" id="boundprocedure-set_window_size~2"></span>
       <h3>
           procedure, public ::
   <strong>set_window_size</strong> => plt_set_window_size
@@ -7168,7 +7168,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/png_terminal.html b/doc/type/png_terminal.html
index 4948c645..34a1c8fd 100644
--- a/doc/type/png_terminal.html
+++ b/doc/type/png_terminal.html
@@ -74,7 +74,7 @@ <h1>png_terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.5% of total for derived types.</p>Including implementation: 150 statements,  1.0% of total for derived types.">5 statements</a>
+                 title="<p> 0.5% of total for derived types.</p>Including implementation: 150 statements,  0.9% of total for derived types.">5 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,20 +130,20 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_command_string~24">get_command_string</a>
+            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_command_string~17">get_command_string</a>
             <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_filename">get_filename</a>
-            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
-            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_id_string~3">get_id_string</a>
+            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
+            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_id_string~12">get_id_string</a>
             <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
-            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-get_window_width">get_window_width</a>
             <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_filename">set_filename</a>
-            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
-            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/png_terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -172,7 +172,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~24"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~17"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => fterm_get_command_string
@@ -289,7 +289,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -347,7 +347,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -405,7 +405,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_id_string~3"></span>
+      <span class="anchor" id="boundprocedure-get_id_string~12"></span>
       <h3>
           procedure, public ::
   <strong>get_id_string</strong> => png_get_term_string
@@ -521,7 +521,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -763,7 +763,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -831,7 +831,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -967,7 +967,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1186,7 +1186,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/qt_terminal.html b/doc/type/qt_terminal.html
index 166719e0..519fae48 100644
--- a/doc/type/qt_terminal.html
+++ b/doc/type/qt_terminal.html
@@ -130,18 +130,18 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_command_string~23">get_command_string</a>
-            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
-            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_id_string~9">get_id_string</a>
+            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_command_string~16">get_command_string</a>
+            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
+            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_id_string~3">get_id_string</a>
             <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
-            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-get_window_width">get_window_width</a>
-            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
-            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/qt_terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -170,7 +170,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~23"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~16"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => term_get_command_string
@@ -229,7 +229,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -287,7 +287,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -345,7 +345,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_id_string~9"></span>
+      <span class="anchor" id="boundprocedure-get_id_string~3"></span>
       <h3>
           procedure, public ::
   <strong>get_id_string</strong> => qt_get_term_string
@@ -461,7 +461,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -635,7 +635,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -703,7 +703,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -839,7 +839,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1058,7 +1058,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/rainbow_colormap.html b/doc/type/rainbow_colormap.html
index 378e7710..cd188db4 100644
--- a/doc/type/rainbow_colormap.html
+++ b/doc/type/rainbow_colormap.html
@@ -74,7 +74,7 @@ <h1>rainbow_colormap
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.4% of total for derived types.</p>Including implementation: 92 statements,  0.6% of total for derived types.">4 statements</a>
+                 title="<p> 0.4% of total for derived types.</p>Including implementation: 168 statements,  1.0% of total for derived types.">4 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,15 +130,23 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
             <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_color_string~2">get_color_string</a>
-            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_command_string~14">get_command_string</a>
-            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_draw_border~3">get_draw_border</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
             <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
-            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_label~2">get_label</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_label">get_label</a>
             <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
-            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_draw_border~3">set_draw_border</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
             <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
-            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_label~2">set_label</a>
+            <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_label">set_label</a>
             <a class="list-group-item" href="../type/rainbow_colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
         </div>
       </div>
@@ -165,6 +173,122 @@ <h2>
         <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
     <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_color_string~2"></span>
       <h3>
@@ -224,7 +348,123 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~14"></span>
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => cm_get_cmd
@@ -282,7 +522,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => cm_get_draw_border
@@ -400,7 +640,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label~2"></span>
+      <span class="anchor" id="boundprocedure-get_label"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => cm_get_label
@@ -516,7 +756,279 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => cm_set_draw_border
@@ -654,7 +1166,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label~2"></span>
+      <span class="anchor" id="boundprocedure-set_label"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => cm_set_label
@@ -805,7 +1317,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/scatter_plot_data.html b/doc/type/scatter_plot_data.html
index c641d93b..699f106a 100644
--- a/doc/type/scatter_plot_data.html
+++ b/doc/type/scatter_plot_data.html
@@ -74,7 +74,7 @@ <h1>scatter_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.5% of total for derived types.</p>Including implementation: 295 statements,  1.9% of total for derived types.">25 statements</a>
+                 title="<p> 2.4% of total for derived types.</p>Including implementation: 295 statements,  1.8% of total for derived types.">25 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,22 +130,22 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-clear_data~11">clear_data</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-clear_data~6">clear_data</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_axes_string~5">get_axes_string</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_axes_string">get_axes_string</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_command_string~26">get_command_string</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_count~5">get_count</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_data_string~11">get_data_string</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_command_string~12">get_command_string</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_count">get_count</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_data_string~6">get_data_string</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_draw_impulses">get_draw_impulses</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_draw_line">get_draw_line</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_draw_markers">get_draw_markers</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_fill_curve">get_fill_curve</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_line_color">get_line_color</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_line_style~3">get_line_style</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_line_width~5">get_line_width</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_line_style~2">get_line_style</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_line_width~3">get_line_width</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_marker_frequency">get_marker_frequency</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_marker_scaling">get_marker_scaling</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_marker_style">get_marker_style</a>
@@ -154,8 +154,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_simplify_data">get_simplify_data</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_use_data_dependent_colors~2">get_use_data_dependent_colors</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_use_variable_size_points">get_use_variable_size_points</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_x~4">get_x</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_y~4">get_y</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_x">get_x</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-get_y">get_y</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_color_index">set_color_index</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_datablock_name">set_datablock_name</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_draw_impulses">set_draw_impulses</a>
@@ -163,8 +163,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_draw_markers">set_draw_markers</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_fill_curve">set_fill_curve</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_line_color">set_line_color</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_line_style~3">set_line_style</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_line_width~5">set_line_width</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_line_style~2">set_line_style</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_line_width~3">set_line_width</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_marker_frequency">set_marker_frequency</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_marker_scaling">set_marker_scaling</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_marker_style">set_marker_style</a>
@@ -173,8 +173,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_simplify_data">set_simplify_data</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_use_data_dependent_colors">set_use_data_dependent_colors</a>
             <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_use_variable_size_points">set_use_variable_size_points</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_x~4">set_x</a>
-            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_y~4">set_y</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_x">set_x</a>
+            <a class="list-group-item" href="../type/scatter_plot_data.html#boundprocedure-set_y">set_y</a>
         </div>
       </div>
     </div>
@@ -201,7 +201,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -257,7 +257,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~11"></span>
+      <span class="anchor" id="boundprocedure-clear_data~6"></span>
       <h3>
           procedure(<a href='..\interface\pd_clear_action.html'>pd_clear_action</a>), public, deferred ::
   <strong>clear_data</strong>
@@ -364,7 +364,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_axes_string~5"></span>
+      <span class="anchor" id="boundprocedure-get_axes_string"></span>
       <h3>
           procedure(<a href='..\interface\spd_get_string_result.html'>spd_get_string_result</a>), public, deferred ::
   <strong>get_axes_string</strong>
@@ -480,7 +480,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~26"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~12"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => <a href='D:\Code\fplot\doc\proc\spd_get_cmd.html'>spd_get_cmd</a>
@@ -540,7 +540,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~5"></span>
+      <span class="anchor" id="boundprocedure-get_count"></span>
       <h3>
           procedure(<a href='..\interface\spd_get_int_value.html'>spd_get_int_value</a>), public, deferred ::
   <strong>get_count</strong>
@@ -598,7 +598,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~11"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~6"></span>
       <h3>
           procedure(<a href='..\interface\pd_get_string_result.html'>pd_get_string_result</a>), public, deferred ::
   <strong>get_data_string</strong>
@@ -1005,7 +1005,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-get_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>get_line_style</strong> => lpd_get_line_style
@@ -1080,7 +1080,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-get_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>get_line_width</strong> => lpd_get_line_width
@@ -1647,7 +1647,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x~4"></span>
+      <span class="anchor" id="boundprocedure-get_x"></span>
       <h3>
           procedure(<a href='..\interface\spd_get_value.html'>spd_get_value</a>), public, deferred ::
   <strong>get_x</strong>
@@ -1720,7 +1720,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y~4"></span>
+      <span class="anchor" id="boundprocedure-get_y"></span>
       <h3>
           procedure(<a href='..\interface\spd_get_value.html'>spd_get_value</a>), public, deferred ::
   <strong>get_y</strong>
@@ -2270,7 +2270,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_style~3"></span>
+      <span class="anchor" id="boundprocedure-set_line_style~2"></span>
       <h3>
           procedure, public ::
   <strong>set_line_style</strong> => lpd_set_line_style
@@ -2355,7 +2355,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_line_width~5"></span>
+      <span class="anchor" id="boundprocedure-set_line_width~3"></span>
       <h3>
           procedure, public ::
   <strong>set_line_width</strong> => lpd_set_line_width
@@ -3012,7 +3012,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_x~4"></span>
+      <span class="anchor" id="boundprocedure-set_x"></span>
       <h3>
           procedure(<a href='..\interface\spd_set_value.html'>spd_set_value</a>), public, deferred ::
   <strong>set_x</strong>
@@ -3095,7 +3095,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_y~4"></span>
+      <span class="anchor" id="boundprocedure-set_y"></span>
       <h3>
           procedure(<a href='..\interface\spd_set_value.html'>spd_set_value</a>), public, deferred ::
   <strong>set_y</strong>
@@ -3193,7 +3193,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/spectral_colormap.html b/doc/type/spectral_colormap.html
new file mode 100644
index 00000000..feeeb9bf
--- /dev/null
+++ b/doc/type/spectral_colormap.html
@@ -0,0 +1,1350 @@
+<!-- -*- mode: jinja2 -*- -->
+
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+      <meta name="description" content="FPLOT is a Fortran library providing a convenient interface for plotting with GNUPLOT.">
+    <meta name="author" content="Jason Christopherson" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>spectral_colormap &ndash; FPLOT </title>
+
+    <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/css/bootstrap.min.css" rel="stylesheet"
+          integrity="sha384-1BmE4kWBq78iYhFldvKuhfTAU6auU8tT94WrHftjDbrCEXSU1oBoqyl2QvZ6jIW3" crossorigin="anonymous">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+      <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+
+    <script src="https://code.jquery.com/jquery-3.7.1.min.js" integrity="sha256-/JqT3SQfawRcv/BIHPThkBvs0OEvtFFmqPF/lYI/Cxo=" crossorigin="anonymous"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <div class="container-fluid mb-sm-4 mb-xl-2">
+      <nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top">
+        <div class="container">
+          <a class="navbar-brand" href="../index.html">FPLOT </a>
+          <button type="button" class="navbar-toggler" data-bs-toggle="collapse" data-bs-target="#navbar"
+                  aria-expanded="false" aria-controls="navbar" aria-label="Toggle navigation">
+                  <span class="navbar-toggler-icon">
+          </button>
+
+          <div id="navbar" class="navbar-collapse collapse">
+            <ul class="navbar-nav">
+                  <li class="nav-item">
+                    <a class="nav-link" href="../lists/files.html">Source Files</a>
+                  </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/modules.html">Modules</a>
+                </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/procedures.html">Procedures</a>
+                </li>
+                <li class="nav-item">
+                  <a class="nav-link" href="../lists/types.html">Derived Types</a>
+                </li>
+            </ul>
+              <div class="d-flex align-items-end flex-grow-1">
+                <form action="../search.html" role="search" class="ms-auto">
+                  <input type="text" class="form-control" aria-label="Search" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+                </form>
+              </div>
+          </div><!--/.nav-collapse -->
+        </div>
+      </nav>
+    </div>
+
+    <div class="container">
+  <div class="row">
+    <h1>spectral_colormap
+      <small>Derived Type</small>
+      
+    </h1>
+      <div class="container p-2 mb-4 bg-light border rounded-3">
+    <div class="row align-items-center justify-content-between" id="info-bar">
+      <div class="col">
+        <ul class="list-inline" style="margin-bottom:0px;display:inline">
+
+            <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
+              <a data-bs-toggle="tooltip"
+                 data-bs-placement="bottom" data-html="true"
+                 title="<p> 0.4% of total for derived types.</p>Including implementation: 177 statements,  1.1% of total for derived types.">4 statements</a>
+            </li>
+
+            <li class="list-inline-item" id="source-file">
+              <i class="fa fa-code"></i>
+              <a href="../src/fplot_colormap.f90"> Source File</a>
+            </li>
+        </ul>
+      </div>
+      <div class="col">
+        <nav aria-label="breadcrumb">
+          <ol class="breadcrumb justify-content-end mb-0">
+                <li class="breadcrumb-item"><a href='..\sourcefile\fplot_colormap.f90.html'>fplot_colormap.f90</a></li>
+                <li class="breadcrumb-item"><a href='..\module\fplot_colormap.html'>fplot_colormap</a></li>
+            <li class="breadcrumb-item active" aria-current="page">spectral_colormap</li>
+          </ol>
+        </nav>
+      </div>
+    </div>
+  </div>
+  <script>
+    $(function () {
+    $('[data-bs-toggle="tooltip"]').tooltip()
+    })
+  </script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+      <div id="sidebar">
+      <h3>Contents</h3>
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+  
+      <div class="card mb-4">
+      <a data-bs-toggle="collapse" href="#boundprocs-0"
+         aria-expanded="false" aria-controls="boundprocs-0">
+         <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
+      </a>
+      <div id="boundprocs-0" class="collapse">
+        <div class="list-group list-group-flush">
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_axes_origin">get_axes_origin</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_axes_size">get_axes_size</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_color_string~9">get_color_string</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_colorbar_length">get_colorbar_length</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_colorbar_thickness">get_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_command_string~21">get_command_string</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_draw_border~2">get_draw_border</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_horizontal">get_horizontal</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_label">get_label</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-get_show_tics">get_show_tics</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-set_axes_origin">set_axes_origin</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-set_axes_size">set_axes_size</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-set_colorbar_length">set_colorbar_length</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-set_colorbar_thickness">set_colorbar_thickness</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-set_draw_border~2">set_draw_border</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-set_horizontal">set_horizontal</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-set_label">set_label</a>
+            <a class="list-group-item" href="../type/spectral_colormap.html#boundprocedure-set_show_tics">set_show_tics</a>
+        </div>
+      </div>
+    </div>
+
+  
+  
+
+
+  </div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+      <h2>
+        type, public, extends(<a href='colormap.html'>colormap</a>) :: spectral_colormap</h2>
+    <p>Defines the spectral colormap available at 
+https://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal.</p>
+    <br>
+
+    
+
+
+      <section>
+        <h2>Type-Bound Procedures</h2>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_origin</strong> => cm_get_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_origin(this) result(rst)  
+</h3>
+
+  <p>Gets the relative x-y coordinates of the axes origin.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [x, y] coordinates, each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_axes_size</strong> => cm_get_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_axes_size(this) result(rst)  
+</h3>
+
+  <p>Gets the relative width and height of the axes.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32), dimension(2)</small>
+    </h4>
+    <p>The [width, height], each in [0.0, 1.0].</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_color_string~9"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_color_string</strong> => spcm_get_clr
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  function spcm_get_clr(this) result(x)  
+</h3>
+
+  <p>Gets the GNUPLOT string defining the color distribution.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='spectral_colormap.html'>spectral_colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The spectral_colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>character(len=:), allocatable</small>
+    </h4>
+    <p>The command string.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_length</strong> => cm_get_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_length(this) result(rst)  
+</h3>
+
+  <p>Gets the relative length of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The length in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_colorbar_thickness</strong> => cm_get_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_colorbar_thickness(this) result(rst)  
+</h3>
+
+  <p>Gets the relative thickness of the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_command_string</strong> => cm_get_cmd
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  function cm_get_cmd(this) result(x)  
+</h3>
+
+  <p>Gets the GNUPLOT command string to represent this colormap object.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>character(len=:), allocatable</small>
+    </h4>
+    <p>The command string.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_draw_border~2"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_draw_border</strong> => cm_get_draw_border
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_draw_border(this) result(rst)  
+</h3>
+
+  <p>Gets a logical value determining if the border should be drawn.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>Returns true if the border should be drawn; else, false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_horizontal"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_horizontal</strong> => cm_get_horizontal
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_horizontal(this) result(rst)  
+</h3>
+
+  <p>Gets a logical value determining if the colormap should be
+drawn horizontally and below the plot.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>Returns true if the colormap should be drawn horizontally;
+else, false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_label"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_label</strong> => cm_get_label
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_label(this) result(rst)  
+</h3>
+
+  <p>Gets the label to associate with the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>character(len=:), allocatable</small>
+    </h4>
+    <p>The label.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_show_tics"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_show_tics</strong> => cm_get_show_tics
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function cm_get_show_tics(this) result(rst)  
+</h3>
+
+  <p>Gets a logical value determining if the tic marks should be drawn.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>Returns true if the tic marks should be drawn; else, false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_origin"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_origin</strong> => cm_set_axes_origin
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_origin(this, x)  
+</h3>
+
+  <p>Sets the axes origin coordinates, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [x, y] coordinates.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_axes_size"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_axes_size</strong> => cm_set_axes_size
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_axes_size(this, x)  
+</h3>
+
+  <p>Sets the axes width and height, each clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in),</td>
+              <td></td>            <td>
+              dimension(2)
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested [width, height].</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_length"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_length</strong> => cm_set_colorbar_length
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_length(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar length, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested length; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_colorbar_thickness"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_colorbar_thickness</strong> => cm_set_colorbar_thickness
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_colorbar_thickness(this, x)  
+</h3>
+
+  <p>Sets the relative colorbar thickness, clamped to [0.0, 1.0].</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The requested thickness; 0 uses GNUPLOT's default.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_draw_border~2"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_draw_border</strong> => cm_set_draw_border
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_draw_border(this, x)  
+</h3>
+
+  <p>Sets a logical value determining if the border should be drawn.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>Set to true if the border should be drawn; else, false.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_horizontal"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_horizontal</strong> => cm_set_horizontal
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_horizontal(this, x)  
+</h3>
+
+  <p>Sets a logical value determining if the colormap should be
+drawn horizontally and below the plot.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>Set to true if the colormap should be drawn horizontally;
+else, false.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_label"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_label</strong> => cm_set_label
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_label(this, x)  
+</h3>
+
+  <p>Sets the label to associate with the colorbar.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              character(len=*),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The label.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_show_tics"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_show_tics</strong> => cm_set_show_tics
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine cm_set_show_tics(this, x)  
+</h3>
+
+  <p>Sets a logical value determining if the tic marks should be drawn.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='colormap.html'>colormap</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The colormap object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>Set to true if the tic marks should be drawn; else, false.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+      </section>
+
+    
+    </div>
+  </div>
+
+      <hr>
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+        <div class="row justify-content-between">
+          <div class="col"><p>FPLOT was developed by Jason Christopherson<br>&copy; 2026 
+</p>
+          </div>
+          <div class="col">
+            <p class="text-end">
+              Documentation generated by
+              <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
+ on 2026-10-01 05:57              </p>
+          </div>
+        </div>
+        <br>
+      </div> <!-- /container -->
+    </footer>
+
+    <!-- Bootstrap core JavaScript -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script src="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/js/bootstrap.bundle.min.js"
+            integrity="sha384-ka7Sk0Gln4gmtz2MlQnikT1wXgYsOg+OMhuP+IlRH9sENBO0LRn5q+8nbTov4+1p" crossorigin="anonymous"></script>    
+
+    <!-- MathJax JavaScript
+             ================================================== -->
+             <!-- Placed at the end of the document so the pages load faster -->
+        <script type="text/x-mathjax-config">
+          MathJax.Hub.Config({
+          TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+          jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+          extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+          });
+        </script>
+        <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+
+          <script src="../tipuesearch/tipuesearch_content.js"></script>
+          <script src="../tipuesearch/tipuesearch_set.js"></script>
+          <script src="../tipuesearch/tipuesearch.js"></script>
+
+  </body>
+</html>
\ No newline at end of file
diff --git a/doc/type/surface_plot.html b/doc/type/surface_plot.html
index 9dea6a7c..b7245eb1 100644
--- a/doc/type/surface_plot.html
+++ b/doc/type/surface_plot.html
@@ -74,7 +74,7 @@ <h1>surface_plot
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.8% of total for derived types.</p>Including implementation: 935 statements,  5.9% of total for derived types.">28 statements</a>
+                 title="<p> 2.6% of total for derived types.</p>Including implementation: 935 statements,  5.6% of total for derived types.">28 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,33 +130,33 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-clear_all~2">clear_all</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-clear_all_labels">clear_all_labels</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-clear_arrows">clear_arrows</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-draw">draw</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-draw~3">draw</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-free_resources">free_resources</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get">get</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get~5">get</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_allow_smoothing">get_allow_smoothing</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_arrow">get_arrow</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_arrow_count">get_arrow_count</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_axis_equal">get_axis_equal</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_azimuth">get_azimuth</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_border_line_width">get_border_line_width</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_bottom_margin">get_bottom_margin</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_colormap">get_colormap</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_command_string~8">get_command_string</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_bottom_margin~2">get_bottom_margin</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_colormap~2">get_colormap</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_command_string~10">get_command_string</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_coordinate_system">get_coordinate_system</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_count~3">get_count</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_draw_border">get_draw_border</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_count~5">get_count</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_draw_border~3">get_draw_border</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_elevation">get_elevation</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_font_name">get_font_name</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_font_size">get_font_size</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_label">get_label</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_font_name~4">get_font_name</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_font_size~4">get_font_size</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_label~3">get_label</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_label_count">get_label_count</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_left_margin">get_left_margin</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_left_margin~2">get_left_margin</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_legend">get_legend</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_light_intensity">get_light_intensity</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_right_margin">get_right_margin</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_right_margin~2">get_right_margin</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_show_colorbar">get_show_colorbar</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_show_contours">get_show_contours</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_show_gridlines">get_show_gridlines</a>
@@ -168,21 +168,21 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_show_z_major_grid">get_show_z_major_grid</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_show_z_minor_grid">get_show_z_minor_grid</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_specular_intensity">get_specular_intensity</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_terminal">get_terminal</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_terminal~3">get_terminal</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_tics_inward">get_tics_inward</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_title">get_title</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_top_margin">get_top_margin</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_top_margin~2">get_top_margin</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_transparency">get_transparency</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_use_lighting">get_use_lighting</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_use_map_view">get_use_map_view</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_x_axis~2">get_x_axis</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_x_axis">get_x_axis</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_x_major_grid_color">get_x_major_grid_color</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_x_major_grid_line_style">get_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_x_major_grid_line_width">get_x_major_grid_line_width</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_x_minor_grid_color">get_x_minor_grid_color</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_x_minor_grid_line_style">get_x_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_x_minor_grid_line_width">get_x_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_y_axis~2">get_y_axis</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_y_axis">get_y_axis</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_y_major_grid_color">get_y_major_grid_color</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_y_major_grid_line_style">get_y_major_grid_line_style</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_y_major_grid_line_width">get_y_major_grid_line_width</a>
@@ -197,34 +197,34 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_z_minor_grid_color">get_z_minor_grid_color</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_z_minor_grid_line_style">get_z_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-get_z_minor_grid_line_width">get_z_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-initialize~4">initialize</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-is_title_defined">is_title_defined</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-initialize~3">initialize</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-is_title_defined~3">is_title_defined</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-p3d_push_data">p3d_push_data</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-plt_push_data">plt_push_data</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-pop">pop</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-pop_arrow">pop_arrow</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-pop_label">pop_label</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-push~4">push</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-push~2">push</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-push_arrow">push_arrow</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-push_label">push_label</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-save_file">save_file</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set">set</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-save_file~3">save_file</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set~3">set</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_allow_smoothing">set_allow_smoothing</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_arrow">set_arrow</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_axis_equal">set_axis_equal</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_azimuth">set_azimuth</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_border_line_width">set_border_line_width</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_bottom_margin">set_bottom_margin</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_colormap">set_colormap</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_bottom_margin~2">set_bottom_margin</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_colormap~2">set_colormap</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_coordinate_system">set_coordinate_system</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_draw_border">set_draw_border</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_draw_border~3">set_draw_border</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_elevation">set_elevation</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_font_name">set_font_name</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_font_size">set_font_size</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_label">set_label</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_left_margin">set_left_margin</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_font_name~4">set_font_name</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_label~3">set_label</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_left_margin~2">set_left_margin</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_light_intensity">set_light_intensity</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_right_margin">set_right_margin</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_right_margin~2">set_right_margin</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_show_colorbar">set_show_colorbar</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_show_contours">set_show_contours</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_show_gridlines">set_show_gridlines</a>
@@ -237,20 +237,20 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_show_z_minor_grid">set_show_z_minor_grid</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_specular_intensity">set_specular_intensity</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_tics_inward">set_tics_inward</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_title">set_title</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_top_margin">set_top_margin</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_top_margin~2">set_top_margin</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_transparency">set_transparency</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_use_lighting">set_use_lighting</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_use_map_view">set_use_map_view</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_window_size">set_window_size</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_x_axis_title~2">set_x_axis_title</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_window_size~2">set_window_size</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_x_axis_title">set_x_axis_title</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_x_major_grid_color">set_x_major_grid_color</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_x_major_grid_line_style">set_x_major_grid_line_style</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_x_major_grid_line_width">set_x_major_grid_line_width</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_x_minor_grid_color">set_x_minor_grid_color</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_x_minor_grid_line_style">set_x_minor_grid_line_style</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_x_minor_grid_line_width">set_x_minor_grid_line_width</a>
-            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_y_axis_title~2">set_y_axis_title</a>
+            <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_y_axis_title">set_y_axis_title</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_y_major_grid_color">set_y_major_grid_color</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_y_major_grid_line_style">set_y_major_grid_line_style</a>
             <a class="list-group-item" href="../type/surface_plot.html#boundprocedure-set_y_major_grid_line_width">set_y_major_grid_line_width</a>
@@ -293,7 +293,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all"></span>
+      <span class="anchor" id="boundprocedure-clear_all~2"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => plt_clear_all
@@ -452,7 +452,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-draw"></span>
+      <span class="anchor" id="boundprocedure-draw~3"></span>
       <h3>
           procedure, public ::
   <strong>draw</strong> => plt_draw
@@ -593,7 +593,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get"></span>
+      <span class="anchor" id="boundprocedure-get~5"></span>
       <h3>
           procedure, public ::
   <strong>get</strong> => plt_get
@@ -1030,7 +1030,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-get_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_bottom_margin</strong> => plt_get_bottom_margin
@@ -1089,7 +1089,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_colormap"></span>
+      <span class="anchor" id="boundprocedure-get_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>get_colormap</strong> => plt_get_colormap
@@ -1148,7 +1148,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~8"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~10"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => surf_get_cmd
@@ -1276,7 +1276,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_count~3"></span>
+      <span class="anchor" id="boundprocedure-get_count~5"></span>
       <h3>
           procedure, public ::
   <strong>get_count</strong> => plt_get_count
@@ -1334,7 +1334,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_draw_border"></span>
+      <span class="anchor" id="boundprocedure-get_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>get_draw_border</strong> => plt_get_draw_border
@@ -1450,7 +1450,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => plt_get_font
@@ -1508,7 +1508,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => plt_get_font_size
@@ -1566,7 +1566,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_label"></span>
+      <span class="anchor" id="boundprocedure-get_label~3"></span>
       <h3>
           procedure, public ::
   <strong>get_label</strong> => plt_get_label
@@ -1697,7 +1697,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_left_margin"></span>
+      <span class="anchor" id="boundprocedure-get_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_left_margin</strong> => plt_get_left_margin
@@ -1873,7 +1873,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_right_margin"></span>
+      <span class="anchor" id="boundprocedure-get_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_right_margin</strong> => plt_get_right_margin
@@ -2573,7 +2573,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_terminal"></span>
+      <span class="anchor" id="boundprocedure-get_terminal~3"></span>
       <h3>
           procedure, public ::
   <strong>get_terminal</strong> => plt_get_term
@@ -2690,7 +2690,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title"></span>
+      <span class="anchor" id="boundprocedure-get_title~4"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => plt_get_title
@@ -2748,7 +2748,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_top_margin"></span>
+      <span class="anchor" id="boundprocedure-get_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>get_top_margin</strong> => plt_get_top_margin
@@ -2984,7 +2984,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x_axis~2"></span>
+      <span class="anchor" id="boundprocedure-get_x_axis"></span>
       <h3>
           procedure, public ::
   <strong>get_x_axis</strong> => p3d_get_x_axis
@@ -3424,7 +3424,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y_axis~2"></span>
+      <span class="anchor" id="boundprocedure-get_y_axis"></span>
       <h3>
           procedure, public ::
   <strong>get_y_axis</strong> => p3d_get_y_axis
@@ -4364,7 +4364,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-initialize~4"></span>
+      <span class="anchor" id="boundprocedure-initialize~3"></span>
       <h3>
           procedure, public ::
   <strong>initialize</strong> => surf_init
@@ -4488,7 +4488,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-is_title_defined"></span>
+      <span class="anchor" id="boundprocedure-is_title_defined~3"></span>
       <h3>
           procedure, public ::
   <strong>is_title_defined</strong> => plt_has_title
@@ -4965,7 +4965,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-push~4"></span>
+      <span class="anchor" id="boundprocedure-push~2"></span>
       <h3>
           generic, public ::
   <strong>push</strong> => <a href='D:\Code\fplot\doc\type\plot.html#boundprocedure-plt_push_data'>plt_push_data</a>, <a href='D:\Code\fplot\doc\type\plot_3d.html#boundprocedure-p3d_push_data'>p3d_push_data</a>, <a href='D:\Code\fplot\doc\type\surface_plot.html#boundprocedure-surf_push_data'>surf_push_data</a>
@@ -5457,7 +5457,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-save_file"></span>
+      <span class="anchor" id="boundprocedure-save_file~3"></span>
       <h3>
           procedure, public ::
   <strong>save_file</strong> => plt_save
@@ -5540,7 +5540,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set"></span>
+      <span class="anchor" id="boundprocedure-set~3"></span>
       <h3>
           procedure, public ::
   <strong>set</strong> => plt_set
@@ -5979,7 +5979,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_bottom_margin"></span>
+      <span class="anchor" id="boundprocedure-set_bottom_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_bottom_margin</strong> => plt_set_bottom_margin
@@ -6049,7 +6049,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_colormap"></span>
+      <span class="anchor" id="boundprocedure-set_colormap~2"></span>
       <h3>
           procedure, public ::
   <strong>set_colormap</strong> => plt_set_colormap
@@ -6213,7 +6213,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_draw_border"></span>
+      <span class="anchor" id="boundprocedure-set_draw_border~3"></span>
       <h3>
           procedure, public ::
   <strong>set_draw_border</strong> => plt_set_draw_border
@@ -6349,7 +6349,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => plt_set_font
@@ -6417,7 +6417,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => plt_set_font_size
@@ -6488,7 +6488,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_label"></span>
+      <span class="anchor" id="boundprocedure-set_label~3"></span>
       <h3>
           procedure, public ::
   <strong>set_label</strong> => plt_set_label
@@ -6571,7 +6571,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_left_margin"></span>
+      <span class="anchor" id="boundprocedure-set_left_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_left_margin</strong> => plt_set_left_margin
@@ -6711,7 +6711,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_right_margin"></span>
+      <span class="anchor" id="boundprocedure-set_right_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_right_margin</strong> => plt_set_right_margin
@@ -7602,7 +7602,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title"></span>
+      <span class="anchor" id="boundprocedure-set_title~4"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => plt_set_title
@@ -7670,7 +7670,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_top_margin"></span>
+      <span class="anchor" id="boundprocedure-set_top_margin~2"></span>
       <h3>
           procedure, public ::
   <strong>set_top_margin</strong> => plt_set_top_margin
@@ -7949,7 +7949,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_window_size"></span>
+      <span class="anchor" id="boundprocedure-set_window_size~2"></span>
       <h3>
           procedure, public ::
   <strong>set_window_size</strong> => plt_set_window_size
@@ -8032,7 +8032,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_x_axis_title~2"></span>
+      <span class="anchor" id="boundprocedure-set_x_axis_title"></span>
       <h3>
           procedure, public ::
   <strong>set_x_axis_title</strong> => p3d_set_x_axis_title
@@ -8542,7 +8542,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_y_axis_title~2"></span>
+      <span class="anchor" id="boundprocedure-set_y_axis_title"></span>
       <h3>
           procedure, public ::
   <strong>set_y_axis_title</strong> => p3d_set_y_axis_title
@@ -9813,7 +9813,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/surface_plot_data.html b/doc/type/surface_plot_data.html
index c81c784a..3e59db8a 100644
--- a/doc/type/surface_plot_data.html
+++ b/doc/type/surface_plot_data.html
@@ -74,7 +74,7 @@ <h1>surface_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.0% of total for derived types.</p>Including implementation: 245 statements,  1.6% of total for derived types.">20 statements</a>
+                 title="<p> 1.9% of total for derived types.</p>Including implementation: 245 statements,  1.5% of total for derived types.">20 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,24 +130,24 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-clear_data~5">clear_data</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-clear_data~12">clear_data</a>
             <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-define_data~5">define_data</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_command_string~10">get_command_string</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_data_string~5">get_data_string</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-define_data~11">define_data</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_command_string~28">get_command_string</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_data_string~12">get_data_string</a>
             <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_name">get_name</a>
             <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_size">get_size</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_use_wireframe">get_use_wireframe</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_x~3">get_x</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_y~3">get_y</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_use_wireframe~2">get_use_wireframe</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_x~4">get_x</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_y~4">get_y</a>
             <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-get_z~2">get_z</a>
             <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_datablock_name">set_datablock_name</a>
             <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_name">set_name</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_use_wireframe">set_use_wireframe</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_x~3">set_x</a>
-            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_y~3">set_y</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_use_wireframe~2">set_use_wireframe</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_x~4">set_x</a>
+            <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_y~4">set_y</a>
             <a class="list-group-item" href="../type/surface_plot_data.html#boundprocedure-set_z~2">set_z</a>
         </div>
       </div>
@@ -175,7 +175,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~5"></span>
+      <span class="anchor" id="boundprocedure-clear_data~12"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => surfd_clear_data
@@ -338,7 +338,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~5"></span>
+      <span class="anchor" id="boundprocedure-define_data~11"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => surfd_set_data_1
@@ -451,7 +451,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~10"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~28"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => surfd_get_cmd
@@ -510,7 +510,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~5"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~12"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => surfd_get_data_cmd
@@ -759,7 +759,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_use_wireframe"></span>
+      <span class="anchor" id="boundprocedure-get_use_wireframe~2"></span>
       <h3>
           procedure, public ::
   <strong>get_use_wireframe</strong> => surfd_get_wireframe
@@ -818,7 +818,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_x~3"></span>
+      <span class="anchor" id="boundprocedure-get_x~4"></span>
       <h3>
           procedure, public ::
   <strong>get_x</strong> => surfd_get_x
@@ -906,7 +906,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_y~3"></span>
+      <span class="anchor" id="boundprocedure-get_y~4"></span>
       <h3>
           procedure, public ::
   <strong>get_y</strong> => surfd_get_y
@@ -1219,7 +1219,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_use_wireframe"></span>
+      <span class="anchor" id="boundprocedure-set_use_wireframe~2"></span>
       <h3>
           procedure, public ::
   <strong>set_use_wireframe</strong> => surfd_set_wireframe
@@ -1288,7 +1288,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_x~3"></span>
+      <span class="anchor" id="boundprocedure-set_x~4"></span>
       <h3>
           procedure, public ::
   <strong>set_x</strong> => surfd_set_x
@@ -1386,7 +1386,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_y~3"></span>
+      <span class="anchor" id="boundprocedure-set_y~4"></span>
       <h3>
           procedure, public ::
   <strong>set_y</strong> => surfd_set_y
@@ -1597,7 +1597,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/svg_terminal.html b/doc/type/svg_terminal.html
index 19bbc377..a73a2068 100644
--- a/doc/type/svg_terminal.html
+++ b/doc/type/svg_terminal.html
@@ -74,7 +74,7 @@ <h1>svg_terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.5% of total for derived types.</p>Including implementation: 150 statements,  1.0% of total for derived types.">5 statements</a>
+                 title="<p> 0.5% of total for derived types.</p>Including implementation: 150 statements,  0.9% of total for derived types.">5 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,20 +130,20 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_command_string~24">get_command_string</a>
+            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_command_string~17">get_command_string</a>
             <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_filename">get_filename</a>
-            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
-            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_id_string~11">get_id_string</a>
+            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
+            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_id_string~2">get_id_string</a>
             <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
-            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-get_window_width">get_window_width</a>
             <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_filename">set_filename</a>
-            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
-            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/svg_terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -172,7 +172,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~24"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~17"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => fterm_get_command_string
@@ -289,7 +289,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -347,7 +347,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -405,7 +405,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_id_string~11"></span>
+      <span class="anchor" id="boundprocedure-get_id_string~2"></span>
       <h3>
           procedure, public ::
   <strong>get_id_string</strong> => svg_get_term_string
@@ -521,7 +521,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -763,7 +763,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -831,7 +831,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -967,7 +967,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1186,7 +1186,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/terminal.html b/doc/type/terminal.html
index f9fb656b..0538b781 100644
--- a/doc/type/terminal.html
+++ b/doc/type/terminal.html
@@ -74,7 +74,7 @@ <h1>terminal
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 2.5% of total for derived types.</p>Including implementation: 144 statements,  0.9% of total for derived types.">25 statements</a>
+                 title="<p> 2.4% of total for derived types.</p>Including implementation: 144 statements,  0.9% of total for derived types.">25 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,18 +130,18 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_command_string~23">get_command_string</a>
-            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
-            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_id_string~12">get_id_string</a>
+            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_command_string~16">get_command_string</a>
+            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
+            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_id_string~11">get_id_string</a>
             <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
-            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/terminal.html#boundprocedure-get_window_width">get_window_width</a>
-            <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
-            <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -170,7 +170,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~23"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~16"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => term_get_command_string
@@ -229,7 +229,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -287,7 +287,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -345,7 +345,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_id_string~12"></span>
+      <span class="anchor" id="boundprocedure-get_id_string~11"></span>
       <h3>
           procedure(<a href='..\interface\term_get_string_result.html'>term_get_string_result</a>), public, deferred ::
   <strong>get_id_string</strong>
@@ -461,7 +461,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -635,7 +635,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -703,7 +703,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -839,7 +839,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1058,7 +1058,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/tri_surface_plot_data.html b/doc/type/tri_surface_plot_data.html
index e1aaf419..b0b3b6fd 100644
--- a/doc/type/tri_surface_plot_data.html
+++ b/doc/type/tri_surface_plot_data.html
@@ -74,7 +74,7 @@ <h1>tri_surface_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.4% of total for derived types.</p>Including implementation: 182 statements,  1.2% of total for derived types.">14 statements</a>
+                 title="<p> 1.3% of total for derived types.</p>Including implementation: 182 statements,  1.1% of total for derived types.">14 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,18 +130,18 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-clear_data~13">clear_data</a>
+            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-clear_data">clear_data</a>
             <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-define_data~11">define_data</a>
-            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-get_command_string~29">get_command_string</a>
-            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-get_data_string~13">get_data_string</a>
+            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-define_data">define_data</a>
+            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-get_command_string">get_command_string</a>
+            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-get_data_string">get_data_string</a>
             <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-get_name">get_name</a>
-            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-get_use_wireframe~2">get_use_wireframe</a>
+            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-get_use_wireframe">get_use_wireframe</a>
             <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-set_datablock_name">set_datablock_name</a>
             <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-set_name">set_name</a>
-            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-set_use_wireframe~2">set_use_wireframe</a>
+            <a class="list-group-item" href="../type/tri_surface_plot_data.html#boundprocedure-set_use_wireframe">set_use_wireframe</a>
         </div>
       </div>
     </div>
@@ -169,7 +169,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -225,7 +225,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~13"></span>
+      <span class="anchor" id="boundprocedure-clear_data"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => tspd_clear_data
@@ -332,7 +332,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~11"></span>
+      <span class="anchor" id="boundprocedure-define_data"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => tspd_define_data
@@ -400,7 +400,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~29"></span>
+      <span class="anchor" id="boundprocedure-get_command_string"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => tspd_get_cmd
@@ -458,7 +458,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~13"></span>
+      <span class="anchor" id="boundprocedure-get_data_string"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => tspd_get_data_cmd
@@ -633,7 +633,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_use_wireframe~2"></span>
+      <span class="anchor" id="boundprocedure-get_use_wireframe"></span>
       <h3>
           procedure, public ::
   <strong>get_use_wireframe</strong> => tspd_get_wireframe
@@ -829,7 +829,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_use_wireframe~2"></span>
+      <span class="anchor" id="boundprocedure-set_use_wireframe"></span>
       <h3>
           procedure, public ::
   <strong>set_use_wireframe</strong> => tspd_set_wireframe
@@ -913,7 +913,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/vector_field_plot_data.html b/doc/type/vector_field_plot_data.html
index c46e2f59..cacc8382 100644
--- a/doc/type/vector_field_plot_data.html
+++ b/doc/type/vector_field_plot_data.html
@@ -74,7 +74,7 @@ <h1>vector_field_plot_data
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 1.5% of total for derived types.</p>Including implementation: 269 statements,  1.7% of total for derived types.">15 statements</a>
+                 title="<p> 1.4% of total for derived types.</p>Including implementation: 269 statements,  1.6% of total for derived types.">15 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,14 +130,14 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-clear_all~2">clear_all</a>
-            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-clear_data~10">clear_data</a>
+            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-clear_all">clear_all</a>
+            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-clear_data~5">clear_data</a>
             <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-create_unique_datablock_name">create_unique_datablock_name</a>
-            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-define_data~9">define_data</a>
+            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-define_data~5">define_data</a>
             <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_arrow_size">get_arrow_size</a>
             <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_color_index">get_color_index</a>
-            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_command_string~21">get_command_string</a>
-            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_data_string~10">get_data_string</a>
+            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_command_string~9">get_command_string</a>
+            <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_data_string~5">get_data_string</a>
             <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_datablock_name">get_datablock_name</a>
             <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_fill_arrow">get_fill_arrow</a>
             <a class="list-group-item" href="../type/vector_field_plot_data.html#boundprocedure-get_line_color">get_line_color</a>
@@ -175,7 +175,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_all~2"></span>
+      <span class="anchor" id="boundprocedure-clear_all"></span>
       <h3>
           procedure, public ::
   <strong>clear_all</strong> => pd_clear
@@ -231,7 +231,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-clear_data~10"></span>
+      <span class="anchor" id="boundprocedure-clear_data~5"></span>
       <h3>
           procedure, public ::
   <strong>clear_data</strong> => vfpd_clear_data
@@ -338,7 +338,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-define_data~9"></span>
+      <span class="anchor" id="boundprocedure-define_data~5"></span>
       <h3>
           procedure, public ::
   <strong>define_data</strong> => vfpd_define_data
@@ -600,7 +600,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~21"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~9"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => vfpd_get_cmd
@@ -659,7 +659,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_data_string~10"></span>
+      <span class="anchor" id="boundprocedure-get_data_string~5"></span>
       <h3>
           procedure, public ::
   <strong>get_data_string</strong> => vfpd_get_data_cmd
@@ -1435,7 +1435,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/windows_terminal.html b/doc/type/windows_terminal.html
index f0b4b12b..747a7110 100644
--- a/doc/type/windows_terminal.html
+++ b/doc/type/windows_terminal.html
@@ -130,18 +130,18 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_command_string~23">get_command_string</a>
-            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
+            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_command_string~16">get_command_string</a>
+            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
             <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_id_string">get_id_string</a>
             <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
-            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-get_window_width">get_window_width</a>
-            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
-            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/windows_terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -170,7 +170,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~23"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~16"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => term_get_command_string
@@ -229,7 +229,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -287,7 +287,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -461,7 +461,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -635,7 +635,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -703,7 +703,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -839,7 +839,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1058,7 +1058,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/wxt_terminal.html b/doc/type/wxt_terminal.html
index ba0b0a8d..43f0415a 100644
--- a/doc/type/wxt_terminal.html
+++ b/doc/type/wxt_terminal.html
@@ -130,18 +130,18 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_command_string~23">get_command_string</a>
-            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_font_name~4">get_font_name</a>
-            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_font_size~4">get_font_size</a>
-            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_id_string~10">get_id_string</a>
+            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_command_string~16">get_command_string</a>
+            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_font_name~3">get_font_name</a>
+            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_font_size~3">get_font_size</a>
+            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_id_string~9">get_id_string</a>
             <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_plot_window_number">get_plot_window_number</a>
-            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_title~4">get_title</a>
+            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_title~3">get_title</a>
             <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_window_height">get_window_height</a>
             <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-get_window_width">get_window_width</a>
-            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_font_name~4">set_font_name</a>
-            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_font_size~4">set_font_size</a>
+            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_font_name~3">set_font_name</a>
+            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_font_size~3">set_font_size</a>
             <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_plot_window_number">set_plot_window_number</a>
-            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_title~4">set_title</a>
+            <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_title~3">set_title</a>
             <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_window_height">set_window_height</a>
             <a class="list-group-item" href="../type/wxt_terminal.html#boundprocedure-set_window_width">set_window_width</a>
         </div>
@@ -170,7 +170,7 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~23"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~16"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => term_get_command_string
@@ -229,7 +229,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_name</strong> => term_get_font_name
@@ -287,7 +287,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-get_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>get_font_size</strong> => term_get_font_size
@@ -345,7 +345,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_id_string~10"></span>
+      <span class="anchor" id="boundprocedure-get_id_string~9"></span>
       <h3>
           procedure, public ::
   <strong>get_id_string</strong> => wxt_get_term_string
@@ -461,7 +461,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_title~4"></span>
+      <span class="anchor" id="boundprocedure-get_title~3"></span>
       <h3>
           procedure, public ::
   <strong>get_title</strong> => term_get_title
@@ -635,7 +635,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_name~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_name~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_name</strong> => term_set_font_name
@@ -703,7 +703,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_font_size~4"></span>
+      <span class="anchor" id="boundprocedure-set_font_size~3"></span>
       <h3>
           procedure, public ::
   <strong>set_font_size</strong> => term_set_font_size
@@ -839,7 +839,7 @@ <h4>Arguments</h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_title~4"></span>
+      <span class="anchor" id="boundprocedure-set_title~3"></span>
       <h3>
           procedure, public ::
   <strong>set_title</strong> => term_set_title
@@ -1058,7 +1058,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/x_axis.html b/doc/type/x_axis.html
index 740dddfd..232866ea 100644
--- a/doc/type/x_axis.html
+++ b/doc/type/x_axis.html
@@ -74,7 +74,7 @@ <h1>x_axis
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.5% of total for derived types.</p>Including implementation: 349 statements,  2.2% of total for derived types.">5 statements</a>
+                 title="<p> 0.5% of total for derived types.</p>Including implementation: 374 statements,  2.2% of total for derived types.">5 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,8 +130,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_autoscale~2">get_autoscale</a>
-            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_command_string~9">get_command_string</a>
+            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_auto_calculate_title_angle">get_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_autoscale">get_autoscale</a>
+            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_command_string~13">get_command_string</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_id_string~5">get_id_string</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_is_log_scaled">get_is_log_scaled</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_limits">get_limits</a>
@@ -145,6 +146,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_tic_label_x_offset">get_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_tic_label_y_offset">get_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_title~2">get_title</a>
+            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_title_angle">get_title_angle</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_title_x_offset">get_title_x_offset</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_title_y_offset">get_title_y_offset</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_use_default_tic_label_format">get_use_default_tic_label_format</a>
@@ -152,7 +154,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_zero_axis">get_zero_axis</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-get_zero_axis_line_width">get_zero_axis_line_width</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-is_title_defined~2">is_title_defined</a>
-            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_autoscale~2">set_autoscale</a>
+            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_auto_calculate_title_angle">set_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_autoscale">set_autoscale</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_is_log_scaled">set_is_log_scaled</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_limits">set_limits</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_manual_tic_labels">set_manual_tic_labels</a>
@@ -165,6 +168,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_tic_label_x_offset">set_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_tic_label_y_offset">set_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_title~2">set_title</a>
+            <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_title_angle">set_title_angle</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_title_x_offset">set_title_x_offset</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_title_y_offset">set_title_y_offset</a>
             <a class="list-group-item" href="../type/x_axis.html#boundprocedure-set_use_default_tic_label_format">set_use_default_tic_label_format</a>
@@ -197,7 +201,67 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-get_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_auto_calculate_title_angle</strong> => pa_get_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_auto_calc_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>True if GNUPLOT should automatically calculate the title
+angle; else, false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>get_autoscale</strong> => pa_get_autoscale
@@ -257,7 +321,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~9"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~13"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pa_get_cmd_string
@@ -1098,6 +1162,64 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_title_angle</strong> => pa_get_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The axis title angle, in degrees.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_title_x_offset"></span>
       <h3>
           procedure, public ::
@@ -1508,7 +1630,77 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-set_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_auto_calculate_title_angle</strong> => pa_set_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_auto_calc_title_angle(this, x)  
+</h3>
+
+  <p>Sets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>Set to true to automatically calculate the title angle;
+else, set to false.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>set_autoscale</strong> => pa_set_autoscale
@@ -2430,6 +2622,74 @@ <h4>Arguments</h4>
   </table>
 
 
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_title_angle</strong> => pa_set_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_title_angle(this, x)  
+</h3>
+
+  <p>Sets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The axis title angle, in degrees.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
         </li>
     </ul>
   </div>
@@ -2865,7 +3125,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/y2_axis.html b/doc/type/y2_axis.html
index 05e1ebfb..77eb19c0 100644
--- a/doc/type/y2_axis.html
+++ b/doc/type/y2_axis.html
@@ -74,7 +74,7 @@ <h1>y2_axis
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.5% of total for derived types.</p>Including implementation: 349 statements,  2.2% of total for derived types.">5 statements</a>
+                 title="<p> 0.5% of total for derived types.</p>Including implementation: 374 statements,  2.2% of total for derived types.">5 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,8 +130,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_autoscale~2">get_autoscale</a>
-            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_command_string~9">get_command_string</a>
+            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_auto_calculate_title_angle">get_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_autoscale">get_autoscale</a>
+            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_command_string~13">get_command_string</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_id_string~7">get_id_string</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_is_log_scaled">get_is_log_scaled</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_limits">get_limits</a>
@@ -145,6 +146,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_tic_label_x_offset">get_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_tic_label_y_offset">get_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_title~2">get_title</a>
+            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_title_angle">get_title_angle</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_title_x_offset">get_title_x_offset</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_title_y_offset">get_title_y_offset</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_use_default_tic_label_format">get_use_default_tic_label_format</a>
@@ -152,7 +154,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_zero_axis">get_zero_axis</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-get_zero_axis_line_width">get_zero_axis_line_width</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-is_title_defined~2">is_title_defined</a>
-            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_autoscale~2">set_autoscale</a>
+            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_auto_calculate_title_angle">set_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_autoscale">set_autoscale</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_is_log_scaled">set_is_log_scaled</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_limits">set_limits</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_manual_tic_labels">set_manual_tic_labels</a>
@@ -165,6 +168,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_tic_label_x_offset">set_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_tic_label_y_offset">set_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_title~2">set_title</a>
+            <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_title_angle">set_title_angle</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_title_x_offset">set_title_x_offset</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_title_y_offset">set_title_y_offset</a>
             <a class="list-group-item" href="../type/y2_axis.html#boundprocedure-set_use_default_tic_label_format">set_use_default_tic_label_format</a>
@@ -197,7 +201,67 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-get_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_auto_calculate_title_angle</strong> => pa_get_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_auto_calc_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>True if GNUPLOT should automatically calculate the title
+angle; else, false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>get_autoscale</strong> => pa_get_autoscale
@@ -257,7 +321,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~9"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~13"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pa_get_cmd_string
@@ -1098,6 +1162,64 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_title_angle</strong> => pa_get_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The axis title angle, in degrees.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_title_x_offset"></span>
       <h3>
           procedure, public ::
@@ -1508,7 +1630,77 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-set_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_auto_calculate_title_angle</strong> => pa_set_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_auto_calc_title_angle(this, x)  
+</h3>
+
+  <p>Sets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>Set to true to automatically calculate the title angle;
+else, set to false.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>set_autoscale</strong> => pa_set_autoscale
@@ -2430,6 +2622,74 @@ <h4>Arguments</h4>
   </table>
 
 
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_title_angle</strong> => pa_set_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_title_angle(this, x)  
+</h3>
+
+  <p>Sets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The axis title angle, in degrees.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
         </li>
     </ul>
   </div>
@@ -2865,7 +3125,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/y_axis.html b/doc/type/y_axis.html
index adc678a6..868ac29b 100644
--- a/doc/type/y_axis.html
+++ b/doc/type/y_axis.html
@@ -74,7 +74,7 @@ <h1>y_axis
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.5% of total for derived types.</p>Including implementation: 349 statements,  2.2% of total for derived types.">5 statements</a>
+                 title="<p> 0.5% of total for derived types.</p>Including implementation: 374 statements,  2.2% of total for derived types.">5 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,8 +130,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_autoscale~2">get_autoscale</a>
-            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_command_string~9">get_command_string</a>
+            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_auto_calculate_title_angle">get_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_autoscale">get_autoscale</a>
+            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_command_string~13">get_command_string</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_id_string~6">get_id_string</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_is_log_scaled">get_is_log_scaled</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_limits">get_limits</a>
@@ -145,6 +146,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_tic_label_x_offset">get_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_tic_label_y_offset">get_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_title~2">get_title</a>
+            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_title_angle">get_title_angle</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_title_x_offset">get_title_x_offset</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_title_y_offset">get_title_y_offset</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_use_default_tic_label_format">get_use_default_tic_label_format</a>
@@ -152,7 +154,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_zero_axis">get_zero_axis</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-get_zero_axis_line_width">get_zero_axis_line_width</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-is_title_defined~2">is_title_defined</a>
-            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_autoscale~2">set_autoscale</a>
+            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_auto_calculate_title_angle">set_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_autoscale">set_autoscale</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_is_log_scaled">set_is_log_scaled</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_limits">set_limits</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_manual_tic_labels">set_manual_tic_labels</a>
@@ -165,6 +168,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_tic_label_x_offset">set_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_tic_label_y_offset">set_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_title~2">set_title</a>
+            <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_title_angle">set_title_angle</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_title_x_offset">set_title_x_offset</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_title_y_offset">set_title_y_offset</a>
             <a class="list-group-item" href="../type/y_axis.html#boundprocedure-set_use_default_tic_label_format">set_use_default_tic_label_format</a>
@@ -197,7 +201,67 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-get_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_auto_calculate_title_angle</strong> => pa_get_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_auto_calc_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>True if GNUPLOT should automatically calculate the title
+angle; else, false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>get_autoscale</strong> => pa_get_autoscale
@@ -257,7 +321,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~9"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~13"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pa_get_cmd_string
@@ -1098,6 +1162,64 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_title_angle</strong> => pa_get_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The axis title angle, in degrees.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_title_x_offset"></span>
       <h3>
           procedure, public ::
@@ -1508,7 +1630,77 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-set_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_auto_calculate_title_angle</strong> => pa_set_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_auto_calc_title_angle(this, x)  
+</h3>
+
+  <p>Sets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>Set to true to automatically calculate the title angle;
+else, set to false.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>set_autoscale</strong> => pa_set_autoscale
@@ -2430,6 +2622,74 @@ <h4>Arguments</h4>
   </table>
 
 
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_title_angle</strong> => pa_set_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_title_angle(this, x)  
+</h3>
+
+  <p>Sets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The axis title angle, in degrees.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
         </li>
     </ul>
   </div>
@@ -2865,7 +3125,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/doc/type/z_axis.html b/doc/type/z_axis.html
index bc9ccebe..ded07f1e 100644
--- a/doc/type/z_axis.html
+++ b/doc/type/z_axis.html
@@ -74,7 +74,7 @@ <h1>z_axis
             <li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
               <a data-bs-toggle="tooltip"
                  data-bs-placement="bottom" data-html="true"
-                 title="<p> 0.5% of total for derived types.</p>Including implementation: 349 statements,  2.2% of total for derived types.">5 statements</a>
+                 title="<p> 0.5% of total for derived types.</p>Including implementation: 374 statements,  2.2% of total for derived types.">5 statements</a>
             </li>
 
             <li class="list-inline-item" id="source-file">
@@ -130,8 +130,9 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
       </a>
       <div id="boundprocs-0" class="collapse">
         <div class="list-group list-group-flush">
-            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_autoscale~2">get_autoscale</a>
-            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_command_string~9">get_command_string</a>
+            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_auto_calculate_title_angle">get_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_autoscale">get_autoscale</a>
+            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_command_string~13">get_command_string</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_id_string~8">get_id_string</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_is_log_scaled">get_is_log_scaled</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_limits">get_limits</a>
@@ -145,6 +146,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_tic_label_x_offset">get_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_tic_label_y_offset">get_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_title~2">get_title</a>
+            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_title_angle">get_title_angle</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_title_x_offset">get_title_x_offset</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_title_y_offset">get_title_y_offset</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_use_default_tic_label_format">get_use_default_tic_label_format</a>
@@ -152,7 +154,8 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_zero_axis">get_zero_axis</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-get_zero_axis_line_width">get_zero_axis_line_width</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-is_title_defined~2">is_title_defined</a>
-            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_autoscale~2">set_autoscale</a>
+            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_auto_calculate_title_angle">set_auto_calculate_title_angle</a>
+            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_autoscale">set_autoscale</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_is_log_scaled">set_is_log_scaled</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_limits">set_limits</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_manual_tic_labels">set_manual_tic_labels</a>
@@ -165,6 +168,7 @@ <h4 class="card-header bg-primary text-white">Type-Bound Procedures</h4>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_tic_label_x_offset">set_tic_label_x_offset</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_tic_label_y_offset">set_tic_label_y_offset</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_title~2">set_title</a>
+            <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_title_angle">set_title_angle</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_title_x_offset">set_title_x_offset</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_title_y_offset">set_title_y_offset</a>
             <a class="list-group-item" href="../type/z_axis.html#boundprocedure-set_use_default_tic_label_format">set_use_default_tic_label_format</a>
@@ -197,7 +201,67 @@ <h2>Type-Bound Procedures</h2>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-get_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_auto_calculate_title_angle</strong> => pa_get_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_auto_calc_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>logical</small>
+    </h4>
+    <p>True if GNUPLOT should automatically calculate the title
+angle; else, false.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>get_autoscale</strong> => pa_get_autoscale
@@ -257,7 +321,7 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-get_command_string~9"></span>
+      <span class="anchor" id="boundprocedure-get_command_string~13"></span>
       <h3>
           procedure, public ::
   <strong>get_command_string</strong> => pa_get_cmd_string
@@ -1098,6 +1162,64 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-get_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>get_title_angle</strong> => pa_get_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private pure function pa_get_title_angle(this) result(x)  
+</h3>
+
+  <p>Gets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+    <h4>
+    Return Value
+    <small>real(kind=real32)</small>
+    </h4>
+    <p>The axis title angle, in degrees.</p>
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
       <span class="anchor" id="boundprocedure-get_title_x_offset"></span>
       <h3>
           procedure, public ::
@@ -1508,7 +1630,77 @@ <h4>
           <div class="row">
               <div class="card mt-3">
     <div class="card-header codesum">
-      <span class="anchor" id="boundprocedure-set_autoscale~2"></span>
+      <span class="anchor" id="boundprocedure-set_auto_calculate_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_auto_calculate_title_angle</strong> => pa_set_auto_calc_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_auto_calc_title_angle(this, x)  
+</h3>
+
+  <p>Sets whether GNUPLOT should automatically calculate the axis
+title angle.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              logical,
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>Set to true to automatically calculate the title angle;
+else, set to false.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_autoscale"></span>
       <h3>
           procedure, public ::
   <strong>set_autoscale</strong> => pa_set_autoscale
@@ -2430,6 +2622,74 @@ <h4>Arguments</h4>
   </table>
 
 
+        </li>
+    </ul>
+  </div>
+
+          </div>
+          <div class="row">
+              <div class="card mt-3">
+    <div class="card-header codesum">
+      <span class="anchor" id="boundprocedure-set_title_angle"></span>
+      <h3>
+          procedure, public ::
+  <strong>set_title_angle</strong> => pa_set_title_angle
+        
+      </h3>
+    </div>
+    <ul class="list-group">
+        <li class="list-group-item">
+                  <h3>
+    private  subroutine pa_set_title_angle(this, x)  
+</h3>
+
+  <p>Sets the axis title angle, in degrees.</p>
+
+  <h4>Arguments</h4>
+      <table class="table table-striped varlist">
+    <thead>
+      <tr>
+        <th scope="col">Type</th>
+<th scope="col">Intent</th><th scope="col">Optional</th>        <th scope="col">Attributes</th>
+        <th scope="col"></th>
+        <th scope="col">Name</th>
+        <th scope="col"></th>
+    </thead>
+    <tbody>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              class(<a href='plot_axis.html'>plot_axis</a>),
+            </td>
+<td>intent(inout)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>this</strong></td>
+            <td>
+                <p>The plot_axis object.</p>
+            </td>
+        </tr>
+        <tr>
+            <td>
+              <span class="anchor" ></span>
+              real(kind=real32),
+            </td>
+<td>intent(in)</td>
+              <td></td>            <td>
+              
+            </td>
+            <td>::</td>
+            <td><strong>x</strong></td>
+            <td>
+                <p>The axis title angle, in degrees.</p>
+            </td>
+        </tr>
+    </tbody>
+  </table>
+
+
         </li>
     </ul>
   </div>
@@ -2865,7 +3125,7 @@ <h4>Arguments</h4>
             <p class="text-end">
               Documentation generated by
               <a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
- on 2026-09-01 07:22              </p>
+ on 2026-10-01 05:57              </p>
           </div>
         </div>
         <br>
diff --git a/examples/surface_plot_example.f90 b/examples/surface_plot_example.f90
index 4e2ca14a..09519034 100644
--- a/examples/surface_plot_example.f90
+++ b/examples/surface_plot_example.f90
@@ -14,6 +14,7 @@ program example
     type(surface_plot) :: plt
     type(surface_plot_data) :: d1
     type(rainbow_colormap) :: map
+    class(plot_axis), pointer :: zAxis
 
     ! Define the data
     xy = meshgrid(linspace(-5.0d0, 5.0d0, n), linspace(-5.0d0, 5.0d0, m))
@@ -37,6 +38,10 @@ program example
     call plt%set_y_axis_title("Y Axis")
     call plt%set_z_axis_title("Z Axis")
 
+    ! Rotate the z-axis title
+    zAxis => plt%get_z_axis()
+    call zAxis%set_title_angle(90.0)
+
     ! Define the function to plot
     z = sqrt(x**2 + y**2) * sin(x**2 + y**2)
     call d1%define_data(x, y, z)
diff --git a/fpm.toml b/fpm.toml
index b09d587e..86367d59 100644
--- a/fpm.toml
+++ b/fpm.toml
@@ -1,5 +1,5 @@
 name = "fplot"
-version = "1.10.0"
+version = "1.11.0"
 license = "GPL-3.0"
 author = "Jason Christopherson"
 maintainer = "Jason Christopherson"
@@ -13,7 +13,6 @@ source-dir = "src"
 [dependencies]
 collections = { git = "https://github.com/jchristopherson/collections" }
 fstring = { git = "https://github.com/jchristopherson/fstring" }
-geompack = { git = "https://github.com/jchristopherson/geompack" }
 forcolormap = { git = "https://github.com/vmagnin/forcolormap" }
 
 [dev-dependencies]
diff --git a/images/colored_vector_plot_example.png b/images/colored_vector_plot_example.png
index ce3ead69..926190e7 100644
Binary files a/images/colored_vector_plot_example.png and b/images/colored_vector_plot_example.png differ
diff --git a/images/custom_colormap_example.png b/images/custom_colormap_example.png
index 1d749193..d2fdcd8a 100644
Binary files a/images/custom_colormap_example.png and b/images/custom_colormap_example.png differ
diff --git a/images/data_dependent_colors_2d_example.png b/images/data_dependent_colors_2d_example.png
index d72ee7b2..2f470889 100644
Binary files a/images/data_dependent_colors_2d_example.png and b/images/data_dependent_colors_2d_example.png differ
diff --git a/images/surface_plot_example.png b/images/surface_plot_example.png
index ad57e719..03155864 100644
Binary files a/images/surface_plot_example.png and b/images/surface_plot_example.png differ
diff --git a/images/surface_plot_example_2.png b/images/surface_plot_example_2.png
index 547d227e..a30aaac5 100644
Binary files a/images/surface_plot_example_2.png and b/images/surface_plot_example_2.png differ
diff --git a/images/variable_point_size_2d_example.png b/images/variable_point_size_2d_example.png
index 98ce2dbf..5b2afb12 100644
Binary files a/images/variable_point_size_2d_example.png and b/images/variable_point_size_2d_example.png differ
diff --git a/images/variable_point_size_3d_example.png b/images/variable_point_size_3d_example.png
index 8a19665f..ffb32818 100644
Binary files a/images/variable_point_size_3d_example.png and b/images/variable_point_size_3d_example.png differ
diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt
index ffebc8d8..21376007 100644
--- a/src/CMakeLists.txt
+++ b/src/CMakeLists.txt
@@ -3,6 +3,7 @@ set(dir ${CMAKE_CURRENT_SOURCE_DIR})
 
 # Define the source files
 set(FPLOT_SOURCES
+    ${dir}/delaunay/delaunay.f90
     ${dir}/fplot_core.f90
     ${dir}/fplot_core_routines.f90
     ${dir}/fplot_colors.f90
@@ -51,8 +52,8 @@ set(FPLOT_SOURCES ${FPLOT_SOURCES} PARENT_SCOPE)
 
 # Dependencies
 include(FetchContent)
+set(BUILD_TESTING OFF)
 find_package(collections 1.1.0 QUIET)
-find_package(geompack QUIET)
 find_package(fstring QUIET)
 
 if (NOT collections_FOUND)
@@ -70,21 +71,6 @@ else()
     set(BUILD_COLLECTIONS FALSE)
 endif()
 
-if (NOT geompack_FOUND)
-    message(STATUS "GEOMPACK could not be found.  A reference version will be employed.")
-    FetchContent_Declare(
-        geompack
-        GIT_REPOSITORY "https://github.com/jchristopherson/geompack"
-        GIT_TAG main
-    )
-    FetchContent_MakeAvailable(geompack)
-    set(GEOMPACK_LIBRARIES geompack)
-    set(BUILD_GEOMPACK TRUE)
-else()
-    set(GEOMPACK_LIBRARIES geompack::geompack)
-    set(BUILD_GEOMPACK FALSE)
-endif()
-
 if (NOT fstring_FOUND)
     message(STATUS "FSTRING could not be found.  A reference version will be employed.")
     FetchContent_Declare(
@@ -113,7 +99,6 @@ target_link_libraries(
     ${PROJECT_NAME}
     PUBLIC
     ${COLLECTIONS_LIBRARIES}
-    ${GEOMPACK_LIBRARIES}
     ${FSTRING_LIBRARIES}
     $<BUILD_INTERFACE:forcolormap>
 )
@@ -157,11 +142,6 @@ if(${BUILD_SHARED_LIBS})
                 ARCHIVE DESTINATION ${CMAKE_INSTALL_BINDIR}
                 LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR})
     endif()
-    if(${BUILD_GEOMPACK})
-        install(TARGETS ${GEOMPACK_LIBRARIES}
-                ARCHIVE DESTINATION ${CMAKE_INSTALL_BINDIR}
-                LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR})
-    endif()
     if(${BUILD_FSTRING})
         install(TARGETS ${FSTRING_LIBRARIES}
                 ARCHIVE DESTINATION ${CMAKE_INSTALL_BINDIR}
@@ -173,11 +153,6 @@ else()
                 ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
                 LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR})
     endif()
-    if(${BUILD_GEOMPACK})
-        install(TARGETS ${GEOMPACK_LIBRARIES}
-                ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
-                LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR})
-    endif()
     if(${BUILD_FSTRING})
         install(TARGETS ${FSTRING_LIBRARIES}
                 ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
diff --git a/src/delaunay/delaunay.f90 b/src/delaunay/delaunay.f90
new file mode 100644
index 00000000..b81426df
--- /dev/null
+++ b/src/delaunay/delaunay.f90
@@ -0,0 +1,884 @@
+module delaunay
+    !! Provides a minimal, in-house implementation of the subset of the
+    !! GEOMPACK library used by FPLOT to construct 2D Delaunay
+    !! triangulations.
+    !!
+    !! Original FORTRAN77 version by Barry Joe.  FORTRAN90 version by
+    !! John Burkardt.  Reference: Barry Joe, GEOMPACK - a software
+    !! package for the generation of meshes using geometric algorithms,
+    !! Advances in Engineering Software, Volume 13, pages 325-331, 1991.
+    use iso_fortran_env, only : int32, real64
+    implicit none
+    private
+    public :: r8tris2
+
+contains
+! ------------------------------------------------------------------------------
+    subroutine r8tris2(node_num, node_xy, triangle_num, triangle_node, &
+            triangle_neighbor)
+        !! Constructs a Delaunay triangulation of 2D vertices.
+        !!
+        !! The routine constructs the Delaunay triangulation of a set of
+        !! 2D vertices using an incremental approach and diagonal edge
+        !! swaps.  Vertices are first sorted in lexicographically
+        !! increasing (X,Y) order, and then are inserted one at a time
+        !! from outside the convex hull.
+        integer(int32), intent(in) :: node_num
+            !! The number of vertices.
+        real(real64), intent(inout), dimension(2, node_num) :: node_xy
+            !! The coordinates of the vertices.  On output, the vertices
+            !! have been sorted into dictionary order.
+        integer(int32), intent(out) :: triangle_num
+            !! The number of triangles in the triangulation;
+            !! TRIANGLE_NUM is equal to 2*NODE_NUM - NB - 2, where NB is
+            !! the number of boundary vertices.
+        integer(int32), intent(out), dimension(3, 2 * node_num) :: &
+            triangle_node
+            !! The nodes that make up each triangle.  The elements are
+            !! indices of the vertex array.  The vertices of the
+            !! triangles are in counter clockwise order.
+        integer(int32), intent(out), dimension(3, 2 * node_num) :: &
+            triangle_neighbor
+            !! The triangle neighbor list.  Positive elements are
+            !! indices of TRIANGLE_NODE; negative elements are used for
+            !! links of a counter clockwise linked list of boundary
+            !! edges; LINK = -(3*I + J-1) where I, J = triangle, edge
+            !! index; TRIANGLE_NEIGHBOR(J,I) refers to the neighbor
+            !! along the edge from vertex J to J+1 (mod 3).
+
+        ! Local Variables
+        real(real64) :: cmax, tol
+        integer(int32) :: e, i, j, k, l, ledg, lr, ltri, m, m1, m2, &
+            n, redg, rtri, t, top
+        integer(int32), dimension(node_num) :: indx, stack
+
+        ! Initialization
+        tol = 100.0d0 * epsilon(tol)
+
+        ! Sort the vertices by increasing (x,y)
+        call r82vec_sort_heap_index_a(node_num, node_xy, indx)
+        call r82vec_permute(node_num, node_xy, indx)
+
+        ! Make sure that the data points are "reasonably" distinct
+        m1 = 1
+        do i = 2, node_num
+            m = m1
+            m1 = i
+            k = 0
+            do j = 1, 2
+                cmax = max(abs(node_xy(j, m)), abs(node_xy(j, m1)))
+                if (tol * (cmax + 1.0d0) < &
+                        abs(node_xy(j, m) - node_xy(j, m1))) then
+                    k = j
+                    exit
+                end if
+            end do
+            if (k == 0) then
+                error stop &
+                    "R8TRIS2 - Fatal error!  Two points are too close together."
+            end if
+        end do
+
+        ! Starting from points M1 and M2, search for a third point M that
+        ! makes a "healthy" triangle (M1,M2,M)
+        m1 = 1
+        m2 = 2
+        j = 3
+        do
+            if (node_num < j) then
+                error stop &
+                    "R8TRIS2 - Fatal error!  Could not find a non-collinear point."
+            end if
+
+            m = j
+            lr = lrline(node_xy(1, m), node_xy(2, m), node_xy(1, m1), &
+                node_xy(2, m1), node_xy(1, m2), node_xy(2, m2), 0.0d0)
+            if (lr /= 0) exit
+            j = j + 1
+        end do
+
+        ! Set up the triangle information for (M1,M2,M), and for any
+        ! other triangles created because points were collinear with M1,
+        ! M2
+        triangle_num = j - 2
+
+        if (lr == -1) then
+            triangle_node(1, 1) = m1
+            triangle_node(2, 1) = m2
+            triangle_node(3, 1) = m
+            triangle_neighbor(3, 1) = -3
+
+            do i = 2, triangle_num
+                m1 = m2
+                m2 = i + 1
+                triangle_node(1, i) = m1
+                triangle_node(2, i) = m2
+                triangle_node(3, i) = m
+                triangle_neighbor(1, i - 1) = -3 * i
+                triangle_neighbor(2, i - 1) = i
+                triangle_neighbor(3, i) = i - 1
+            end do
+
+            triangle_neighbor(1, triangle_num) = -3 * triangle_num - 1
+            triangle_neighbor(2, triangle_num) = -5
+            ledg = 2
+            ltri = triangle_num
+        else
+            triangle_node(1, 1) = m2
+            triangle_node(2, 1) = m1
+            triangle_node(3, 1) = m
+            triangle_neighbor(1, 1) = -4
+
+            do i = 2, triangle_num
+                m1 = m2
+                m2 = i + 1
+                triangle_node(1, i) = m2
+                triangle_node(2, i) = m1
+                triangle_node(3, i) = m
+                triangle_neighbor(3, i - 1) = i
+                triangle_neighbor(1, i) = -3 * i - 3
+                triangle_neighbor(2, i) = i - 1
+            end do
+
+            triangle_neighbor(3, triangle_num) = -3 * triangle_num
+            triangle_neighbor(2, 1) = -3 * triangle_num - 2
+            ledg = 2
+            ltri = 1
+        end if
+
+        ! Insert the vertices one at a time from outside the convex
+        ! hull, determine visible boundary edges, and apply diagonal
+        ! edge swaps until the Delaunay triangulation of the vertices
+        ! (so far) is obtained
+        top = 0
+
+        do i = j + 1, node_num
+            m = i
+            m1 = triangle_node(ledg, ltri)
+
+            if (ledg <= 2) then
+                m2 = triangle_node(ledg + 1, ltri)
+            else
+                m2 = triangle_node(1, ltri)
+            end if
+
+            lr = lrline(node_xy(1, m), node_xy(2, m), node_xy(1, m1), &
+                node_xy(2, m1), node_xy(1, m2), node_xy(2, m2), 0.0d0)
+
+            if (0 < lr) then
+                rtri = ltri
+                redg = ledg
+                ltri = 0
+            else
+                l = -triangle_neighbor(ledg, ltri)
+                rtri = l / 3
+                redg = mod(l, 3) + 1
+            end if
+
+            call vbedg(node_xy(1, m), node_xy(2, m), node_num, node_xy, &
+                triangle_num, triangle_node, triangle_neighbor, ltri, &
+                ledg, rtri, redg)
+
+            n = triangle_num + 1
+            l = -triangle_neighbor(ledg, ltri)
+
+            do
+                t = l / 3
+                e = mod(l, 3) + 1
+                l = -triangle_neighbor(e, t)
+                m2 = triangle_node(e, t)
+
+                if (e <= 2) then
+                    m1 = triangle_node(e + 1, t)
+                else
+                    m1 = triangle_node(1, t)
+                end if
+
+                triangle_num = triangle_num + 1
+                triangle_neighbor(e, t) = triangle_num
+                triangle_node(1, triangle_num) = m1
+                triangle_node(2, triangle_num) = m2
+                triangle_node(3, triangle_num) = m
+                triangle_neighbor(1, triangle_num) = t
+                triangle_neighbor(2, triangle_num) = triangle_num - 1
+                triangle_neighbor(3, triangle_num) = triangle_num + 1
+                top = top + 1
+
+                if (node_num < top) then
+                    error stop "R8TRIS2 - Fatal error!  Stack overflow."
+                end if
+
+                stack(top) = triangle_num
+
+                if (t == rtri .and. e == redg) exit
+            end do
+
+            triangle_neighbor(ledg, ltri) = -3 * n - 1
+            triangle_neighbor(2, n) = -3 * triangle_num - 2
+            triangle_neighbor(3, triangle_num) = -l
+            ltri = n
+            ledg = 2
+
+            call swapec(m, top, ltri, ledg, node_num, node_xy, &
+                triangle_num, triangle_node, triangle_neighbor, stack)
+        end do
+
+        ! Now account for the sorting that was done
+        do i = 1, 3
+            do j = 1, triangle_num
+                triangle_node(i, j) = indx(triangle_node(i, j))
+            end do
+        end do
+
+        call perm_inverse(node_num, indx)
+        call r82vec_permute(node_num, node_xy, indx)
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure subroutine r82vec_sort_heap_index_a(n, a, indx)
+        !! Computes an indexed heap ascending sort of an R82VEC.
+        !!
+        !! The sorting is not actually carried out.  Rather an index
+        !! array is created which defines the sorting.
+        integer(int32), intent(in) :: n
+            !! The number of entries in the array.
+        real(real64), intent(in), dimension(2, n) :: a
+            !! The array to be index-sorted.
+        integer(int32), intent(out), dimension(n) :: indx
+            !! The sort index.  The I-th element of the sorted array is
+            !! A(1:2,INDX(I)).
+
+        ! Local Variables
+        real(real64), dimension(2) :: aval
+        integer(int32) :: i, indxt, ir, j, l
+
+        if (n < 1) return
+
+        do i = 1, n
+            indx(i) = i
+        end do
+
+        if (n == 1) return
+
+        l = n / 2 + 1
+        ir = n
+
+        do
+            if (1 < l) then
+                l = l - 1
+                indxt = indx(l)
+                aval = a(:, indxt)
+            else
+                indxt = indx(ir)
+                aval = a(:, indxt)
+                indx(ir) = indx(1)
+                ir = ir - 1
+                if (ir == 1) then
+                    indx(1) = indxt
+                    exit
+                end if
+            end if
+
+            i = l
+            j = l + l
+
+            do while (j <= ir)
+                if (j < ir) then
+                    if (a(1, indx(j)) < a(1, indx(j + 1)) .or. &
+                            (a(1, indx(j)) == a(1, indx(j + 1)) .and. &
+                            a(2, indx(j)) < a(2, indx(j + 1)))) then
+                        j = j + 1
+                    end if
+                end if
+
+                if (aval(1) < a(1, indx(j)) .or. &
+                        (aval(1) == a(1, indx(j)) .and. &
+                        aval(2) < a(2, indx(j)))) then
+                    indx(i) = indx(j)
+                    i = j
+                    j = j + j
+                else
+                    j = ir + 1
+                end if
+            end do
+
+            indx(i) = indxt
+        end do
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    subroutine r82vec_permute(n, a, p)
+        !! Permutes an R82VEC in place, according to a given permutation.
+        integer(int32), intent(in) :: n
+            !! The number of objects.
+        real(real64), intent(inout), dimension(2, n) :: a
+            !! The array to be permuted.
+        integer(int32), intent(inout), dimension(n) :: p
+            !! The permutation.  P(I) = J means that the I-th element of
+            !! the output array should be the J-th element of the input
+            !! array.
+
+        ! Local Variables
+        real(real64), dimension(2) :: a_temp
+        integer(int32) :: ierror, iget, iput, istart
+
+        call perm_check(n, p, ierror)
+        if (ierror /= 0) then
+            error stop &
+                "R82VEC_PERMUTE - Fatal error!  P does not represent a permutation."
+        end if
+
+        do istart = 1, n
+            if (p(istart) < 0) then
+                cycle
+            else if (p(istart) == istart) then
+                p(istart) = -p(istart)
+                cycle
+            else
+                a_temp = a(:, istart)
+                iget = istart
+
+                do
+                    iput = iget
+                    iget = p(iget)
+                    p(iput) = -p(iput)
+
+                    if (iget < 1 .or. n < iget) then
+                        error stop &
+                            "R82VEC_PERMUTE - Fatal error!  Invalid permutation entry."
+                    end if
+
+                    if (iget == istart) then
+                        a(:, iput) = a_temp
+                        exit
+                    end if
+
+                    a(:, iput) = a(:, iget)
+                end do
+            end if
+        end do
+
+        p = -p
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure subroutine perm_check(n, p, ierror)
+        !! Checks that a vector represents a permutation.
+        integer(int32), intent(in) :: n
+            !! The number of entries.
+        integer(int32), intent(in), dimension(n) :: p
+            !! The array to check.
+        integer(int32), intent(out) :: ierror
+            !! 0 if the array represents a permutation; otherwise, the
+            !! smallest missing value.
+
+        ! Local Variables
+        integer(int32) :: ifind, iseek
+
+        ierror = 0
+        do iseek = 1, n
+            ierror = iseek
+            do ifind = 1, n
+                if (p(ifind) == iseek) then
+                    ierror = 0
+                    exit
+                end if
+            end do
+            if (ierror /= 0) return
+        end do
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    subroutine perm_inverse(n, p)
+        !! Inverts a permutation in-place.
+        integer(int32), intent(in) :: n
+            !! The number of objects being permuted.
+        integer(int32), intent(inout), dimension(n) :: p
+            !! The permutation, in standard index form.  On output, P
+            !! describes the inverse permutation.
+
+        ! Local Variables
+        integer(int32) :: i, i0, i1, i2, ierror, is
+
+        if (n <= 0) then
+            error stop "PERM_INVERSE - Fatal error!  N <= 0."
+        end if
+
+        call perm_check(n, p, ierror)
+        if (ierror /= 0) then
+            error stop &
+                "PERM_INVERSE - Fatal error!  P does not represent a permutation."
+        end if
+
+        is = 1
+        do i = 1, n
+            i1 = p(i)
+            do while (i < i1)
+                i2 = p(i1)
+                p(i1) = -i2
+                i1 = i2
+            end do
+            is = -sign(1, p(i))
+            p(i) = sign(p(i), is)
+        end do
+
+        do i = 1, n
+            i1 = -p(i)
+            if (0 <= i1) then
+                i0 = i
+                do
+                    i2 = p(i1)
+                    p(i1) = i0
+                    if (i2 < 0) exit
+                    i0 = i1
+                    i1 = i2
+                end do
+            end if
+        end do
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function lrline(xu, yu, xv1, yv1, xv2, yv2, dv) result(rst)
+        !! Determines if a point is left of, right of, or on a directed
+        !! line.
+        !!
+        !! The directed line is parallel to, and at a signed distance DV
+        !! from a directed base line from (XV1,YV1) to (XV2,YV2).
+        real(real64), intent(in) :: xu
+            !! The x-coordinate of the point whose position relative to
+            !! the directed line is to be determined.
+        real(real64), intent(in) :: yu
+            !! The y-coordinate of the point whose position relative to
+            !! the directed line is to be determined.
+        real(real64), intent(in) :: xv1
+            !! The x-coordinate of the first point defining the base
+            !! line.
+        real(real64), intent(in) :: yv1
+            !! The y-coordinate of the first point defining the base
+            !! line.
+        real(real64), intent(in) :: xv2
+            !! The x-coordinate of the second point defining the base
+            !! line.
+        real(real64), intent(in) :: yv2
+            !! The y-coordinate of the second point defining the base
+            !! line.
+        real(real64), intent(in) :: dv
+            !! The signed distance of the directed line from the
+            !! directed base line.  DV is positive for a line to the
+            !! left of the base line.
+        integer(int32) :: rst
+            !! +1 if the point is to the right of the directed line; 0 if
+            !! the point is on the directed line; -1 if the point is to
+            !! the left of the directed line.
+
+        ! Local Variables
+        real(real64) :: dx, dxu, dy, dyu, t, tol, tolabs
+
+        tol = 100.0d0 * epsilon(tol)
+
+        dx = xv2 - xv1
+        dy = yv2 - yv1
+        dxu = xu - xv1
+        dyu = yu - yv1
+
+        tolabs = tol * max(abs(dx), abs(dy), abs(dxu), abs(dyu), abs(dv))
+
+        t = dy * dxu - dx * dyu + dv * sqrt(dx * dx + dy * dy)
+
+        if (tolabs < t) then
+            rst = 1
+        else if (-tolabs <= t) then
+            rst = 0
+        else
+            rst = -1
+        end if
+    end function
+
+! ------------------------------------------------------------------------------
+    pure function diaedg(x0, y0, x1, y1, x2, y2, x3, y3) result(rst)
+        !! Chooses a diagonal edge.
+        !!
+        !! The routine determines whether 0--2 or 1--3 is the diagonal
+        !! edge that should be chosen, based on the circumcircle
+        !! criterion, where (X0,Y0), (X1,Y1), (X2,Y2), (X3,Y3) are the
+        !! vertices of a simple quadrilateral in counterclockwise order.
+        real(real64), intent(in) :: x0, y0, x1, y1, x2, y2, x3, y3
+            !! The coordinates of the vertices of the quadrilateral.
+        integer(int32) :: rst
+            !! +1 if diagonal edge 02 is chosen; -1 if diagonal edge 13
+            !! is chosen; 0 if the four vertices are cocircular.
+
+        ! Local Variables
+        real(real64) :: ca, cb, dx10, dx12, dx30, dx32, dy10, dy12, dy30, &
+            dy32, s, tol, tola, tolb
+
+        tol = 100.0d0 * epsilon(tol)
+
+        dx10 = x1 - x0
+        dy10 = y1 - y0
+        dx12 = x1 - x2
+        dy12 = y1 - y2
+        dx30 = x3 - x0
+        dy30 = y3 - y0
+        dx32 = x3 - x2
+        dy32 = y3 - y2
+
+        tola = tol * max(abs(dx10), abs(dy10), abs(dx30), abs(dy30))
+        tolb = tol * max(abs(dx12), abs(dy12), abs(dx32), abs(dy32))
+
+        ca = dx10 * dx30 + dy10 * dy30
+        cb = dx12 * dx32 + dy12 * dy32
+
+        if (tola < ca .and. tolb < cb) then
+            rst = -1
+        else if (ca < -tola .and. cb < -tolb) then
+            rst = 1
+        else
+            tola = max(tola, tolb)
+            s = (dx10 * dy30 - dx30 * dy10) * cb + &
+                (dx32 * dy12 - dx12 * dy32) * ca
+            if (tola < s) then
+                rst = -1
+            else if (s < -tola) then
+                rst = 1
+            else
+                rst = 0
+            end if
+        end if
+    end function
+
+! ------------------------------------------------------------------------------
+    pure function i4_modp(i, j) result(rst)
+        !! Returns the nonnegative remainder of I4 division.
+        integer(int32), intent(in) :: i
+            !! The number to be divided.
+        integer(int32), intent(in) :: j
+            !! The number that divides I.
+        integer(int32) :: rst
+            !! The nonnegative remainder when I is divided by J.
+
+        rst = mod(i, j)
+        if (rst < 0) rst = rst + abs(j)
+    end function
+
+! ------------------------------------------------------------------------------
+    pure function i4_wrap(ival, ilo, ihi) result(rst)
+        !! Forces an I4 to lie between given limits by wrapping.
+        integer(int32), intent(in) :: ival
+            !! The value to wrap.
+        integer(int32), intent(in) :: ilo
+            !! The lower bound.
+        integer(int32), intent(in) :: ihi
+            !! The upper bound.
+        integer(int32) :: rst
+            !! A "wrapped" version of IVAL.
+
+        ! Local Variables
+        integer(int32) :: jhi, jlo, wide
+
+        jlo = min(ilo, ihi)
+        jhi = max(ilo, ihi)
+        wide = jhi - jlo + 1
+
+        if (wide == 1) then
+            rst = jlo
+        else
+            rst = jlo + i4_modp(ival - jlo, wide)
+        end if
+    end function
+
+! ------------------------------------------------------------------------------
+    pure subroutine vbedg(x, y, node_num, node_xy, triangle_num, &
+            triangle_node, triangle_neighbor, ltri, ledg, rtri, redg)
+        !! Determines which boundary edges are visible to a point.
+        !!
+        !! The point (X,Y) is assumed to be outside the convex hull of
+        !! the region covered by the 2D triangulation.
+        real(real64), intent(in) :: x
+            !! The x-coordinate of a point outside the convex hull of
+            !! the current triangulation.
+        real(real64), intent(in) :: y
+            !! The y-coordinate of a point outside the convex hull of
+            !! the current triangulation.
+        integer(int32), intent(in) :: node_num
+            !! The number of points.
+        real(real64), intent(in), dimension(2, node_num) :: node_xy
+            !! The coordinates of the vertices.
+        integer(int32), intent(in) :: triangle_num
+            !! The number of triangles.
+        integer(int32), intent(in), dimension(3, triangle_num) :: &
+            triangle_node
+            !! The triangle incidence list.
+        integer(int32), intent(in), dimension(3, triangle_num) :: &
+            triangle_neighbor
+            !! The triangle neighbor list; negative values are used for
+            !! links of a counterclockwise linked list of boundary
+            !! edges; LINK = -(3*I + J-1) where I, J = triangle, edge
+            !! index.
+        integer(int32), intent(inout) :: ltri
+            !! If LTRI /= 0 then this value is assumed to be already
+            !! computed and is not changed, else it is updated.  On
+            !! output, LTRI is the index of the boundary triangle to the
+            !! left of the leftmost boundary triangle visible from
+            !! (X,Y).
+        integer(int32), intent(inout) :: ledg
+            !! The boundary edge of triangle LTRI to the left of the
+            !! leftmost boundary edge visible from (X,Y).  1 <= LEDG <=
+            !! 3.
+        integer(int32), intent(inout) :: rtri
+            !! On input, the index of the boundary triangle to begin the
+            !! search at.  On output, the index of the rightmost
+            !! boundary triangle visible from (X,Y).
+        integer(int32), intent(inout) :: redg
+            !! The edge of triangle RTRI that is visible from (X,Y).
+            !! 1 <= REDG <= 3.
+
+        ! Local Variables
+        integer(int32) :: a, b, e, l, lr, t
+        logical :: ldone
+
+        ! Find the rightmost visible boundary edge using links, then
+        ! possibly the leftmost visible boundary edge using triangle
+        ! neighbor information
+        if (ltri == 0) then
+            ldone = .false.
+            ltri = rtri
+            ledg = redg
+        else
+            ldone = .true.
+        end if
+
+        do
+            l = -triangle_neighbor(redg, rtri)
+            t = l / 3
+            e = mod(l, 3) + 1
+            a = triangle_node(e, t)
+
+            if (e <= 2) then
+                b = triangle_node(e + 1, t)
+            else
+                b = triangle_node(1, t)
+            end if
+
+            lr = lrline(x, y, node_xy(1, a), node_xy(2, a), &
+                node_xy(1, b), node_xy(2, b), 0.0d0)
+
+            if (lr <= 0) exit
+
+            rtri = t
+            redg = e
+        end do
+
+        if (ldone) return
+
+        t = ltri
+        e = ledg
+
+        do
+            b = triangle_node(e, t)
+            e = i4_wrap(e - 1, 1, 3)
+
+            do while (0 < triangle_neighbor(e, t))
+                t = triangle_neighbor(e, t)
+                if (triangle_node(1, t) == b) then
+                    e = 3
+                else if (triangle_node(2, t) == b) then
+                    e = 1
+                else
+                    e = 2
+                end if
+            end do
+
+            a = triangle_node(e, t)
+
+            lr = lrline(x, y, node_xy(1, a), node_xy(2, a), &
+                node_xy(1, b), node_xy(2, b), 0.0d0)
+
+            if (lr <= 0) exit
+        end do
+
+        ltri = t
+        ledg = e
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure subroutine swapec(i, top, btri, bedg, node_num, node_xy, &
+            triangle_num, triangle_node, triangle_neighbor, stack)
+        !! Swaps diagonal edges until all triangles are Delaunay.
+        !!
+        !! The routine swaps diagonal edges in a 2D triangulation, based
+        !! on the empty circumcircle criterion, until all triangles are
+        !! Delaunay, given that I is the index of the new vertex added
+        !! to the triangulation.
+        integer(int32), intent(in) :: i
+            !! The index of the new vertex.
+        integer(int32), intent(inout) :: top
+            !! The index of the top of the stack.  On output, TOP is
+            !! zero.
+        integer(int32), intent(inout) :: btri
+            !! On input, if positive, the triangle index of a boundary
+            !! edge whose updated index must be recorded.  On output,
+            !! this may be updated because of swaps.
+        integer(int32), intent(inout) :: bedg
+            !! On input, if positive, the edge index of a boundary edge
+            !! whose updated index must be recorded.  On output, this
+            !! may be updated because of swaps.
+        integer(int32), intent(in) :: node_num
+            !! The number of points.
+        real(real64), intent(in), dimension(2, node_num) :: node_xy
+            !! The coordinates of the points.
+        integer(int32), intent(in) :: triangle_num
+            !! The number of triangles.
+        integer(int32), intent(inout), dimension(3, triangle_num) :: &
+            triangle_node
+            !! The triangle incidence list.  May be updated on output
+            !! because of swaps.
+        integer(int32), intent(inout), dimension(3, triangle_num) :: &
+            triangle_neighbor
+            !! The triangle neighbor list; negative values are used for
+            !! links of the counter-clockwise linked list of boundary
+            !! edges.  May be updated on output because of swaps.
+        integer(int32), intent(inout), dimension(node_num) :: stack
+            !! On input, entries 1 through TOP contain the indices of
+            !! initial triangles (involving vertex I) put in the stack;
+            !! the edges opposite I should be in the interior; entries
+            !! TOP+1 through NODE_NUM are used as a stack.
+
+        ! Local Variables
+        integer(int32) :: a, b, c, e, ee, em1, ep1, f, fm1, fp1, l, r, s, &
+            swap, t, tt, u
+        real(real64) :: x, y
+
+        x = node_xy(1, i)
+        y = node_xy(2, i)
+
+        do
+            if (top <= 0) exit
+
+            t = stack(top)
+            top = top - 1
+
+            if (triangle_node(1, t) == i) then
+                e = 2
+                b = triangle_node(3, t)
+            else if (triangle_node(2, t) == i) then
+                e = 3
+                b = triangle_node(1, t)
+            else
+                e = 1
+                b = triangle_node(2, t)
+            end if
+
+            a = triangle_node(e, t)
+            u = triangle_neighbor(e, t)
+
+            if (triangle_neighbor(1, u) == t) then
+                f = 1
+                c = triangle_node(3, u)
+            else if (triangle_neighbor(2, u) == t) then
+                f = 2
+                c = triangle_node(1, u)
+            else
+                f = 3
+                c = triangle_node(2, u)
+            end if
+
+            swap = diaedg(x, y, node_xy(1, a), node_xy(2, a), &
+                node_xy(1, c), node_xy(2, c), node_xy(1, b), &
+                node_xy(2, b))
+
+            if (swap == 1) then
+                em1 = i4_wrap(e - 1, 1, 3)
+                ep1 = i4_wrap(e + 1, 1, 3)
+                fm1 = i4_wrap(f - 1, 1, 3)
+                fp1 = i4_wrap(f + 1, 1, 3)
+
+                triangle_node(ep1, t) = c
+                triangle_node(fp1, u) = i
+                r = triangle_neighbor(ep1, t)
+                s = triangle_neighbor(fp1, u)
+                triangle_neighbor(ep1, t) = u
+                triangle_neighbor(fp1, u) = t
+                triangle_neighbor(e, t) = s
+                triangle_neighbor(f, u) = r
+
+                if (0 < triangle_neighbor(fm1, u)) then
+                    top = top + 1
+                    stack(top) = u
+                end if
+
+                if (0 < s) then
+                    if (triangle_neighbor(1, s) == u) then
+                        triangle_neighbor(1, s) = t
+                    else if (triangle_neighbor(2, s) == u) then
+                        triangle_neighbor(2, s) = t
+                    else
+                        triangle_neighbor(3, s) = t
+                    end if
+
+                    top = top + 1
+                    if (node_num < top) then
+                        error stop "SWAPEC - Fatal error!  Stack overflow."
+                    end if
+                    stack(top) = t
+                else
+                    if (u == btri .and. fp1 == bedg) then
+                        btri = t
+                        bedg = e
+                    end if
+
+                    l = -(3 * t + e - 1)
+                    tt = t
+                    ee = em1
+
+                    do while (0 < triangle_neighbor(ee, tt))
+                        tt = triangle_neighbor(ee, tt)
+                        if (triangle_node(1, tt) == a) then
+                            ee = 3
+                        else if (triangle_node(2, tt) == a) then
+                            ee = 1
+                        else
+                            ee = 2
+                        end if
+                    end do
+
+                    triangle_neighbor(ee, tt) = l
+                end if
+
+                if (0 < r) then
+                    if (triangle_neighbor(1, r) == t) then
+                        triangle_neighbor(1, r) = u
+                    else if (triangle_neighbor(2, r) == t) then
+                        triangle_neighbor(2, r) = u
+                    else
+                        triangle_neighbor(3, r) = u
+                    end if
+                else
+                    if (t == btri .and. ep1 == bedg) then
+                        btri = u
+                        bedg = f
+                    end if
+
+                    l = -(3 * u + f - 1)
+                    tt = u
+                    ee = fm1
+
+                    do while (0 < triangle_neighbor(ee, tt))
+                        tt = triangle_neighbor(ee, tt)
+                        if (triangle_node(1, tt) == b) then
+                            ee = 3
+                        else if (triangle_node(2, tt) == b) then
+                            ee = 1
+                        else
+                            ee = 2
+                        end if
+                    end do
+
+                    triangle_neighbor(ee, tt) = l
+                end if
+            end if
+        end do
+    end subroutine
+
+! ------------------------------------------------------------------------------
+end module
diff --git a/src/fplot_colormap.f90 b/src/fplot_colormap.f90
index da4ec14c..0bc91a3d 100644
--- a/src/fplot_colormap.f90
+++ b/src/fplot_colormap.f90
@@ -19,6 +19,7 @@ module fplot_colormap
     public :: grey_colormap
     public :: earth_colormap
     public :: custom_colormap
+    public :: spectral_colormap
 
     type, abstract, extends(plot_object) :: colormap
         !! A colormap object for a surface plot.
@@ -26,10 +27,24 @@ module fplot_colormap
             !! The label to associate with the colormap.
         logical, private :: m_horizontal = .false.
             !! The colormap should be drawn horizontally.
-        logical, private :: m_drawBorder = .true.
+        logical, private :: m_drawBorder = .false.
             !! Draw the colormap border.
-        logical, private :: m_showTics = .true.
+        logical, private :: m_showTics = .false.
             !! Show the tic marks.
+        real(real32), private :: m_colorbarThickness = 0.02
+            !! The relative thickness of the colorbar itself.  A value of 0
+            !! allows GNUPLOT to use it's defaults.  This value is clamped to
+            !! the range [0.0, 1.0].
+        real(real32), private :: m_colorbarLength = 0.4
+            !! The relative length of the colorbar itself.  A value of 0
+            !! allows GNUPLOT to use it's defaults.  This value is clamped to
+            !! the range [0.0, 1.0].
+        real(real32), private :: m_axesSize(2) = [0.85, 0.85]
+            !! The size of the axes size defined as [width, height] 
+            !! clamped to the interval [0.0, 1.0].
+        real(real32), private :: m_axesOrigin(2) = [0.05, 0.05]
+            !! The x-y coordinates of the axes clamped to the interval
+            !! [0.0, 1.0].
     contains
         procedure, public :: get_command_string => cm_get_cmd
         procedure(cm_get_string_result), deferred, public :: get_color_string
@@ -41,6 +56,14 @@ module fplot_colormap
         procedure, public :: set_draw_border => cm_set_draw_border
         procedure, public :: get_show_tics => cm_get_show_tics
         procedure, public :: set_show_tics => cm_set_show_tics
+        procedure, public :: get_colorbar_thickness => cm_get_colorbar_thickness
+        procedure, public :: set_colorbar_thickness => cm_set_colorbar_thickness
+        procedure, public :: get_colorbar_length => cm_get_colorbar_length
+        procedure, public :: set_colorbar_length => cm_set_colorbar_length
+        procedure, public :: get_axes_size => cm_get_axes_size
+        procedure, public :: set_axes_size => cm_set_axes_size
+        procedure, public :: get_axes_origin => cm_get_axes_origin
+        procedure, public :: set_axes_origin => cm_set_axes_origin
     end type
 
     interface
@@ -109,6 +132,13 @@ function cm_get_string_result(this) result(x)
     end type
 
 ! ------------------------------------------------------------------------------
+    type, extends(colormap) :: spectral_colormap
+        !! Defines the spectral colormap available at 
+        !! https://github.com/Gnuplotting/gnuplot-palettes/blob/master/spectral.pal.
+    contains
+        procedure, public :: get_color_string => spcm_get_clr
+    end type
+
 contains
 ! ******************************************************************************
 ! COLORMAP MEMBERS
@@ -122,9 +152,14 @@ function cm_get_cmd(this) result(x)
 
         ! Local Variables
         type(string_builder) :: str
+        real(real32) :: sz(2), origin(2), length, thickness
 
         ! Initialization
         call str%initialize()
+        sz = this%get_axes_size()
+        origin = this%get_axes_origin()
+        length = this%get_colorbar_length()
+        thickness = this%get_colorbar_thickness()
 
         ! Palette Definition
         call str%append("set palette defined (")
@@ -143,14 +178,45 @@ function cm_get_cmd(this) result(x)
             call str%append(new_line('a'))
             call str%append("set colorbox horizontal")
             call str%append(new_line('a'))
-            call str%append("set size 0.8,0.8; set origin 0.1,0.2")
+            call str%append("set size ")
+            call str%append(to_string(sz(1)))
+            call str%append(",")
+            call str%append(to_string(sz(2)))
+            call str%append("; set origin ")
+            call str%append(to_string(origin(1)))
+            call str%append(",")
+            call str%append(to_string(origin(2) + 0.075))
             call str%append(new_line('a'))
-            call str%append("set colorbox user origin 0.1,0.175 size 0.8,0.055")
+            call str%append("set colorbox user origin ")
+            call str%append(to_string(0.5 - 0.5 * length))
+            call str%append(",0.1 size ")
+            call str%append(to_string(length))
+            call str%append(",")
+            call str%append(to_string(thickness))
 
             if (len(this%get_label()) > 0) then
                 call str%append(new_line('a'))
                 call str%append("set cblabel offset 0,0.8")
             end if
+        else
+            call str%append(new_line('a'))
+            call str%append("set colorbox vertical")
+            call str%append(new_line('a'))
+            call str%append("set size ")
+            call str%append(to_string(sz(1)))
+            call str%append(",")
+            call str%append(to_string(sz(2)))
+            call str%append("; set origin ")
+            call str%append(to_string(origin(1)))
+            call str%append(",")
+            call str%append(to_string(origin(2)))
+            call str%append(new_line('a'))
+            call str%append("set colorbox user origin 0.9,")
+            call str%append(to_string(0.5 - 0.5 * length))
+            call str%append(" size ")
+            call str%append(to_string(thickness))
+            call str%append(",")
+            call str%append(to_string(length))
         end if
 
         ! Border & Tic Marks
@@ -262,6 +328,86 @@ subroutine cm_set_show_tics(this, x)
         this%m_showTics = x
     end subroutine
 
+! ------------------------------------------------------------------------------
+    pure function cm_get_colorbar_thickness(this) result(rst)
+        !! Gets the relative thickness of the colorbar.
+        class(colormap), intent(in) :: this
+            !! The colormap object.
+        real(real32) :: rst
+            !! The thickness in [0.0, 1.0]; 0 uses GNUPLOT's default.
+        rst = this%m_colorbarThickness
+    end function
+
+! --------------------
+    subroutine cm_set_colorbar_thickness(this, x)
+        !! Sets the relative colorbar thickness, clamped to [0.0, 1.0].
+        class(colormap), intent(inout) :: this
+            !! The colormap object.
+        real(real32), intent(in) :: x
+            !! The requested thickness; 0 uses GNUPLOT's default.
+        this%m_colorbarThickness = max(0.0, min(1.0, x))
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function cm_get_colorbar_length(this) result(rst)
+        !! Gets the relative length of the colorbar.
+        class(colormap), intent(in) :: this
+            !! The colormap object.
+        real(real32) :: rst
+            !! The length in [0.0, 1.0]; 0 uses GNUPLOT's default.
+        rst = this%m_colorbarLength
+    end function
+
+! --------------------
+    subroutine cm_set_colorbar_length(this, x)
+        !! Sets the relative colorbar length, clamped to [0.0, 1.0].
+        class(colormap), intent(inout) :: this
+            !! The colormap object.
+        real(real32), intent(in) :: x
+            !! The requested length; 0 uses GNUPLOT's default.
+        this%m_colorbarLength = max(0.0, min(1.0, x))
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function cm_get_axes_size(this) result(rst)
+        !! Gets the relative width and height of the axes.
+        class(colormap), intent(in) :: this
+            !! The colormap object.
+        real(real32), dimension(2) :: rst
+            !! The [width, height], each in [0.0, 1.0].
+        rst = this%m_axesSize
+    end function
+
+! --------------------
+    subroutine cm_set_axes_size(this, x)
+        !! Sets the axes width and height, each clamped to [0.0, 1.0].
+        class(colormap), intent(inout) :: this
+            !! The colormap object.
+        real(real32), dimension(2), intent(in) :: x
+            !! The requested [width, height].
+        this%m_axesSize = max(0.0, min(1.0, x))
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function cm_get_axes_origin(this) result(rst)
+        !! Gets the relative x-y coordinates of the axes origin.
+        class(colormap), intent(in) :: this
+            !! The colormap object.
+        real(real32), dimension(2) :: rst
+            !! The [x, y] coordinates, each in [0.0, 1.0].
+        rst = this%m_axesOrigin
+    end function
+
+! --------------------
+    subroutine cm_set_axes_origin(this, x)
+        !! Sets the axes origin coordinates, each clamped to [0.0, 1.0].
+        class(colormap), intent(inout) :: this
+            !! The colormap object.
+        real(real32), dimension(2), intent(in) :: x
+            !! The requested [x, y] coordinates.
+        this%m_axesOrigin = max(0.0, min(1.0, x))
+    end subroutine
+
 ! ------------------------------------------------------------------------------
 ! TO DO:
 !   - Set user-defined tic labels & limits (ref: http://gnuplot.sourceforge.net/demo_5.4/cerf.html)
@@ -487,5 +633,29 @@ subroutine custom_final(this)
         end if
     end subroutine
 
+! ******************************************************************************
+! SPECTRAL_COLORMAP MEMBERS
+! ------------------------------------------------------------------------------
+    function spcm_get_clr(this) result(x)
+        !! Gets the GNUPLOT string defining the color distribution.
+        class(spectral_colormap), intent(in) :: this
+            !! The spectral_colormap object.
+        character(len = :), allocatable :: x
+            !! The command string.
+
+        type(string_builder) :: str
+
+        call str%append("0 '#D53E4F',")
+        call str%append("1 '#F46D43',")
+        call str%append("2 '#FDAE61',")
+        call str%append("3 '#FEE08B',")
+        call str%append("4 '#E6F598',")
+        call str%append("5 '#ABDDA4',")
+        call str%append("6 '#66C2A5',")
+        call str%append("7 '#3288BD'")
+
+        x = char(str%to_string())
+    end function
+
 ! ------------------------------------------------------------------------------
 end module
diff --git a/src/fplot_multiplot.f90 b/src/fplot_multiplot.f90
index 6dad1481..6ea6bb9c 100644
--- a/src/fplot_multiplot.f90
+++ b/src/fplot_multiplot.f90
@@ -34,6 +34,13 @@ module fplot_multiplot
             !! Has a title?
         class(terminal), pointer :: m_terminal => null()
             !! The GNUPLOT terminal object to target.
+        real(real32), private :: m_leftMargin = 0.12
+        real(real32), private :: m_rightMargin = 0.95
+        real(real32), private :: m_bottomMargin = 0.10
+        real(real32), private :: m_topMargin = 0.95
+        real(real32), private :: m_horizontalSpacing = 0.0
+        real(real32), private :: m_verticalSpacing = 0.0
+        logical, private :: m_useAutoMargins = .true.
     contains
         final :: mp_clean
         procedure, public :: get_command_string => mp_get_command
@@ -54,6 +61,20 @@ module fplot_multiplot
         procedure, public :: get_font_size => mp_get_font_size
         procedure, public :: set_font_size => mp_set_font_size
         procedure, public :: set_window_size => mp_set_window_size
+        procedure, public :: get_left_margin => mp_get_left_margin
+        procedure, public :: set_left_margin => mp_set_left_margin
+        procedure, public :: get_right_margin => mp_get_right_margin
+        procedure, public :: set_right_margin => mp_set_right_margin
+        procedure, public :: get_top_margin => mp_get_top_margin
+        procedure, public :: set_top_margin => mp_set_top_margin
+        procedure, public :: get_bottom_margin => mp_get_bottom_margin
+        procedure, public :: set_bottom_margin => mp_set_bottom_margin
+        procedure, public :: get_horizontal_spacing => mp_get_horizontal_spacing
+        procedure, public :: set_horizontal_spacing => mp_set_horizontal_spacing
+        procedure, public :: get_vertical_spacing => mp_get_vertical_spacing
+        procedure, public :: set_vertical_spacing => mp_set_vertical_spacing
+        procedure, public :: get_use_auto_generated_margins => mp_get_use_auto_generated_margins
+        procedure, public :: set_use_auto_generated_margins => mp_set_use_auto_generated_margins
     end type
 
 contains
@@ -87,6 +108,20 @@ function mp_get_command(this) result(x)
             call str%append(this%get_title())
             call str%append('"')
         end if
+        if (.not.this%get_use_auto_generated_margins()) then
+            call str%append(" margins ")
+            call str%append(to_string(this%get_left_margin()))
+            call str%append(",")
+            call str%append(to_string(this%get_right_margin()))
+            call str%append(",")
+            call str%append(to_string(this%get_bottom_margin()))
+            call str%append(",")
+            call str%append(to_string(this%get_top_margin()))
+        end if
+        call str%append(" spacing ")
+        call str%append(to_string(this%get_horizontal_spacing()))
+        call str%append(",")
+        call str%append(to_string(this%get_vertical_spacing()))
         call str%append(new_line('a'))
 
         ! Write commands for each plot object
@@ -506,8 +541,6 @@ subroutine mp_set_font_size(this, x)
         call term%set_font_size(x)
     end subroutine
 
-! ******************************************************************************
-! ADDED AUG. 16, 2026 - V1.9.0
 ! ------------------------------------------------------------------------------
     subroutine mp_set_window_size(this, width, height)
         !! Sets the height and width of the plot window.
@@ -524,5 +557,203 @@ subroutine mp_set_window_size(this, width, height)
         end if
     end subroutine
 
+! ------------------------------------------------------------------------------
+    pure function mp_get_left_margin(this) result(rst)
+        !! Gets the left margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The margin value.
+        rst = this%m_leftMargin
+    end function
+
+! --------------------
+    subroutine mp_set_left_margin(this, x)
+        !! Sets the left margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The margin value.  This value will be clamped to the range
+            !! [0, 1].
+        if (x < 0.0) then
+            this%m_leftMargin = 0.0
+        else if (x > 1.0) then
+            this%m_leftMargin = 1.0
+        else
+            this%m_leftMargin = x
+        end if
+        this%m_useAutoMargins = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_right_margin(this) result(rst)
+        !! Gets the right margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The margin value.
+        rst = this%m_rightMargin
+    end function
+
+! --------------------
+    subroutine mp_set_right_margin(this, x)
+        !! Sets the right margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The margin value.  This value will be clamped to the range
+            !! [0, 1].
+        if (x < 0.0) then
+            this%m_rightMargin = 0.0
+        else if (x > 1.0) then
+            this%m_rightMargin = 1.0
+        else
+            this%m_rightMargin = x
+        end if
+        this%m_useAutoMargins = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_top_margin(this) result(rst)
+        !! Gets the top margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The margin value.
+        rst = this%m_topMargin
+    end function
+
+! --------------------
+    subroutine mp_set_top_margin(this, x)
+        !! Sets the top margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The margin value.  This value will be clamped to the range
+            !! [0, 1].
+        if (x < 0.0) then
+            this%m_topMargin = 0.0
+        else if (x > 1.0) then
+            this%m_topMargin = 1.0
+        else
+            this%m_topMargin = x
+        end if
+        this%m_useAutoMargins = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_bottom_margin(this) result(rst)
+        !! Gets the bottom margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The margin value.
+        rst = this%m_bottomMargin
+    end function
+
+! --------------------
+    subroutine mp_set_bottom_margin(this, x)
+        !! Sets the bottom margin.  The value exists in the range [0, 1].  This
+        !! margin is a global margin for the multiplot.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The margin value.  This value will be clamped to the range
+            !! [0, 1].
+        if (x < 0.0) then
+            this%m_bottomMargin = 0.0
+        else if (x > 1.0) then
+            this%m_bottomMargin = 1.0
+        else
+            this%m_bottomMargin = x
+        end if
+        this%m_useAutoMargins = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_horizontal_spacing(this) result(rst)
+        !! Gets the horizontal spacing between plots.  The value must be
+        !! zero or positive.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The spacing value.
+        rst = this%m_horizontalSpacing
+    end function
+
+! --------------------
+    subroutine mp_set_horizontal_spacing(this, x)
+        !! Sets the horizontal spacing between plots.  The value must be
+        !! zero or positive.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The spacing value.  This value will be clamped to zero if
+            !! a negative value is supplied.
+        if (x < 0.0) then
+            this%m_horizontalSpacing = 0.0
+        else
+            this%m_horizontalSpacing = x
+        end if
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_vertical_spacing(this) result(rst)
+        !! Gets the vertical spacing between plots.  The value must be
+        !! zero or positive.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        real(real32) :: rst
+            !! The spacing value.
+        rst = this%m_verticalSpacing
+    end function
+
+! --------------------
+    subroutine mp_set_vertical_spacing(this, x)
+        !! Sets the vertical spacing between plots.  The value must be
+        !! zero or positive.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        real(real32), intent(in) :: x
+            !! The spacing value.  This value will be clamped to zero if
+            !! a negative value is supplied.
+        if (x < 0.0) then
+            this%m_verticalSpacing = 0.0
+        else
+            this%m_verticalSpacing = x
+        end if
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function mp_get_use_auto_generated_margins(this) result(rst)
+        !! Gets a value determining if the global margins should be 
+        !! automatically calculated.
+        class(multiplot), intent(in) :: this
+            !! The [[multiplot]] object.
+        logical :: rst
+            !! True if the margins should be automatically calculated; else,
+            !! false to use manually defined margins.
+        rst = this%m_useAutoMargins
+    end function
+
+! --------------------
+    subroutine mp_set_use_auto_generated_margins(this, x)
+        !! Sets a value determining if the global margins should be 
+        !! automatically calculated.
+        class(multiplot), intent(inout) :: this
+            !! The [[multiplot]] object.
+        logical, intent(in) :: x
+            !! True if the margins should be automatically calculated; else,
+            !! false to use manually defined margins.
+        this%m_useAutoMargins = x
+    end subroutine
+
 ! ------------------------------------------------------------------------------
 end module
diff --git a/src/fplot_plot_axis.f90 b/src/fplot_plot_axis.f90
index 5d0de852..bb6a2e6b 100644
--- a/src/fplot_plot_axis.f90
+++ b/src/fplot_plot_axis.f90
@@ -79,6 +79,11 @@ module fplot_plot_axis
             !! Use manual (user-defined) tic labels?
         type(name_value_pair), private, allocatable, dimension(:) :: m_ticLabels
             !! A list of user-defined tic labels.
+        real(real32), private :: m_titleAngle = 0.0
+            !! The angle at which to rotate the axis title.
+        logical, private :: m_autoCalcTitleAngle = .true.
+            !! True if GNUPLOT should automatically rotate the title; else,
+            !! false if the m_titleAngle property should determine the angle.
     contains
         procedure, public :: get_title => pa_get_title
         procedure, public :: set_title => pa_set_title
@@ -123,6 +128,12 @@ module fplot_plot_axis
         procedure, public :: set_title_x_offset => pa_set_title_x_offset
         procedure, public :: get_title_y_offset => pa_get_title_y_offset
         procedure, public :: set_title_y_offset => pa_set_title_y_offset
+        procedure, public :: get_title_angle => pa_get_title_angle
+        procedure, public :: set_title_angle => pa_set_title_angle
+        procedure, public :: get_auto_calculate_title_angle => &
+            pa_get_auto_calc_title_angle
+        procedure, public :: set_auto_calculate_title_angle => &
+            pa_set_auto_calc_title_angle
         procedure, public :: get_use_manual_tic_labels => &
             pa_get_use_manual_tic_labels
         procedure, public :: set_use_manual_tic_labels => &
@@ -387,6 +398,12 @@ function pa_get_cmd_string(this) result(txt)
             call str%append(this%get_title())
             call str%append('"')
 
+            ! Rotation
+            if (.not.this%get_auto_calculate_title_angle()) then
+                call str%append(" rotate by ")
+                call str%append(to_string(this%get_title_angle()))
+            end if
+
             ! Offsets
             if (this%get_title_x_offset() /= 0 .or. &
                 this%get_title_y_offset() /= 0) &
@@ -750,6 +767,51 @@ subroutine pa_set_title_y_offset(this, x)
         this%m_titleYOffset = x
     end subroutine
 
+! ------------------------------------------------------------------------------
+    pure function pa_get_title_angle(this) result(x)
+        !! Gets the axis title angle, in degrees.
+        class(plot_axis), intent(in) :: this
+            !! The plot_axis object.
+        real(real32) :: x
+            !! The axis title angle, in degrees.
+        x = this%m_titleAngle
+    end function
+
+! --------------------
+    subroutine pa_set_title_angle(this, x)
+        !! Sets the axis title angle, in degrees.
+        class(plot_axis), intent(inout) :: this
+            !! The plot_axis object.
+        real(real32), intent(in) :: x
+            !! The axis title angle, in degrees.
+        this%m_titleAngle = x
+        this%m_autoCalcTitleAngle = .false.
+    end subroutine
+
+! ------------------------------------------------------------------------------
+    pure function pa_get_auto_calc_title_angle(this) result(x)
+        !! Gets whether GNUPLOT should automatically calculate the axis
+        !! title angle.
+        class(plot_axis), intent(in) :: this
+            !! The plot_axis object.
+        logical :: x
+            !! True if GNUPLOT should automatically calculate the title
+            !! angle; else, false.
+        x = this%m_autoCalcTitleAngle
+    end function
+
+! --------------------
+    subroutine pa_set_auto_calc_title_angle(this, x)
+        !! Sets whether GNUPLOT should automatically calculate the axis
+        !! title angle.
+        class(plot_axis), intent(inout) :: this
+            !! The plot_axis object.
+        logical, intent(in) :: x
+            !! Set to true to automatically calculate the title angle;
+            !! else, set to false.
+        this%m_autoCalcTitleAngle = x
+    end subroutine
+
 ! ------------------------------------------------------------------------------
     pure function pa_get_use_manual_tic_labels(this) result(rst)
         !! Gets a value determining if manual tic labels should be used.
diff --git a/src/fplot_triangulations_delaunay_2d.f90 b/src/fplot_triangulations_delaunay_2d.f90
index bf52fee8..0290065a 100644
--- a/src/fplot_triangulations_delaunay_2d.f90
+++ b/src/fplot_triangulations_delaunay_2d.f90
@@ -1,6 +1,6 @@
 module fplot_triangulations_delaunay_2d
     use iso_fortran_env
-    use geompack
+    use delaunay
     use fplot_errors
     implicit none
     private
diff --git a/test/CMakeLists.txt b/test/CMakeLists.txt
index 8eb922d5..5a0230a8 100644
--- a/test/CMakeLists.txt
+++ b/test/CMakeLists.txt
@@ -2,11 +2,14 @@ set(fplot_test_sources
     fplot_test.f90
     fplot_3d_test.f90
     fplot_arrow_test.f90
+    fplot_colormap_test.f90
+    fplot_delaunay_test.f90
 )
 
 find_package(fortran_test_helper QUIET)
 if (NOT fortran_test_helper_FOUND)
     include(FetchContent)
+    set(BUILD_TESTING OFF)
     FetchContent_Declare(
         fortran_test_helper
         GIT_TAG "origin/main"
diff --git a/test/fplot_colormap_test.f90 b/test/fplot_colormap_test.f90
new file mode 100644
index 00000000..f5b91176
--- /dev/null
+++ b/test/fplot_colormap_test.f90
@@ -0,0 +1,40 @@
+module fplot_colormap_test
+    use iso_fortran_env, only : real32
+    use fplot_colormap, only : rainbow_colormap
+    implicit none
+contains
+    function test_colormap_accessors() result(rst)
+        logical :: rst
+        type(rainbow_colormap) :: map
+
+        rst = .false.
+        if (map%get_colorbar_thickness() /= 0.02) return
+        if (map%get_colorbar_length() /= 0.4) return
+        if (any(map%get_axes_size() /= [0.85, 0.85])) return
+        if (any(map%get_axes_origin() /= [0.05, 0.05])) return
+
+        call map%set_colorbar_thickness(0.25)
+        call map%set_colorbar_length(0.75)
+        call map%set_axes_size([0.25, 0.75])
+        call map%set_axes_origin([0.75, 0.25])
+        if (map%get_colorbar_thickness() /= 0.25) return
+        if (map%get_colorbar_length() /= 0.75) return
+        if (any(map%get_axes_size() /= [0.25, 0.75])) return
+        if (any(map%get_axes_origin() /= [0.75, 0.25])) return
+
+        call map%set_colorbar_thickness(-0.5)
+        call map%set_colorbar_length(1.5)
+        call map%set_axes_size([-0.5, 1.5])
+        call map%set_axes_origin([1.5, -0.5])
+        if (map%get_colorbar_thickness() /= 0.0) return
+        if (map%get_colorbar_length() /= 1.0) return
+        if (any(map%get_axes_size() /= [0.0, 1.0])) return
+        if (any(map%get_axes_origin() /= [1.0, 0.0])) return
+
+        call map%set_colorbar_thickness(1.5)
+        call map%set_colorbar_length(-0.5)
+        if (map%get_colorbar_thickness() /= 1.0) return
+        if (map%get_colorbar_length() /= 0.0) return
+        rst = .true.
+    end function
+end module
\ No newline at end of file
diff --git a/test/fplot_delaunay_test.f90 b/test/fplot_delaunay_test.f90
new file mode 100644
index 00000000..21c1b804
--- /dev/null
+++ b/test/fplot_delaunay_test.f90
@@ -0,0 +1,126 @@
+module fplot_delaunay_test
+    use iso_fortran_env
+    use delaunay
+    use fplot_core
+    implicit none
+contains
+! ------------------------------------------------------------------------------
+function test_r8tris2_square() result(rst)
+    ! Arguments
+    logical :: rst
+
+    ! Parameters
+    integer(int32), parameter :: npts = 4
+
+    ! Local Variables
+    real(real64) :: xy(2, npts)
+    integer(int32) :: ntri
+    integer(int32) :: tri(3, 2 * npts), nbr(3, 2 * npts)
+
+    ! Initialization
+    rst = .true.
+
+    ! Define the corners of a unit square
+    xy(:,1) = [0.0d0, 0.0d0]
+    xy(:,2) = [1.0d0, 0.0d0]
+    xy(:,3) = [1.0d0, 1.0d0]
+    xy(:,4) = [0.0d0, 1.0d0]
+
+    ! Test
+    call r8tris2(npts, xy, ntri, tri, nbr)
+
+    ! A convex quadrilateral should always produce exactly 2 triangles
+    if (ntri /= 2) then
+        rst = .false.
+        print "(A)", "TEST FAILED: test_r8tris2_square -1"
+    end if
+
+    ! Every reported vertex index must be within the valid point range
+    if (any(tri(:,1:ntri) < 1) .or. any(tri(:,1:ntri) > npts)) then
+        rst = .false.
+        print "(A)", "TEST FAILED: test_r8tris2_square -2"
+    end if
+end function
+
+! ------------------------------------------------------------------------------
+function test_r8tris2_triangle_count() result(rst)
+    ! Arguments
+    logical :: rst
+
+    ! Parameters
+    integer(int32), parameter :: npts = 6
+
+    ! Local Variables
+    real(real64) :: xy(2, npts)
+    integer(int32) :: ntri
+    integer(int32) :: tri(3, 2 * npts), nbr(3, 2 * npts)
+
+    ! Initialization
+    rst = .true.
+
+    ! Define a set of points: 5 on a pentagon, and 1 in the center
+    xy(:,1) = [0.0d0, 1.0d0]
+    xy(:,2) = [0.951057d0, 0.309017d0]
+    xy(:,3) = [0.587785d0, -0.809017d0]
+    xy(:,4) = [-0.587785d0, -0.809017d0]
+    xy(:,5) = [-0.951057d0, 0.309017d0]
+    xy(:,6) = [0.0d0, 0.0d0]
+
+    ! Test
+    call r8tris2(npts, xy, ntri, tri, nbr)
+
+    ! For a point set with NB boundary points, the triangle count should
+    ! be 2 * NODE_NUM - NB - 2.  Here, all 5 outer points lie on the
+    ! convex hull, so NB = 5, and the expected count is 2*6 - 5 - 2 = 5
+    if (ntri /= 5) then
+        rst = .false.
+        print "(A)", "TEST FAILED: test_r8tris2_triangle_count -1"
+    end if
+end function
+
+! ------------------------------------------------------------------------------
+function test_delaunay_tri_2d() result(rst)
+    ! Arguments
+    logical :: rst
+
+    ! Parameters
+    integer(int32), parameter :: npts = 4
+    real(real64), parameter :: x(npts) = [0.0d0, 1.0d0, 1.0d0, 0.0d0]
+    real(real64), parameter :: y(npts) = [0.0d0, 0.0d0, 1.0d0, 1.0d0]
+
+    ! Local Variables
+    type(delaunay_tri_2d) :: tri
+    integer(int32) :: i
+
+    ! Initialization
+    rst = .true.
+    call tri%create(x, y)
+
+    ! Test
+    if (tri%get_point_count() /= npts) then
+        rst = .false.
+        print "(A)", "TEST FAILED: test_delaunay_tri_2d -1"
+    end if
+
+    if (tri%get_triangle_count() /= 2) then
+        rst = .false.
+        print "(A)", "TEST FAILED: test_delaunay_tri_2d -2"
+    end if
+
+    ! The center of the square must lie within one of the triangles
+    i = tri%find_triangle(0.5d0, 0.5d0)
+    if (i == -1) then
+        rst = .false.
+        print "(A)", "TEST FAILED: test_delaunay_tri_2d -3"
+    end if
+
+    ! A point well outside the square must not be found in any triangle
+    i = tri%find_triangle(10.0d0, 10.0d0)
+    if (i /= -1) then
+        rst = .false.
+        print "(A)", "TEST FAILED: test_delaunay_tri_2d -4"
+    end if
+end function
+
+! ------------------------------------------------------------------------------
+end module
diff --git a/test/fplot_test.f90 b/test/fplot_test.f90
index e375e32d..135f6abe 100644
--- a/test/fplot_test.f90
+++ b/test/fplot_test.f90
@@ -1,6 +1,8 @@
 program main
     use fplot_3d_test
     use fplot_arrow_test
+    use fplot_colormap_test
+    use fplot_delaunay_test
     implicit none
 
     ! Local Variables
@@ -13,4 +15,16 @@ program main
 
     check = test_arrow()
     if (.not.check) stop 2
+
+    check = test_r8tris2_square()
+    if (.not.check) stop 3
+
+    check = test_r8tris2_triangle_count()
+    if (.not.check) stop 4
+
+    check = test_delaunay_tri_2d()
+    if (.not.check) stop 5
+
+    check = test_colormap_accessors()
+    if (.not.check) stop 6
 end program
\ No newline at end of file