[cig-commits] r21904 - seismo/3D/SPECFEM3D_GLOBE/trunk/utils/attenuation

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2013-04-18 16:14:10 -0700 (Thu, 18 Apr 2013)
New Revision: 21904

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/utils/attenuation/attenuation_simplex.f90
Log:
rename qsort() to bubble_sort()


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/utils/attenuation/attenuation_simplex.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/utils/attenuation/attenuation_simplex.f90	2013-04-18 22:47:34 UTC (rev 21903)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/utils/attenuation/attenuation_simplex.f90	2013-04-18 23:14:10 UTC (rev 21904)
@@ -357,7 +357,7 @@
      fv(j+1) = funk(x)
   enddo
 
-  call qsort(fv,n+1,place)
+  call bubble_sort(fv,n+1,place)
 
   do i = 1,n+1
      vtmp(:,i) = v(:,place(i))
@@ -466,7 +466,7 @@
         endif
      endif
 
-     call qsort(fv,n+1,place)
+     call bubble_sort(fv,n+1,place)
      do i = 1,n+1
         vtmp(:,i) = v(:,place(i))
      enddo
@@ -570,7 +570,6 @@
 
 
 !!!!!!!
-! subroutine qsort
 !    - Implementation of a Bubble Sort Routine
 !    Input
 !      X = Input/Output
@@ -588,7 +587,7 @@
 !         X = [ 1 2 3 4 ] on Output
 !         I = [ 3 4 2 1 ] on Output
 !
-subroutine qsort(X,n,I)
+subroutine bubble_sort(X,n,I)
   implicit none
   integer n
   real(8) X(n)
@@ -616,7 +615,7 @@
      enddo
   enddo
 
-end subroutine qsort
+end subroutine bubble_sort