<p><b>duda</b> 2010-04-21 17:07:09 -0600 (Wed, 21 Apr 2010)</p><p>Fix syntax error caught by g95 and gfortran: a unary arithmetic<br>
operator cannot immediately follow a binary arithmetic operator,<br>
so we need to add parenthesis. E.g., x**-2.0 becomes x**(-2.0)<br>
<br>
M    src/core_sw/module_test_cases.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/core_sw/module_test_cases.F
===================================================================
--- trunk/mpas/src/core_sw/module_test_cases.F        2010-04-21 22:31:53 UTC (rev 198)
+++ trunk/mpas/src/core_sw/module_test_cases.F        2010-04-21 23:07:09 UTC (rev 199)
@@ -508,7 +508,7 @@
       real (kind=RKIND), intent(in) :: theta
 
       AA = 0.5 * w * (2.0 * omega + w) * cos(theta)**2.0 + &amp;
-          0.25 * K**2.0 * cos(theta)**(2.0*R) * ((R+1.0)*cos(theta)**2.0 + 2.0*R**2.0 - R - 2.0 - 2.0*R**2.0 * cos(theta)**-2.0)
+          0.25 * K**2.0 * cos(theta)**(2.0*R) * ((R+1.0)*cos(theta)**2.0 + 2.0*R**2.0 - R - 2.0 - 2.0*R**2.0 * cos(theta)**(-2.0))
 
    end function AA
 

</font>
</pre>