Changeset 17739

Timestamp:

04/15/14 16:01:38 (12 years ago)

Author:

Mathieu Morlighem

Message:

BUG: fixing windows compile

File:

• issm/trunk-jpl/src/c/shared/FSanalyticals/fsanalyticals.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/shared/FSanalyticals/fsanalyticals.cpp

@@ -138 +138 @@
                         return -10*PI*p*sqrt((9.0L/25.0L)*pow(PI, 2)*pow(p, 2)*pow(cos(2*PI*p*x), 2) + 1)*(9*pow(PI, 2)*pow(p, 2)*pow(sin(PI*p*x), 2)*pow(cos(2*PI*p*x), 2)*pow(cos(PI*p*z), 2) - 9*pow(PI, 2)*pow(p, 2)*pow(sin(PI*p*z), 2)*pow(cos(PI*p*x), 2)*pow(cos(2*PI*p*x), 2) + 90*PI*p*sin(PI*p*x)*sin(PI*p*z)*cos(PI*p*x)*cos(2*PI*p*x)*cos(PI*p*z) - 25*pow(sin(PI*p*x), 2)*pow(cos(PI*p*z), 2) + 25*pow(sin(PI*p*z), 2)*pow(cos(PI*p*x), 2))/((9*pow(PI, 2)*pow(p, 2)*pow(cos(2*PI*p*x), 2) + 25)*(3*PI*p*sin(PI*p*z)*cos(PI*p*x)*cos(2*PI*p*x) - 5*sin(PI*p*x)*cos(PI*p*z))*sin(PI*p*x)*sin(PI*p*z));
                 case 18:
-                        return (120.0L/109.0L)*sqrt(109)/(10*x - 3*z);
+                        return (120.0L/109.0L)*sqrt(109.)/(10*x - 3*z);
                 default:
                         _error_("FS analytical solution"<<testid<<" not implemented yet");