Ignore:
Timestamp:
Mar 29, 2001, 4:58:49 PM (23 years ago)
Author:
lmdz
Message:

Chgt pour surdimensionner le filtre FH
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/filtrez/jacobi.F

    r2 r196  
    11      SUBROUTINE JACOBI(A,N,NP,D,V,NROT)
    2       PARAMETER (NMAX=200)
     2      PARAMETER (NMAX=400)
    33      DIMENSION A(NP,NP),D(NP),V(NP,NP),B(NMAX),Z(NMAX)
    44      IF (n.gt.nmax) THEN
Note: See TracChangeset for help on using the changeset viewer.