source: LMDZ5/branches/testing/libf/filtrez/eigen.F @ 2144

Last change on this file since 2144 was 1910, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1860:1909 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: 546 bytes
Line 
1!
2! $Header$
3!
4      SUBROUTINE eigen( e,d)
5#include "dimensions.h"
6      dimension e( iim,iim ), d( iim )
7      dimension asm( iim )
8      im=iim
9c
10      DO 48 i = 1,im
11         asm( i ) = d( im-i+1 )
12 48   CONTINUE
13      DO 49 i = 1,iim
14         d( i ) = asm( i )
15 49   CONTINUE
16c
17c     PRINT 70,d
18 70   FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
19                print *
20c
21      DO 51 i = 1,im
22         DO 52 j = 1,im
23            asm( j ) = e( i , im-j+1 )
24 52      CONTINUE
25         DO 50 j = 1,im
26            e( i,j ) = asm( j )
27 50      CONTINUE
28 51   CONTINUE
29
30      RETURN
31      END
Note: See TracBrowser for help on using the repository browser.