Esope source files

   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 :