C ASSEM3    SOURCE    CHAT      05/01/12    21:27:14     5004           
      SUBROUTINE ASSEM3(MDNO,MIMI,MINCP)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC CCOPTIO
-INC SMLMOTS
-INC SMLREEL
-INC SMMATRI
*      write(6,fmt='('' entree dans assem3 '')')
*      write(6,fmt='('' norinc norval'',2i6)')norinc,norval
      MLMOTS=NORINC
      SEGACT MLMOTS
*      write(6,fmt='('' fini pour norinc'')')
      LIN=MOTS(/2)
      MLREEL=NORVAL
      SEGACT MLREEL
*      write(6,fmt='('' fini pour norval'')')
      MIMIK=MIMI
      SEGACT MIMIK
      MINCPO=MINCP
      SEGACT MINCPO
      MDNOR=MDNO
      SEGACT MDNOR*MOD
      ID1=INCPO(/1)
      ID2=INCPO(/2)
      IDN=PROG(/1)
      DO 1 I=1,ID2
      DO 2 J=1,ID1
      IA=INCPO(J,I)
      IF(IA.EQ.0) GO TO 2
      DO 3 K=1,IDN
        IF(IMIK(J).NE.MOTS(K)) GO TO 3
         DNOR(IA)=DNOR(IA) * PROG(K)
         GO TO 2
   3  CONTINUE
   2  CONTINUE
   1  CONTINUE
*     write(6,fmt='('' dnor '',6e12.5)') ( dnor(ia),ia=1,dnor(/1))
      SEGDES MLMOTS,MLREEL
      RETURN
      END