From ba9eb407202e50d0fa9b29fa35dc2bcba1fea62f Mon Sep 17 00:00:00 2001
From: lpri691 <lpri691@aucklanduni.ac.nz>
Date: Fri, 5 Oct 2012 15:14:46 +1300
Subject: [PATCH] better intro

---
 boxcount.f90       | 23 ++++++++++-------------
 boxcountdriver.f90 |  4 ++++
 2 files changed, 14 insertions(+), 13 deletions(-)

diff --git a/boxcount.f90 b/boxcount.f90
index a5b067d..8f183b8 100644
--- a/boxcount.f90
+++ b/boxcount.f90
@@ -1,8 +1,3 @@
-module box_count
-  use types, only : dp
-  use sorters, only : heapsort, equalcond
-  implicit none
-
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !Written by Layne Price, University of Auckland, May 2012
 !This is adapted from a number of articles written online about box-counting, as well as
@@ -24,16 +19,18 @@ module box_count
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+module box_count
+  use types, only : dp
+  use sorters, only : heapsort, equalcond
+  implicit none
 
-!Private variable.
-logical, private, parameter :: bxprinting=.true.
-
-
+  !Private variable.
+  logical, private, parameter :: bxprinting=.true.
 
-interface boxcount
-  module procedure boxcount_dp
-  module procedure bound_boxcount
-end interface
+  interface boxcount
+    module procedure boxcount_dp
+    module procedure bound_boxcount
+  end interface
 
 
 contains
diff --git a/boxcountdriver.f90 b/boxcountdriver.f90
index b2b5e0d..12c85e4 100644
--- a/boxcountdriver.f90
+++ b/boxcountdriver.f90
@@ -1,3 +1,7 @@
+!*******************************************************************************
+!Layne Price, University of Auckland, May 2012.
+!*******************************************************************************
+
 !A program that loads a success file named totalsucc.bin and a fail file named
 !totalfail.bin and performs a boxcounting procedure on a) the success set b) the
 !failure set c) the boundary between the two and d) the two combined together.