From 52aeae287816e210a0ccfeedb4c949e50d04914e Mon Sep 17 00:00:00 2001
From: Patrick Shriwise <pshriwise@gmail.com>
Date: Tue, 9 Oct 2018 11:56:24 -0500
Subject: [PATCH] Fortran style updates.

---
 src/plot.F90        | 14 +++++++-------
 src/plot_header.F90 |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/plot.F90 b/src/plot.F90
index 2bf390540..bc06610b4 100644
--- a/src/plot.F90
+++ b/src/plot.F90
@@ -26,13 +26,13 @@ module plot
   integer, parameter :: BLUE = 3
 
   interface
-     subroutine position_rgb(p, pl, rgb, id) bind(C)
-       import Particle, ObjectPlot, C_INT
-       type(Particle), intent(inout) :: p
-       type(ObjectPlot), intent(in) :: pl
-       integer(C_INT),   intent(out) :: rgb(3)
-       integer(C_INT), intent(out) :: id
-     end subroutine position_rgb
+    subroutine position_rgb(p, pl, rgb, id) bind(C)
+      import Particle, ObjectPlot, C_INT
+      type(Particle), intent(inout) :: p
+      type(ObjectPlot), intent(in) :: pl
+      integer(C_INT),   intent(out) :: rgb(3)
+      integer(C_INT), intent(out) :: id
+    end subroutine position_rgb
   end interface
 
 contains
diff --git a/src/plot_header.F90 b/src/plot_header.F90
index ad9aa3525..9937db7dd 100644
--- a/src/plot_header.F90
+++ b/src/plot_header.F90
@@ -33,7 +33,7 @@ module plot_header
     type(ObjectColor) :: meshlines_color              ! Color for meshlines
     type(ObjectColor) :: not_found                    ! color for positions where no cell found
     type(ObjectColor) :: colors(MAX_COORD)            ! colors of cells/mats
-    character(MAX_WORD_LEN, kind=C_CHAR) :: path_plot ! path for plot file    
+    character(MAX_WORD_LEN, kind=C_CHAR) :: path_plot ! path for plot file
   end type ObjectPlot
 
   ! Plot type