Changeset 5246 for LMDZ6/trunk/libf/filtrez/eigen.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/eigen.f90 (moved) (moved from LMDZ6/trunk/libf/filtrez/eigen.F) (1 diff)

LMDZ6/trunk/libf/filtrez/eigen.f90

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE eigen( e,d)
-      IMPLICIT NONE
-      INCLUDE "dimensions.h"
-      real :: e( iim,iim ), d( iim )
-      real :: asm( iim )
-      integer :: im,i,j
-      im=iim
-c
-      DO 48 i = 1,im
-         asm( i ) = d( im-i+1 )
- 48   CONTINUE
-      DO 49 i = 1,iim
-         d( i ) = asm( i )
- 49   CONTINUE
-c
-c     PRINT 70,d
+SUBROUTINE eigen( e,d)
+  IMPLICIT NONE
+  INCLUDE "dimensions.h"
+  real :: e( iim,iim ), d( iim )
+  real :: asm( iim )
+  integer :: im,i,j
+  im=iim
+  !
+  DO i = 1,im
+     asm( i ) = d( im-i+1 )
+  END DO
+  DO i = 1,iim
+     d( i ) = asm( i )
+  END DO
+  !
+  ! PRINT 70,d
  70   FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
-                print *
-c
-      DO 51 i = 1,im
-         DO 52 j = 1,im
-            asm( j ) = e( i , im-j+1 )
- 52      CONTINUE
-         DO 50 j = 1,im
-            e( i,j ) = asm( j )
- 50      CONTINUE
- 51   CONTINUE
+            print *
+  !
+  DO i = 1,im
+     DO j = 1,im
+        asm( j ) = e( i , im-j+1 )
+     END DO
+     DO j = 1,im
+        e( i,j ) = asm( j )
+     END DO
+  END DO
 
-      RETURN
-      END
+  RETURN
+END SUBROUTINE eigen