--- trunk/libf/dyn3d/ssum.f90	2010/04/01 09:07:28	30
+++ trunk/libf/dyn3d/ssum.f90	2011/02/22 13:49:36	40
@@ -1,14 +1,14 @@
 real function ssum(n,sx,incx)
 
-  ! From cray.F, v 1.1.1.1 2004/05/19 12:53:05
+  ! From cray.F, version 1.1.1.1 2004/05/19 12:53:05
 
   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