Télécharger fusatt.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSATT SOURCE CHAT 05/01/13 00:11:48 5004
  2. SUBROUTINE FUSATT(MATTA1,MATTA2,MATTAC)
  3. C
  4. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C C CE SUBROUTINE REALISE L OPERATION ''ET'' SUR LES DEUX OBJETS C
  6. C C ATTACHES MATTA1 ET MATTA2. LE RESULTAT EST RANGE DANS MATTAC C
  7. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. -INC SMATTAC
  11. SEGACT MATTA1,MATTA2
  12. N1=MATTA1.LISATT(/1)
  13. N2=MATTA2.LISATT(/1)
  14. N=N1+N2
  15. SEGINI MATTAC
  16. DO 3 I=1,N1
  17. LISATT(I)=MATTA1.LISATT(I)
  18. 3 CONTINUE
  19. DO 4 J=1,N2
  20. I=N1+J
  21. LISATT(I)=MATTA2.LISATT(J)
  22. 4 CONTINUE
  23. SEGDES MATTAC,MATTA1,MATTA2
  24. RETURN
  25. END
  26.  
  27.  

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