source: LMDZ4/trunk/libf/filtrez/eigen.F @ 1832

Last change on this file since 1832 was 524, checked in by lmdzadmin, 20 years ago

Initial revision

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