C CAPA2     SOURCE    FANDEUR   11/07/19    21:15:19     7042           
C
C ===>  SOUS-PROGRAMME  CAPA2   PLUS UTILISE    <===
C ===>  SUBROUTINE              NO LONGER USED  <===
C
      SUBROUTINE CAPA2

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

      RETURN
      END