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/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