Commit 3b568954 authored by ulrich_y's avatar ulrich_y

Follow-up to 7592cc50

parent ff260ddb
......@@ -141,7 +141,7 @@ CONTAINS
end do
end if
end do
binom = num/den
binom = real(num/den, kind=prec)
END FUNCTION binom
! subroutine print(s1,s2,s3,s4,s5)
! character(len = *), intent(in), optional :: s1, s2, s3, s4, s5
......
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