Télécharger la plaquette Cast3M


fr en

Télécharger iptpoi.eso

Retour à la liste

Numérotation des lignes : 

iptpoi

  1. C IPTPOI    SOURCE    OF166741  24/10/07    21:15:29     12016          
  2.  
  3. C=======================================================================
  4. C= Recuperer le numero du point du maillage meleme constitue d'un seul =
  5. C= element de type POI1 (utile pour point support DEFO.GENE.)          =
  6. C=======================================================================
  7. C= Le maillage meleme est supose ACTIF (voir ACTOBJ).                  =
  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. -INC PPARAM
  17. -INC CCOPTIO
  18.  
  19. -INC SMELEME
  20.  
  21.       IF (meleme.LE.0) THEN
  22.         IPTPOI = 0
  23.       ELSE
  24. C*        SEGACT,meleme
  25. C*D C* Tests a decommenter si vraiment il y en a besoin.
  26. C*D        IF (meleme.itypel.NE.1) THEN
  27. C*D          write(ioimp,*) 'IPTPOI : type incorrect',meleme.itypel
  28. C*D          CALL ERREUR(5)
  29. C*D          RETURN
  30. C*D        ENDIF
  31. C*D        IF (meleme.num(/1).NE.1 .OR. meleme.num(/2).NE.1) THEN
  32. C*D          write(ioimp,*) 'IPTPOI : NBNN et NBEL incorrects',
  33. C*D     &                   meleme.num(/1), meleme.num(/2)
  34. C*D          CALL ERREUR(5)
  35. C*D          RETURN
  36. C*D        ENDIF
  37.         IPTPOI = meleme.num(1,1)
  38. C*        SEGDES,meleme
  39.       ENDIF
  40.  
  41.       RETURN
  42.       END
  43.  
  44.  
  45.  

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