Sources Esope | Cast3M

coq3gf
C COQ3GF    SOURCE    CHAT      05/01/12    22:21:01     5004
      SUBROUTINE COQ3GF(XE,UE,GRADF,WORK)
C
C |====================================================================|
C |         CALCULER LES GRADIANS EN FLEXION DE L ELEMENT COQ3         |
C |                      (   GRAFLEXI      )                           |
C |                                                                    |
C |         GRADF(9)  CONTIEND LES TERMS DE GRAFLEXI                   |
C |   CODE SUO X.Z.                                                    |
C |====================================================================|
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL *8(A-H,O-Z)
      DIMENSION XE(3,*),UE(*),GRADF(*),WORK(*)
C
C
C
      CALL CQ3GRF(XE,UE,GRADF,WORK(1),WORK(19),WORK(22),
     1 WORK(25),WORK(34),WORK(37),WORK(40),WORK(43),WORK(49),
     1 WORK(58),WORK(70),WORK(97),WORK(100))
      RETURN
      END