Télécharger la plaquette Cast3M


fr en

Télécharger cmisc1.eso

Retour à la liste

Numérotation des lignes : 

cmisc1

  1. C CMISC1    SOURCE    PV        17/12/08    21:16:08     9660           
  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.  
  92.  

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