Télécharger la plaquette Cast3M


fr en

Télécharger nbno.eso

Retour à la liste

Numérotation des lignes : 

nbno

  1. C NBNO      SOURCE    PV        20/03/30    21:21:31     10567          
  2. C   RAMENE LE NOMBRE DE NOEUDS D'UN OBJET (ELEMENT)
  3. C
  4.       SUBROUTINE NBNO
  5.       IMPLICIT INTEGER(I-N)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC SMELEME
  10. -INC SMCOORD
  11.       SEGMENT ICPR(nbpts)
  12.       CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)
  13.       CALL ACTOBJ('MAILLAGE',MELEME,1)
  14.       IF (IERR.NE.0) RETURN
  15.  
  16.       SEGINI ICPR
  17.       DO 1 I=1,ICPR(/1)
  18.       ICPR(I)=0
  19.    1  CONTINUE
  20.       IPT1=MELEME
  21.       DO 3 I=1,MAX(1,LISOUS(/1))
  22.         IF (LISOUS(/1).NE.0) IPT1=LISOUS(I)
  23.  
  24.         NBNN  =IPT1.NUM(/1)
  25.         NBELEM=IPT1.NUM(/2)
  26.         DO 5 K=1,NBELEM
  27.           DO 4 J=1,NBNN
  28.             L=IPT1.NUM(J,K)
  29.             ICPR(L)=1
  30.    4      CONTINUE
  31.    5    CONTINUE
  32.    3  CONTINUE
  33.       NBN=0
  34.       DO 6 I=1,ICPR(/1)
  35.         NBN=NBN+ICPR(I)
  36.    6  CONTINUE
  37.       SEGSUP ICPR
  38.  
  39.       CALL ECRENT(NBN)
  40.       END
  41.  
  42.  
  43.  
  44.  

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