Télécharger la plaquette Cast3M


fr en

Télécharger fustru.eso

Retour à la liste

Numérotation des lignes : 

fustru

  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