Initial revision

2000-02-07 10:38:55 +00:00
commit fdc6b051c9
846 changed files with 230218 additions and 0 deletions
--- a/difrac/range.f
+++ b/difrac/range.f
@@ -0,0 +1,13 @@
+C-----------------------------------------------------------------------
+C  Subroutine to put Omega, Chi & Phi into the correct range
+C-----------------------------------------------------------------------
+      SUBROUTINE RANGE (ICHI,IPHI,A)
+      DIMENSION A(4)
+      A(2) = A(2) + 180.0
+      A(3) = A(3) + 180.0*ICHI
+      A(4) = A(4) + 180.0*IPHI
+      IF (A(2) .GE. 360.0) A(2) = A(2) - 360.0
+      IF (A(3) .GE. 360.0) A(3) = A(3) - 360.0
+      IF (A(4) .GE. 360.0) A(4) = A(4) - 360.0
+      RETURN
+      END