diff --git a/source/f90/surlos.f90 b/source/f90/surlos.f90
index b721f65eebfaafeb07170dab3cb92f17764beb9e..3638f7a35488852d759fe7980c9fa09ecc89452a 100644
--- a/source/f90/surlos.f90
+++ b/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)
diff --git a/source/f90/usurlo.f90 b/source/f90/usurlo.f90
index ecb5cdacbed86f50403920ee476d52245883846b..222946c95f302c8015f157572135fbf0d44c1174 100644
--- a/source/f90/usurlo.f90
+++ b/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