Skip to content
Snippets Groups Projects
Commit 0ffd50ba authored by Karl-Michael Schindler's avatar Karl-Michael Schindler
Browse files

Add comments

parent 8a945af5
No related branches found
No related tags found
No related merge requests found
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 ******************************************************************
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment