Commit 77a919ae authored by ulrich_y's avatar ulrich_y
Browse files

Removed some unreachable code

parent 0f333129
......@@ -352,11 +352,6 @@ CONTAINS
#ifdef DEBUG
if(verb >= 70) print*, 'is just a logarithm'
#endif
if(abs(z_flat(1)) <= zero) then
! This shouldn't happen!
res = gpl_zero_zi(1,y)
return
end if
res = plog1(y,z_flat(1)) ! log((z_flat(1) - y)/z_flat(1))
return
end if
......@@ -378,10 +373,7 @@ CONTAINS
k = size(z_flat)
kminusj = find_amount_trailing_zeros(z_flat)
j = k - kminusj
if(all(abs(z_flat) < zero)) then
res = GPL_zero_zi(k,y)
return
else if(kminusj > 0) then
if(kminusj > 0) then
#ifdef DEBUG
if(verb >= 30) print*, 'need to remove trailing zeroes'
#endif
......
......@@ -133,26 +133,6 @@ CONTAINS
end do
END FUNCTION shuffle_with_zero
#ifdef DEBUG
SUBROUTINE print_matrix(m)
complex(kind=prec) :: m(:,:)
integer :: s(2), i
s = shape(m)
do i = 1,s(1)
print*, abs(m(i,:))
end do
END SUBROUTINE print_matrix
SUBROUTINE print_logical_matrix(m)
logical :: m(:,:)
integer :: s(2), i
s = shape(m)
do i = 1,s(1)
print*, m(i,:)
end do
END SUBROUTINE print_logical_matrix
#endif
! subroutine print(s1,s2,s3,s4,s5)
! character(len = *), intent(in), optional :: s1, s2, s3, s4, s5
! if(print_enabled) then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment