Sources Esope | Cast3M

dxdefo
C DXDEFO    SOURCE    CHAT      05/01/12    22:59:45     5004
      SUBROUTINE DXDEFO(DDHOOK,NSTRS,XSTRS)
C======================================================================
C
C  REMPLACE LES DEFORMATIONS DANS XSTRS PAR LE PRODUIT DDHOOK*XSTRS
C
C  ENTREE
C    DDHOOK(NSTRS,NSTRS)=MATRICE DE HOOKE
C    NSTRS              =NOMBRE DE CONTRAINTES
C  ENTREE/SORTIE
C    XSTRS(NSTRS)       =CONTRAINTES
C
C   Adapté de DBST par M. Bulik, Septembre '96
C
C   FORTRAN pur
C=======================================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION DDHOOK(NSTRS,*),XSTRS(*)
      DIMENSION XWRK(10)
 
      DO 100 IA=1,NSTRS
         XWRK(IA)=XSTRS(IA)
  100 CONTINUE
 
      DO 300 IA=1,NSTRS
         CC=0.D0
         DO 400 IB=1,NSTRS
            CC=CC+DDHOOK(IA,IB)*XWRK(IB)
  400    CONTINUE
         XSTRS(IA)=CC
  300 CONTINUE
 
      RETURN
      END