From 0f27c94e4f09bbe62fdd58bfcba305ce3fa5caed Mon Sep 17 00:00:00 2001
From: kamischi <karl-michael.schindler@web.de>
Date: Fri, 5 Jul 2024 19:02:16 +0200
Subject: [PATCH] Minor cleanups.

---
 source/f90/surlos.f90 | 2 --
 source/f90/usurlo.f90 | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/source/f90/surlos.f90 b/source/f90/surlos.f90
index b721f65..3638f7a 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 ecb5cda..222946c 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
-- 
GitLab