C     SccsID = "@(#)todms.f	1.1     07/23/03"
      SUBROUTINE TODMS(RAD,IDG,MIN,SEC)                                     0745
C                                                                           0746
C     RADIANS TO DEGREES,MINUTES AND SECONDS                                0747
C                                                                           0748
      REAL*8 RAD,SEC,RHOSEC
      DATA RHOSEC/2.062648062471D05/
      SEC=RAD*RHOSEC                                                        0750
      IDG=SEC/3600.D0
      SEC=SEC-DBLE(IDG*3600)
      MIN=SEC/60.D0
      SEC=SEC-DBLE(MIN*60)
      IF((60.D0-DABS(SEC)).GT.5.D-6) GO TO 100
      SEC=SEC-DSIGN(60.D0,SEC)
      MIN=MIN+ISIGN(1,MIN)
  100 IF(IABS(MIN).LT.60) GO TO 101
      MIN=MIN-ISIGN(60,MIN)
      IDG=IDG+ISIGN(1,IDG)
  101 MIN=IABS(MIN)
      SEC=DABS(SEC)
      IF(RAD.GE.0.D0) GO TO 102
      IF(IDG.EQ.0) MIN=-MIN
      IF(IDG.EQ.0.AND.MIN.EQ.0)SEC=-SEC                                     0761
  102 RETURN                                                                0762
      END                                                                   0763