Télécharger la plaquette Cast3M


fr en

Télécharger levma1.eso

Retour à la liste

Numérotation des lignes : 

levma1

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

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