Télécharger cmisc1.eso

Retour à la liste

Numérotation des lignes :

  1. C CMISC1 SOURCE CB215821 17/10/12 21:15:06 9589
  2.  
  3. SUBROUTINE CMISC1 (WRK52,WRK53,
  4. . NPDILT,NPNBRE,NPCOHI,NPECOU,NPEDIR,
  5. . NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR)
  6.  
  7. C=======================================================================
  8. C= Ce sous-programme est utilise par le modele MISTRAL (INPLAS=94). =
  9. C= Il est appele par coml7.eso et retrouve les dimensions des listes =
  10. C= de reels fournies dans l'operateur MATERIAU pour les 10 composantes =
  11. C= non lineaires du modele. =
  12. C=======================================================================
  13. C= Entrees :
  14. C= ---------
  15. C= WRK52 = pointeur sur le segment ACTIF contenant le tableau XMAT qui
  16. C= contient, outre les proprietes elastiques instanciees et
  17. C= quelques autres trucs, les pointeurs sur les listes de reels
  18. C= representant chacune une serie de proprietes materielles
  19. C= non lineaires et correspondant chacune a une composante non
  20. C= lineaire du materiau
  21. C= NMATR = nombre de composantes materielles obligatoires du modele
  22. C= MISTRAL (composantes lineaires et non lineaires)
  23. C= variable contenue dans le segment WRK53 (ACTIF)
  24. C=
  25. C= Sorties :
  26. C= ---------
  27. C= NPDILT, NPNBRE, NPCOHI, NPECOU, NPEDIR, NPRVCE, NPECRX, NPDVDI,
  28. C= NPCROI, NPINCR = dimensions cherchees
  29. C=======================================================================
  30.  
  31. IMPLICIT INTEGER(I-N)
  32. IMPLICIT REAL*8(A-H,O-Z)
  33.  
  34. -INC SMLREEL
  35. -INC DECHE
  36.  
  37. MLREEL=nint(xmat(NMATR-9))
  38. SEGACT MLREEL
  39. NPDILT=PROG(/1)
  40. C SEGDES MLREEL
  41.  
  42. MLREEL=nint(xmat(NMATR-8))
  43. SEGACT MLREEL
  44. NPNBRE=PROG(/1)
  45. C SEGDES MLREEL
  46.  
  47. MLREEL=nint(xmat(NMATR-7))
  48. SEGACT MLREEL
  49. NPCOHI=PROG(/1)
  50. C SEGDES MLREEL
  51.  
  52. MLREEL=nint(xmat(NMATR-6))
  53. SEGACT MLREEL
  54. NPECOU=PROG(/1)
  55. C SEGDES MLREEL
  56.  
  57. MLREEL=nint(xmat(NMATR-5))
  58. SEGACT MLREEL
  59. NPEDIR=PROG(/1)
  60. C SEGDES MLREEL
  61.  
  62. MLREEL=nint(xmat(NMATR-4))
  63. SEGACT MLREEL
  64. NPRVCE=PROG(/1)
  65. C SEGDES MLREEL
  66.  
  67. MLREEL=nint(xmat(NMATR-3))
  68. SEGACT MLREEL
  69. NPECRX=PROG(/1)
  70. C SEGDES MLREEL
  71.  
  72. MLREEL=nint(xmat(NMATR-2))
  73. SEGACT MLREEL
  74. NPDVDI=PROG(/1)
  75. C SEGDES MLREEL
  76.  
  77. MLREEL=nint(xmat(NMATR-1))
  78. SEGACT MLREEL
  79. NPCROI=PROG(/1)
  80. C SEGDES MLREEL
  81.  
  82. MLREEL=nint(xmat(NMATR))
  83. SEGACT MLREEL
  84. NPINCR=PROG(/1)
  85. C SEGDES MLREEL
  86.  
  87. RETURN
  88. END
  89.  
  90.  
  91.  

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