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