Télécharger etest2.eso

Retour à la liste

Numérotation des lignes :

  1. C ETEST2 SOURCE CHAT 05/01/12 23:46:29 5004
  2. C ETEST2
  3. C
  4. C
  5. SUBROUTINE ETEST2(ip1,ip2,ip3,NNOEUD)
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. C
  9. C
  10. -INC CCOPTIO
  11. C
  12. CHARACTER*8 CHAIN1
  13. CHAIN1='NODE'
  14. IF (ip1.GT.0) THEN
  15. NNOEUD=NNOEUD+1
  16. nno=nnoeud
  17. IF (NNO.LE.9) THEN
  18. WRITE(CHAIN1(5:5),111)NNO
  19. ELSEif(NNO.LE.99) THEN
  20. WRITE(CHAIN1(5:6),222)NNO
  21. ELSEif(NNO.LE.999) THEN
  22. WRITE(CHAIN1(5:7),333)NNO
  23. ELSEif(NNO.LE.9999) THEN
  24. WRITE(CHAIN1(5:8),444)NNO
  25. ELSEif(NNO.LE.99999) THEN
  26. WRITE(CHAIN1(4:8),555)NNO
  27. ELSEif(NNO.LE.999999) THEN
  28. WRITE(CHAIN1(3:8),666)NNO
  29. ENDIF
  30. CALL NOMOBJ('POINT ',CHAIN1,ip1)
  31. ip1=-NNOEUD
  32. ELSE
  33. NNo=ABS(ip1)
  34. IF (NNO.LE.9) THEN
  35. WRITE(CHAIN1(5:5),111)NNO
  36. ELSEif(NNO.LE.99) THEN
  37. WRITE(CHAIN1(5:6),222)NNO
  38. ELSEif(NNO.LE.999) THEN
  39. WRITE(CHAIN1(5:7),333)NNO
  40. ELSEif(NNO.LE.9999) THEN
  41. WRITE(CHAIN1(5:8),444)NNO
  42. ELSEif(NNO.LE.99999) THEN
  43. WRITE(CHAIN1(4:8),555)NNO
  44. ELSEif(NNO.LE.999999) THEN
  45. WRITE(CHAIN1(3:8),666)NNO
  46. ENDIF
  47. ENDIF
  48. interr(1)=nno
  49. chain1= 'NODE'
  50. IF (ip2.GT.0) THEN
  51. NNOEUD=NNOEUD+1
  52. nno=nnoeud
  53. IF (NNO.LE.9) THEN
  54. WRITE(CHAIN1(5:5),111)NNO
  55. ELSEif(NNO.LE.99) THEN
  56. WRITE(CHAIN1(5:6),222)NNO
  57. ELSEif(NNO.LE.999) THEN
  58. WRITE(CHAIN1(5:7),333)NNO
  59. ELSEif(NNO.LE.9999) THEN
  60. WRITE(CHAIN1(5:8),444)NNO
  61. ELSEif(NNO.LE.99999) THEN
  62. WRITE(CHAIN1(4:8),555)NNO
  63. ELSEif(NNO.LE.999999) THEN
  64. WRITE(CHAIN1(3:8),666)NNO
  65. ENDIF
  66. CALL NOMOBJ('POINT ',CHAIN1,ip2)
  67. ip2=-NNOEUD
  68. ELSE
  69. NNo=ABS(ip2)
  70. IF (NNO.LE.9) THEN
  71. WRITE(CHAIN1(5:5),111)NNO
  72. ELSEif(NNO.LE.99) THEN
  73. WRITE(CHAIN1(5:6),222)NNO
  74. ELSEif(NNO.LE.999) THEN
  75. WRITE(CHAIN1(5:7),333)NNO
  76. ELSEif(NNO.LE.9999) THEN
  77. WRITE(CHAIN1(5:8),444)NNO
  78. ELSEif(NNO.LE.99999) THEN
  79. WRITE(CHAIN1(4:8),555)NNO
  80. ELSEif(NNO.LE.999999) THEN
  81. WRITE(CHAIN1(3:8),666)NNO
  82. ENDIF
  83. ENDIF
  84. interr(2)=nno
  85. IF (ip3.GT.0) THEN
  86. NNOEUD=NNOEUD+1
  87. nno=nnoeud
  88. IF (NNO.LE.9) THEN
  89. WRITE(CHAIN1(5:5),111)NNO
  90. ELSEif(NNO.LE.99) THEN
  91. WRITE(CHAIN1(5:6),222)NNO
  92. ELSEif(NNO.LE.999) THEN
  93. WRITE(CHAIN1(5:7),333)NNO
  94. ELSEif(NNO.LE.9999) THEN
  95. WRITE(CHAIN1(5:8),444)NNO
  96. ELSEif(NNO.LE.99999) THEN
  97. WRITE(CHAIN1(4:8),555)NNO
  98. ELSEif(NNO.LE.999999) THEN
  99. WRITE(CHAIN1(3:8),666)NNO
  100. ENDIF
  101. CALL NOMOBJ('POINT ',CHAIN1,ip3)
  102. ip3=-NNOEUD
  103. ELSE
  104. NNo=ABS(ip3)
  105. IF (NNO.LE.9) THEN
  106. WRITE(CHAIN1(5:5),111)NNO
  107. ELSEif(NNO.LE.99) THEN
  108. WRITE(CHAIN1(5:6),222)NNO
  109. ELSEif(NNO.LE.999) THEN
  110. WRITE(CHAIN1(5:7),333)NNO
  111. ELSEif(NNO.LE.9999) THEN
  112. WRITE(CHAIN1(5:8),444)NNO
  113. ELSEif(NNO.LE.99999) THEN
  114. WRITE(CHAIN1(4:8),555)NNO
  115. ELSEif(NNO.LE.999999) THEN
  116. WRITE(CHAIN1(3:8),666)NNO
  117. ENDIF
  118. ENDIF
  119. interr(3)=nno
  120.  
  121. 111 FORMAT (I1)
  122. 222 FORMAT (I2)
  123. 333 format (i3)
  124. 444 format (i4)
  125. 555 format(i5)
  126. 666 format(i6)
  127. CALL ERREUR(-338)
  128. RETURN
  129. END
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  

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