Télécharger kpop.eso

Retour à la liste

Numérotation des lignes :

  1. C KPOP SOURCE CHAT 05/01/13 01:04:31 5004
  2. SUBROUTINE KPOP(IS,JS,NS,IP,JP) KPA00480
  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) KPA00490
  8. IP = IS(NS) KPA00500
  9. JP = JS(NS) KPA00510
  10. NS = NS - 1 KPA00520
  11. RETURN KPA00530
  12. END KPA00540
  13.  
  14.  
  15.  

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