Esope source files

   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 :