Télécharger la plaquette Cast3M


fr en

Télécharger fusatt.eso

Retour à la liste

Numérotation des lignes : 

fusatt

  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