Télécharger fusdef.eso

Retour à la liste

Numérotation des lignes :

  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