C CAPR      SOURCE    CHAT      05/01/12    21:49:03     5004
      SUBROUTINE CAPR(MTABP)
      IMPLICIT INTEGER(I-N)
      write(6,*)' CAPR PAS DISPONIBLE '
      STOP
      END