source: LMDZ6/branches/IPSLCM6.0.15/libf/filtrez/eigen.F @ 3306

Last change on this file since 3306 was 2197, checked in by Ehouarn Millour, 10 years ago

Added 'implicit none' statements and proper variable definitions where they were missing.
EM
  • 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: 586 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 48 i = 1,im
13         asm( i ) = d( im-i+1 )
14 48   CONTINUE
15      DO 49 i = 1,iim
16         d( i ) = asm( i )
17 49   CONTINUE
18c
19c     PRINT 70,d
20 70   FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
21                print *
22c
23      DO 51 i = 1,im
24         DO 52 j = 1,im
25            asm( j ) = e( i , im-j+1 )
26 52      CONTINUE
27         DO 50 j = 1,im
28            e( i,j ) = asm( j )
29 50      CONTINUE
30 51   CONTINUE
31
32      RETURN
33      END
Note: See TracBrowser for help on using the repository browser.