Télécharger iptpoi.eso

Retour à la liste

Numérotation des lignes :

  1. C IPTPOI SOURCE PV 17/10/03 21:15:38 9581
  2. C IPTPOI SOURCE FANDEUR
  3.  
  4. C=======================================================================
  5. C= Recuperer le numero du point du maillage meleme constitue d'un seul =
  6. C= element de type POI1 (utile pour point support DEFO.GENE.) =
  7. C=======================================================================
  8. c= On choisit de ne pas emettre d'erreur ici. C'est dans la suite du =
  9. c= traitement qu'il conviendra de le faire si necessaire ! =
  10. C=======================================================================
  11. FUNCTION IPTPOI (meleme)
  12.  
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15.  
  16. C*D -INC CCOPTIO
  17. -INC SMELEME
  18.  
  19. IF (meleme.LE.0) THEN
  20. IPTPOI = 0
  21. ELSE
  22. SEGACT,meleme
  23. C*D C* Tests a decommenter si vraiment il y en a besoin.
  24. C*D IF (meleme.itypel.NE.1) THEN
  25. C*D write(ioimp,*) 'IPTPOI : type incorrect',meleme.itypel
  26. C*D CALL ERREUR(5)
  27. C*D RETURN
  28. C*D ENDIF
  29. C*D IF (meleme.num(/1).NE.1 .OR. meleme.num(/2).NE.1) THEN
  30. C*D write(ioimp,*) 'IPTPOI : NBNN et NBEL incorrects',
  31. C*D & meleme.num(/1), meleme.num(/2)
  32. C*D CALL ERREUR(5)
  33. C*D RETURN
  34. C*D ENDIF
  35. IPTPOI = meleme.num(1,1)
  36. SEGDES,meleme
  37. ENDIF
  38.  
  39. RETURN
  40. END
  41.  
  42.  
  43.  

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