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 PPARAM
  52. -INC CCOPTIO
  53. C
  54. C
  55. CHARACTER*6 MOT(1)
  56. CHARACTER*8 MTYP
  57. DATA MOT/'MATRIK'/
  58. C
  59. MTYP='CHPOINT '
  60. CALL LIROBJ(MTYP,MCHPOI,1,IRET)
  61. IF(IERR .NE. 0) GOTO 9999
  62. CALL LIRMOT(MOT,1,IRAN,0)
  63. IF (IRAN.EQ.1) THEN
  64. CALL KOPDIK(MCHPOI,MATRIK)
  65. IF (IERR.NE.0) GOTO 9999
  66. CALL ECROBJ('MATRIK',MATRIK)
  67. ELSE
  68. CALL KOPDIR(MCHPOI,MRIGID)
  69. IF (IERR.NE.0) GOTO 9999
  70. CALL ECROBJ('RIGIDITE',MRIGID)
  71. ENDIF
  72. C
  73. 9999 RETURN
  74. END
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  

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