Esope source files

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