Esope source files

   1 : C LACHT     SOURCE    CHAT      05/01/13    01:11:55     5004           
   2 :       SUBROUTINE LACHT(MCHPOI,MPOVAL,TYPI,IGEOM)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : C*************************************************************************
   6 : C
   7 : C Ce SP active le segment MPOVAL connaissant le pointeur MCHPOI
   8 : C d'un CHPOINT et le nom de la composante. Pour le reste idem LICHT
   9 : C
  10 : C*************************************************************************
  11 : -INC SMCHPOI
  12 :       CHARACTER*(*) TYPI
  13 :       CHARACTER*4   TYPE
  14 : 
  15 : 
  16 :       SEGACT MCHPOI
  17 :       TYPE='    '
  18 :       TYPE=TYPI
  19 :       NBPAR=IPCHP(/1)
  20 : 
  21 :       DO 1 I=1,NBPAR
  22 :       MSOUPO=IPCHP(I)
  23 :       SEGACT MSOUPO
  24 :       NC=NOCOMP(/2)
  25 :       IF(NC.NE.1)THEN
  26 :       WRITE(6,*)' SUB LACHT NC NE 1 : CAS NON ENCORE PREVU'
  27 :       MPOVAL=0
  28 :       SEGDES MSOUPO,MCHPOI
  29 :       RETURN
  30 :       ENDIF
  31 :       IF(TYPE.NE.NOCOMP(1))THEN
  32 :       SEGDES MSOUPO
  33 :       ELSE
  34 :       IGEOM=IGEOC
  35 :       MPOVAL=IPOVAL
  36 :       SEGACT MPOVAL
  37 :       SEGDES MSOUPO,MCHPOI
  38 :       RETURN
  39 :       ENDIF
  40 :  1    CONTINUE
  41 :       MPOVAL=0
  42 :       SEGDES MSOUPO,MCHPOI
  43 :       RETURN
  44 :       END
  45 :