Télécharger la plaquette Cast3M


fr en

Télécharger extr12.eso

Retour à la liste

Numérotation des lignes : 

extr12

  1. C EXTR12    SOURCE    CHAT      05/01/12    23:51:53     5004
  2.       SUBROUTINE EXTR12(INUM,IPO,IRET)
  3. * -----------------------------------------------------------------
  4. *     ce sous-programme verifie si le point pointÉ  par IPO
  5. *     appartient au maillage INUM
  6. *     IRET = 0, si non
  7. *     IRET = 1, si oui
  8. * -----------------------------------------------------------------
  9.       IMPLICIT INTEGER(I-N)
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC SMELEME
  14. *
  15.       IRET = 0
  16. *     MELEME = IPO
  17. *     SEGACT MELEME
  18. *     NPO =NUM(1,1)
  19. *     SEGDES MELEME
  20.       NPO=IPO
  21.       MELEME=INUM
  22.       SEGACT MELEME
  23.       nobj=lisous(/1)
  24.       if (nobj.eq.0) then
  25.       NP = NUM(/1)
  26.       NE = NUM(/2)
  27.       DO 10 IE = 1,NE
  28.         DO 20 IP = 1,NP
  29.            IF (NPO.EQ.NUM(IP,IE))THEN
  30.               IRET = 1
  31.               GOTO 30
  32.            ENDIF
  33.  20     CONTINUE
  34.  10   CONTINUE
  35.  30   CONTINUE
  36. *
  37.       else
  38.       do 41 iobj=1,nobj
  39.       ipt1=lisous(iobj)
  40.       segact ipt1
  41.       NP = ipt1.NUM(/1)
  42.       NE = ipt1.NUM(/2)
  43.       DO 11 IE = 1,NE
  44.         DO 21 IP = 1,NP
  45.            IF (NPO.EQ.ipt1.NUM(IP,IE))THEN
  46.               IRET = 1
  47.               segdes ipt1*nomod
  48.               GOTO 31
  49.            ENDIF
  50.  21     CONTINUE
  51.  11   CONTINUE
  52.       segdes ipt1*nomod
  53.  41    continue
  54.  31   CONTINUE
  55.       endif
  56.       SEGDES MELEME
  57. *
  58.       END
  59.  
  60.  
  61.  

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