Changeset 962 for LMDZ4/trunk/libf/filtrez

Timestamp:

Jun 9, 2008, 11:51:32 AM (16 years ago)

Author:

Laurent Fairhead

Message:

Un peu de menage pour avoir moins de sorties a la compilation sur Nec
LF

File:

• LMDZ4/trunk/libf/filtrez/acc.F (modified) (1 diff)

LMDZ4/trunk/libf/filtrez/acc.F

@@ -4 +4 @@
         subroutine acc(vec,d,im)
         dimension vec(im,im),d(im)
-        do 10 j=1,im
-        do 9 i=1,im
- 9      d(i)=vec(i,j)*vec(i,j)
-        sum=ssum(im,d,1)
-        sum=sqrt(sum)
-        do 10 i=1,im
- 10     vec(i,j)=vec(i,j)/sum
+        do j=1,im
+          do i=1,im
+            d(i)=vec(i,j)*vec(i,j)
+          enddo
+          sum=ssum(im,d,1)
+          sum=sqrt(sum)
+          do i=1,im
+            vec(i,j)=vec(i,j)/sum
+          enddo
+        enddo
         return
         end