From 0ffd50ba2073b45302efbd495d878b65975460cc Mon Sep 17 00:00:00 2001
From: Karl-Michael Schindler <karl-michael.schindler@web.de>
Date: Fri, 30 Aug 2024 11:48:54 +0200
Subject: [PATCH] Add comments
---
tests/seteps/seteps-original.for | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/tests/seteps/seteps-original.for b/tests/seteps/seteps-original.for
index 2d21c31..48dac2e 100644
--- a/tests/seteps/seteps-original.for
+++ b/tests/seteps/seteps-original.for
@@ -1,5 +1,15 @@
C subroutine seteps from original Lambin code with minimal changes.
-C All changes are in lowercase. KMS-2024
+C All changes are in lowercase.
+C
+C Changelog
+C - implicit none and declaration of variables
+C - change complex variables to double complex
+C - adjust assign to DENO accordingly to silence warning about loss of
+C precision
+C - set 2nd dimension of osc to lmax. Prevents out of bound errors
+C - improve the comparison of the variable DENO to 0 to silence the
+C correspoding warning
+C - KMS-2024
SUBROUTINE SETEPS(NEPS,NOS,OSC,EPSINF,WN)
C ******************************************************************
--
GitLab