Télécharger intop1.eso

Retour à la liste

Numérotation des lignes :

  1. C INTOP1 SOURCE CHAT 05/01/13 00:41:27 5004
  2. C INTERFACE ENTRE LES LECTURES DE DONNEES D'OPERATIONS ELEMENTAIRES
  3. C ET LES PROGRAMMES D'EXECUTIONS
  4. C
  5. SUBROUTINE INTOP1(IP2,IP1)
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8 (A-H,O-Z)
  8. -INC CCOPTIO
  9. -INC SMELEME
  10. -INC SMCOORD
  11. -INC SMCHPOI
  12. SEGMENT ICPR(XCOOR(/1)/(IDIM+1))
  13. DIMENSION X(3)
  14. SEGMENT ITABEL(2)
  15. SEGINI ITABEL
  16. ITABEL(1)=IP1
  17. ITABEL(2)=IP2
  18. SEGINI ICPR
  19. DO 1 I=1,ICPR(/1)
  20. 1 ICPR(I)=0
  21. NBELT=ITABEL(/1)
  22. DO 7 IITT=1,NBELT
  23. IF (IITT .EQ. 1) THEN
  24. IPCH1 = ITABEL(NBELT+1-IITT)
  25. CALL COPIE2(IPCH1,IPCH)
  26. MCHPOI = IPCH
  27. SEGACT MCHPOI
  28. NSOUPO=IPCHP(/1)
  29. DO 9 IC =1,NSOUPO
  30. MSOUPO = IPCHP(IC)
  31. SEGACT MSOUPO*MOD
  32. IF ( NOCOMP(/2) .NE. 1) THEN
  33. CALL ERREUR (251)
  34. SEGSUP MSOUPO
  35. SEGSUP MCHPOI
  36. SEGSUP ICPR,ITABEL
  37. RETURN
  38. ENDIF
  39. MELEME = IGEOC
  40. CALL ADDITI(X,MELEME,NOUV,ICPR)
  41. IF (IERR.NE.0) THEN
  42. SEGSUP MSOUPO
  43. SEGSUP MCHPOI
  44. SEGSUP ICPR,ITABEL
  45. RETURN
  46. ENDIF
  47. IGEOC = NOUV
  48. SEGDES MSOUPO
  49. 9 CONTINUE
  50. CALL ECROBJ('CHPOINT',IPCH)
  51. SEGDES MCHPOI
  52. GOTO 8
  53. ENDIF
  54. MELEME=ITABEL(NBELT+1-IITT)
  55. SEGACT MELEME
  56. IF (LISOUS(/1).NE.0) GOTO 15
  57. CALL ADDITI(X,MELEME,NOUV,ICPR)
  58. IF (IERR.NE.0) RETURN
  59. MELEME=NOUV
  60. SEGDES MELEME
  61. 20 CALL ECROBJ('MAILLAGE',MELEME)
  62. GOTO 8
  63. 15 CONTINUE
  64. NBSOUS=LISOUS(/1)
  65. NBREF=LISREF(/1)
  66. NBNN=0
  67. NBELEM=0
  68. SEGINI IPT1
  69. DO 30 I=1,LISOUS(/1)
  70. ILIS=LISOUS(I)
  71. CALL ADDITI(X,ILIS,NOUV,ICPR)
  72. IF (IERR.NE.0) RETURN
  73. IPT1.LISOUS(I)=NOUV
  74. 30 CONTINUE
  75. IF (LISREF(/1).EQ.0) GOTO 32
  76. DO 31 I=1,LISREF(/1)
  77. ILIS=LISREF(I)
  78. CALL ADDITI(X,ILIS,NOUV,ICPR)
  79. IF (IERR.NE.0) RETURN
  80. IPT1.LISREF(I)=NOUV
  81. 31 CONTINUE
  82. 32 CONTINUE
  83. SEGDES MELEME
  84. MELEME=IPT1
  85. GOTO 20
  86. 8 CONTINUE
  87. 7 CONTINUE
  88. SEGSUP ICPR,ITABEL
  89. RETURN
  90. END
  91.  
  92.  
  93.  
  94.  

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