C CARAC     SOURCE    CHAT      05/01/12    21:49:13     5004
      SUBROUTINE CARAC
      IMPLICIT INTEGER(I-N)
      CALL MATCAR('CARACTER')
      RETURN
      END