C DIMEN5    SOURCE    CHAT      05/01/12    22:50:41     5004           
      SUBROUTINE DIMEN5(IPOINT,IDIMEN)                                          
C                                                                               
C EXTRACTION DU NOMBRE DE MODES D'UN OBJET SOLUTION                             
C                                                                               
      IMPLICIT INTEGER(I-N)
-INC SMSOLUT                                                                    
-INC SMELEME                                                                    
C                                                                               
      MSOLUT = IPOINT                                                           
      SEGACT MSOLUT                                                             
      NN = MSOLIS(/1)                                                           
      IDIMEN = 0                                                                
      IF( NN.EQ.0 ) RETURN                                                      
      IF(ITYSOL.NE.'DYNAMIQU') THEN                                             
         MELEME = MSOLIS(3)                                                     
         SEGACT MELEME                                                          
         IDIMEN = NUM(/2)                                                       
         SEGDES MELEME                                                    
      ELSE                                                                      
         MSOLRE = MSOLIS(1)                                                     
         SEGACT MSOLRE                                                          
         IDIMEN = SOLRE(/1)                                                     
         SEGDES MSOLRE                                                    
      ENDIF                                                                     
      SEGDES MSOLUT                                                       
      RETURN                                                                    
      END