Télécharger coq3gf.eso

Retour à la liste

Numérotation des lignes :

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

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