You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
565 B
28 lines
565 B
function Li3(x)
|
|
implicit none
|
|
include 'types.f'
|
|
real(dp):: Li3
|
|
|
|
C returns Li_3(x) for real x, minf < x < 1
|
|
real(dp):: x
|
|
complex(dp):: wgplg
|
|
|
|
if (x > 1._dp) then
|
|
write(6,*) 'x>1 in Li3 function, src/Lib/Li3.f', x
|
|
Li3 = 1d0
|
|
return
|
|
endif
|
|
|
|
Li3 = real(wgplg(2,1,x))
|
|
end
|
|
|
|
function ReLi3(x)
|
|
implicit none
|
|
include 'types.f'
|
|
real(dp):: ReLi3
|
|
|
|
real(dp):: x
|
|
complex(dp):: wgplg
|
|
|
|
ReLi3 = real(wgplg(2,1,x))
|
|
end
|