13 lines
456 B
Fortran
13 lines
456 B
Fortran
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
|