Télécharger dxdefo.eso

Retour à la liste

Numérotation des lignes :

  1. C DXDEFO SOURCE CHAT 05/01/12 22:59:45 5004
  2. SUBROUTINE DXDEFO(DDHOOK,NSTRS,XSTRS)
  3. C======================================================================
  4. C
  5. C REMPLACE LES DEFORMATIONS DANS XSTRS PAR LE PRODUIT DDHOOK*XSTRS
  6. C
  7. C ENTREE
  8. C DDHOOK(NSTRS,NSTRS)=MATRICE DE HOOKE
  9. C NSTRS =NOMBRE DE CONTRAINTES
  10. C ENTREE/SORTIE
  11. C XSTRS(NSTRS) =CONTRAINTES
  12. C
  13. C Adapté de DBST par M. Bulik, Septembre '96
  14. C
  15. C FORTRAN pur
  16. C=======================================================================
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19. DIMENSION DDHOOK(NSTRS,*),XSTRS(*)
  20. DIMENSION XWRK(10)
  21.  
  22. DO 100 IA=1,NSTRS
  23. XWRK(IA)=XSTRS(IA)
  24. 100 CONTINUE
  25.  
  26. DO 300 IA=1,NSTRS
  27. CC=0.D0
  28. DO 400 IB=1,NSTRS
  29. CC=CC+DDHOOK(IA,IB)*XWRK(IB)
  30. 400 CONTINUE
  31. XSTRS(IA)=CC
  32. 300 CONTINUE
  33.  
  34. RETURN
  35. END
  36.  
  37.  
  38.  

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