Télécharger la plaquette Cast3M


fr en

Télécharger elarsn.eso

Retour à la liste

Numérotation des lignes : 

elarsn

  1. C ELARSN    SOURCE    PV        22/04/25    21:15:04     11344          
  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.       integer izero(2)
  46.       izero(1)=0
  47.       izero(2)=0
  48. C
  49.       CALL ELNUMS(ICODE,INUMS)
  50.       GOTO (10, 20, 30, 40, 50, 60, 70, 80, 90, 100,
  51.      >      110,120,130,140,150,160,170,180,190,200,
  52.      >      210) INUMS
  53. C
  54.       iarr = -1
  55.       CALL ESERRO(1,iarr,'ELSOVO ',' CODE DE L ELEMENT')
  56.       GOTO 9999
  57. C
  58.    10 CONTINUE
  59.    20 CONTINUE
  60.    30 CONTINUE
  61.    40 CONTINUE
  62.    50 CONTINUE
  63.    60 CONTINUE
  64.         iarr = -3
  65.         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  66.         GOTO 9999
  67.    70 CONTINUE
  68.         CALL FCAR8(2,izero,INDSO,NBNO)
  69.         CALL FCAR8(3,izero,INDNO,NBNO)
  70.         GOTO 9999
  71.    80 CONTINUE
  72.    90 CONTINUE
  73.   100 CONTINUE
  74.   110 CONTINUE
  75.   120 CONTINUE
  76.   130 CONTINUE
  77.   140 CONTINUE
  78.   150 CONTINUE
  79.   160 CONTINUE
  80.   170 CONTINUE
  81.   180 CONTINUE
  82.   190 CONTINUE
  83.         iarr = -3
  84.         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  85.         GOTO 9999
  86.   200 CONTINUE
  87.         CALL FCUB20(2,izero,INDSO,NBNO)
  88.         CALL FCUB20(3,izero,INDNO,NBNO)
  89.         GOTO 9999
  90.   210 CONTINUE
  91.         iarr = -3
  92.         CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  93.         GOTO 9999
  94.  
  95. C
  96.  9999 END
  97.  
  98.  
  99.  
  100.  
  101.  

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