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/mod360.f
+++ b/difrac/mod360.f
@@ -0,0 +1,8 @@
+C-----------------------------------------------------------------------
+C  Subroutine to put angle in 0 to 359.999 range
+C-----------------------------------------------------------------------
+      SUBROUTINE MOD360 (ANG)
+      IF (ANG .GE. 360.0) ANG = ANG - 360.0
+      IF (ANG .LT.   0.0) ANG = ANG + 360.0
+      RETURN
+      END