SUBROUTINE RADMS(RAD,IDEG,IMIN,SEC)                                       
C                                                                               
C                                                                               
C        THIS ROUTINE CONVERTS AN ANGLE FROM RADIANS TO DEGREES,MINUTES,        
C      SECONDS.                                                                 
C                                                                               
C                                                                               
C        INPUT:                                                                 
C                                                                               
C              RAD  - THE ANGLE IN RADIANS.                                     
C                                                                               
C        OUTPUT:                                                                
C                                                                               
C              IDEG - DEGREES                                                   
C                                                                               
C              IMIN - MINUTES                                                   
C                                                                               
C              SEC  - SECONDS                                                   
C                                                                               
C                                                                               
C                                             WRITTEN BY G.BOWIE                
C                                                    JUNE,1977                  
C                                                                               
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DEG=DABS(RAD)*18.D1/3.141592653589793D0                                   
      IDEG=DEG                                                                  
      F=(DEG-IDEG)*60.0D0                                                       
      IMIN=F                                                                    
      SEC=(F-IMIN)*60.0D0                                                       
      IF(DABS(SEC-60.0D0).GT.1D-6) GO TO 1                                      
      SEC=0.0D0                                                                 
      IMIN=IMIN+1                                                               
      IF(IMIN.NE.60) GO TO 1                                                    
      IMIN=0                                                                    
      IDEG=IDEG+1                                                               
    1 CONTINUE                                                                  
      IDEG=IDEG*DSIGN(1.D0,RAD)                                                 
      RETURN                                                                    
      END