[cig-commits] r8427 - seismo/2D/SPECFEM2D/trunk/MAILLE90

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:45:23 -0800 (Fri, 07 Dec 2007)
New Revision: 8427

Modified:
   seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90
   seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90
Log:
removed useless "return" statements


Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90	2004-09-10 23:37:55 UTC (rev 8426)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_2.f90	2007-12-07 23:45:23 UTC (rev 8427)
@@ -841,8 +841,8 @@
   implicit none
   integer i,j,nx
 
-    num = j*(nx+1) + i + 1
-  return
+  num = j*(nx+1) + i + 1
+
   end function num
 
 ! ------- definition des fonctions representant les interfaces -------
@@ -854,8 +854,9 @@
   double precision function bottom(x)
   implicit none
   double precision x
-    bottom = 0.d0
-  return
+
+  bottom = 0.d0
+
   end function bottom
 
 !
@@ -876,7 +877,6 @@
   if (xp > xtopo(ntopo)) xp = xtopo(ntopo)
   call splint(xtopo,ztopo,coefs,ntopo,xp,spl)
 
-  return
   end function spl
 
 ! --- fonction de densification du maillage horizontal
@@ -889,7 +889,6 @@
 
   dens = xmin + dble(xmax-xmin)*psi(ix)
 
-  return
   end function dens
 
 ! --------------------------------------
@@ -926,7 +925,6 @@
 
   deallocate(u)
 
-  return
   end subroutine spline
 
 ! --------------
@@ -959,6 +957,6 @@
 
   Y=A*YA(KLO)+B*YA(KHI)+((A**3-A)*Y2A(KLO)+ &
               (B**3-B)*Y2A(KHI))*(H**2)/6.d0
-  RETURN
+
   end subroutine SPLINT
 

Modified: seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90	2004-09-10 23:37:55 UTC (rev 8426)
+++ seismo/2D/SPECFEM2D/trunk/MAILLE90/maille_non_struct_3.f90	2007-12-07 23:45:23 UTC (rev 8427)
@@ -865,8 +865,8 @@
   implicit none
   integer i,j,nx
 
-    num = j*(nx+1) + i + 1
-  return
+  num = j*(nx+1) + i + 1
+
   end function num
 
 ! ------- definition des fonctions representant les interfaces -------
@@ -878,8 +878,9 @@
   double precision function bottom(x)
   implicit none
   double precision x
-    bottom = 0.d0
-  return
+
+  bottom = 0.d0
+
   end function bottom
 
 !
@@ -900,7 +901,6 @@
   if (xp > xtopo(ntopo)) xp = xtopo(ntopo)
   call splint(xtopo,ztopo,coefs,ntopo,xp,spl)
 
-  return
   end function spl
 
 ! --- fonction de densification du maillage horizontal
@@ -913,7 +913,6 @@
 
   dens = xmin + dble(xmax-xmin)*psi(ix)
 
-  return
   end function dens
 
 ! --------------------------------------
@@ -950,7 +949,6 @@
 
   deallocate(u)
 
-  return
   end subroutine spline
 
 ! --------------
@@ -981,8 +979,7 @@
   A=(XA(KHI)-X)/H
   B=(X-XA(KLO))/H
 
-  Y=A*YA(KLO)+B*YA(KHI)+((A**3-A)*Y2A(KLO)+ &
-              (B**3-B)*Y2A(KHI))*(H**2)/6.d0
-  RETURN
+  Y=A*YA(KLO)+B*YA(KHI)+((A**3-A)*Y2A(KLO)+ (B**3-B)*Y2A(KHI))*(H**2)/6.d0
+
   end subroutine SPLINT