Esope source files

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