Télécharger la plaquette Cast3M


fr en

Télécharger assem3.eso

Retour à la liste

Numérotation des lignes : 

assem3

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

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