Télécharger la plaquette Cast3M


fr en

Télécharger etape5.eso

Retour à la liste

Numérotation des lignes : 

etape5

  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