C LEVMA1    SOURCE    FANDEUR   10/07/07    21:15:16     6708
      SUBROUTINE LEVMA1(mle)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
-INC SMLENTI
-INC SMLREEL
      SEGMENT MLREE4.MLREEL,MLREE5.MLREEL,MLREE6.MLREEL,MLREE8.MLREEL,
     +        MLREE9.MLREEL,MLRE11.MLREEL,MLRE12.MLREEL,MLRE13.MLREEL

      mlenti = mle

      mlreel = lect(10)
      mlree1 = lect(1)
      mlree2 = lect(2)
      mlree3 = lect(3)
      mlree4 = lect(4)
      mlree5 = lect(5)
      mlree6 = lect(6)
      mlree8 = lect(8)
      mlree9 = lect(9)
      mlre11 = lect(11)
      segact mlreel*mod,mlree1,mlree2,mlree3*mod,mlree4,mlree5,mlree6,
     +       mlree8*mod,mlree9*mod,mlre11*mod

      chi2 = prog(1)
      alamda = prog(2)
      ndata = mlree1.prog(/1)
      ma = mlree3.prog(/1)
      jg = ma*ma
      segini mlre12
      jg = ma
      segini mlre13

       call levma2(mlree1.prog,mlree2.prog,mlree6.prog, ndata,
     +   mlree3.prog,ma,mlree4.prog,mlree5.prog,
     +   chi2,alamda,mlree8.prog,mlree9.prog,mlre11.prog,mlre12.prog,
     +  mlre13.prog)

      mlreel = lect(10)
      prog(1) = chi2
      prog(2) = alamda

      segdes mlree4,mlree5
      segsup mlre12,mlre13

      RETURN
      END