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.
16 lines
361 B
16 lines
361 B
function Li2(x)
|
|
implicit none
|
|
include 'types.f'
|
|
real(dp):: Li2
|
|
|
|
C returns Li_2(x) for real x, minf < x < 1
|
|
real(dp):: x
|
|
complex(dp):: wgplg
|
|
|
|
if (x > 1._dp) then
|
|
write(6,*) 'Abort:x>1 in Li2 function, src/Lib/Li2.f, x=', x
|
|
stop
|
|
endif
|
|
|
|
Li2 = real(wgplg(1,1,x))
|
|
end
|