Télécharger mode16.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE16 SOURCE CHAT 08/10/02 21:15:34 6168
  2. C=======================================================================
  3. C= Objet MODELE - Cas de la formulation 'THERMOHYDRIQUE' =
  4. C= =
  5. C= Definition des noms de modeles de MATERIAU =
  6. C= et des noms de types d'ELEMENTS FINIS =
  7. C=======================================================================
  8.  
  9. SUBROUTINE MODE16 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  10.  
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.  
  18. CHARACTER*16 LESPRO(*)
  19. CHARACTER*4 LESTEF(*)
  20.  
  21.  
  22. C 1 - Noms de MODELES
  23. C ---------------------
  24.  
  25. * IF (IDIM.EQ.1) THEN
  26. * NBPRO=1
  27. * IF (NBPRO.GT.N1MAX) GOTO 99
  28. * LESPRO(1)='SCHREFLER'
  29. * ELSE
  30. NBPRO=1
  31. IF (NBPRO.GT.N1MAX) GOTO 99
  32. LESPRO(1)='SCHREFLER'
  33. * LESPRO(2)='2eme choix'
  34. * ENDIF
  35.  
  36. C 2 - Noms de types d'ELEMENTS FINIS
  37. C ------------------------------------
  38. * IF (IDIM.EQ.1) THEN
  39. * NBTEF=2
  40. * IF (NBTEF.GT.N2MAX) GOTO 99
  41. * LESTEF(1)='T1D2'
  42. * LESTEF(2)='T1D3'
  43. * ELSE IF (IDIM.EQ.2) THEN
  44. IF (IDIM.EQ.2) THEN
  45. NBTEF=6
  46. IF (NBTEF.GT.N2MAX) GOTO 99
  47. LESTEF(1)='SEG2'
  48. LESTEF(2)='SEG3'
  49. LESTEF(3)='TRI3'
  50. LESTEF(4)='TRI6'
  51. LESTEF(5)='QUA4'
  52. LESTEF(6)='QUA8'
  53. C* ELSE IF (IDIM.EQ.3) THEN
  54. ELSE
  55. NBTEF=8
  56. IF (NBTEF.GT.N2MAX) GOTO 99
  57. LESTEF( 1)='CUB8'
  58. LESTEF( 2)='CU20'
  59. LESTEF( 3)='PRI6'
  60. LESTEF( 4)='PR15'
  61. LESTEF( 5)='TET4'
  62. LESTEF( 6)='TE10'
  63. LESTEF( 7)='PYR5'
  64. LESTEF( 8)='PY13'
  65. ENDIF
  66. RETURN
  67.  
  68. C 3 - Traitement des ERREURS
  69. C ----------------------------
  70. 99 CALL ERREUR(5)
  71. RETURN
  72.  
  73. END
  74.  
  75.  
  76.  
  77.  
  78.  

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