Télécharger elsnar.eso

Retour à la liste

Numérotation des lignes :

  1. C ELSNAR SOURCE CHAT 06/03/29 21:20:14 5360
  2. C
  3. C
  4. SUBROUTINE ELSNAR(ICODE,INDSO,INDNO,NBNO,iarr)
  5. C *****************************************************************
  6. C OBJET ELSNAR : RENVOI LES NOEUDS ENTRE 2 SOMMETS
  7. C
  8. C EN ENTREE :
  9. C ICODE : CODE DE L'ELEMENT
  10. C INDSO1 : INDICE DU PREMIER SOMMET DE L'ARETE
  11. C INDSO2 : INDICE DU DEUXIEME SOMMET DE L'ARETE
  12. C EN SORTIE :
  13. C INDNO : INDICE DES NOEUDS SUR L'ARETE (MEME ORIENTATION)
  14. C NBNO : NOMBRE DE NOEUDS SUR L'ARETE
  15. C iarr : CODE D'ERREUR
  16. C
  17. C REMARQUE : FONCTIONNE POUR LE CODE VIPLEF
  18. C ELEMENTS S3,Q8,H20
  19. C *****************************************************************
  20. IMPLICIT INTEGER(I-N)
  21. INTEGER ICODE,INDSO(*),INDNO(*),NBNO,iarr
  22. C
  23. EXTERNAL FCUB20,FCAR8
  24. INTEGER INUMS
  25. C
  26. CALL ELNUMS(ICODE,INUMS)
  27. GOTO (10, 20, 30, 40, 50, 60, 70, 80, 90, 100,
  28. > 110,120,130,140,150,160,170,180,190,200,
  29. > 210) INUMS
  30. C
  31. 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
  42. CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  43. GOTO 9999
  44. 70 CONTINUE
  45. CALL FCAR8(1,INDSO,INDNO,NBNO)
  46. GOTO 9999
  47. 80 CONTINUE
  48. 90 CONTINUE
  49. 100 CONTINUE
  50. 110 CONTINUE
  51. 120 CONTINUE
  52. 130 CONTINUE
  53. 140 CONTINUE
  54. 150 CONTINUE
  55. 160 CONTINUE
  56. 170 CONTINUE
  57. 180 CONTINUE
  58. 190 CONTINUE
  59. iarr = -3
  60. CALL ESERRO(1,iarr,'ELSOVO ',' CODE NON IMPLEMENTE')
  61. GOTO 9999
  62. 200 CONTINUE
  63. CALL FCUB20(1,INDSO,INDNO,NBNO)
  64. GOTO 9999
  65. 210 CONTINUE
  66. iarr = -3
  67. CALL ESERRO(1,IERR,'ELSOVO ',' CODE NON IMPLEMENTE')
  68. GOTO 9999
  69.  
  70. C
  71. 9999 END
  72.  
  73.  
  74.  
  75.  

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