Skip to content
Snippets Groups Projects
Commit 9d3c2f5b authored by kamischi's avatar kamischi
Browse files

Minimize changes to original code.

parent 38174e9e
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
source/f77/eels.for
+ 2
− 2
View file @ 9d3c2f5b
......@@ -831,7 +831,7 @@ C ABTI0819
SURLOS = AIMAG(-2.0/A) ABTI0837
GOTO 17 ABTI0838
16 SURLOS = 2.0D0/EPSMAC ABTI0839
17 RETURN
17 RETURN ABTI0840
END ABTI0841
DOUBLE PRECISION FUNCTION USURLO(DQ,WN) ABTI0842
C ****************************************************************** ABTI0843
......@@ -844,6 +844,6 @@ C * WN : FREQUENCY (CM**-1) * ABTI0849
C * * ABTI0850
C ****************************************************************** ABTI0851
DOUBLE PRECISION DQ,WN ABTI0852
USURLO = 1.0D0 ABTI0853
USURLO = 1.0D0 ABTI0853
RETURN ABTI0854
END ABTI0855
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment