Minimize changes to original

source/split-f77/surlos.f

@@ -105,5 +105,5 @@ C
       SURLOS = AIMAG(-2.0/A)                                            
       GOTO 17                                                           
    16 SURLOS = 2.0D0/EPSMAC                                             
-   17 RETURN
+   17 RETURN                                                            
       END                                                               

source/split-f77/usurlo.f

@@ -9,6 +9,6 @@ C    *    WN : FREQUENCY (CM**-1)                                     *
 C    *                                                                * 
 C    ****************************************************************** 
       DOUBLE PRECISION DQ,WN                                            
-      USURLO =  1.0D0                                                   
+      USURLO = 1.0D0                                                   
       RETURN                                                            
       END