--- trunk/libf/dyn3d/ssum.f90	2010/06/08 15:37:21	35
+++ trunk/dyn3d/ssum.f	2014/03/05 14:57:53	82
@@ -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