Commit 48d76755 authored by ulrich_y's avatar ulrich_y

Removed unused things

parent 5a06376e
......@@ -10,8 +10,6 @@ MODULE ieps
integer(8), parameter :: di0 = +1
type(inum), parameter :: izero=inum( 0.,di0)
type(inum), parameter :: imone=inum(-1.,di0)
type(inum), parameter :: ione=inum(+1.,di0)
type(inum), parameter :: marker=inum(0.,5)
......@@ -88,18 +88,6 @@ CONTAINS
end do
END FUNCTION find_first_zero
FUNCTION find_first_true(v) result(res)
! returns index of first element in v that is true
logical :: v(:)
integer :: i, res
do i = 1, size(v)
if(v(i)) then
res = i
end if
end do
END FUNCTION find_first_true
FUNCTION min_index(v)
! returns the index of the smallest element in v
real(kind=prec) :: v(:), minimum
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