Télécharger la plaquette Cast3M


fr en

Télécharger lacht.eso

Retour à la liste

Numérotation des lignes : 

lacht

  1. C LACHT     SOURCE    CB215821  20/11/25    13:33:22     10792          
  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. -INC PPARAM
  13.  
  14.       CHARACTER*(*)     TYPI
  15.       CHARACTER*(LOCOMP)TYPE
  16.  
  17.  
  18.       SEGACT MCHPOI
  19.       TYPE=TYPI
  20.       NBPAR=IPCHP(/1)
  21.  
  22.       DO 1 I=1,NBPAR
  23.       MSOUPO=IPCHP(I)
  24.       SEGACT MSOUPO
  25.       NC=NOCOMP(/2)
  26.       IF(NC.NE.1)THEN
  27.       WRITE(6,*)' SUB LACHT NC NE 1 : CAS NON ENCORE PREVU'
  28.       MPOVAL=0
  29.       SEGDES MSOUPO,MCHPOI
  30.       RETURN
  31.       ENDIF
  32.       IF(TYPE.NE.NOCOMP(1))THEN
  33.       SEGDES MSOUPO
  34.       ELSE
  35.       IGEOM=IGEOC
  36.       MPOVAL=IPOVAL
  37.       SEGACT MPOVAL
  38.       SEGDES MSOUPO,MCHPOI
  39.       RETURN
  40.       ENDIF
  41.  1    CONTINUE
  42.       MPOVAL=0
  43.       SEGDES MSOUPO,MCHPOI
  44.       RETURN
  45.       END
  46.  
  47.  
  48.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales