source: LMDZ5/branches/IPSLCM6.0.8/libf/filtrez/eigen.F @ 5024

Last change on this file since 5024 was 2220, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2186:2216 into testing branch
  • 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.