/[lmdze]/trunk/filtrez/inifgn.f
ViewVC logotype

Diff of /trunk/filtrez/inifgn.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC
# Line 9  c Line 9  c
9        use paramet_m        use paramet_m
10        use comgeom        use comgeom
11        use serre        use serre
12                use coefils
13        IMPLICIT NONE        IMPLICIT NONE
14  c  c
15    
# Line 19  c Line 20  c
20        REAL pi        REAL pi
21        INTEGER i,j,k,imm1,nrot        INTEGER i,j,k,imm1,nrot
22  C  C
       include "coefils.h"  
23  c  c
24        EXTERNAL SSUM, acc, jacobi        EXTERNAL SSUM, acc, jacobi
25  CC      EXTERNAL eigen  CC      EXTERNAL eigen
Legend:
Removed from v.3  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.21