Télécharger etap14.eso

Retour à la liste

Numérotation des lignes :

  1. C ETAP14 SOURCE CHAT 05/01/12 23:46:11 5004
  2. SUBROUTINE ETAP14 (MP,II,M)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *
  6. * MISE A JOUR DE LA MATRICE DE PROJECTION
  7. *
  8. -INC CCOPTIO
  9. -INC TMXMAT
  10. -INC SMLREEL
  11. JG=M
  12. SEGINI MLREEL
  13. PROG(II)=1.D0
  14. SEGINI MLREE1
  15. MXMAT=MP
  16. CALL MATVE1( XMAT,PROG,M,M,MLREE1.PROG,2)
  17. LDIM1=M
  18. LDIM2=M
  19. SEGINI MXMAT
  20. XX=0.D0
  21. DO 2 I=1,M
  22. XX = MLREE1.PROG(I)*MLREE1.PROG(I) + XX
  23. 2 CONTINUE
  24. CALL XITY(MLREE1.PROG,MLREE1.PROG,M,XMAT)
  25. XX=1./XX
  26. CALL REEMAT(XX,XMAT,M,M)
  27. MXMA1=MP
  28. CALL ADDIMA(MXMA1.XMAT,XMAT,M,M,2)
  29. DO 4 I=1,M
  30. MXMA1.XMAT(II,I)=0.D0
  31. MXMA1.XMAT(I,II)=0.D0
  32. 4 CONTINUE
  33. MP=MXMA1
  34. SEGSUP MLREEL,MLREE1
  35. RETURN
  36. END
  37.  
  38.  

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