Initial revision

2000-02-07 10:38:55 +00:00
commit fdc6b051c9
846 changed files with 230218 additions and 0 deletions
--- a/difrac/ang180.f
+++ b/difrac/ang180.f
@@ -0,0 +1,8 @@
+C-----------------------------------------------------------------------
+C  Make the negative of an angle in mathematical form
+C-----------------------------------------------------------------------
+      SUBROUTINE ANG180 (ANG)
+      IF (ANG .LE. 180.0) ANG = -ANG
+      IF (ANG .GT. 180.0) ANG = 360.0-ANG
+      RETURN
+      END