Esope source files

   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 '
  58 :       CALL LIROBJ(MTYP,MCHPOI,1,IRET)
  59 :       IF(IERR .NE. 0) GOTO 9999
  59 :       CALL LIRMOT(MOT,1,IRAN,0)
  60 :       IF (IRAN.EQ.1) THEN
  60 :          CALL KOPDIK(MCHPOI,MATRIK)
  61 :          IF (IERR.NE.0) GOTO 9999
  61 :          CALL ECROBJ('MATRIK',MATRIK)
  62 :       ELSE
  62 :          CALL KOPDIR(MCHPOI,MRIGID)
  63 :          IF (IERR.NE.0) GOTO 9999
  63 :          CALL ECROBJ('RIGIDITE',MRIGID)
  64 :       ENDIF
  65 : C      
  66 :  9999 RETURN
  67 :       END
  68 :  
  69 :  
  70 :  
  71 :  
  72 :  
  73 :  
  74 :  
  75 :