[cig-commits] [commit] QA: Remove some unused subroutines. (a515d42)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem2d

On branch  : QA
Link       : https://github.com/geodynamics/specfem2d/compare/28743f19b9f9fdb75d359c135053825c0ffd05b3...5e8aa55e68fd17b6f475fb65531b84195e497aa1

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

commit a515d4240ea5a9ac9c092e8964b6c5ceb7fca1d7
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Tue Jan 7 19:49:56 2014 -0500

    Remove some unused subroutines.


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

a515d4240ea5a9ac9c092e8964b6c5ceb7fca1d7
 src/specfem2D/get_perm_cuthill_mckee.f90 | 83 --------------------------------
 1 file changed, 83 deletions(-)

diff --git a/src/specfem2D/get_perm_cuthill_mckee.f90 b/src/specfem2D/get_perm_cuthill_mckee.f90
index 571c6f2..f23c30e 100644
--- a/src/specfem2D/get_perm_cuthill_mckee.f90
+++ b/src/specfem2D/get_perm_cuthill_mckee.f90
@@ -724,86 +724,3 @@ subroutine degree( root, nbnodes, nnz, xadj, adj, mask, gsize, deg, level )
 
 END subroutine degree
 
-!
-!-----------------------------------------------------------------------
-!
-
-  subroutine permute_elements_real(array_to_permute,temp_array,perm,nspec)
-
-  implicit none
-
-  include "constants.h"
-
-  integer, intent(in) :: nspec
-  integer, intent(in), dimension(nspec) :: perm
-
-  real(kind=CUSTOM_REAL), intent(inout), dimension(NGLLX,NGLLZ,nspec) :: array_to_permute,temp_array
-
-  integer old_ispec,new_ispec
-
-! copy the original array
-  temp_array(:,:,:) = array_to_permute(:,:,:)
-
-  do old_ispec = 1,nspec
-    new_ispec = perm(old_ispec)
-    array_to_permute(:,:,new_ispec) = temp_array(:,:,old_ispec)
-  enddo
-
-  end subroutine permute_elements_real
-
-!
-!-----------------------------------------------------------------------
-!
-
-! implement permutation of elements for arrays of integer type
-  subroutine permute_elements_integer(array_to_permute,temp_array,perm,nspec)
-
-  implicit none
-
-  include "constants.h"
-
-  integer, intent(in) :: nspec
-  integer, intent(in), dimension(nspec) :: perm
-
-  integer, intent(inout), dimension(NGLLX,NGLLZ,nspec) :: array_to_permute,temp_array
-
-  integer old_ispec,new_ispec
-
-! copy the original array
-  temp_array(:,:,:) = array_to_permute(:,:,:)
-
-  do old_ispec = 1,nspec
-    new_ispec = perm(old_ispec)
-    array_to_permute(:,:,new_ispec) = temp_array(:,:,old_ispec)
-  enddo
-
-  end subroutine permute_elements_integer
-
-!
-!-----------------------------------------------------------------------
-!
-
-! implement permutation of elements for arrays of double precision type
-  subroutine permute_elements_dble(array_to_permute,temp_array,perm,nspec)
-
-  implicit none
-
-  include "constants.h"
-
-  integer, intent(in) :: nspec
-  integer, intent(in), dimension(nspec) :: perm
-
-  double precision, intent(inout), dimension(NGLLX,NGLLZ,nspec) :: array_to_permute,temp_array
-
-  integer old_ispec,new_ispec
-
-! copy the original array
-  temp_array(:,:,:) = array_to_permute(:,:,:)
-
-  do old_ispec = 1,nspec
-    new_ispec = perm(old_ispec)
-    array_to_permute(:,:,new_ispec) = temp_array(:,:,old_ispec)
-  enddo
-
-  end subroutine permute_elements_dble
-