<p><b>dwj07@fsu.edu</b> 2011-10-17 14:09:04 -0600 (Mon, 17 Oct 2011)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Renaming a private function. Shouldn't affect any files outside of this one.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/source_renaming/src/operators/mpas_rbf_interpolation.F
===================================================================
--- branches/source_renaming/src/operators/mpas_rbf_interpolation.F        2011-10-17 19:49:06 UTC (rev 1099)
+++ branches/source_renaming/src/operators/mpas_rbf_interpolation.F        2011-10-17 20:09:04 UTC (rev 1100)
@@ -230,7 +230,7 @@
     do j=1,pointCount
       do i=j,pointCount
         rSquared = sum((points(j,:) - points(i,:))**2)/alpha**2
-        matrix(i,j) = evaluateRBF(rSquared)
+        matrix(i,j) = evaluate_rbf(rSquared)
         matrix(j,i) = matrix(i,j)
       end do
     end do
@@ -287,7 +287,7 @@
     do j=1,pointCount
       do i=j,pointCount
         rSquared = sum((points(j,:) - points(i,:))**2)/alpha**2
-        matrix(i,j) = evaluateRBF(rSquared)
+        matrix(i,j) = evaluate_rbf(rSquared)
         matrix(j,i) = matrix(i,j)
       end do
     end do
@@ -1414,14 +1414,14 @@
 ! private subroutines
 !!!!!!!!!!!!!!!!!!!!!
 
-  function evaluateRBF(rSquared) result(rbfValue)
+  function evaluate_rbf(rSquared) result(rbfValue)
     real(kind=RKIND), intent(in) :: rSquared
     real(kind=RKIND) :: rbfValue
 
     ! inverse multiquadratic
     rbfValue = 1/sqrt(1 + rSquared)
 
-  end function evaluateRBF
+  end function evaluate_rbf
 
   subroutine mpas_evaluate_rbf_and_deriv(rSquared, rbfValue, rbfDerivOverR)
     real(kind=RKIND), intent(in) :: rSquared
@@ -1461,14 +1461,14 @@
     do j = 1, pointCount
       do i = 1, pointCount
         rSquared = sum((sourcePoints(i,:)-sourcePoints(j,:))**2)/alpha**2
-        rbfValue = evaluateRBF(rSquared)
+        rbfValue = evaluate_rbf(rSquared)
         dirichletMatrix(i,j) = rbfValue
       end do
     end do
 
     do j = 1, pointCount
       rSquared = sum((destinationPoint-sourcePoints(j,:))**2)/alpha**2
-      rhs(j) = evaluateRBF(rSquared)
+      rhs(j) = evaluate_rbf(rSquared)
     end do
 
   end subroutine mpas_set_up_scalar_rbf_dirichlet_matrix_and_rhs
@@ -1505,7 +1505,7 @@
       else
         do i = 1, pointCount
           rSquared = sum((sourcePoints(i,:)-sourcePoints(j,:))**2)/alpha**2
-          rbfValue = evaluateRBF(rSquared)
+          rbfValue = evaluate_rbf(rSquared)
           dirichletMatrix(i,j) = rbfValue
           neumannMatrix(i,j) = rbfValue
         end do
@@ -1514,7 +1514,7 @@
 
     do j = 1, pointCount
       rSquared = sum((destinationPoint-sourcePoints(j,:))**2)/alpha**2
-      rhs(j) = evaluateRBF(rSquared)
+      rhs(j) = evaluate_rbf(rSquared)
     end do
 
   end subroutine mpas_set_up_scalar_rbf_matrix_and_rhs
@@ -1538,7 +1538,7 @@
     do j = 1, pointCount
       do i = j, pointCount
         rSquared = sum((sourcePoints(i,:)-sourcePoints(j,:))**2)/alpha**2
-        rbfValue = evaluateRBF(rSquared)
+        rbfValue = evaluate_rbf(rSquared)
         unitVectorDotProduct = sum(unitVectors(i,:)*unitVectors(j,:))
         matrix(i,j) = rbfValue*unitVectorDotProduct
         matrix(j,i) = matrix(i,j)
@@ -1547,7 +1547,7 @@
 
     do j = 1, pointCount
       rSquared = sum((destinationPoint-sourcePoints(j,:))**2)/alpha**2
-      rhs(j,:) = evaluateRBF(rSquared)*unitVectors(j,:)
+      rhs(j,:) = evaluate_rbf(rSquared)*unitVectors(j,:)
     end do
 
   end subroutine mpas_set_up_vector_dirichlet_rbf_matrix_and_rhs
@@ -1585,7 +1585,7 @@
       else
         do i = 1, pointCount
           rSquared = sum((sourcePoints(i,:)-sourcePoints(j,:))**2)/alpha**2
-          rbfValue = evaluateRBF(rSquared)
+          rbfValue = evaluate_rbf(rSquared)
           unitVectorDotProduct = sum(unitVectors(i,:)*unitVectors(j,:))
           matrix(i,j) = rbfValue*unitVectorDotProduct
         end do
@@ -1594,7 +1594,7 @@
 
     do j = 1, pointCount
       rSquared = sum((destinationPoint-sourcePoints(j,:))**2)/alpha**2
-      rhs(j,:) = evaluateRBF(rSquared)*unitVectors(j,:)
+      rhs(j,:) = evaluate_rbf(rSquared)*unitVectors(j,:)
     end do
 
   end subroutine mpas_set_up_vector_free_slip_rbf_matrix_and_rhs

</font>
</pre>