Télécharger partan.eso

Retour à la liste

Numérotation des lignes :

  1. C PARTAN SOURCE CHAT 05/01/13 02:09:34 5004
  2. SUBROUTINE PARTAN(IVLAMB,IVPR,IVGE,IVGM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 ( A-H,O-Z)
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. -INC SMLREEL
  8. POINTEUR MLREE4.MLREEL,MLREE5.MLREEL
  9. MLREEL=IVLAMB
  10. MLREE1=IVPR
  11.  
  12. MLREE5=IVGE
  13. SEGACT MLREE1,MLREEL,MLREE5*mod
  14. JG = PROG(/1)
  15. DO 2 I=1,JG
  16. MLREE5.PROG(I)=PROG(I) - MLREE1.PROG(I)
  17. 2 CONTINUE
  18. *
  19. * CALCUL DE LA DIRECTION DE MONTEE on verifie en fait que la
  20. * direction calculee precedemment est compatible avec le fait que
  21. * lambda doit rester positif
  22. *
  23. MLREE4 = IVGM
  24. SEGACT MLREE4*mod
  25. DO 20 I=1,JG
  26. MLREE4.PROG(I) = MLREE5.PROG(I)
  27. 20 CONTINUE
  28. DO 3 I=1,JG
  29. IF(MLREE5.PROG(I).LT.0.D0) THEN
  30. IF(PROG(I).EQ.0.) THEN
  31. MLREE4.PROG(I)=0.D0
  32. ENDIF
  33. ENDIF
  34. 3 CONTINUE
  35. SEGSUP MLREEL
  36. IVLAMB=MLREE1
  37. RETURN
  38. END
  39.  
  40.  
  41.  

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