Télécharger fusvec.eso

Retour à la liste

Numérotation des lignes :

fusvec
  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.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC SMVECTE
  11. SEGACT MVECT1,MVECT2
  12. NVEC1=MVECT1.AMPF(/1)
  13. NVEC2=MVECT2.AMPF(/1)
  14. NVEC=NVEC1+NVEC2
  15. ID=IDIM
  16. SEGINI MVECTE
  17. DO 10 I=1,NVEC1
  18. IGEOV(I)=MVECT1.IGEOV(I)
  19. AMPF(I)=MVECT1.AMPF(I)
  20. NOCOUL(I)=MVECT1.NOCOUL(I)
  21. ICHPO(I)=MVECT1.ICHPO(I)
  22. DO 15 IX=1,ID
  23. NOCOVE(I,IX)=MVECT1.NOCOVE(I,IX)
  24. 15 CONTINUE
  25. 10 CONTINUE
  26. DO 20 J=1,NVEC2
  27. IGEOV(J+NVEC1)=MVECT2.IGEOV(J)
  28. AMPF(J+NVEC1)=MVECT2.AMPF(J)
  29. NOCOUL(J+NVEC1)=MVECT2.NOCOUL(J)
  30. ICHPO(J+NVEC1)=MVECT2.ICHPO(J)
  31. DO 25 IY=1,ID
  32. NOCOVE(J+NVEC1,IY)=MVECT2.NOCOVE(J,IY)
  33. 25 CONTINUE
  34. 20 CONTINUE
  35. SEGDES MVECTE
  36. SEGDES MVECT1,MVECT2
  37. RETURN
  38. END
  39.  
  40.  

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