Esope source files

   1 : C KINITB    SOURCE    CHAT      05/01/13    00:56:35     5004           
   2 :       SUBROUTINE KINITB(K,N1,N2,KG,NG)                                  KPR04330
   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 la famille KREMxG
   7 : C     Initialisation de la bitmap
   8 : C
   9 :       DIMENSION K(N1,N2),KG(2)                                          KPR04340
  10 :       DO 1 I=1,N1                                                       KPR04350
  11 :       DO 2 J=1,N2                                                       KPR04360
  12 :       K(I,J) = 0                                                        KPR04370
  13 :   2   CONTINUE                                                          KPR04380
  14 :   1   CONTINUE                                                          KPR04390
  15 :       KG(1) = 0                                                         KPR04400
  16 :       KG(2) = 0                                                         KPR04410
  17 :       NG = 0                                                            KPR04420
  18 :       RETURN                                                            KPR04430
  19 :       END                                                               KPR04440
  20 :  
  21 :