Télécharger misco2.eso

Retour à la liste

Numérotation des lignes :

  1. C MISCO2 SOURCE PV 11/03/07 21:17:29 6885
  2. SUBROUTINE MISCO2(WRK0,NMATR,NPDILT,NPNBRE,NPCOHI,NPECOU,
  3. 1 NPEDIR,NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR,WR13)
  4. *******************************************************************************
  5. * ce sous-programme est utilisé par le modèle MISTRAL; il est appelé *
  6. * par ecou25.eso et sert à ranger dans des tableaux les composantes *
  7. * matérielles non linéaires initialement fournies sous la forme de *
  8. * listes de réels dans l'opérateur MATERIAU *
  9. *******************************************************************************
  10. * entrées:
  11. *
  12. * WRK0 = pointeur sur le segment contenant le tableau XMAT qui contient, outre
  13. * les propriétés élastiques instanciées et quelques autres trucs, les pointeurs
  14. * sur les listes de réels représentant chacune une série de propriétés matérielles
  15. * non linéaires et correspondant chacune à une composante non linéaire du matériau
  16. * NMATR = nombre de composantes matérielles obligatoires (linéaires & non linéaires)
  17. * du modèle MISTRAL; il y a 10 composantes obligatoires non linéaires
  18. * NPDILT,NPNBRE,NPCOHI,NPECOU,NPEDIR,NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR sont les dimensions
  19. * des 10 tableaux que l'on cherche à remplir
  20. * WR13 = pointeur sur le segment contenant les 10 tableaux que l'on cherche à remplir,
  21. * chaque tableau contenant une série de propriétés matérielles
  22. *
  23. *******************************************************************************
  24. IMPLICIT INTEGER(I-N)
  25. IMPLICIT REAL*8(A-H,O-Z)
  26. *
  27. -INC SMLREEL
  28. *
  29. SEGMENT WRK0
  30. REAL*8 XMAT(NCXMAT)
  31. ENDSEGMENT
  32. *
  33. SEGMENT WR13
  34. REAL*8 PDILT(NPDILT),PNBRE(NPNBRE),PCOHI(NPCOHI),PECOU(NPECOU)
  35. REAL*8 PEDIR(NPEDIR),PRVCE(NPRVCE),PECRX(NPECRX),PDVDI(NPDVDI)
  36. REAL*8 PCROI(NPCROI)
  37. REAL*8 PINCR(NPINCR)
  38. ENDSEGMENT
  39. *
  40. NLDEB=NMATR-9
  41. DO I=NLDEB,NMATR
  42. IPROG=nint(XMAT(I))
  43. MLREEL=IPROG
  44. SEGACT MLREEL
  45. GOTO (101,102,103,104,105,106,107,108,109,110),I-NLDEB+1
  46. 101 DO J=1,NPDILT
  47. PDILT(J)=PROG(J)
  48. END DO
  49. GO TO 111
  50. 102 DO J=1,NPNBRE
  51. PNBRE(J)=PROG(J)
  52. END DO
  53. GO TO 111
  54. 103 DO J=1,NPCOHI
  55. PCOHI(J)=PROG(J)
  56. END DO
  57. GO TO 111
  58. 104 DO J=1,NPECOU
  59. PECOU(J)=PROG(J)
  60. END DO
  61. GO TO 111
  62. 105 DO J=1,NPEDIR
  63. PEDIR(J)=PROG(J)
  64. END DO
  65. GO TO 111
  66. 106 DO J=1,NPRVCE
  67. PRVCE(J)=PROG(J)
  68. END DO
  69. GO TO 111
  70. 107 DO J=1,NPECRX
  71. PECRX(J)=PROG(J)
  72. END DO
  73. GO TO 111
  74. 108 DO J=1,NPDVDI
  75. PDVDI(J)=PROG(J)
  76. END DO
  77. GO TO 111
  78. 109 DO J=1,NPCROI
  79. PCROI(J)=PROG(J)
  80. END DO
  81. GO TO 111
  82. 110 DO J=1,NPINCR
  83. PINCR(J)=PROG(J)
  84. END DO
  85. 111 CONTINUE
  86. SEGDES MLREEL
  87. END DO
  88. *
  89. RETURN
  90. END
  91.  
  92.  
  93.  
  94.  
  95.  

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