Télécharger etape5.eso

Retour à la liste

Numérotation des lignes :

  1. C ETAPE5 SOURCE CHAT 05/01/12 23:46:21 5004
  2. SUBROUTINE ETAPE5 (MLREEL,MLREE1,MXMAT,M)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *
  6. * CONJUGUAISON DES DIRECTIONS DE RECHERCHES
  7. *
  8. -INC SMLREEL
  9. -INC TMXMAT
  10. CALL TXAY(MLREEL,MXMAT,MLREE1,M,M,AA)
  11. CALL TXAY(MLREE1,MXMAT,MLREE1,M,M,BB)
  12. BETA = - AA / BB
  13. DO 1 I=1,M
  14. PROG(I)=MLREE1.PROG(I) * BETA + PROG(I)
  15. 1 CONTINUE
  16. RETURN
  17. END
  18.  
  19.  

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