Esope source files

   1 : C ISMSYM    SOURCE    MAGN      09/07/30    21:17:27     6458           
   2 :       SUBROUTINE ISMSYM(MATELE,
   3 :      $     LSYM,
   4 :      $     IMPR,IRET)
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 : C***********************************************************************
   8 : C NOM         : ISMSYM
   9 : C DESCRIPTION : Symétrie (ou non) des matrices élémentaires => symétrie 
  10 : C               (ou non) de la matrice assemblée.
  11 : C
  12 : C LANGAGE     : ESOPE
  13 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  14 : C               mél : gounand@semt2.smts.cea.fr
  15 : C***********************************************************************
  16 : C APPELE PAR       : PRASEM
  17 : C***********************************************************************
  18 : C ENTREES            : MATELE
  19 : C SORTIES            : LSYM
  20 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  21 : C***********************************************************************
  22 : C VERSION    : v1, 21/12/99, version initiale
  23 : C HISTORIQUE : v1, 21/12/99, création
  24 : C HISTORIQUE :
  25 : C HISTORIQUE :
  26 : C***********************************************************************
  27 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  28 : C en cas de modification de ce sous-programme afin de faciliter
  29 : C la maintenance !
  30 : C***********************************************************************
  31 : -INC CCOPTIO
  32 : -INC SMMATRIK
  33 :       POINTEUR MATELE.MATRIK
  34 : *
  35 :       INTEGER IMPR,IRET
  36 : *
  37 :       INTEGER IMATE,NMATE
  38 :       INTEGER ISYM
  39 :       LOGICAL LSYM
  40 : *     
  41 : * Executable statements
  42 : *
  43 :       IF (IMPR.GT.1) WRITE(IOIMP,*) 'Entrée dans ismsym'
  44 :       LSYM=.TRUE.
  45 :       SEGACT MATELE
  46 :       NMATE=MATELE.IRIGEL(/2)
  47 :       DO 1 IMATE=1,NMATE
  48 :          ISYM=MATELE.IRIGEL(7,IMATE)
  49 :          IF (ISYM.EQ.-3.OR.
  50 :      $        (ISYM.GE.1.AND.ISYM.LE.3).OR.
  51 :      $        (ISYM.EQ.6).OR.(ISYM.EQ.8).OR.(ISYM.EQ.9)) THEN
  52 :             LSYM=.FALSE.
  53 :          ENDIF
  54 :  1    CONTINUE
  55 :       SEGDES MATELE
  56 : *
  57 : * Normal termination
  58 : *
  59 :       IRET=0
  60 :       RETURN
  61 : *
  62 : * Format handling
  63 : *
  64 : *
  65 : * Error handling
  66 : *
  67 :  9999 CONTINUE
  68 :       IRET=1
  69 :       WRITE(IOIMP,*) 'An error was detected in subroutine ismsym'
  70 :       RETURN
  71 : *
  72 : * End of subroutine ISMSYM
  73 : *
  74 :       END
  75 : 
  76 :  
  77 :  
  78 :