From dc36a1e525b17a249add2444046de5fd12dfd311 Mon Sep 17 00:00:00 2001
From: kamischi <karl-michael.schindler@web.de>
Date: Thu, 25 Apr 2024 13:17:37 +0200
Subject: [PATCH] Add output to usurlo

---
 source/f90/usurlo.f90     | 3 +++
 tests/phintlog/usurlo.f90 | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/source/f90/usurlo.f90 b/source/f90/usurlo.f90
index eadb552..ecb5cda 100644
--- a/source/f90/usurlo.f90
+++ b/source/f90/usurlo.f90
@@ -15,6 +15,9 @@ 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
+    write(*,*) 'hello, here is the user loss function'
+  endif
   usurlo = 1.0d0
   return
 end function usurlo
diff --git a/tests/phintlog/usurlo.f90 b/tests/phintlog/usurlo.f90
index eadb552..ecb5cda 100644
--- a/tests/phintlog/usurlo.f90
+++ b/tests/phintlog/usurlo.f90
@@ -15,6 +15,9 @@ 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
+    write(*,*) 'hello, here is the user loss function'
+  endif
   usurlo = 1.0d0
   return
 end function usurlo
-- 
GitLab