Télécharger la plaquette Cast3M


fr en

Télécharger versym.eso

Retour à la liste

Numérotation des lignes : 

versym

  1. C VERSYM    SOURCE    GOUNAND   24/11/12    21:15:11     12076          
  2. *
  3. ************************************************************************
  4. * verification symetrie de la matrice
  5. *
  6. * IANTI = 0  : matrice symetrique       ->  Aij =  Aji  pour i<j
  7. * IANTI = 1  : matrice antisymetrique   ->  Aij = -Aji  (et  Aii=0)
  8. * IANTI = 2  : matrice quelconque       ->  pas de verification
  9. *
  10. ************************************************************************
  11.       SUBROUTINE versym(re,ire1,ire2,ire3,IANTI)
  12.  
  13.       IMPLICIT REAL*8 (a-h,o-z)
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC CCREEL
  17.       REAL*8 re(ire1,ire2,ire3)
  18.  
  19. *     matrice asymetrique (quelconque) -> pas de verif
  20.       IF(IANTI.ne.0.and.IANTI.ne.1) return
  21.  
  22. *     matrices carree uniquement
  23.       IF (ire1.ne.ire2) then
  24.          CALL erreur(756)
  25.          RETURN
  26.       ENDIF
  27. *
  28.       call versy2(re,ire1,ire2,ire3,IANTI,kerre)
  29.       if (kerre.gt.0) then
  30.          call erreur(kerre)
  31.          return
  32.       endif
  33.       return
  34.       END
  35.  
  36.  

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