source: LMDZ.3.3/trunk/libf/filtrez/eigen.F @ 4587

Last change on this file since 4587 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 531 bytes
RevLine 
[2]1      SUBROUTINE eigen( e,d)
2#include "dimensions.h"
3      dimension e( iim,iim ), d( iim )
4      dimension asm( iim )
5      im=iim
6c
7      DO 48 i = 1,im
8         asm( i ) = d( im-i+1 )
9 48   CONTINUE
10      DO 49 i = 1,iim
11         d( i ) = asm( i )
12 49   CONTINUE
13c
14c     PRINT 70,d
15 70   FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
16                print *
17c
18      DO 51 i = 1,im
19         DO 52 j = 1,im
20            asm( j ) = e( i , im-j+1 )
21 52      CONTINUE
22         DO 50 j = 1,im
23            e( i,j ) = asm( j )
24 50      CONTINUE
25 51   CONTINUE
26
27      RETURN
28      END
Note: See TracBrowser for help on using the repository browser.