SUBROUTINE DMSRAD(IDEG,IMIN,SEC,RAD)                                      
C                                                                               
C                                                                               
C        THIS ROUTINE CONVERTS AN ANGLE FROM DEGREES,MINUTES AND SECONDS        
C                                                                               
C      TO RADIANS.                                                              
C                                                                               
C        INPUT:                                                                 
C                                                                               
C              IDEG-DEGREES                                                     
C                                                                               
C              IMIN-MINUTES                                                     
C                                                                               
C              SEC -SECONDS                                                     
C                                                                               
C        OUTPUT:                                                                
C                                                                               
C              RAD -THE ANGLE IN RADIANS                                        
C                                                                               
C                                           WRITTEN BY G.BOWIE                  
C                                                 JUNE,1977                     
C                                                                               
      IMPLICIT REAL *8(A-H,O-Z)                                                 
      DEG=(IABS(IDEG)+(IMIN/60.D0)+(SEC/3600.D0))*ISIGN(1,IDEG)                 
      RAD=DEG*3.141592653589793D0/180.D0                                        
      RETURN                                                                    
      END