Sources Esope | Cast3M

coq3ks
C COQ3KS    SOURCE    CHAT      05/01/12    22:21:21     5004
      SUBROUTINE COQ3KS(REL,XSTRS,XE,EPAIST,WORK)
CCCCCCCCCCCCCCCCCCCCCCCC COMBESCURE INSPIRE DE BILBO
C         02 SEPT 86
C
C
CCCCCCCCCCC CALCUL DE K SIGMA POUR LE COQ3
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION REL(*),XSTRS(*),XE(*),WORK(*)
C
CCCCCCC ENTREE
C            XSTRS CONTRAINTES
C            XE    COORDONNEES DES NOEUDS DE L ELEMENT
C            EPAIST EPAISSEUR DE L ELEMENT
CCCCCC SORTIE
C            REL MATRICE K(SIGMA)
CCCCCC TRAVAIL
C            WORK  500    VALEURS   DE TRAVAIL
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CALL FLACOQ(REL,XE,EPAIST,XSTRS,WORK,WORK(4),WORK(7),
     1 WORK(10),WORK(19),WORK(28),WORK(37),WORK(40),WORK(43),
     2 WORK(43),WORK(448))
      RETURN
      END