Esope source files

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