Télécharger intope.eso

Retour à la liste

Numérotation des lignes :

  1. C INTOPE SOURCE CHAT 05/01/13 00:41:31 5004
  2. C INTERFACE ENTRE LES LECTURES DE DONNEES D'OPERATIONS ELEMENTAIRES
  3. C ET LES PROGRAMMES D'EXECUTIONS
  4. C
  5. SUBROUTINE INTOPE(MELEME)
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8 (A-H,O-Z)
  8. -INC CCOPTIO
  9. -INC SMELEME
  10. -INC SMCOORD
  11. SEGMENT ICPR(XCOOR(/1)/(IDIM+1))
  12. DIMENSION X(3)
  13. SEGMENT ITABEL(1)
  14. SEGINI ITABEL
  15. ITABEL(1)=MELEME
  16. 5 CONTINUE
  17. CALL MESLIR(-131)
  18. CALL LIROBJ('MAILLAGE',IELT,0,IRETOU)
  19. IF (IRETOU.EQ.0) GOTO 6
  20. ITABEL(**)=IELT
  21. GOTO 5
  22. 6 CONTINUE
  23. SEGINI ICPR
  24. DO 1 I=1,ICPR(/1)
  25. 1 ICPR(I)=0
  26. NBELT=ITABEL(/1)
  27. DO 7 IITT=1,NBELT
  28. MELEME=ITABEL(NBELT+1-IITT)
  29. SEGACT MELEME
  30. IF (LISOUS(/1).NE.0) GOTO 15
  31. CALL ADDITI(X,MELEME,NOUV,ICPR)
  32. IF (IERR.NE.0) RETURN
  33. MELEME=NOUV
  34. SEGACT MELEME
  35. 20 CALL ECROBJ('MAILLAGE',MELEME)
  36. SEGDES MELEME
  37. GOTO 8
  38. 15 CONTINUE
  39. NBSOUS=LISOUS(/1)
  40. NBREF=LISREF(/1)
  41. NBNN=0
  42. NBELEM=0
  43. SEGINI IPT1
  44. DO 30 I=1,LISOUS(/1)
  45. ILIS=LISOUS(I)
  46. CALL ADDITI(X,ILIS,NOUV,ICPR)
  47. IF (IERR.NE.0) RETURN
  48. IPT1.LISOUS(I)=NOUV
  49. 30 CONTINUE
  50. IF (LISREF(/1).EQ.0) GOTO 32
  51. DO 31 I=1,LISREF(/1)
  52. ILIS=LISREF(I)
  53. CALL ADDITI(X,ILIS,NOUV,ICPR)
  54. IF (IERR.NE.0) RETURN
  55. IPT1.LISREF(I)=NOUV
  56. 31 CONTINUE
  57. 32 CONTINUE
  58. SEGDES MELEME
  59. MELEME=IPT1
  60. GOTO 20
  61. 8 CONTINUE
  62. 7 CONTINUE
  63. SEGSUP ICPR,ITABEL
  64. RETURN
  65. END
  66.  
  67.  

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