Télécharger la plaquette Cast3M


fr en

Télécharger misco2.eso

Retour à la liste

Numérotation des lignes : 

misco2

  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