Télécharger coq3gr.eso

Retour à la liste

Numérotation des lignes :

  1. C COQ3GR SOURCE CHAT 05/01/12 22:21:04 5004
  2. SUBROUTINE COQ3GR(XE,UE,GRADI,WORK)
  3. C
  4. C |=====================================================================
  5. C | CALCULER LES GRADIANS DE L ELEMENT COQ3
  6. C |
  7. C |
  8. C | GRADI(9) CONTIEND LES TERMS DE GRADIAN
  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(*),GRADI(*),WORK(*)
  14. C
  15. C
  16. C
  17. CALL CQ3GRA(XE,UE,GRADI,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(82),WORK(90), WORK(108),WORK(112),
  20. 1 WORK(116))
  21. RETURN
  22. END
  23.  
  24.  

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