Télécharger fusvec.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSVEC SOURCE CHAT 05/01/13 00:13:22 5004
  2. C
  3. C "ET" SUR LES VECTEURS
  4. C
  5. SUBROUTINE FUSVEC(MVECT1,MVECT2,MVECTE)
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCOPTIO
  8. -INC SMVECTE
  9. SEGACT MVECT1,MVECT2
  10. NVEC1=MVECT1.AMPF(/1)
  11. NVEC2=MVECT2.AMPF(/1)
  12. NVEC=NVEC1+NVEC2
  13. ID=IDIM
  14. SEGINI MVECTE
  15. DO 10 I=1,NVEC1
  16. IGEOV(I)=MVECT1.IGEOV(I)
  17. AMPF(I)=MVECT1.AMPF(I)
  18. NOCOUL(I)=MVECT1.NOCOUL(I)
  19. ICHPO(I)=MVECT1.ICHPO(I)
  20. DO 15 IX=1,ID
  21. NOCOVE(I,IX)=MVECT1.NOCOVE(I,IX)
  22. 15 CONTINUE
  23. 10 CONTINUE
  24. DO 20 J=1,NVEC2
  25. IGEOV(J+NVEC1)=MVECT2.IGEOV(J)
  26. AMPF(J+NVEC1)=MVECT2.AMPF(J)
  27. NOCOUL(J+NVEC1)=MVECT2.NOCOUL(J)
  28. ICHPO(J+NVEC1)=MVECT2.ICHPO(J)
  29. DO 25 IY=1,ID
  30. NOCOVE(J+NVEC1,IY)=MVECT2.NOCOVE(J,IY)
  31. 25 CONTINUE
  32. 20 CONTINUE
  33. SEGDES MVECTE
  34. SEGDES MVECT1,MVECT2
  35. RETURN
  36. END
  37.  
  38.  

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