Télécharger kpush.eso

Retour à la liste

Numérotation des lignes :

  1. C KPUSH SOURCE CHAT 05/01/13 01:05:31 5004
  2. SUBROUTINE KPUSH(IS,JS,NS,IP,JP) KPA00400
  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 KPARC
  7. DIMENSION IS(1),JS(1) KPA00410
  8. NS = NS + 1 KPA00420
  9. IS(NS) = IP KPA00430
  10. JS(NS) = JP KPA00440
  11. RETURN KPA00450
  12. END KPA00460
  13.  
  14.  
  15.  

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