source: LMDZ6/branches/Amaury_dev/libf/filtrez/eigen.F @ 5095

Last change on this file since 5095 was 5086, checked in by abarral, 4 months ago

convert labeled do (f77) to do .. end do
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 560 bytes
Line 
1!
2! $Header$
3!
4      SUBROUTINE eigen( e,d)
5      IMPLICIT NONE
6      INCLUDE "dimensions.h"
7      real :: e( iim,iim ), d( iim )
8      real :: asm( iim )
9      integer :: im,i,j
10      im=iim
11c
12      DO i = 1,im
13         asm( i ) = d( im-i+1 )
14      END DO
15      DO i = 1,iim
16         d( i ) = asm( i )
17      END DO
18c
19c     PRINT 70,d
20 70   FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
21                print *
22c
23      DO i = 1,im
24         DO j = 1,im
25            asm( j ) = e( i , im-j+1 )
26      END DO
27         DO j = 1,im
28            e( i,j ) = asm( j )
29      END DO
30      END DO
31
32      RETURN
33      END
Note: See TracBrowser for help on using the repository browser.