Télécharger bapoin.eso

Retour à la liste

Numérotation des lignes :

  1. C BAPOIN SOURCE CHAT 05/01/12 21:33:11 5004
  2. SUBROUTINE BAPOIN(IMAIL,IPT,INOMA,INOPT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5.  
  6. *--------------------------------------------------------------------*
  7. * *
  8. * correspondance entre les points de l'ancien maillage et du *
  9. * nouveau maillage. *
  10. * *
  11. * Param}tres: *
  12. * *
  13. * e IMAIL maillage initial *
  14. * e IPT point initial *
  15. * e INOMA maillage translat{ *
  16. * e INOPT point translat{ *
  17. * *
  18. * Auteur, date de cr{ation: *
  19. * *
  20. * Lionel VIVAN, le 9 mai 1990. *
  21. * *
  22. *--------------------------------------------------------------------*
  23. * *
  24. -INC CCOPTIO
  25. -INC SMELEME
  26. *
  27. INOPT = 0
  28. MELEME = IMAIL
  29. SEGACT MELEME
  30. NBEL = NUM(/2)
  31. NBNO = NUM(/1)
  32. IPT1 = INOMA
  33. SEGACT IPT1
  34. DO 10 IE = 1,NBEL
  35. DO 20 IN = 1,NBNO
  36. INOE = NUM(IN,IE)
  37. IF (INOE.EQ.IPT) THEN
  38. INOPT = IPT1.NUM(IN,IE)
  39. GOTO 30
  40. ENDIF
  41. 20 CONTINUE
  42. * end do
  43. 10 CONTINUE
  44. * end do
  45. CALL ERREUR(504)
  46. 30 CONTINUE
  47. SEGDES IPT1
  48. SEGDES MELEME
  49. *
  50. END
  51.  
  52.  

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