diff --git a/tests/seteps/seteps-original.for b/tests/seteps/seteps-original.for index 2d21c31611203837045308b7f991465ff2458ac5..48dac2efa736845ab72c2b333e6a15979db4d080 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 ******************************************************************