Esope source files

   1 : C ASSEM3    SOURCE    CHAT      05/01/12    21:27:14     5004           
   2 :       SUBROUTINE ASSEM3(MDNO,MIMI,MINCP)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : -INC CCOPTIO
   6 : -INC SMLMOTS
   7 : -INC SMLREEL
   8 : -INC SMMATRI
   9 : *      write(6,fmt='('' entree dans assem3 '')')
  10 : *      write(6,fmt='('' norinc norval'',2i6)')norinc,norval
  11 :       MLMOTS=NORINC
  12 :       SEGACT MLMOTS
  13 : *      write(6,fmt='('' fini pour norinc'')')
  14 :       LIN=MOTS(/2)
  15 :       MLREEL=NORVAL
  16 :       SEGACT MLREEL
  17 : *      write(6,fmt='('' fini pour norval'')')
  18 :       MIMIK=MIMI
  19 :       SEGACT MIMIK
  20 :       MINCPO=MINCP
  21 :       SEGACT MINCPO
  22 :       MDNOR=MDNO
  23 :       SEGACT MDNOR*MOD
  24 :       ID1=INCPO(/1)
  25 :       ID2=INCPO(/2)
  26 :       IDN=PROG(/1)
  27 :       DO 1 I=1,ID2
  28 :       DO 2 J=1,ID1
  29 :       IA=INCPO(J,I)
  30 :       IF(IA.EQ.0) GO TO 2
  31 :       DO 3 K=1,IDN
  32 :         IF(IMIK(J).NE.MOTS(K)) GO TO 3
  33 :          DNOR(IA)=DNOR(IA) * PROG(K)
  34 :          GO TO 2
  35 :    3  CONTINUE
  36 :    2  CONTINUE
  37 :    1  CONTINUE
  38 : *     write(6,fmt='('' dnor '',6e12.5)') ( dnor(ia),ia=1,dnor(/1))
  39 :       SEGDES MLMOTS,MLREEL
  40 :       RETURN
  41 :       END
  42 :  
  43 :  
  44 :  
  45 :  
  46 :