C KFALIM    SOURCE    CHAT      05/01/13    00:55:02     5004           
      SUBROUTINE KFALIM(NFACE,K1D,K1F)                                          
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
      K1D = 1                                                                   
      K1F = NFACE                                                               
      RETURN                                                                    
      END