SUBROUTINE SETTING 6,2

      IMPLICIT NONE
      include 'champ.cdk'

C      EXTERNAL SET77,FLDMOD
      EXTERNAL SET99,FLDMOD

C     ---------------- INITIALISATION DES CONSTANTES -----------------
      NSORTIE =   11
      NSTOP   =   50
      NP      =   N
      NTRAJ   =   NTRAJC

      DELT    =   10./float(216)
      ROBERT  =   0.005
      ZI      =   CMPLX(0.,1.)
      TWOPI   =   4.*ASIN(1.)
      D2      =   2.*DELT
      ILAP    =   8
      V1      =   0.02
      V2      =   2.E-15 * (9.5/(FLOAT(KTX)-0.5))**16
      G1      =   V1
      G2      =   V2
      AMPS    =   1.*0.
      AMPV    =   1.*0.
      AJ      =   0.
      BJ      =   0.
C      BE      =   0.5
      BE      =   0.4
      KF      =   3
      FORCING =   0.04
      U0      =   0.3
c++++++++++++
      delx    =   TWOPI/N
      D       =   3*delx
C     -------------------- INITIALISATION DE FFT --------------------
c      CALL SET77(TRIGS,IFAX,N)
             CALL SET99(TRIGS,IFAX,N)

      CALL FLDMOD(KAPPA,NU,GAMMA,V1,V2,K1,K2,G1,G2,IKTX,IKTY,KTX,
     .                  KTY,WN,PXLIM,L,ILAP)


      RETURN
      END