Télécharger etest1.eso

Retour à la liste

Numérotation des lignes :

  1. C ETEST1 SOURCE CHAT 05/01/12 23:46:25 5004
  2. C ETEST1
  3. C
  4. C
  5. SUBROUTINE ETEST1(ip1,ip2,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.  
  86. 111 FORMAT (I1)
  87. 222 FORMAT (I2)
  88. 333 format (i3)
  89. 444 format (i4)
  90. 555 format(i5)
  91. 666 format(i6)
  92.  
  93. CALL ERREUR(-337)
  94. RETURN
  95. END
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  

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