Changeset 231 for LMDZ.3.3/branches/rel-LF/libf/filtrez/jacobi.F

Timestamp:

Jun 20, 2001, 3:31:30 PM (23 years ago)

Author:

lmdzadmin

Message:

Merge avec la branche principale
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/filtrez/jacobi.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/filtrez/jacobi.F

@@ -1 +1 @@
       SUBROUTINE JACOBI(A,N,NP,D,V,NROT)
-      PARAMETER (NMAX=200)
+      PARAMETER (NMAX=400)
       DIMENSION A(NP,NP),D(NP),V(NP,NP),B(NMAX),Z(NMAX)
       IF (n.gt.nmax) THEN