Sources Esope | Cast3M

khcdat
C KHCDAT    SOURCE    CB215821  25/04/22    21:15:08     12245          
      SUBROUTINE  KHCDAT(NR,KA,IM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C Calcul des facteurs de forme en 3D
C Sp appele par KALPRE
      DIMENSION KA(6),IM(6)
      KA(1) = 1
      KA(2) = 1
      KA(3) = 2
      KA(4) = 2
      KA(5) = 3
      KA(6) = 3
      IM(1) = NR
      IM(2) = 1
      IM(3) = NR
      IM(4) = 1
      IM(5) = NR
      IM(6) = 1
      RETURN
      END