Esope source files

   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
  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 :         IF (ip3.GT.0) THEN
  84 :           NNOEUD=NNOEUD+1
  85 :             nno=nnoeud
  86 :            IF (NNO.LE.9) THEN
  87 :               WRITE(CHAIN1(5:5),111)NNO
  88 :            ELSEif(NNO.LE.99) THEN
  89 :               WRITE(CHAIN1(5:6),222)NNO
  90 :            ELSEif(NNO.LE.999) THEN
  91 :               WRITE(CHAIN1(5:7),333)NNO
  92 :            ELSEif(NNO.LE.9999) THEN
  93 :               WRITE(CHAIN1(5:8),444)NNO
  94 :            ELSEif(NNO.LE.99999) THEN
  95 :               WRITE(CHAIN1(4:8),555)NNO
  96 :            ELSEif(NNO.LE.999999) THEN
  97 :               WRITE(CHAIN1(3:8),666)NNO 
  98 :            ENDIF
  98 :            CALL NOMOBJ('POINT   ',CHAIN1,ip3)
  99 :            ip3=-NNOEUD
 100 :         ELSE 
 101 :            NNo=ABS(ip3)       
 102 :            IF (NNO.LE.9) THEN
 103 :               WRITE(CHAIN1(5:5),111)NNO
 104 :            ELSEif(NNO.LE.99) THEN
 105 :               WRITE(CHAIN1(5:6),222)NNO
 106 :            ELSEif(NNO.LE.999) THEN
 107 :               WRITE(CHAIN1(5:7),333)NNO
 108 :            ELSEif(NNO.LE.9999) THEN
 109 :               WRITE(CHAIN1(5:8),444)NNO
 110 :            ELSEif(NNO.LE.99999) THEN
 111 :               WRITE(CHAIN1(4:8),555)NNO
 112 :            ELSEif(NNO.LE.999999) THEN
 113 :               WRITE(CHAIN1(3:8),666)NNO
 114 :            ENDIF
 115 :         ENDIF
 116 :         interr(3)=nno
 117 : 
 118 :  111    FORMAT (I1)
 119 :  222    FORMAT (I2)
 120 :  333    format (i3)
 121 :   444   format (i4)
 122 :   555    format(i5)
 123 :   666   format(i6)
 123 :         CALL ERREUR(-338)
 124 :         RETURN 
 125 :         END
 126 : 
 127 : 
 128 : 
 129 :  
 130 :