Esope source files

   1 : C DIMEN5    SOURCE    CHAT      05/01/12    22:50:41     5004           
   2 :       SUBROUTINE DIMEN5(IPOINT,IDIMEN)                                          
   3 : C                                                                               
   4 : C EXTRACTION DU NOMBRE DE MODES D'UN OBJET SOLUTION                             
   5 : C                                                                               
   6 :       IMPLICIT INTEGER(I-N)
   7 : -INC SMSOLUT                                                                    
   8 : -INC SMELEME                                                                    
   9 : C                                                                               
  10 :       MSOLUT = IPOINT                                                           
  11 :       SEGACT MSOLUT                                                             
  12 :       NN = MSOLIS(/1)                                                           
  13 :       IDIMEN = 0                                                                
  14 :       IF( NN.EQ.0 ) RETURN                                                      
  15 :       IF(ITYSOL.NE.'DYNAMIQU') THEN                                             
  16 :          MELEME = MSOLIS(3)                                                     
  17 :          SEGACT MELEME                                                          
  18 :          IDIMEN = NUM(/2)                                                       
  19 :          SEGDES MELEME                                                    
  20 :       ELSE                                                                      
  21 :          MSOLRE = MSOLIS(1)                                                     
  22 :          SEGACT MSOLRE                                                          
  23 :          IDIMEN = SOLRE(/1)                                                     
  24 :          SEGDES MSOLRE                                                    
  25 :       ENDIF                                                                     
  26 :       SEGDES MSOLUT                                                       
  27 :       RETURN                                                                    
  28 :       END                                                                       
  29 :