Télécharger kopidr.eso

Retour à la liste

Numérotation des lignes :

  1. C KOPIDR SOURCE BP208322 15/06/22 21:19:51 8543
  2. SUBROUTINE KOPIDR(IGEOM,LPRIM,MRIGID)
  3. IMPLICIT REAL*8 (A-H,O-Z)
  4. IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM : KOPIDR
  7. C DESCRIPTION : Transforme un CHPOINt MCHPOI en matrice
  8. C diagonale MRIGID
  9. C
  10. C
  11. C
  12. C LANGAGE : ESOPE
  13. C AUTEUR : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  14. C mél : gounand@semt2.smts.cea.fr
  15. C***********************************************************************
  16. C ENTREES : IGEOM,LPRIM
  17. C ENTREES/SORTIES :
  18. C SORTIES : MRIGID
  19. C***********************************************************************
  20. C VERSION : v1, 10/05/2011, version initiale
  21. C HISTORIQUE : v1, 10/05/2011, création
  22. C HISTORIQUE :
  23. C HISTORIQUE :
  24. C***********************************************************************
  25. -INC CCOPTIO
  26. -INC SMRIGID
  27. -INC SMELEME
  28. -INC SMLMOTS
  29. -INC CCHAMP
  30. *
  31. * Executable statements
  32. *
  33. C
  34. C
  35. C**** On controle que le MELEME soit de type POI1
  36. C Si non changer
  37. C
  38. MELEME = IGEOM
  39. SEGACT MELEME
  40. NBSOUS = MELEME.LISOUS(/1)
  41. NTYP = MELEME.ITYPEL
  42. C
  43. IF ((NBSOUS.NE.0).OR.(NTYP.NE.1)) THEN
  44. * In CHANGE : SEGINI MELEME
  45. CALL CHANGE(MELEME,1)
  46. IPT1 = IGEOM
  47. SEGDES IPT1
  48. IF (IERR.NE.0) RETURN
  49. ENDIF
  50. *
  51. MLMOTS=LPRIM
  52. SEGACT MLMOTS
  53. NRIGEL=MOTS(/2)
  54. SEGINI MRIGID
  55. MTYMAT='DIAGONAL'
  56. C
  57. NBEL=NUM(/2)
  58. DO I=1,NRIGEL
  59. COERIG(I)=1.D0
  60. IRIGEL(1,I)=MELEME
  61. NLIGRP=1
  62. NLIGRD=1
  63. SEGINI DESCR
  64. LISINC(1)=MOTS(I)
  65. CALL PLACE(NOMDD,LNOMDD,idx,MOTS(I))
  66. IF (idx.NE.0) THEN
  67. LISDUA(1)=NOMDU(idx)
  68. ELSE
  69. LISDUA(1)=MOTS(I)
  70. ENDIF
  71. NOELEP(1)=1
  72. NOELED(1)=1
  73. SEGDES DESCR
  74. IRIGEL(3,I)=DESCR
  75. NELRIG=NBEL
  76. SEGINI XMATRI
  77. DO IBEL=1,NBEL
  78. RE(1,1,IBEL)=1.D0
  79. ENDDO
  80. SEGDES XMATRI
  81. IRIGEL(4,I)=XMATRI
  82. ENDDO
  83. SEGDES MRIGID
  84. SEGDES MLMOTS
  85. SEGDES MELEME
  86. *
  87. * Normal termination
  88. *
  89. RETURN
  90. *
  91. * End of subroutine KOPIDR
  92. *
  93. END
  94.  
  95.  
  96.  
  97.  

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