source: LMDZ6/branches/Amaury_dev/libf/filtrez/eigen.F @ 5086

Last change on this file since 5086 was 5086, checked in by abarral, 2 months ago

convert labeled do (f77) to do .. end do
  • 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: 560 bytes
RevLine 
[524]1!
2! $Header$
3!
4      SUBROUTINE eigen( e,d)
[2197]5      IMPLICIT NONE
[4593]6      INCLUDE "dimensions.h"
[2197]7      real :: e( iim,iim ), d( iim )
8      real :: asm( iim )
9      integer :: im,i,j
[524]10      im=iim
11c
[5086]12      DO i = 1,im
[524]13         asm( i ) = d( im-i+1 )
[5086]14      END DO
15      DO i = 1,iim
[524]16         d( i ) = asm( i )
[5086]17      END DO
[524]18c
19c     PRINT 70,d
20 70   FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
21                print *
22c
[5086]23      DO i = 1,im
24         DO j = 1,im
[524]25            asm( j ) = e( i , im-j+1 )
[5086]26      END DO
27         DO j = 1,im
[524]28            e( i,j ) = asm( j )
[5086]29      END DO
30      END DO
[524]31
32      RETURN
33      END
Note: See TracBrowser for help on using the repository browser.