Esope source files

   1 : C ELSNAR    SOURCE    CHAT      06/03/29    21:20:14     5360           
   2 : C
   3 : C
   4 :       SUBROUTINE ELSNAR(ICODE,INDSO,INDNO,NBNO,iarr)
   5 : C     *****************************************************************
   6 : C     OBJET ELSNAR : RENVOI LES NOEUDS ENTRE 2 SOMMETS
   7 : C
   8 : C     EN ENTREE  :
   9 : C        ICODE   : CODE DE L'ELEMENT
  10 : C        INDSO1  : INDICE DU PREMIER SOMMET DE L'ARETE
  11 : C        INDSO2  : INDICE DU DEUXIEME SOMMET DE L'ARETE
  12 : C     EN SORTIE  :
  13 : C        INDNO   : INDICE DES NOEUDS SUR L'ARETE (MEME ORIENTATION)
  14 : C        NBNO    : NOMBRE DE NOEUDS SUR L'ARETE
  15 : C        iarr    : CODE D'ERREUR
  16 : C
  17 : C     REMARQUE   : FONCTIONNE POUR LE CODE VIPLEF
  18 : C                  ELEMENTS S3,Q8,H20
  19 : C     *****************************************************************
  20 :       IMPLICIT INTEGER(I-N)
  21 :       INTEGER ICODE,INDSO(*),INDNO(*),NBNO,iarr
  22 : C
  23 :       EXTERNAL FCUB20,FCAR8      
  24 :       INTEGER INUMS
  25 : C
  25 :       CALL ELNUMS(ICODE,INUMS)
  26 :       GOTO (10, 20, 30, 40, 50, 60, 70, 80, 90, 100,
  27 :      >      110,120,130,140,150,160,170,180,190,200,
  28 :      >      210) INUMS
  29 : C
  30 :       iarr = -1
  30 :       CALL ESERRO(1,iarr,'ELSOVO ',' CODE DE L ELEMENT')
  31 :       GOTO 9999
  32 : C
  33 :    10 CONTINUE
  34 :    20 CONTINUE
  35 :    30 CONTINUE
  36 :    40 CONTINUE
  37 :    50 CONTINUE
  38 :    60 CONTINUE
  39 :         iarr = -3
  39 :         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  40 :         GOTO 9999
  41 :    70 CONTINUE
  41 :         CALL FCAR8(1,INDSO,INDNO,NBNO) 
  42 :         GOTO 9999          
  43 :    80 CONTINUE
  44 :    90 CONTINUE
  45 :   100 CONTINUE
  46 :   110 CONTINUE
  47 :   120 CONTINUE
  48 :   130 CONTINUE
  49 :   140 CONTINUE
  50 :   150 CONTINUE
  51 :   160 CONTINUE
  52 :   170 CONTINUE
  53 :   180 CONTINUE
  54 :   190 CONTINUE
  55 :         iarr = -3
  55 :         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  56 :         GOTO 9999
  57 :   200 CONTINUE
  57 :         CALL FCUB20(1,INDSO,INDNO,NBNO) 
  58 :         GOTO 9999
  59 :   210 CONTINUE
  60 :         iarr = -3
  60 :         CALL ESERRO(1,IERR,'ELSOVO ',' CODE NON IMPLEMENTE')
  61 :         GOTO 9999
  62 :       
  63 : C
  64 :  9999 END
  65 :  
  66 :  
  67 :