Esope source files

   1 : C KINBUF    SOURCE    CHAT      05/01/13    00:56:32     5004           
   2 :       SUBROUTINE KINBUF (SKBUFF)                                                
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : C                                                                               
   6 : C Calcul des facteurs de forme en 3D
   7 : C Sp appele par FACGEN
   8 : C     INITIALISATION DU Z-BUFFER
   9 : C     --------------------------
  10 : -INC TFFOR3D
  11 : C                                                                               
  12 :       DO 1 NF = 1,KFC                                                           
  13 :       DO 2  I =  1,NRES                                                         
  14 :       DO 3  J =  1,NRES                                                         
  15 :           ZB(NF,I,J) = 1000.                                                    
  16 :           NUMF(NF,1,I,J) = 0                                                    
  17 :           NTYP(NF,I,J) = 0                                                      
  18 :  3    CONTINUE                                                                  
  19 :  2    CONTINUE                                                                  
  20 :  1    CONTINUE                                                                  
  21 :       RETURN                                                                    
  22 :       END                                                                       
  23 :  
  24 :