Télécharger additi.eso

Retour à la liste

Numérotation des lignes :

  1. C ADDITI SOURCE CB215821 19/08/20 21:15:09 10287
  2. C CE SOUS PROGRAMME AJOUTE LE POINT X A UN OBJET ELEMENTAIRE
  3. C IL RELAIE A ADDITEL
  4. C
  5. SUBROUTINE ADDITI(X,IPT1,IPT2,ICPR)
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8 (A-H,O-Z)
  8. DIMENSION X(3)
  9. -INC CCOPTIO
  10. -INC SMELEME
  11. SEGACT IPT1
  12. C ON TRAVAILLE SUR LES SOUS-OBJETS ET SUR LES REFERENCES ELEMENTAIRES
  13. IF (IPT1.LISOUS(/1).NE.0) GOTO 50
  14. CALL ADDITE(X,IPT1,IPT2,ICPR,1)
  15. IF (IPT1.LISREF(/1).EQ.0) GOTO 100
  16. NBREF=IPT1.LISREF(/1)
  17. GO TO 60
  18. 50 NBELEM=0
  19. NBNN=0
  20. NBSOUS=IPT1.LISOUS(/1)
  21. NBREF=IPT1.LISREF(/1)
  22. SEGINI IPT2
  23. DO 51 I=1,IPT1.LISOUS(/1)
  24. IPT3=IPT1.LISOUS(I)
  25. SEGACT IPT3
  26. C ON ENLEVE LES REFERENCES
  27. CALL ADDITE(X,IPT3,IPT5,ICPR,0)
  28. IPT2.LISOUS(I)=IPT5
  29. 51 CONTINUE
  30. 60 CONTINUE
  31. IF (IPT1.LISREF(/1).EQ.0) GOTO 100
  32. C POUR LES REFERENCES ON ESSAYE D'EN PRENDRE LES REFERENCES ICI
  33. DO 61 I=1,IPT1.LISREF(/1)
  34. IPT3=IPT1.LISREF(I)
  35. SEGACT IPT3
  36. IF (IPT3.LISOUS(/1).NE.0) GOTO 67
  37. CALL ADDITE(X,IPT3,IPT5,ICPR,1)
  38. IF (IPT5.LISREF(/1).EQ.0) GOTO 62
  39. DO 63 J=1,IPT3.LISREF(/1)
  40. IPT6=IPT3.LISREF(J)
  41. SEGACT IPT6
  42. IF (IPT6.LISOUS(/1).NE.0) GOTO 64
  43. CALL ADDITE(X,IPT6,IPT8,ICPR,0)
  44. IPT5.LISREF(J)=IPT8
  45. GOTO 63
  46. C FAUX MAIS NE PLANTE PAS
  47. 64 IPT5.LISREF(J)=IPT6
  48. 63 CONTINUE
  49. 62 CONTINUE
  50. IPT2.LISREF(I)=IPT5
  51. GOTO 68
  52. 67 CONTINUE
  53. NBREF=0
  54. NBSOUS=IPT3.LISOUS(/1)
  55. NBNN=0
  56. NBELEM=0
  57. SEGINI IPT8
  58. DO 69 I2=1,IPT3.LISOUS(/1)
  59. IPT5=IPT3.LISOUS(I2)
  60. SEGACT IPT5
  61. CALL ADDITE(X,IPT5,IPT7,ICPR,0)
  62. IPT8.LISOUS(I2)=IPT7
  63. 69 CONTINUE
  64. IPT2.LISREF(I)=IPT8
  65. 68 CONTINUE
  66. 61 CONTINUE
  67. 100 CONTINUE
  68. END
  69.  
  70.  
  71.  

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