C KRESF     SOURCE    CHAT      05/01/13    01:07:04     5004           
      SUBROUTINE KRESF(MTABP,MCHB,MCH1,IMPR)
      IMPLICIT INTEGER(I-N)
      write(6,*)' Kresf ??? '
      STOP
      END