Télécharger la plaquette Cast3M


fr en

Télécharger kopdik.eso

Retour à la liste

Numérotation des lignes : 

kopdik

  1. C KOPDIK    SOURCE    CB215821  20/11/25    13:32:43     10792          
  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 PPARAM
  26. -INC CCOPTIO
  28. -INC SMCHPOI
  29. -INC SMELEME
  30. *
  31. * Executable statements
  32. *
  33.       SEGACT MCHPOI
  34.       NSOUPO = IPCHP(/1)
  35.       NRIGE = 7
  36.       NMATRI = NSOUPO
  37.       NKID = 9
  38.       NKMT = 7
  39.       SEGINI MATRIK
  40. C
  41.       DO ISOUPO = 1, NSOUPO
  42.          MSOUPO = IPCHP(ISOUPO)
  43.          SEGACT MSOUPO
  44.          NC=NOCOMP(/2)
  45.          NBME=NC
  46.          NBSOUS=1
  47.          SEGINI IMATRI
  48.          IRIGEL(4,ISOUPO)=IMATRI
  49.          MELEME=IGEOC
  50.          MPOVAL=IPOVAL
  51.          SEGACT MPOVAL
  52.          IRIGEL(1,ISOUPO)=MELEME
  53.          IRIGEL(2,ISOUPO)=MELEME
  54. * Diagonal
  55.          IRIGEL(7,ISOUPO)=5
  56.          SEGACT MELEME
  57.          NBEL=NUM(/2)
  58.          SEGDES MELEME
  59.          NP=1
  60.          MP=1
  61.          DO IC=1,NC
  62.             LISPRI(IC)=NOCOMP(IC)
  63.             LISDUA(IC)=NOCOMP(IC)
  64.             SEGINI IZAFM
  65.             LIZAFM(1,IC)=IZAFM
  66.             DO IBEL=1,NBEL
  67.                AM(IBEL,1,1)=VPOCHA(IBEL,IC)
  68.             ENDDO
  69.             SEGDES IZAFM
  70.          ENDDO
  71.          SEGDES MPOVAL
  72.          SEGDES IMATRI
  73.          SEGDES MSOUPO
  74.       ENDDO
  75.       SEGDES MATRIK
  76.       SEGDES MCHPOI
  77. *
  78. * Normal termination
  79. *
  80.       RETURN
  81. *
  82. * End of subroutine KOPDIK
  83. *
  84.       END
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  

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