DOUBLE PRECISION FUNCTION DEPS(DARG)                                      
C                                                                               
C SET FUNCTIONAL VALUE DEPS AND ARGUMENT DARG BOTH EQUAL TO THE                 
C   SMALLEST DOUBLE PRECISION NUMBER SO THAT 1. + DEPS .GT. 1.                  
C                                                                               
C DAVE WELLS, MAY,1977                                                          
C                                                                               
      DOUBLE PRECISION DARG                                                     
      DEPS=1.D0                                                                 
   10 DEPS=DEPS/2.D0                                                            
      IF((1.D0 + DEPS) - 1.D0 .EQ. DEPS) GO TO 10                               
      DEPS = DEPS * 2.D0                                                        
      DARG=DEPS                                                                 
      RETURN                                                                    
      END