Esope source files

   1 : C ELARSN    SOURCE    CHAT      06/03/29    21:19:15     5360           
   2 : C
   3 : C     *****************************************************************
   4 : C     MODULE  : EL (INTERFACE CODE DE CALCUL)
   5 : C     FICHIER : EL_ELEMENT.F
   6 : C     OBJET   : INFORMATION SUR LES ELEMENTS (CODE VIPLEF)
   7 : C     FONCT.  : 
   8 : C
   9 : C       ------ INDICES RELATIFS DES SOMMETS ET NOEUDS DES ELEMENTS ----
  10 : C       OBJET ELARSN : RENVOI SOMMETS ET NOEUDS D'UNE ARETE
  11 : C       OBJET ELSNAR : RENVOI LES NOEUDS ENTRE 2 SOMMETS
  12 : C       
  13 : C       ------ TRANSFERT DES NOEUDS MILIEU ----
  14 : C       OBJET ELTRNO : TRANSFERT LES NOEUDS MILIEU D'UN MAILLAGE A UN 
  15 : C       OBJET          AUTRE
  16 : C
  17 : C     AUTEUR  : O. STAB
  18 : C     DATE    : 05.11.96
  19 : C     TESTS   : A FAIRE
  20 : C
  21 : C     MODIFICATIONS :
  22 : C      AUTEUR, DATE, OBJET :
  23 : C
  24 : C
  25 : C     *****************************************************************
  26 : C
  27 :       SUBROUTINE ELARSN(ICODE,INDSO,INDNO,NBNO,iarr)
  28 : C     *****************************************************************
  29 : C     OBJET ELTRNO :  RENVOI SOMMETS ET NOEUDS D'UNE ARETE
  30 : C
  31 : C     EN ENTREE  :
  32 : C        ICODE   : CODE DE L'ELEMENT
  33 : C        INDAR   : INDIOCE DE L'ARETE
  34 : C     EN SORTIE  :
  35 : C        INDSO   : INDICE DES DEUX SOMMETS DE L'ARETE
  36 : C        INDNO   : INDICE DES NOEUDS SUR L'ARETE (MEME ORIENTATION)
  37 : C        NBNO    : NOMBRE DE NOEUDS SUR L'ARETE
  38 : C        iarr    : CODE D'ERREUR
  39 : C     *****************************************************************
  40 :       IMPLICIT INTEGER(I-N)
  41 :       INTEGER ICODE,INDSO(*),INDNO(*),NBNO,iarr
  42 : C
  43 :       EXTERNAL FCUB20,FCAR8      
  44 :       INTEGER INUMS
  45 : C
  45 :       CALL ELNUMS(ICODE,INUMS)
  46 :       GOTO (10, 20, 30, 40, 50, 60, 70, 80, 90, 100,
  47 :      >      110,120,130,140,150,160,170,180,190,200,
  48 :      >      210) INUMS
  49 : C
  50 :       iarr = -1
  50 :       CALL ESERRO(1,iarr,'ELSOVO ',' CODE DE L ELEMENT')
  51 :       GOTO 9999
  52 : C
  53 :    10 CONTINUE
  54 :    20 CONTINUE
  55 :    30 CONTINUE
  56 :    40 CONTINUE
  57 :    50 CONTINUE
  58 :    60 CONTINUE
  59 :         iarr = -3
  59 :         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  60 :         GOTO 9999
  61 :    70 CONTINUE
  61 :         CALL FCAR8(2,0,INDSO,NBNO)      
  61 :         CALL FCAR8(3,0,INDNO,NBNO)      
  62 :         GOTO 9999          
  63 :    80 CONTINUE
  64 :    90 CONTINUE
  65 :   100 CONTINUE
  66 :   110 CONTINUE
  67 :   120 CONTINUE
  68 :   130 CONTINUE
  69 :   140 CONTINUE
  70 :   150 CONTINUE
  71 :   160 CONTINUE
  72 :   170 CONTINUE
  73 :   180 CONTINUE
  74 :   190 CONTINUE
  75 :         iarr = -3
  75 :         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  76 :         GOTO 9999
  77 :   200 CONTINUE
  77 :         CALL FCUB20(2,0,INDSO,NBNO)      
  77 :         CALL FCUB20(3,0,INDNO,NBNO)      
  78 :         GOTO 9999
  79 :   210 CONTINUE
  80 :         iarr = -3
  80 :         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  81 :         GOTO 9999
  82 :       
  83 : C
  84 :  9999 END
  85 :  
  86 :  
  87 :