Télécharger elarsn.eso

Retour à la liste

Numérotation des lignes :

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

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