Logo Search packages:      
Sourcecode: raster3d version File versions  Download package

suv.f

      FUNCTION CCuij(UU,VV)
C       ===============================================================
C     Correlation coefficient between two (3x3) anisotropic 
C     displacement matrices Uij and Vij.
C     See Merritt (1999) Acta Crystallographica D55, 1997-2004.
C     Return 0 if any of the tensors involved are NPD
C       ===============================================================
      REAL CCuij V3VINV
      REAL UU(3,3), VV(3,3), WW(3,3), UI(3,3), VI(3,3), WI(3,3)
      REAL DUI, DVI, DWI
      DUI = 1. / V3INV(UI,UU)
      DVI = 1. / V3INV(VI,VV)
C     Sylvester
















































































































































































Generated by  Doxygen 1.6.0   Back to index