Télécharger lacht.eso

Retour à la liste

Numérotation des lignes :

  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.  
  46.  

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