Télécharger la plaquette Cast3M


fr en

Télécharger fusdef.eso

Retour à la liste

Numérotation des lignes : 

fusdef

  1. C FUSDEF    SOURCE    CHAT      05/01/13    00:12:10     5004
  2. C  ET SUR LES DEFORMES
  3. C
  4.       SUBROUTINE FUSDEF(MDEFO1,MDEFO2,MDEFOR)
  5.       IMPLICIT INTEGER(I-N)
  6. -INC SMDEFOR
  7.       SEGACT MDEFO1,MDEFO2
  8.       NDEF1=MDEFO1.AMPL(/1)
  9.       NDEF2=MDEFO2.AMPL(/1)
  10.       NDEF=NDEF1+NDEF2
  11.       SEGINI MDEFOR
  12.       DO 10 I=1,NDEF1
  13.       AMPL(I)=MDEFO1.AMPL(I)
  14.       MTVECT(I)=MDEFO1.MTVECT(I)
  15.       IELDEF(I)=MDEFO1.IELDEF(I)
  16.       ICHDEF(I)=MDEFO1.ICHDEF(I)
  17.       JCOUL(I)=MDEFO1.JCOUL(I)
  18.       MDCHP(I)=MDEFO1.MDCHP(I)
  19.       MDCHEL(I)=MDEFO1.MDCHEL(I)
  20.       MDMODE(I)=MDEFO1.MDMODE(I)
  21.   10  CONTINUE
  22.       DO 20 J=1,NDEF2
  23.       AMPL(J+NDEF1)=MDEFO2.AMPL(J)
  24.       MTVECT(J+NDEF1)=MDEFO2.MTVECT(J)
  25.       IELDEF(J+NDEF1)=MDEFO2.IELDEF(J)
  26.       ICHDEF(J+NDEF1)=MDEFO2.ICHDEF(J)
  27.       JCOUL(J+NDEF1)=MDEFO2.JCOUL(J)
  28.       MDCHP(J+NDEF1)=MDEFO2.MDCHP(J)
  29.       MDCHEL(J+NDEF1)=MDEFO2.MDCHEL(J)
  30.       MDMODE(J+NDEF1)=MDEFO2.MDMODE(J)
  31.   20  CONTINUE
  32.       SEGDES MDEFO1,MDEFO2,MDEFOR
  33.       RETURN
  34.       END
  35.  
  36.  
  37.  

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