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/ang360.f
+++ b/difrac/ang360.f
@@ -0,0 +1,13 @@
+C-----------------------------------------------------------------------
+C  Routine to make the difference between ANG and EXPCT small
+C-----------------------------------------------------------------------
+      SUBROUTINE ANG360 (ANG,EXPCT)
+  100 D = EXPCT - ANG
+      ISIGN = 1
+      IF (D .LT. 0.) ISIGN = -1
+      IF (ABS(D) .GE. 180.0) THEN
+        ANG = ANG + ISIGN*360.0
+        GO TO 100
+      ENDIF
+      RETURN
+      END