Permalink
Browse files

better intro

  • Loading branch information...
1 parent 0e766a7 commit ba9eb407202e50d0fa9b29fa35dc2bcba1fea62f @laynep committed Oct 5, 2012
Showing with 14 additions and 13 deletions.
  1. +10 −13 boxcount.f90
  2. +4 −0 boxcountdriver.f90
View
@@ -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
View
@@ -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.

0 comments on commit ba9eb40

Please sign in to comment.