better intro

laynep · Oct 5, 2012 · ba9eb40 · ba9eb40
1 parent 0e766a7
commit ba9eb40
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 13 deletions.
diff --git 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.
+  !Private variable.
-logical, private, parameter :: bxprinting=.true.
+  logical, private, parameter :: bxprinting=.true.
-
-
 
-interface boxcount
+  interface boxcount
-  module procedure boxcount_dp
+    module procedure boxcount_dp
-  module procedure bound_boxcount
+    module procedure bound_boxcount
-end interface
+  end interface
 
 
 contains

diff --git 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.