[cig-commits] [commit] master: finishing styling (5125653)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/axisem

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/71d69b1b4050069398bdbbb4b069ce8780f3b96b...5125653af38b84801ab6024bf1ccd922752c6b2a

>---------------------------------------------------------------

commit 5125653af38b84801ab6024bf1ccd922752c6b2a
Author: martinvandriel <vandriel at erdw.ethz.ch>
Date:   Fri Oct 17 15:55:04 2014 +0200

    finishing styling


>---------------------------------------------------------------

5125653af38b84801ab6024bf1ccd922752c6b2a
 MESHER/numbering.f90       | 26 +++++++++++++-------------
 MESHER/parallelization.f90 |  2 ++
 MESHER/pdb.f90             |  2 ++
 MESHER/sorting.f90         |  5 ++++-
 MESHER/test_bkgrdmodel.F90 |  2 ++
 5 files changed, 23 insertions(+), 14 deletions(-)

diff --git a/MESHER/numbering.f90 b/MESHER/numbering.f90
index 03e33d8..5594c17 100644
--- a/MESHER/numbering.f90
+++ b/MESHER/numbering.f90
@@ -19,6 +19,7 @@
 !    along with AxiSEM.  If not, see <http://www.gnu.org/licenses/>.
 !
 
+!=========================================================================================
 module numbering
 
   use data_gllmesh
@@ -37,7 +38,7 @@ module numbering
 
 contains
 
-!--------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 subroutine define_global_global_numbering
 
   use data_time
@@ -81,9 +82,9 @@ subroutine define_global_global_numbering
   if (dump_mesh_info_screen) write(6,*) 'NGLOBGLOB IS ' , NGLOBGLOB
 
 end subroutine define_global_global_numbering
-!--------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 
-!--------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 subroutine define_global_flobal_numbering
   
   use data_time
@@ -128,9 +129,9 @@ subroutine define_global_flobal_numbering
   if (dump_mesh_info_screen) write(6,*) 'NGLOBFLOB IS ' , NGLOBFLOB
 
 end subroutine define_global_flobal_numbering
-!-------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 
-!-------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 subroutine define_global_slobal_numbering
 
   use data_time
@@ -176,7 +177,7 @@ subroutine define_global_slobal_numbering
   if (dump_mesh_info_screen) write(6,*) 'NGLOBSLOB IS ' , NGLOBSLOB 
 
 end subroutine define_global_slobal_numbering
-!-------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 
 
 !=====================================================================
@@ -311,10 +312,10 @@ subroutine get_global(nspec2, xp, yp, iglob2, loc2, ifseg2, nglob2, npointot2, &
   nglob2 = ig
 
 end subroutine get_global
-!-------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 
+!-----------------------------------------------------------------------------------------
 ! sorting routines put in same file to allow for inlining
-!-------------------------------------------------------------------------
 subroutine rank_y(A,IND,N)
   !
   ! Use Heap Sort (Numerical Recipes)
@@ -371,9 +372,9 @@ subroutine rank_y(A,IND,N)
   goto 100
 
 end subroutine rank_y
-!-------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 
-!-------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 subroutine swapall(IA,A,B,ind,n)
   !
   ! swap arrays IA, A, B and C according to addressing in array IND
@@ -399,8 +400,7 @@ subroutine swapall(IA,A,B,ind,n)
   enddo
 
 end subroutine swapall
-!-------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 
-!=========================
 end module numbering
-!=========================
+!=========================================================================================
diff --git a/MESHER/parallelization.f90 b/MESHER/parallelization.f90
index ff9165d..36342cd 100644
--- a/MESHER/parallelization.f90
+++ b/MESHER/parallelization.f90
@@ -19,6 +19,7 @@
 !    along with AxiSEM.  If not, see <http://www.gnu.org/licenses/>.
 !
 
+!=========================================================================================
 module parallelization
 
   use data_grid
@@ -1680,3 +1681,4 @@ end subroutine ascii_print_markregion
 !-----------------------------------------------------------------------------------------
 
 end module parallelization 
+!=========================================================================================
diff --git a/MESHER/pdb.f90 b/MESHER/pdb.f90
index e3a1492..1494eb7 100644
--- a/MESHER/pdb.f90
+++ b/MESHER/pdb.f90
@@ -19,6 +19,7 @@
 !    along with AxiSEM.  If not, see <http://www.gnu.org/licenses/>.
 !
 
+!=========================================================================================
 module pdb
   use data_mesh
   use data_numbering
@@ -2486,3 +2487,4 @@ end subroutine define_io_appendix
 !-----------------------------------------------------------------------------------------
 
 end module pdb
+!=========================================================================================
diff --git a/MESHER/sorting.f90 b/MESHER/sorting.f90
index bd715e8..e39b0f7 100644
--- a/MESHER/sorting.f90
+++ b/MESHER/sorting.f90
@@ -19,6 +19,7 @@
 !    along with AxiSEM.  If not, see <http://www.gnu.org/licenses/>.
 !
 
+!=========================================================================================
 module sorting
   use global_parameters, only: sp, dp
   implicit none
@@ -248,7 +249,7 @@ recursive subroutine pmsort(a, ind, p)
 end subroutine 
 !-----------------------------------------------------------------------------------------
 
-!-------------------------------------------------------------------------
+!-----------------------------------------------------------------------------------------
 subroutine mergesort_3(a, b, il, il2, p)
     
   use data_time
@@ -333,5 +334,7 @@ subroutine mergesort_3(a, b, il, il2, p)
   iclock05 = tick(id=idold05, since=iclock05)
 
 end subroutine
+!-----------------------------------------------------------------------------------------
 
 end module
+!=========================================================================================
diff --git a/MESHER/test_bkgrdmodel.F90 b/MESHER/test_bkgrdmodel.F90
index 1ea0f5d..6fd56fb 100644
--- a/MESHER/test_bkgrdmodel.F90
+++ b/MESHER/test_bkgrdmodel.F90
@@ -19,6 +19,7 @@
 !    along with AxiSEM.  If not, see <http://www.gnu.org/licenses/>.
 !
 
+!=========================================================================================
 module test_bkgrdmodel
 
   use data_gllmesh
@@ -659,3 +660,4 @@ end subroutine write_VTK_bin_scal
 !-----------------------------------------------------------------------------------------
 
 end module test_bkgrdmodel
+!=========================================================================================