Télécharger etest1.eso

Retour à la liste

Numérotation des lignes :

etest1
  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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. C
  14. CHARACTER*8 CHAIN1
  15. CHAIN1='NODE'
  16. IF (ip1.GT.0) THEN
  17. NNOEUD=NNOEUD+1
  18. nno=nnoeud
  19. IF (NNO.LE.9) THEN
  20. WRITE(CHAIN1(5:5),111)NNO
  21. ELSEif(NNO.LE.99) THEN
  22. WRITE(CHAIN1(5:6),222)NNO
  23. ELSEif(NNO.LE.999) THEN
  24. WRITE(CHAIN1(5:7),333)NNO
  25. ELSEif(NNO.LE.9999) THEN
  26. WRITE(CHAIN1(5:8),444)NNO
  27. ELSEif(NNO.LE.99999) THEN
  28. WRITE(CHAIN1(4:8),555)NNO
  29. ELSEif(NNO.LE.999999) THEN
  30. WRITE(CHAIN1(3:8),666)NNO
  31. ENDIF
  32. CALL NOMOBJ('POINT ',CHAIN1,ip1)
  33. ip1=-NNOEUD
  34. ELSE
  35. NNo=ABS(ip1)
  36. IF (NNO.LE.9) THEN
  37. WRITE(CHAIN1(5:5),111)NNO
  38. ELSEif(NNO.LE.99) THEN
  39. WRITE(CHAIN1(5:6),222)NNO
  40. ELSEif(NNO.LE.999) THEN
  41. WRITE(CHAIN1(5:7),333)NNO
  42. ELSEif(NNO.LE.9999) THEN
  43. WRITE(CHAIN1(5:8),444)NNO
  44. ELSEif(NNO.LE.99999) THEN
  45. WRITE(CHAIN1(4:8),555)NNO
  46. ELSEif(NNO.LE.999999) THEN
  47. WRITE(CHAIN1(3:8),666)NNO
  48. ENDIF
  49. ENDIF
  50. intERR(1)=nno
  51. CHAIN1='NODE'
  52. IF (ip2.GT.0) THEN
  53. NNOEUD=NNOEUD+1
  54. nno=nnoeud
  55. IF (NNO.LE.9) THEN
  56. WRITE(CHAIN1(5:5),111)NNO
  57. ELSEif(NNO.LE.99) THEN
  58. WRITE(CHAIN1(5:6),222)NNO
  59. ELSEif(NNO.LE.999) THEN
  60. WRITE(CHAIN1(5:7),333)NNO
  61. ELSEif(NNO.LE.9999) THEN
  62. WRITE(CHAIN1(5:8),444)NNO
  63. ELSEif(NNO.LE.99999) THEN
  64. WRITE(CHAIN1(4:8),555)NNO
  65. ELSEif(NNO.LE.999999) THEN
  66. WRITE(CHAIN1(3:8),666)NNO
  67. ENDIF
  68. CALL NOMOBJ('POINT ',CHAIN1,ip2)
  69. ip2=-NNOEUD
  70. ELSE
  71. NNo=ABS(ip2)
  72. IF (NNO.LE.9) THEN
  73. WRITE(CHAIN1(5:5),111)NNO
  74. ELSEif(NNO.LE.99) THEN
  75. WRITE(CHAIN1(5:6),222)NNO
  76. ELSEif(NNO.LE.999) THEN
  77. WRITE(CHAIN1(5:7),333)NNO
  78. ELSEif(NNO.LE.9999) THEN
  79. WRITE(CHAIN1(5:8),444)NNO
  80. ELSEif(NNO.LE.99999) THEN
  81. WRITE(CHAIN1(4:8),555)NNO
  82. ELSEif(NNO.LE.999999) THEN
  83. WRITE(CHAIN1(3:8),666)NNO
  84. ENDIF
  85. ENDIF
  86. interr(2)=nno
  87.  
  88. 111 FORMAT (I1)
  89. 222 FORMAT (I2)
  90. 333 format (i3)
  91. 444 format (i4)
  92. 555 format(i5)
  93. 666 format(i6)
  94.  
  95. CALL ERREUR(-337)
  96. RETURN
  97. END
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  

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