LMDZ
eigen.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE eigen( e,d)
5  IMPLICIT NONE
6 #include "dimensions.h"
7  real :: e( iim,iim ), d( iim )
8  real :: asm( iim )
9  integer :: im,i,j
10  im=iim
11 c
12  DO 48 i = 1,im
13  asm( i ) = d( im-i+1 )
14  48 CONTINUE
15  DO 49 i = 1,iim
16  d( i ) = asm( i )
17  49 CONTINUE
18 c
19 c PRINT 70,d
20  70 FORMAT(5x,'Valeurs propres',/,8(1x,8f10.4,/),/)
21  print *
22 c
23  DO 51 i = 1,im
24  DO 52 j = 1,im
25  asm( j ) = e( i , im-j+1 )
26  52 CONTINUE
27  DO 50 j = 1,im
28  e( i,j ) = asm( j )
29  50 CONTINUE
30  51 CONTINUE
31 
32  RETURN
33  END
x
!$Header!c c INCLUDE fxyprim h c c c Fonctions in line c c REAL fyprim REAL rj c c il faut la calculer avant d appeler ces fonctions c c c Fonctions a changer selon x(x) et y(y) choisis.c-----------------------------------------------------------------c c.....ici
eigen
subroutine eigen(e, d)
Definition: eigen.F:5
iim
c c zjulian c cym CALL iim cym klev iim
Definition: ini_bilKP_ave.h:24