Télécharger lliste.eso

Retour à la liste

Numérotation des lignes :

  1. C LLISTE SOURCE CHAT 11/03/16 21:27:04 6902
  2. SUBROUTINE LLISTE(IPCHCO)
  3. C____________________________________________________________________
  4. C
  5. C IMPRESSION D'UN CHAMP DE CONNECTIVITE
  6. C
  7. C ENTREE : IPCHCO pointeur sur un champ de connectivite
  8. C
  9. C APPELE PAR : CONNEC
  10. C
  11. C PP 5/9/92
  12. C____________________________________________________________________
  13. C
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8(A-H,O-Z)
  16. LOGICAL LCOPLX
  17. C
  18. -INC SMMODEL
  19. -INC CCOPTIO
  20. -INC SMCHAML
  21. -INC SMLENTI
  22. C
  23. C CREATION DU MCHELM
  24. C
  25. MCHELM=IPCHCO
  26. SEGACT,MCHELM
  27. NSOUS=IMACHE(/1)
  28. WRITE(IOIMP,*)
  29. WRITE(IOIMP,*)'Liste du MCHAML cree par CONN'
  30. WRITE(IOIMP,*)
  31. WRITE(IOIMP,'(A50)')'ss type '//TITCHE
  32. WRITE(IOIMP,*)
  33. C____________________________________________________________________
  34. C
  35. C DEBUT DE LA BOUCLE SUR LES DIFFERENTES ZONES
  36. C____________________________________________________________________
  37. C
  38. DO 500 ISOUS=1,NSOUS
  39. MCHAML=ICHAML(ISOUS)
  40. C
  41. SEGACT,MCHAML
  42. MELVA1=IELVAL(1)
  43. MELVA2=IELVAL(2)
  44. MELVA3=IELVAL(3)
  45. MELVA4=IELVAL(4)
  46. SEGACT,MELVA1,MELVA2,MELVA3,MELVA4
  47. C
  48. WRITE(IOIMP,*)
  49. WRITE(IOIMP,*)'SS-ZONE ',ISOUS, ' POINTEUR ',IMACHE(ISOUS)
  50. WRITE(IOIMP,*)' CONSTITUENT ',CONCHE(ISOUS)
  51. C PP WRITE(IOIMP,*)
  52. C PP WRITE(IOIMP,*)'NLAR ',MELVA1.VELCHE(1,1)
  53. C PP WRITE(IOIMP,*)
  54. WRITE(IOIMP,*)'PMOD'
  55. MMODEL=MELVA2.IELCHE(1,1)
  56. SEGACT,MMODEL
  57. DO 1 IE1=1,KMODEL(/1)
  58. IMODEL=KMODEL(IE1)
  59. SEGACT,IMODEL
  60. WRITE(IOIMP,*)IE1,IMAMOD
  61. SEGDES,IMODEL
  62. 1 CONTINUE
  63. SEGDES,MMODEL
  64. WRITE(IOIMP,*)
  65. NBELEM=MELVA3.IELCHE(/2)
  66. C
  67. C____________________________________________________________________
  68. C
  69. C BOUCLE SUR LES ELEMENTS DE LA SS ZONE
  70. C____________________________________________________________________
  71. C
  72. DO 499 IB=1,NBELEM
  73. MLENT1=MELVA3.IELCHE(1,IB)
  74. MLENT2=MELVA4.IELCHE(1,IB)
  75. IF(MLENT1.NE.0)THEN
  76. SEGACT,MLENT1,MLENT2
  77. C PP WRITE(IOIMP,*)'ELEMENT ',IB, ' NPNI et NPLI'
  78. C
  79. WRITE(IOIMP,*)'ELEMENT ',IB
  80. WRITE(IOIMP,*)' NLAR ',
  81. > (MELVA1.VELCHE(IG,MIN(IB,MELVA1.VELCHE(/2))),
  82. > IG=1,MELVA1.VELCHE(/1))
  83. WRITE(IOIMP,*)' NPNI et NPLI'
  84. C
  85. WRITE(IOIMP,*)
  86. II=1
  87. DO 200 IE1=1,MLENT1.LECT(/1)
  88. NII=MLENT2.LECT(II)
  89. WRITE(IOIMP,*)IE1,MLENT1.LECT(IE1),NII,' -->'
  90. WRITE(IOIMP,'(5(1X,I3))')(MLENT2.LECT(IE2),
  91. > IE2=II+1,II+NII)
  92. II=II+NII+1
  93. 200 CONTINUE
  94. WRITE(IOIMP,*)
  95. SEGDES,MLENT1,MLENT2
  96. ELSE
  97. WRITE(IOIMP,*)'ELEMENT ',IB, 'PAS DE CONNECTION'
  98. ENDIF
  99. 499 CONTINUE
  100. C
  101. SEGDES,MELVA1,MELVA2,MELVA3,MELVA4
  102. SEGDES,MCHAML
  103. 500 CONTINUE
  104. C____________________________________________________________________
  105. C
  106. C DESACTIVATION DES CHAMPS GLOBAUX
  107. C____________________________________________________________________
  108. C
  109. SEGDES,MCHELM
  110. RETURN
  111. END
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  

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