C COMCRI    SOURCE    FANDEUR   12/07/18    21:15:10     7435           

      SUBROUTINE COMCRI(iqmod,ipcon,IPMINT,indeso,ipil,
     &                  insupp,iwrk53,iretou)
*
*  cree les melval produits par le modele
*  cree les deche associes
*  range dans les pilnec qui conviennent
*----------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC CCOPTIO
-INC SMMODEL
-INC SMCHAML
-INC DECHE
*
        imodel = iqmod
        liluc = ipil 

* temps -> 2
*       jluc = 2
*       domdec = liluc(jluc)
****       segact domdec*nomod
*       mocomp = jnomid
*       lscont = jilnec
*       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
*     &             IPMINT,insupp,iwrk53,jluc,iretou)
* caracteristiques materiau -> 13
       jluc = 13
       domdec = liluc(jluc)
****       segact domdec*nomod
       mocomp = jnomid
       lscont = jilnec
       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
     &             IPMINT,insupp,iwrk53,jluc,iretou)
* caracteristiques geometriques -> 14
       jluc = 14
       domdec = liluc(jluc)
********       segact domdec*nomod
       mocomp = jnomid
       lscont = jilnec
       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
     &             IPMINT,insupp,iwrk53,jluc,iretou)
* temperature -> 15
*       jluc = 15
*       domdec = liluc(jluc)
********       segact domdec*nomod
*       mocomp = jnomid
*       lscont = jilnec
*       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
*     &             IPMINT,insupp,iwrk53,jluc,iretou)
* -> 26 et + : Cas pouvant arriver ?
       IF(LILUC(/1).GT.25) THEN
         jluc = 26
         domdec = liluc(jluc)
********       segact domdec*nomod
         mocomp = jnomid
         lscont = jilnec
         call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
     &               IPMINT,insupp,iwrk53,jluc,iretou)
       ENDIF
*-------------------------------------------------
      if  (FORMOD(1).EQ.'MECANIQUE'.OR.
     &     FORMOD(1).EQ.'POREUX') then

* contraintes -> 11
       jluc = 11
       domdec = liluc(jluc)
********       segact domdec*nomod
       mocomp = jnomid
       lscont = jilnec
       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
     &             IPMINT,insupp,iwrk53,jluc,iretou)
* deformations -> 12
       jluc = 12
       domdec = liluc(jluc)
********       segact domdec*nomod
       mocomp = jnomid
       lscont = jilnec
       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
     &             IPMINT,insupp,iwrk53,jluc,iretou)
* variables internes -> 20
       jluc = 20 
       domdec = liluc(jluc)
********       segact domdec*nomod
       mocomp = jnomid
       lscont = jilnec
       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
     &             IPMINT,insupp,iwrk53,jluc,iretou)
* deformations inelastiques -> 24
       jluc = 24
       domdec = liluc(jluc)
*******       segact domdec*nomod
       mocomp = jnomid
       lscont = jilnec
       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
     &             IPMINT,insupp,iwrk53,jluc,iretou)
*--------------------------------------------
      ELSE if (formod(1).eq.'LIAISON') then 
       jluc = 20 
       domdec = liluc(jluc)
********       segact domdec*nomod
       mocomp = jnomid
       lscont = jilnec
       call COMCRE(iqmod,ipcon,indeso,mocomp,lscont,
     &             IPMINT,insupp,iwrk53,jluc,iretou)
*--------------------------------------------
      ELSE if (formod(1).eq.'MELANGE') then 
*--------------------------------------------
      ELSE
*--------------------------------------------
      endif

      return
      END