Esope source files

   1 : C RGMATT    SOURCE    CHAT      09/10/09    21:23:07     6519           
   2 :       SUBROUTINE RGMATT(IPOI2,IRET)                                             
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : C=======================================================================        
   6 : C  CE SUBROUTINE CALCULE LA RIGIDITE DUE AUX LIAISONS MIXTES                    
   7 : C                                                                               
   8 : C  PROGRAMME PAR GUILBAUD                                                       
   9 : C  APPELE PAR RIGI                                                              
  10 : C=======================================================================        
  11 : -INC CCOPTIO                                                                    
  12 : -INC SMRIGID                                                                    
  13 : -INC SMATTAC                                                                    
  14 :       KRIGI=0                                                                   
  15 :       MATTAC=IPOI2                                                              
  16 :       SEGACT MATTAC                                                             
  17 :       NSOUMA=LISATT(/1)                                                         
  18 :       DO 10 NS=1,NSOUMA                                                         
  19 :       MSOUMA=LISATT(NS)                                                         
  20 :       SEGACT MSOUMA                                                             
  21 :       M=IPMATK(/1)                                                              
  22 :       IF(M.EQ.0) GOTO 1039                                                      
  23 :       DO 1038 IMA=1,M                                                           
  24 :       KRIG=IPMATK(IMA)                                                          
  25 :       IF(KRIGI.NE.0) GOTO 1037                                                  
  26 :       KRIGI=KRIG                                                                
  27 :       GO TO 1038                                                                
  27 :  1037 CALL FUSRIG(KRIGI,KRIG,IRET)                                              
  28 :       MRIGID=KRIGI                                                              
  29 :       SEGDES MRIGID
  30 :       KRIGI=IRET                                                                
  31 :  1038 CONTINUE                                                                  
  32 :  1039 CONTINUE                                                                  
  33 :       SEGDES MSOUMA                                                             
  34 :    10 CONTINUE                                                                  
  35 :       SEGDES MATTAC                                                             
  36 :       IRET=KRIGI                                                                
  37 :       RETURN                                                                    
  38 :       END                                                                       
  39 :  
  40 :  
  41 :  
  42 :  
  43 :  
  44 :  
  45 :