Télécharger kopdia.eso

Retour à la liste

Numérotation des lignes :

  1. C KOPDIA SOURCE GOUNAND 11/05/24 21:15:28 6976
  2. SUBROUTINE KOPDIA
  3. C
  4. C************************************************************************
  5. C
  6. C PROJET : CASTEM 2000
  7. C
  8. C NOM : KOPDIA
  9. C
  10. C DESCRIPTION : Cette subroutine cree une matrice diagonale
  11. C sous la forme des objets elementaires de type
  12. C MATRIK, les coefficients sont donnés par un
  13. C chpoi appuyé sur le support des inconnues
  14. C
  15. C LANGAGE : FORTRAN 77 + ESOPE 2000 (avec extensions CISI)
  16. C
  17. C AUTEUR : A. BECCANTINI, DRN/DMT/SEMT/TTMF
  18. C S. GOUNAND
  19. C************************************************************************
  20. C
  21. C
  22. C APPELES (Outils) :
  23. C
  24. C APPELES (Calcul) :
  25. C
  26. C
  27. C************************************************************************
  28. C
  29. C PHRASE D'APPELLE GIBIANE
  30. C
  31. C MAT1 = 'KOPS' 'MATDIA' CH1 ('MATRIK') ;
  32. C
  33. C ENTREES : CH1 : champoint de coefficients sur la diagonale,
  34. C appuyé sur le maillage primal
  35. C
  36. C SORTIES: MAT1 : objet de type RIGIDITE ou MATRIK,
  37. C qui contient la matrice diagonale
  38. C
  39. C************************************************************************
  40. C
  41. C HISTORIQUE (Anomalies et modifications éventuelles)
  42. C
  43. C HISTORIQUE : Cree le 23-8-2000
  44. C Mis à jour le 02/05/2011
  45. C************************************************************************
  46. C
  47. C**** Les includes
  48. C
  49. IMPLICIT REAL*8 (A-H,O-Z)
  50. IMPLICIT INTEGER(I-N)
  51. -INC CCOPTIO
  52. C
  53. C
  54. CHARACTER*6 MOT(1)
  55. CHARACTER*8 MTYP
  56. DATA MOT/'MATRIK'/
  57. C
  58. MTYP='CHPOINT '
  59. CALL LIROBJ(MTYP,MCHPOI,1,IRET)
  60. IF(IERR .NE. 0) GOTO 9999
  61. CALL LIRMOT(MOT,1,IRAN,0)
  62. IF (IRAN.EQ.1) THEN
  63. CALL KOPDIK(MCHPOI,MATRIK)
  64. IF (IERR.NE.0) GOTO 9999
  65. CALL ECROBJ('MATRIK',MATRIK)
  66. ELSE
  67. CALL KOPDIR(MCHPOI,MRIGID)
  68. IF (IERR.NE.0) GOTO 9999
  69. CALL ECROBJ('RIGIDITE',MRIGID)
  70. ENDIF
  71. C
  72. 9999 RETURN
  73. END
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  

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