source: LMDZ5/branches/LMDZ5_SPLA/libf/filtrez/eigen.F @ 2508

Last change on this file since 2508 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

  • 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.