Télécharger la plaquette Cast3M


fr en

Télécharger hhocoo.eso

Retour à la liste

Numérotation des lignes : 

hhocoo

  1. C HHOCOO    SOURCE    OF166741  24/05/06    21:15:08     11082          
  2. C HHOCOO    SOURCE    FANDEUR                                           
  3.  
  4. C---------------------------------------------------------------------*
  5. C Coordonnees des noeuds d'un element HHO
  6. C---------------------------------------------------------------------*
  7.  
  8.       SUBROUTINE HHOCOO (NUMMEL,NBNOE,COORD,NUMELT, TABCOO, iret)
  9.  
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8(A-H,O-Z)
  12.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15.  
  16.       DIMENSION NUMMEL(NBNOE,*),COORD(*), TABCOO(*)
  17.  
  18.       iret = 0
  19.  
  20.       idimp1 = IDIM+1
  21.  
  22.       IELT = NUMELT
  23. C- Recuperation des coordonnees des noeuds de l element IELT
  24.       IF (IDIM.EQ.1) THEN
  25.         DO ic = 1, NBNOE
  26.           jc = idimp1 * (NUMMEL(ic,IELT) - 1)
  27.           TABCOO(ic) = COORD(jc+1)
  28.         END DO
  29.       ELSE IF (IDIM.EQ.2) THEN
  30.         DO ic = 1, NBNOE
  31.           jc = idimp1 * (NUMMEL(ic,IELT) - 1)
  32.           TABCOO(ic)       = COORD(jc+1)
  33.           TABCOO(ic+NBNOE) = COORD(jc+2)
  34.         END DO
  35.       ELSE IF (IDIM.EQ.3) THEN
  36.         NBNO2 = 2*NBNOE
  37.         DO ic = 1, NBNOE
  38.           jc = idimp1 * (NUMMEL(ic,IELT) - 1)
  39.           TABCOO(ic)       = COORD(jc+1)
  40.           TABCOO(ic+NBNOE) = COORD(jc+2)
  41.           TABCOO(ic+NBNO2) = COORD(jc+3)
  42.         END DO
  43.       END IF
  44.  
  45. c*      RETURN
  46.       END
  47.  
  48.  
  49.  

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