Initial revision

2000-02-07 10:38:55 +00:00
commit fdc6b051c9
846 changed files with 230218 additions and 0 deletions
--- a/difrac/cartc.f
+++ b/difrac/cartc.f
@@ -0,0 +1,18 @@
+C-----------------------------------------------------------------------
+C  This subroutine calculates the Cartesian coordinates of a reflection
+C-----------------------------------------------------------------------
+      SUBROUTINE CARTC (XP,YP,ZP)
+      INCLUDE 'COMDIF'
+      CO = COS((OMEGA)/DEG)
+      SO = SIN((OMEGA)/DEG)
+      CC = COS((CHI)/DEG)
+      SC = SIN((CHI)/DEG)
+      CP = COS((PHI)/DEG)
+      SP = SIN((PHI)/DEG)
+      ENGTH = 2*SIN((THETA/2)/DEG)
+      XP = ENGTH*(CO*CC*CP - SO*SP)
+      YP = ENGTH*(CO*CC*SP + SO*CP)
+      ZP = ENGTH*CO*SC
+      RETURN
+      END
+