Initial revision

2000-02-07 10:38:55 +00:00
commit fdc6b051c9
846 changed files with 230218 additions and 0 deletions
--- a/difrac/prtang.f
+++ b/difrac/prtang.f
@@ -0,0 +1,12 @@
+C-----------------------------------------------------------------------
+C  Subroutine to print the current angle values
+C-----------------------------------------------------------------------
+      SUBROUTINE PRTANG
+      INCLUDE 'COMDIF'
+      CALL ANGET (RTHETA,ROMEGA,RCHI,RPHI)
+      WRITE (COUT,10000) IH,IK,IL,RTHETA,ROMEGA,RCHI,RPHI
+      CALL GWRITE (ITP,' ')
+      KI = ' '
+      RETURN
+10000 FORMAT (' Current values are ',3I4,4F8.3)
+      END