C PROGC     SOURCE    CHAT      05/01/13    02:31:05     5004
      SUBROUTINE PROGC(MTABP)
      IMPLICIT INTEGER(I-N)
      write(6,*)' SP PROGC pas encore en service'
      STOP
      END