Télécharger la plaquette Cast3M


fr en

Télécharger misco1.eso

Retour à la liste

Numérotation des lignes : 

misco1

  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