--- trunk/libf/dyn3d/ssum.f90	2011/01/25 15:11:05	39
+++ trunk/libf/dyn3d/ssum.f90	2011/02/22 13:49:36	40
@@ -5,10 +5,10 @@
   IMPLICIT NONE
 
   integer, intent(in):: n, incx
-  real, intent(in):: sx((n-1)*incx+1)
+  real, intent(in):: sx((n - 1) * incx + 1)
 
   !-----------------------
 
-  ssum=sum(sx(::incx))
+  ssum = sum(sx(::incx))
 
 end function ssum