Esope source files

   1 : C TRJ302    SOURCE    CHAT      05/01/13    03:48:04     5004           
   2 :       SUBROUTINE TRJ302(XYZL,ZXY,XYREF)
   3 : C                                                                               
   4 : C                                                                               
   5 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC          
   6 : C                                                                               
   7 : C     CALCUL DES COORDONNEES DE REFERENCES DANS UN TRI3                         
   8 : C     XYZL COORDONNEES DES SOMMETS                                              
   9 : C     ZXY               REELLES                                                 
  10 : C     XYREF             REFERENCES                                              
  11 : C                                                                               
  12 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC         
  13 : C                                                                               
  14 : C                                                                               
  15 : C                                                                               
  16 :       IMPLICIT INTEGER(I-N)
  17 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  18 : C                                                                               
  19 :       DIMENSION XYZL(2,3),ZXY(2),XYREF(2)                                       
  20 : C                                                                               
  21 : C                                                                               
  22 :       A1=XYZL(1,2)*XYZL(2,3)-XYZL(1,3)*XYZL(2,2)                                
  23 :       A2=XYZL(1,3)*XYZL(2,1)-XYZL(1,1)*XYZL(2,3)                                
  24 :       A3=XYZL(1,1)*XYZL(2,2)-XYZL(1,2)*XYZL(2,1)                                
  25 : C                                                                               
  26 : C                                                                               
  27 :       DEL=A1+A2+A3                                                              
  28 : C                                                                               
  29 :       XYREF(1)=(A2+(XYZL(2,3)-XYZL(2,1))*ZXY(1)                                 
  30 :      *            +(XYZL(1,1)-XYZL(1,3))*ZXY(2))/DEL                            
  31 :       XYREF(2)=(A3+(XYZL(2,1)-XYZL(2,2))*ZXY(1)                                 
  32 :      *            +(XYZL(1,2)-XYZL(1,1))*ZXY(2))/DEL                            
  33 : C                                                                               
  34 : C                                                                               
  35 :       RETURN                                                                    
  36 : C                                                                               
  37 :       END                                                                       
  38 :