Télécharger la plaquette Cast3M


fr en

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