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

Diff of /trunk/filtrez/jacobi.f

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

revision 107 by guez, Wed Mar 5 14:57:53 2014 UTC revision 108 by guez, Tue Sep 16 14:00:41 2014 UTC
# Line 3  Line 3 
3  ! 12:53:09 lmdzadmin Exp $  ! 12:53:09 lmdzadmin Exp $
4    
5  SUBROUTINE jacobi(a, n, np, d, v, nrot)  SUBROUTINE jacobi(a, n, np, d, v, nrot)
6    PARAMETER (nmax=400)    implicit none
7    DIMENSION a(np, np), d(np), v(np, np), b(nmax), z(nmax)    integer, PARAMETER:: nmax=400
8      integer n, np
9      real a(np, np), d(np), v(np, np), b(nmax), z(nmax)
10      integer ip, iq, nrot, i, j
11      real sm, g, h, t, theta, c, s, tau, tresh
12    
13    IF (n>nmax) THEN    IF (n>nmax) THEN
14      PRINT *, 'n, nmax=', n, nmax      PRINT *, 'n, nmax=', n, nmax
Legend:
Removed from v.107  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.21