C LACHT     SOURCE    CHAT      05/01/13    01:11:55     5004           
      SUBROUTINE LACHT(MCHPOI,MPOVAL,TYPI,IGEOM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C*************************************************************************
C
C Ce SP active le segment MPOVAL connaissant le pointeur MCHPOI
C d'un CHPOINT et le nom de la composante. Pour le reste idem LICHT
C
C*************************************************************************
-INC SMCHPOI
      CHARACTER*(*) TYPI
      CHARACTER*4   TYPE


      SEGACT MCHPOI
      TYPE='    '
      TYPE=TYPI
      NBPAR=IPCHP(/1)

      DO 1 I=1,NBPAR
      MSOUPO=IPCHP(I)
      SEGACT MSOUPO
      NC=NOCOMP(/2)
      IF(NC.NE.1)THEN
      WRITE(6,*)' SUB LACHT NC NE 1 : CAS NON ENCORE PREVU'
      MPOVAL=0
      SEGDES MSOUPO,MCHPOI
      RETURN
      ENDIF
      IF(TYPE.NE.NOCOMP(1))THEN
      SEGDES MSOUPO
      ELSE
      IGEOM=IGEOC
      MPOVAL=IPOVAL
      SEGACT MPOVAL
      SEGDES MSOUPO,MCHPOI
      RETURN
      ENDIF
 1    CONTINUE
      MPOVAL=0
      SEGDES MSOUPO,MCHPOI
      RETURN
      END