Télécharger fustru.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSTRU SOURCE CHAT 05/01/13 00:13:19 5004
  2. SUBROUTINE FUSTRU(MSTRU1,MSTRU2,MSTRUC)
  3. C
  4. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C C CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS C
  6. C C STRUCTURES MSTRU1 ET MSTRU2. LE RESULTAT EST RANGE DANS MSTRUC C
  7. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  8. C
  9. IMPLICIT INTEGER(I-N)
  10. -INC SMSTRUC
  11. C
  12. SEGACT MSTRU1,MSTRU2
  13. NSTRU1=MSTRU1.LISTRU(/1)
  14. NSTRU2=MSTRU2.LISTRU(/1)
  15. N=NSTRU1+NSTRU2
  16. SEGINI MSTRUC
  17. DO 3 I=1,NSTRU1
  18. LISTRU(I)=MSTRU1.LISTRU(I)
  19. 3 CONTINUE
  20. DO 4 J=1,NSTRU2
  21. I=NSTRU1+J
  22. LISTRU(I)=MSTRU2.LISTRU(J)
  23. 4 CONTINUE
  24. SEGDES MSTRUC,MSTRU1,MSTRU2
  25. RETURN
  26. END
  27.  
  28.  

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