Télécharger txay.eso

Retour à la liste

Numérotation des lignes :

  1. C TXAY SOURCE CHAT 05/01/13 03:57:30 5004
  2. SUBROUTINE TXAY (MLREE1,MXMAT,MLREE2,MP,MQ,XX)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC SMLREEL
  6. -INC TMXMAT
  7. SEGACT MLREE2
  8. JG=MLREE2.PROG(/1)
  9. SEGINI MLREEL
  10. CALL MATVE1(MXMAT.XMAT,MLREE2.PROG,MP,MQ,PROG,2)
  11. XX=0.D0
  12. DO 1 I =1,JG
  13. XX= MLREE1.PROG(I)*PROG(I) + XX
  14. 1 CONTINUE
  15. SEGSUP MLREEL
  16. RETURN
  17. END
  18.  
  19.  

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