PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/difrac/sgrmat.f
+++ b/difrac/sgrmat.f
@@ -0,0 +1,30 @@
+C-----------------------------------------------------------------------
+C  Space group routine setup of the r-matrix
+C-----------------------------------------------------------------------
+      SUBROUTINE SGRMAT (RT,A,B,C,D,E,F,G,H,O)
+      INTEGER A,B,C,D,E,F,G,H,O
+      DIMENSION RT(5,4)
+      RT(1,1) = A
+      RT(1,2) = B
+      RT(1,3) = C
+      RT(1,4) = 0.0
+      RT(2,1) = D
+      RT(2,2) = E
+      RT(2,3) = F
+      RT(2,4) = 0.0
+      RT(3,1) = G
+      RT(3,2) = H
+      RT(3,3) = O
+      RT(3,4) = 0.0
+      RT(4,1) = 0.0
+      RT(4,2) = 0.0
+      RT(4,3) = 0.0
+      RT(4,4) = 1.0
+      RT(5,1) = 81*(2*RT(1,1) + 3*RT(1,2) + 4*RT(1,3)) +
+     $           9*(2*RT(2,1) + 3*RT(2,2) + 4*RT(2,3)) +
+     $              2*RT(3,1) + 3*RT(3,2) + 4*RT(3,3)
+      RT(5,2) = 1728*RT(1,4) + 144*RT(2,4) + 12*RT(3,4)
+      RT(5,3) = 10.0
+      RT(5,4) = 20.
+      RETURN
+      END