Esope source files

   1 : C COMCRI    SOURCE    FANDEUR   12/07/18    21:15:10     7435           
   2 : 
   3 :       SUBROUTINE COMCRI(iqmod,ipcon,IPMINT,indeso,ipil,
   4 :      &                  insupp,iwrk53,iretou)
   5 : *
   6 : *  cree les melval produits par le modele
   7 : *  cree les deche associes
   8 : *  range dans les pilnec qui conviennent
   9 : *----------------------------------------------------------------
  10 :       IMPLICIT INTEGER(I-N)
  11 :       IMPLICIT REAL*8(A-H,O-Z)
  12 : -INC CCOPTIO
  13 : -INC SMMODEL
  14 : -INC SMCHAML
  15 : -INC DECHE
  16 : *
  17 :         imodel = iqmod
  18 :         liluc = ipil 
  19 : 
  20 : * temps -> 2
  21 : *       jluc = 2
  22 : *       domdec = liluc(jluc)
  23 : ****       segact domdec*nomod
  24 : *       mocomp = jnomid
  25 : *       lscont = jilnec
  25 : *       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  26 : *     &             IPMINT,insupp,iwrk53,jluc,iretou)
  27 : * caracteristiques materiau -> 13
  28 :        jluc = 13
  29 :        domdec = liluc(jluc)
  30 : ****       segact domdec*nomod
  31 :        mocomp = jnomid
  32 :        lscont = jilnec
  32 :        call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  33 :      &             IPMINT,insupp,iwrk53,jluc,iretou)
  34 : * caracteristiques geometriques -> 14
  35 :        jluc = 14
  36 :        domdec = liluc(jluc)
  37 : ********       segact domdec*nomod
  38 :        mocomp = jnomid
  39 :        lscont = jilnec
  39 :        call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  40 :      &             IPMINT,insupp,iwrk53,jluc,iretou)
  41 : * temperature -> 15
  42 : *       jluc = 15
  43 : *       domdec = liluc(jluc)
  44 : ********       segact domdec*nomod
  45 : *       mocomp = jnomid
  46 : *       lscont = jilnec
  46 : *       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  47 : *     &             IPMINT,insupp,iwrk53,jluc,iretou)
  48 : * -> 26 et + : Cas pouvant arriver ?
  49 :        IF(LILUC(/1).GT.25) THEN
  50 :          jluc = 26
  51 :          domdec = liluc(jluc)
  52 : ********       segact domdec*nomod
  53 :          mocomp = jnomid
  54 :          lscont = jilnec
  54 :          call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  55 :      &               IPMINT,insupp,iwrk53,jluc,iretou)
  56 :        ENDIF
  57 : *-------------------------------------------------
  58 :       if  (FORMOD(1).EQ.'MECANIQUE'.OR.
  59 :      &     FORMOD(1).EQ.'POREUX') then
  60 : 
  61 : * contraintes -> 11
  62 :        jluc = 11
  63 :        domdec = liluc(jluc)
  64 : ********       segact domdec*nomod
  65 :        mocomp = jnomid
  66 :        lscont = jilnec
  66 :        call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  67 :      &             IPMINT,insupp,iwrk53,jluc,iretou)
  68 : * deformations -> 12
  69 :        jluc = 12
  70 :        domdec = liluc(jluc)
  71 : ********       segact domdec*nomod
  72 :        mocomp = jnomid
  73 :        lscont = jilnec
  73 :        call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  74 :      &             IPMINT,insupp,iwrk53,jluc,iretou)
  75 : * variables internes -> 20
  76 :        jluc = 20 
  77 :        domdec = liluc(jluc)
  78 : ********       segact domdec*nomod
  79 :        mocomp = jnomid
  80 :        lscont = jilnec
  80 :        call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  81 :      &             IPMINT,insupp,iwrk53,jluc,iretou)
  82 : * deformations inelastiques -> 24
  83 :        jluc = 24
  84 :        domdec = liluc(jluc)
  85 : *******       segact domdec*nomod
  86 :        mocomp = jnomid
  87 :        lscont = jilnec
  87 :        call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  88 :      &             IPMINT,insupp,iwrk53,jluc,iretou)
  89 : *--------------------------------------------
  90 :       ELSE if (formod(1).eq.'LIAISON') then 
  91 :        jluc = 20 
  92 :        domdec = liluc(jluc)
  93 : ********       segact domdec*nomod
  94 :        mocomp = jnomid
  95 :        lscont = jilnec
  95 :        call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
  96 :      &             IPMINT,insupp,iwrk53,jluc,iretou)
  97 : *--------------------------------------------
  98 :       ELSE if (formod(1).eq.'MELANGE') then 
  99 : *--------------------------------------------
 100 :       ELSE
 101 : *--------------------------------------------
 102 :       endif
 103 : 
 104 :       return
 105 :       END
 106 : 
 107 :