Changeset 5246 for LMDZ6/trunk/libf/filtrez/acc.f90

Timestamp:

Oct 21, 2024, 2:58:45 PM (23 hours ago)

Author:

abarral

Message:

Convert fixed-form to free-form sources .F -> .{f,F}90
(WIP: some .F remain, will be handled in subsequent commits)

File:

• LMDZ6/trunk/libf/filtrez/acc.f90 (moved) (moved from LMDZ6/trunk/libf/filtrez/acc.F) (1 diff)

LMDZ6/trunk/libf/filtrez/acc.f90

@@ -2 +2 @@
 ! $Header$
 !
-        subroutine acc(vec,d,im)
-        implicit none
-        integer :: im
-        real :: vec(im,im),d(im)
-        integer :: i,j
-        real ::sum
-        real,external :: ssum
-        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
+  subroutine acc(vec,d,im)
+    implicit none
+    integer :: im
+    real :: vec(im,im),d(im)
+    integer :: i,j
+    real ::sum
+    real,external :: ssum
+    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 subroutine acc