Télécharger kopdik.eso

Retour à la liste

Numérotation des lignes :

  1. C KOPDIK SOURCE PV 16/11/17 22:00:15 9180
  2. SUBROUTINE KOPDIK(MCHPOI,MATRIK)
  3. IMPLICIT REAL*8 (A-H,O-Z)
  4. IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM : KOPDIK
  7. C DESCRIPTION : Transforme un CHPOINt MCHPOI en matrice
  8. C diagonale MATRIK
  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 : MCHPOI
  17. C ENTREES/SORTIES :
  18. C SORTIES : MATRIK
  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 SMCHPOI
  27. -INC SMELEME
  28. *
  29. * Executable statements
  30. *
  31. SEGACT MCHPOI
  32. NSOUPO = IPCHP(/1)
  33. NRIGE = 7
  34. NMATRI = NSOUPO
  35. NKID = 9
  36. NKMT = 7
  37. SEGINI MATRIK
  38. C
  39. DO ISOUPO = 1, NSOUPO
  40. MSOUPO = IPCHP(ISOUPO)
  41. SEGACT MSOUPO
  42. NC=NOCOMP(/2)
  43. NBME=NC
  44. NBSOUS=1
  45. SEGINI IMATRI
  46. IRIGEL(4,ISOUPO)=IMATRI
  47. MELEME=IGEOC
  48. MPOVAL=IPOVAL
  49. SEGACT MPOVAL
  50. IRIGEL(1,ISOUPO)=MELEME
  51. IRIGEL(2,ISOUPO)=MELEME
  52. * Diagonal
  53. IRIGEL(7,ISOUPO)=5
  54. SEGACT MELEME
  55. NBEL=NUM(/2)
  56. SEGDES MELEME
  57. NP=1
  58. MP=1
  59. DO IC=1,NC
  60. LISPRI(IC)=NOCOMP(IC)//' '
  61. LISDUA(IC)=NOCOMP(IC)//' '
  62. SEGINI IZAFM
  63. LIZAFM(1,IC)=IZAFM
  64. DO IBEL=1,NBEL
  65. AM(IBEL,1,1)=VPOCHA(IBEL,IC)
  66. ENDDO
  67. SEGDES IZAFM
  68. ENDDO
  69. SEGDES MPOVAL
  70. SEGDES IMATRI
  71. SEGDES MSOUPO
  72. ENDDO
  73. SEGDES MATRIK
  74. SEGDES MCHPOI
  75. *
  76. * Normal termination
  77. *
  78. RETURN
  79. *
  80. * End of subroutine KOPDIK
  81. *
  82. END
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  

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