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.  
  25. -INC PPARAM
  26. -INC CCOPTIO
  27. -INC SMELEME
  28. *
  29. INOPT = 0
  30. MELEME = IMAIL
  31. SEGACT MELEME
  32. NBEL = NUM(/2)
  33. NBNO = NUM(/1)
  34. IPT1 = INOMA
  35. SEGACT IPT1
  36. DO 10 IE = 1,NBEL
  37. DO 20 IN = 1,NBNO
  38. INOE = NUM(IN,IE)
  39. IF (INOE.EQ.IPT) THEN
  40. INOPT = IPT1.NUM(IN,IE)
  41. GOTO 30
  42. ENDIF
  43. 20 CONTINUE
  44. * end do
  45. 10 CONTINUE
  46. * end do
  47. CALL ERREUR(504)
  48. 30 CONTINUE
  49. SEGDES IPT1
  50. SEGDES MELEME
  51. *
  52. END
  53.  
  54.  

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