Sources Esope | Cast3M

kinitb
C KINITB    SOURCE    CB215821  25/04/22    21:15:08     12245          
      SUBROUTINE KINITB(K,N1,N2,KG,NG)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C Calcul des facteurs de forme en 3D
C Sp appele par la famille KREMxG
C     Initialisation de la bitmap
C
      DIMENSION K(N1,N2),KG(2)
      DO 2 J=1,N2
        DO 1 I=1,N1
          K(I,J) = 0
  1     CONTINUE
  2   CONTINUE
      KG(1) = 0
      KG(2) = 0
      NG    = 0
      RETURN
      END