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.
17 lines
371 B
17 lines
371 B
function Li4(x)
|
|
implicit none
|
|
include 'types.f'
|
|
real(dp):: Li4
|
|
C returns Li_4(x) for real x, minf < x < 1
|
|
|
|
real(dp):: x
|
|
complex(dp):: wgplg
|
|
|
|
if (x > 1._dp) then
|
|
write(6,*) 'x>1 in Li4 function, src/Lib/Li4.f', x
|
|
Li4 = 1d0
|
|
return
|
|
endif
|
|
|
|
Li4 = real(wgplg(3,1,x))
|
|
end
|