Télécharger elsovo.eso

Retour à la liste

Numérotation des lignes :

  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
  28. CALL ELNUMS(ICODE,INUMS)
  29. GOTO (10, 20, 30, 40, 50, 60, 70, 80, 90, 100,
  30. > 110,120,130,140,150,160,170,180,190,200,
  31. > 210) INUMS
  32. C
  33. iarr = -1
  34. CALL ESERRO(1,iarr,'ELSOVO ',' CODE DE L ELEMENT')
  35. GOTO 9999
  36. C
  37. 10 CONTINUE
  38. 20 CONTINUE
  39. 30 CONTINUE
  40. 40 CONTINUE
  41. 50 CONTINUE
  42. 60 CONTINUE
  43. iarr = -3
  44. CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  45. GOTO 9999
  46. 70 CONTINUE
  47. CALL FCAR8(8,0,INDSO,NBSO)
  48. NBNO = ISNBNO(INUMS)
  49. GOTO 9999
  50. 80 CONTINUE
  51. 90 CONTINUE
  52. 100 CONTINUE
  53. 110 CONTINUE
  54. 120 CONTINUE
  55. 130 CONTINUE
  56. 140 CONTINUE
  57. 150 CONTINUE
  58. 160 CONTINUE
  59. 170 CONTINUE
  60. 180 CONTINUE
  61. 190 CONTINUE
  62. iarr = -3
  63. CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  64. GOTO 9999
  65. 200 CONTINUE
  66. CALL FCUB20(8,0,INDSO,NBSO)
  67. NBNO = ISNBNO(INUMS)
  68. GOTO 9999
  69. 210 CONTINUE
  70. iarr = -3
  71. CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  72. GOTO 9999
  73.  
  74. C
  75. 9999 END
  76.  
  77.  
  78.  
  79.  

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