Télécharger la plaquette Cast3M


fr en

Télécharger etest2.eso

Retour à la liste

Numérotation des lignes : 

etest2

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

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