Esope source files

   1 : C COQ3KS    SOURCE    CHAT      05/01/12    22:21:21     5004           
   2 :       SUBROUTINE COQ3KS(REL,XSTRS,XE,EPAIST,WORK)                               
   3 : CCCCCCCCCCCCCCCCCCCCCCCC COMBESCURE INSPIRE DE BILBO                            
   4 : C         02 SEPT 86                                                            
   5 : C                                                                               
   6 : C                                                                               
   7 : CCCCCCCCCCC CALCUL DE K SIGMA POUR LE COQ3                                      
   8 : C                                                                               
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  11 :       DIMENSION REL(*),XSTRS(*),XE(*),WORK(*)                                   
  12 : C                                                                               
  13 : CCCCCCC ENTREE                                                                  
  14 : C            XSTRS CONTRAINTES                                                  
  15 : C            XE    COORDONNEES DES NOEUDS DE L ELEMENT                          
  16 : C            EPAIST EPAISSEUR DE L ELEMENT                                      
  17 : CCCCCC SORTIE                                                                   
  18 : C            REL MATRICE K(SIGMA)                                               
  19 : CCCCCC TRAVAIL                                                                  
  20 : C            WORK  500    VALEURS   DE TRAVAIL                                  
  21 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                                                
  21 :       CALL FLACOQ(REL,XE,EPAIST,XSTRS,WORK,WORK(4),WORK(7),                     
  22 :      1 WORK(10),WORK(19),WORK(28),WORK(37),WORK(40),WORK(43),                   
  23 :      2 WORK(43),WORK(448))                                                      
  24 :       RETURN                                                                    
  25 :       END                                                                       
  26 :