Changeset 3246 for issm/trunk/src/c/Bamgx/objects/Metric.cpp

Timestamp:

03/10/10 11:17:57 (16 years ago)

Author:

Mathieu Morlighem

Message:

Added ariginal file location

File:

• issm/trunk/src/c/Bamgx/objects/Metric.cpp (modified) (7 diffs)

issm/trunk/src/c/Bamgx/objects/Metric.cpp

@@ -18 +18 @@
         /*FUNCTION Metric::Metric(const double  a[3],const  Metric m0, const  Metric m1,const  Metric  m2 ){{{1*/ 
         Metric::Metric(const double  a[3],const  Metric m0, const  Metric m1,const  Metric m2 ){
+                /*Original code from Frederic Hecht <hecht@ann.jussieu.fr> (BAMG v1.01, Metric.cpp/Metric)*/
+
                 Metric mab(a[0]*m0.a11 + a[1]*m1.a11 + a[2]*m2.a11,
                                         a[0]*m0.a21 + a[1]*m1.a21 + a[2]*m2.a21,
@@ -37 +39 @@
         /*FUNCTION Metric::Metric( double  a,const  Metric ma, double  b,const  Metric mb){{{1*/
         Metric::Metric( double  a,const  Metric ma, double  b,const  Metric mb) { 
+                /*Original code from Frederic Hecht <hecht@ann.jussieu.fr> (BAMG v1.01, Metric.cpp/MatVVP2x2)*/
+
                 Metric mab(a*ma.a11+b*mb.a11,a*ma.a21+b*mb.a21,a*ma.a22+b*mb.a22);
                 MatVVP2x2 vab(mab);
@@ -54 +58 @@
         /*Methods*/
         /*FUNCTION Metric::Echo {{{1*/
-
         void Metric::Echo(void){
 
@@ -65 +68 @@
         /*FUNCTION Metric::IntersectWith{{{1*/
         int Metric::IntersectWith(const Metric M2) {
+                /*Original code from Frederic Hecht <hecht@ann.jussieu.fr> (BAMG v1.01, Metric.cpp/IntersectWith)*/
+
                 /*Get a new metric from an existing metric (M1=this)
                  * and a new metric given in input M2 using a 
@@ -118 +123 @@
         /*FUNCTION LengthInterpole{{{1*/
         double LengthInterpole(const Metric Ma,const  Metric Mb, R2 AB) {
+                /*Original code from Frederic Hecht <hecht@ann.jussieu.fr> (BAMG v1.01, Metric.cpp/LengthInterpole)*/
+
                 double k=1./2.;
                 int level=0;
@@ -184 +191 @@
         /*FUNCTION SimultaneousMatrixReduction{{{1*/
         void SimultaneousMatrixReduction( Metric M1,  Metric M2, D2xD2 &V) {
+                /*Original code from Frederic Hecht <hecht@ann.jussieu.fr> (BAMG v1.01, Metric.cpp/ReductionSimultanee)*/
+
                 /*In this routine we must return a matrix V that is composed of the 
                  * eigen vectors of N=inv(M1) M2.
@@ -287 +296 @@
         /*FUNCTION abscisseInterpole{{{1*/
         double abscisseInterpole(const Metric Ma,const  Metric Mb, R2 AB,double s,int optim) { 
+                /*Original code from Frederic Hecht <hecht@ann.jussieu.fr> (BAMG v1.01, Metric.cpp/abscisseInterpole)*/
+
                 if(!optim)  LengthInterpole(Ma,Mb,AB);
                 double l  = s* LastMetricInterpole.lab,r;