Esope source files

   1 : C COQ3GR    SOURCE    CHAT      05/01/12    22:21:04     5004           
   2 :       SUBROUTINE COQ3GR(XE,UE,GRADI,WORK)                                       
   3 : C                                                                               
   4 : C |=====================================================================        
   5 : C |         CALCULER LES GRADIANS DE L ELEMENT COQ3                             
   6 : C |                                                                             
   7 : C |                                                                             
   8 : C |         GRADI(9)  CONTIEND LES TERMS DE GRADIAN                             
   9 : C |   CODE SUO X.Z.                                                    |        
  10 : C |=====================================================================        
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL *8(A-H,O-Z)                                                 
  13 :       DIMENSION XE(3,*),UE(*),GRADI(*),WORK(*)                                  
  14 : C                                                                               
  15 : C                                                                               
  16 : C                                                                               
  16 :       CALL CQ3GRA(XE,UE,GRADI,WORK(1),WORK(19),WORK(22),                        
  17 :      1 WORK(25),WORK(34),WORK(37),WORK(40),WORK(43),WORK(49),                   
  18 :      1 WORK(58),WORK(82),WORK(90),    WORK(108),WORK(112),                      
  19 :      1 WORK(116))                                                               
  20 :       RETURN                                                                    
  21 :       END                                                                       
  22 :