Télécharger mode21.eso

Retour à la liste

Numérotation des lignes :

  1. C MODE21 SOURCE CB215821 18/09/10 21:16:16 9912
  2. SUBROUTINE MODE21 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. C FAIT par Thibault : pour 'METALLURGIE'
  4.  
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7.  
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11.  
  12. CHARACTER*16 LESPRO(*)
  13. CHARACTER*4 LESTEF(*)
  14.  
  15. C 1 - Noms des arguments attendus pour la metallurgie
  16. C ---------------------
  17. NBPRO=4
  18. IF (NBPRO.GT.N1MAX) GOTO 99
  19. LESPRO(1)='PHASES '
  20. LESPRO(2)='REACTIFS '
  21. LESPRO(3)='PRODUITS '
  22. LESPRO(4)='TYPE '
  23. C 2 - Noms de types d'ELEMENTS FINIS
  24. C ------------------------------------
  25. IF (IDIM.EQ.1) THEN
  26. NBTEF=2
  27. IF (NBTEF.GT.N2MAX) GOTO 99
  28. LESTEF(1)='T1D2'
  29. LESTEF(2)='T1D3'
  30.  
  31. ELSE IF (IDIM.EQ.2) THEN
  32. NBTEF=12
  33. IF (NBTEF.GT.N2MAX) GOTO 99
  34. LESTEF(1) ='SEG2'
  35. LESTEF(2) ='SEG3'
  36. LESTEF(3) ='TRI3'
  37. LESTEF(4) ='TRI6'
  38. LESTEF(5) ='QUA4'
  39. LESTEF(6) ='QUA8'
  40. LESTEF(7) ='COQ2'
  41. LESTEF(8) ='BARR'
  42. LESTEF(9) ='BAR3'
  43. LESTEF(10)='POLY'
  44. LESTEF(11)='TUY2'
  45. LESTEF(12)='TUY3'
  46.  
  47. C* ELSE IF (IDIM.EQ.3) THEN
  48. ELSE
  49. NBTEF=16
  50. IF (NBTEF.GT.N2MAX) GOTO 99
  51. LESTEF( 1)='CUB8'
  52. LESTEF( 2)='CU20'
  53. LESTEF( 3)='PRI6'
  54. LESTEF( 4)='PR15'
  55. LESTEF( 5)='TET4'
  56. LESTEF( 6)='TE10'
  57. LESTEF( 7)='PYR5'
  58. LESTEF( 8)='PY13'
  59. LESTEF( 9)='COQ3'
  60. LESTEF(10)='COQ4'
  61. LESTEF(11)='COQ6'
  62. LESTEF(12)='COQ8'
  63. LESTEF(13)='BARR'
  64. LESTEF(14)='BAR3'
  65. LESTEF(15)='TUY2'
  66. LESTEF(16)='TUY3'
  67. ENDIF
  68. RETURN
  69.  
  70. C 3 - Traitement des ERREURS
  71. C ----------------------------
  72. 99 CALL ERREUR(5)
  73. RETURN
  74.  
  75. END
  76.  
  77.  
  78.  

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