Télécharger coq3ks.eso

Retour à la liste

Numérotation des lignes :

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

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