Télécharger la plaquette Cast3M


fr en

Télécharger nbel.eso

Retour à la liste

Numérotation des lignes : 

nbel

  1. C NBEL      SOURCE    CB215821  19/08/20    21:20:00     10287          
  2. C   REND LE NOMBRE D'ELEMENTS D'UN OBJET
  3. C
  4.       SUBROUTINE NBEL
  5.       IMPLICIT INTEGER(I-N)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC CCGEOME
  10. -INC SMELEME
  11. -INC SMLMOTS
  12. -INC SMLENTI
  13.       CHARACTER*4 LETYP
  14.       CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)
  15.       IF (IERR.NE.0) RETURN
  16.       CALL LIROBJ('LISTMOTS',MLMOTS,0,ISPRA)
  17.       SEGACT MELEME
  18. *
  19.       IF(ISPRA.NE.0) GO TO 3
  20.       NBL=0
  21.       IPT1=MELEME
  22.       DO 2 I=1,MAX(1,LISOUS(/1))
  23.       IF (LISOUS(/1).NE.0) THEN
  24.        IPT1=LISOUS(I)
  25.        SEGACT IPT1
  26.       ENDIF
  27.       NBL=NBL+IPT1.NUM(/2)
  28.    2  CONTINUE
  29.       CALL ECRENT(NBL)
  30.       RETURN
  31. *
  32.    3  CONTINUE
  33.       SEGACT MLMOTS
  34.       JG=MOTS(/2)
  35.       SEGINI MLENTI
  36.       IPT1=MELEME
  37.       DO 4 I=1,MAX(1,LISOUS(/1))
  38.         IF (LISOUS(/1).NE.0) THEN
  39.          IPT1=LISOUS(I)
  40.          SEGACT IPT1
  41.         ENDIF
  42.         LETYP=NOMS(IPT1.ITYPEL)
  43.         DO 5 IJ=1,JG
  44.           IF(LETYP.NE.MOTS(IJ)) GO TO 5
  45.           LECT(IJ)=LECT(IJ)+IPT1.NUM(/2)
  46.           GO TO 4
  47.    5    CONTINUE
  48.    4  CONTINUE
  49.       SEGACT MLENTI
  50.       CALL ECROBJ('LISTENTI',MLENTI)
  51.       END
  52.  
  53.  
  54.  

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