Esope source files

   1 : C FUSDEF    SOURCE    CHAT      05/01/13    00:12:10     5004           
   2 : C  ET SUR LES DEFORMES                                                          
   3 : C                                                                               
   4 :       SUBROUTINE FUSDEF(MDEFO1,MDEFO2,MDEFOR)                                   
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC SMDEFOR                                                                    
   7 :       SEGACT MDEFO1,MDEFO2                                                      
   8 :       NDEF1=MDEFO1.AMPL(/1)                                                     
   9 :       NDEF2=MDEFO2.AMPL(/1)                                                     
  10 :       NDEF=NDEF1+NDEF2                                                          
  11 :       SEGINI MDEFOR                                                             
  12 :       DO 10 I=1,NDEF1                                                           
  13 :       AMPL(I)=MDEFO1.AMPL(I)                                                    
  14 :       MTVECT(I)=MDEFO1.MTVECT(I)                                                
  15 :       IELDEF(I)=MDEFO1.IELDEF(I)                                                
  16 :       ICHDEF(I)=MDEFO1.ICHDEF(I)                                                
  17 :       JCOUL(I)=MDEFO1.JCOUL(I)                                                  
  18 :       MDCHP(I)=MDEFO1.MDCHP(I)
  19 :       MDCHEL(I)=MDEFO1.MDCHEL(I)
  20 :       MDMODE(I)=MDEFO1.MDMODE(I)
  21 :   10  CONTINUE                                                                  
  22 :       DO 20 J=1,NDEF2                                                           
  23 :       AMPL(J+NDEF1)=MDEFO2.AMPL(J)                                              
  24 :       MTVECT(J+NDEF1)=MDEFO2.MTVECT(J)                                          
  25 :       IELDEF(J+NDEF1)=MDEFO2.IELDEF(J)                                          
  26 :       ICHDEF(J+NDEF1)=MDEFO2.ICHDEF(J)                                          
  27 :       JCOUL(J+NDEF1)=MDEFO2.JCOUL(J)                                            
  28 :       MDCHP(J+NDEF1)=MDEFO2.MDCHP(J)
  29 :       MDCHEL(J+NDEF1)=MDEFO2.MDCHEL(J)
  30 :       MDMODE(J+NDEF1)=MDEFO2.MDMODE(J)
  31 :   20  CONTINUE                                                                  
  32 :       SEGDES MDEFO1,MDEFO2,MDEFOR                                               
  33 :       RETURN                                                                    
  34 :       END                                                                       
  35 :  
  36 :