Télécharger assem3.eso

Retour à la liste

Numérotation des lignes :

  1. C ASSEM3 SOURCE PV 16/11/17 21:58:13 9180
  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.  
  47.  
  48.  
  49.  
  50.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales