Télécharger intope.eso

Retour à la liste

Numérotation des lignes :

intope
  1. C INTOPE SOURCE PV 20/03/30 21:20:06 10567
  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. -INC SMELEME
  12. -INC SMCOORD
  13. SEGMENT ICPR(nbpts)
  14. DIMENSION X(3)
  15. SEGMENT ITABEL(1)
  16. SEGINI ITABEL
  17. ITABEL(1)=MELEME
  18. 5 CONTINUE
  19. CALL MESLIR(-131)
  20. CALL LIROBJ('MAILLAGE',IELT,0,IRETOU)
  21. IF (IRETOU.EQ.0) GOTO 6
  22. ITABEL(**)=IELT
  23. GOTO 5
  24. 6 CONTINUE
  25. SEGINI ICPR
  26. DO 1 I=1,ICPR(/1)
  27. 1 ICPR(I)=0
  28. NBELT=ITABEL(/1)
  29. DO 7 IITT=1,NBELT
  30. MELEME=ITABEL(NBELT+1-IITT)
  31. SEGACT MELEME
  32. IF (LISOUS(/1).NE.0) GOTO 15
  33. CALL ADDITI(X,MELEME,NOUV,ICPR)
  34. IF (IERR.NE.0) RETURN
  35. MELEME=NOUV
  36. SEGACT MELEME
  37. 20 CALL ECROBJ('MAILLAGE',MELEME)
  38. SEGDES MELEME
  39. GOTO 8
  40. 15 CONTINUE
  41. NBSOUS=LISOUS(/1)
  42. NBREF=LISREF(/1)
  43. NBNN=0
  44. NBELEM=0
  45. SEGINI IPT1
  46. DO 30 I=1,LISOUS(/1)
  47. ILIS=LISOUS(I)
  48. CALL ADDITI(X,ILIS,NOUV,ICPR)
  49. IF (IERR.NE.0) RETURN
  50. IPT1.LISOUS(I)=NOUV
  51. 30 CONTINUE
  52. IF (LISREF(/1).EQ.0) GOTO 32
  53. DO 31 I=1,LISREF(/1)
  54. ILIS=LISREF(I)
  55. CALL ADDITI(X,ILIS,NOUV,ICPR)
  56. IF (IERR.NE.0) RETURN
  57. IPT1.LISREF(I)=NOUV
  58. 31 CONTINUE
  59. 32 CONTINUE
  60. SEGDES MELEME
  61. MELEME=IPT1
  62. GOTO 20
  63. 8 CONTINUE
  64. 7 CONTINUE
  65. SEGSUP ICPR,ITABEL
  66. RETURN
  67. END
  68.  
  69.  
  70.  

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