      INTEGER        N_GC_ICBC
      PARAMETER     (N_GC_ICBC = 0)
      INTEGER        N_GC_ICBCD
      PARAMETER     (N_GC_ICBCD = 1)
      CHARACTER*16   GC_ICBC(N_GC_ICBCD)
      INTEGER        GC_ICBC_MAP(N_GC_ICBCD)
      REAL           GC_ICBC_FAC(N_GC_ICBCD)
      
