Télécharger khcdat.eso

Retour à la liste

Numérotation des lignes :

  1. C KHCDAT SOURCE CHAT 05/01/13 00:56:20 5004
  2. SUBROUTINE KHCDAT(NR,KA,IM) KPR02480
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C Calcul des facteurs de forme en 3D
  6. C Sp appele par KALPRE
  7. DIMENSION KA(6),IM(6) KPR02490
  8. KA(1) = 1 KPR02500
  9. KA(2) = 1 KPR02510
  10. KA(3) = 2 KPR02520
  11. KA(4) = 2 KPR02530
  12. KA(5) = 3 KPR02540
  13. KA(6) = 3 KPR02550
  14. IM(1) = NR KPR02560
  15. IM(2) = 1 KPR02570
  16. IM(3) = NR KPR02580
  17. IM(4) = 1 KPR02590
  18. IM(5) = NR KPR02600
  19. IM(6) = 1 KPR02610
  20. RETURN KPR02620
  21. END KPR02630
  22.  
  23.  
  24.  

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