Esope source files

   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 :