From e34d8383ef945efecf005a835ed46bef0ee00ca1 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Tue, 29 Jan 2013 15:08:51 -0500
Subject: [PATCH] Change printing of basis for plotting mode.

---
 src/output.F90      |  9 ++++++++-
 src/plot_header.F90 | 15 +++++++--------
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/src/output.F90 b/src/output.F90
index 6d7c4dec85..e708b97bc8 100644
--- a/src/output.F90
+++ b/src/output.F90
@@ -1313,7 +1313,14 @@ contains
         write(ou,100) "Width:", trim(to_str(pl % width(1))) // &
              " " // trim(to_str(pl % width(2)))
         write(ou,100) "Coloring:", trim(to_str(pl % color_by))
-        write(ou,100) "Basis:", trim(to_str(pl % basis))
+        select case (pl % basis)
+        case (PLOT_BASIS_XY)
+          write(ou,100) "Basis:", "xy"
+        case (PLOT_BASIS_XZ)
+          write(ou,100) "Basis:", "xz"
+        case (PLOT_BASIS_YZ)
+          write(ou,100) "Basis:", "yz"
+        end select
         write(ou,100) "Pixels:", trim(to_str(pl % pixels(1))) // " " // &
              trim(to_str(pl % pixels(2)))
       end if
diff --git a/src/plot_header.F90 b/src/plot_header.F90
index 29c87b1256..3434ac684f 100644
--- a/src/plot_header.F90
+++ b/src/plot_header.F90
@@ -29,15 +29,14 @@ module plot_header
     type(ObjectColor), allocatable :: colors(:) ! colors of cells/mats
   end type Plot
 
-  integer :: PLOT_TYPE_SLICE = 1
-  integer :: PLOT_TYPE_POINTS = 2
+  integer, parameter :: PLOT_TYPE_SLICE = 1
+  integer, parameter :: PLOT_TYPE_POINTS = 2
 
-  integer :: PLOT_BASIS_XY = 1
-  integer :: PLOT_BASIS_XZ = 2
-  integer :: PLOT_BASIS_YZ = 3
-
-  integer :: PLOT_COLOR_CELLS = 1
-  integer :: PLOT_COLOR_MATS = 2
+  integer, parameter :: PLOT_BASIS_XY = 1
+  integer, parameter :: PLOT_BASIS_XZ = 2
+  integer, parameter :: PLOT_BASIS_YZ = 3
 
+  integer, parameter :: PLOT_COLOR_CELLS = 1
+  integer, parameter :: PLOT_COLOR_MATS = 2
 
 end module plot_header