Télécharger levma1.eso

Retour à la liste

Numérotation des lignes :

  1. C LEVMA1 SOURCE FANDEUR 10/07/07 21:15:16 6708
  2. SUBROUTINE LEVMA1(mle)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC CCOPTIO
  6. -INC SMLENTI
  7. -INC SMLREEL
  8. SEGMENT MLREE4.MLREEL,MLREE5.MLREEL,MLREE6.MLREEL,MLREE8.MLREEL,
  9. + MLREE9.MLREEL,MLRE11.MLREEL,MLRE12.MLREEL,MLRE13.MLREEL
  10.  
  11. mlenti = mle
  12.  
  13. mlreel = lect(10)
  14. mlree1 = lect(1)
  15. mlree2 = lect(2)
  16. mlree3 = lect(3)
  17. mlree4 = lect(4)
  18. mlree5 = lect(5)
  19. mlree6 = lect(6)
  20. mlree8 = lect(8)
  21. mlree9 = lect(9)
  22. mlre11 = lect(11)
  23. segact mlreel*mod,mlree1,mlree2,mlree3*mod,mlree4,mlree5,mlree6,
  24. + mlree8*mod,mlree9*mod,mlre11*mod
  25.  
  26. chi2 = prog(1)
  27. alamda = prog(2)
  28. ndata = mlree1.prog(/1)
  29. ma = mlree3.prog(/1)
  30. jg = ma*ma
  31. segini mlre12
  32. jg = ma
  33. segini mlre13
  34.  
  35. call levma2(mlree1.prog,mlree2.prog,mlree6.prog, ndata,
  36. + mlree3.prog,ma,mlree4.prog,mlree5.prog,
  37. + chi2,alamda,mlree8.prog,mlree9.prog,mlre11.prog,mlre12.prog,
  38. + mlre13.prog)
  39.  
  40. mlreel = lect(10)
  41. prog(1) = chi2
  42. prog(2) = alamda
  43.  
  44. segdes mlree4,mlree5
  45. segsup mlre12,mlre13
  46.  
  47. RETURN
  48. END
  49.  
  50.  
  51.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales