Skip to content

Exercise 1 Fortran. #14

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
github-actions wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Exercise 1 Fortran. #14

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
7ee6cf7
changing from real to real64 to try and improve result
hkershaw-brown Dec 15, 2023
dc40043
bug-fix: was using x twice rather than x and y to check for point in …
hkershaw-brown Dec 15, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 4 additions & 3 deletions Fortran/exercise1/calc_pi.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,11 @@
program calc_pi
use iso_fortran_env
implicit none

integer, parameter :: num_samples = 1000000 ! Number of random samples

real :: x, y
real :: pi_approx
real(real64) :: x, y
real(real64) :: pi_approx
integer :: i, count_inside_circle

count_inside_circle = 0
Expand All @@ -14,7 +15,7 @@ program calc_pi
call random_number(x)
call random_number(y)

if (x**2 + x**2 <= 1.0) then
if (x**2 + y**2 <= 1.0) then
count_inside_circle = count_inside_circle + 1
end if
end do
Expand Down