Minor addition to LinearMag

examples/LinearMag/sphere.geo

@@ -8,7 +8,7 @@
  */
 
 radius = 3.25;     // Radius of the damn thing
-lc = radius/5;     //  0.25;   // Target element size
+lc = radius/10;     //  0.25;   // Target element size
 
 // Total Solution Space
 Box = 3*radius; // The down side of potential

src/FEM4EllipticPDE.cpp

@@ -9,21 +9,9 @@
 //
 //   Organisation:  Colorado School of Mines (CSM)
 //                  United States Geological Survey (USGS)
+//                  University of Utah (UU), 2016
 //
-//          Email:  tirons@mines.edu, tirons@usgs.gov
-//
-//  This program is free software: you can redistribute it and/or modify
-//  it under the terms of the GNU General Public License as published by
-//  the Free Software Foundation, either version 3 of the License, or
-//  (at your option) any later version.
-//
-//  This program is distributed in the hope that it will be useful,
-//  but WITHOUT ANY WARRANTY; without even the implied warranty of
-//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-//  GNU General Public License for more details.
-//
-//  You should have received a copy of the GNU General Public License
-//  along with this program.  If not, see <http://www.gnu.org/licenses/>.
+//          Email:  tirons@egi.utah.edu
 //
 // ===========================================================================
 
@@ -132,10 +120,6 @@ namespace Lemma {
         gFcn3 = gFcn;
     }
 
-    //void FEM4EllipticPDE::SetGrid(vtkDataSet* grid) {
-    //    vtkGrid = grid;
-    //}
-
     void FEM4EllipticPDE::SetGrid(vtkUnstructuredGrid* grid) {
         vtkGrid = grid;
     }
@@ -173,6 +157,11 @@ namespace Lemma {
     }		// -----  end of method FEM4EllipticPDE::SetVTKGridFile  -----
 
 
+    //--------------------------------------------------------------------------------------
+    //       Class:  FEM4EllipticPDE
+    //      Method:  GetConnectedPoints
+    //         (C) Joe Capriotti 2013
+    //--------------------------------------------------------------------------------------
     vtkSmartPointer<vtkIdList> FEM4EllipticPDE::GetConnectedPoints(const int& id0) {
         vtkSmartPointer<vtkIdList> pointIds = vtkSmartPointer<vtkIdList>::New();
         vtkSmartPointer<vtkIdList> cellList = vtkSmartPointer<vtkIdList>::New();
@@ -192,7 +181,7 @@ namespace Lemma {
             }
         }
         return pointIds;
-    }
+    }		// -----  end of method FEM4EllipticPDE::GetConnectedPoints  -----
 
     Real FEM4EllipticPDE::dist(Real r0[3], Real r1[3]) {
         Real rm0 = r1[0] - r0[0];
@@ -432,7 +421,7 @@ namespace Lemma {
                     coeffs.push_back( Eigen::Triplet<Real> ( ID[ii], ID[ii], 1));
                 } else {
                     for (int jj=0; jj<4; ++jj) {
-                        coeffs.push_back( Eigen::Triplet<Real> ( ID[ii], ID[jj],        GradPhi.col(ii).tail<3>().dot(GradPhi.col(jj).tail<3>() ) * V * sigma_bar ) );
+                        coeffs.push_back( Eigen::Triplet<Real> ( ID[ii], ID[jj], GradPhi.col(ii).tail<3>().dot(GradPhi.col(jj).tail<3>() ) * V * sigma_bar ) );
                     }
                 }
             }
@@ -533,8 +522,7 @@ namespace Lemma {
                         Real nv2 = vtkGrid->GetPointData()->GetScalars("G")->GetTuple(ID[jj])[0];
                         if ( std::abs(nv1) > 1e-12 && std::abs(nv2) > 1e-12) {
                             Real length = ( C.row(ii).tail<3>()-C.row(jj).tail<3>()  ).norm();
-
-                            g(ID[ii]) += ((nv1+nv2)/2.)/(length);//*(V/4.);// * (vtkGrid->GetPointData()->GetScalars("G")->GetTuple(ID[ii])[0]); // Point source
+                            g(ID[ii]) += ((nv1+nv2)/2.)/(length);
                         }
                     }
                 }