Télécharger misco1.eso

Retour à la liste

Numérotation des lignes :

  1. C MISCO1 SOURCE PV 11/03/07 21:17:28 6885
  2. SUBROUTINE MISCO1(WRK0,NMATR,NDIMCO,WR12,NPDILT,NPNBRE,NPCOHI,NPECOU,
  3. 1 NPEDIR,NPRVCE,NPECRX,NPDVDI,NPCROI,NPINCR)
  4. *********************************************************************************
  5. * ce sous-programme est utilisé par le modèle MISTRAL; il est appelé *
  6. * par ecou25.eso et retrouve les dimensions des listes de réels fournies *
  7. * dans l'opérateur MATERIAU pour les 10 composantes non linéaires du modèle *
  8. *********************************************************************************
  9. * entrées:
  10. *
  11. * WRK0 = pointeur sur le segment contenant le tableau XMAT qui contient, outre
  12. * les propriétés élastiques instanciées et quelques autres trucs, les pointeurs
  13. * sur les listes de réels représentant chacune une série de propriétés matérielles
  14. * non linéaires et correspondant chacune à une composante non linéaire du matériau
  15. * NMATR = nombre de composantes matérielles obligatoires (linéaires & non linéaires)
  16. * du modèle MISTRAL;
  17. * NDIMCO= 10 composantes obligatoires non linéaires
  18. * WR12 = pointeur sur le segment contenant le tableau IDIMCO des dimensions des listes de réels
  19. *
  20. * sorties:
  21. *
  22. * NPDILT, NPNBRE, NPCOHI, NPECOU, NPEDIR, NPRVCE, NPECRX, NPDVDI, NPCROI, NPINCR sont les dimensions cherchées
  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 WR12
  34. INTEGER IDIMCO(NDIMCO)
  35. ENDSEGMENT
  36. *
  37. NLDEB=NMATR-9
  38. DO I=NLDEB,NMATR
  39. IPROG=nint(XMAT(I))
  40. MLREEL=IPROG
  41. SEGACT MLREEL
  42. IDIMCO(I-NLDEB+1)=PROG(/1)
  43. SEGDES MLREEL
  44. END DO
  45. *
  46. NPDILT=IDIMCO(1)
  47. NPNBRE=IDIMCO(2)
  48. NPCOHI=IDIMCO(3)
  49. NPECOU=IDIMCO(4)
  50. NPEDIR=IDIMCO(5)
  51. NPRVCE=IDIMCO(6)
  52. NPECRX=IDIMCO(7)
  53. NPDVDI=IDIMCO(8)
  54. NPCROI=IDIMCO(9)
  55. NPINCR=IDIMCO(10)
  56.  
  57. RETURN
  58. END
  59.  
  60.  
  61.  
  62.  

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