Minor cleanups.

source/f90/surlos.f90

@@ -39,8 +39,6 @@ double precision function surlos(dk, eps, thick, layers, nper)
   epsmac = epsmac / 2
   argmax = 0.5d0 * dlog(2 / epsmac)
 
-!  zero(z) = (dble(z) == 0.0d0) .and. (dimag(z) == 0.0d0)
-
 !  write (*,*) 'surlos:'
 !  write (*,*) 'thick: ', size(thick)
 !  write (*,*) 'eps: ', size(eps)

source/f90/usurlo.f90

@@ -15,7 +15,7 @@ double precision function usurlo(dq, wn)
   double precision, intent(in out) :: dq
   double precision, intent(in out) :: wn
 
-  if ((wn .GT. 0).AND.(dq.GT.0)) then
+  if ((wn .GT. 0) .AND. (dq .GT. 0)) then
     write(*,*) 'hello, here is the user loss function'
   endif
   usurlo = 1.0d0