SUBROUTINE DEG2DMS(DEG,IDEG,MIN,SEC)
C
C     CONVERT DEGREES AND FRACTION TO DEGREES, MINUTES, SECONDS
C
C     B. KNAPP, 2000-12-28, 2001-04-24 (i*4)
C
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      IMPLICIT NONE
      REAL*8 DEG,SEC,T
      INTEGER*4 IDEG,MIN,DEGSGN
C
      T=ABS(DEG)
      IDEG=INT(T)
      T=MOD(T,1.0D0)*60.0D0
      MIN=INT(T)
      SEC=MOD(T,1.0D0)*60.0D0
C
C     HANDLE SIGN
      DEGSGN = NINT(SIGN(1.D0,DEG))
      IF (IDEG.GT.0) THEN
         IDEG = SIGN(IDEG,DEGSGN)
      ELSE IF (MIN.GT.0) THEN
         MIN = SIGN(MIN,DEGSGN)
      ELSE
         SEC = SIGN(SEC,DEG)
      ENDIF
C
      RETURN
      END