Télécharger la plaquette Cast3M


fr en

Télécharger deshas.eso

Retour à la liste

Numérotation des lignes : 

deshas

  1. C DESHAS    SOURCE    GOUNAND   25/07/16    21:15:02     12326          
  2.       SUBROUTINE DESHAS(NINMAX,TRAV3,NNOMAX,DESCR,IHASH)
  3.       IMPLICIT REAL*8 (A-H,O-Z)
  4.       IMPLICIT INTEGER (I-N)
  5. C***********************************************************************
  6. C NOM         : DESHAS
  7. C DESCRIPTION : Calcul d'un hashcode pour un descripteur
  8. C
  9. C
  10. C
  11. C LANGAGE     : ESOPE
  12. C AUTEUR      : Stephane GOUNAND (CEA/DES/ISAS/DM2S/SEMT/LTA)
  13. C               mel : gounand@semt2.smts.cea.fr
  14. C***********************************************************************
  15. C VERSION    : v1, 15/07/2025, version initiale
  16. C HISTORIQUE : v1, 15/07/2025, creation
  17. C HISTORIQUE :
  18. C HISTORIQUE :
  19. C***********************************************************************
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. -INC SMRIGID
  23.       segment trav3
  24.         integer cor1p(nligrp5),cor1d(nligrd5)
  25.       endsegment
  26. *
  27. * Executable statements
  28. *
  29.       NLIGRP=NOELEP(/1)
  30.       NLIGRD=NOELED(/1)
  31.       IHASHI=0
  32.       IHASHN=0
  33.       DO ILIGRP=1,NLIGRP
  34.          IHASHI=IHASHI*(NINMAX+1)+cor1p(iligrp)
  35.          IHASHN=IHASHN*(NNOMAX+1)+noelep(iligrp)
  36.       ENDDO
  37.       DO ILIGRD=1,NLIGRD
  38.          IHASHI=IHASHI*(NINMAX+1)+cor1d(iligrd)
  39.          IHASHN=IHASHN*(NNOMAX+1)+noeled(iligrd)
  40.       ENDDO
  41.       IHASH=IHASHI+3*IHASHN
  42. *
  43. * Normal termination
  44. *
  45.       RETURN
  46. *
  47. * End of subroutine DESHAS
  48. *
  49.       END
  50.  
  51.  

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