Esope source files

   1 : C TUFIRI    SOURCE    CHAT      05/01/13    03:56:16     5004           
   2 :       SUBROUTINE TUFIRI(REG,WORK,D,KERRE)                                       
   3 : C=======================================================================        
   4 : C   CALCUL DE LA MATRICE DE RIGIDITE DE L'ELEMENT DE TUYAU FISSURE              
   5 : C   DANS LE REPERE GLOBAL                                                       
   6 : C   ENTREES:                                                                    
   7 : C     WORK(1:9)T=     CONTIENT  LES CARACTERISTIQUES GEOMETRIQUES DE            
   8 : C             L'ELEMENT                                                         
   9 : C     WORK(10:168)  = TABLEAU DE TRAVAIL                                        
  10 : C     D(2,2)= MATRICE DE HOOKE                                                  
  11 : C   SORTIE:                                                                     
  12 : C     REG   = MATRICE DE RIGIDITE                                               
  13 : C     KERRE = CODE D'ERREUR CORRESPONDANT A LA POSITION RELATIVE DES            
  14 : C             DEUX VECTEURS V1 ET V2 DEFINISSANT L'ELEMENT TUFI:                
  15 : C             0 SI PAS DE PROBLEME, 1 SINON.                                    
  16 : C             1 SI V2 EST NUL OU SI V1 ET V2 SONT COLINEAIRES.                  
  17 : C             2 SI V1 EST NUL.                                                  
  18 : C=======================================================================        
  19 :       IMPLICIT INTEGER(I-N)
  20 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  21 :       DIMENSION WORK(*),D(2,*),REG(12,*)                                        
  22 : C                                                                               
  22 :       CALL TUFIR1(REG,WORK(1),WORK(2),WORK(3),WORK(6),WORK(9),D,                
  23 :      1  WORK(10),WORK(154),KERRE)                                               
  24 :       RETURN                                                                    
  25 :       END                                                                       
  26 :