Displaying 2 results from an estimated 2 matches for "avepi".
2015 Jul 27
2
R package with Fortran module on Windows? undefined reference to `__stack_chk_fail'
...rd
integer :: score, n
score = 0
do n = 1, darts
call random_number(x_coord)
call random_number(y_coord)
if ((x_coord**2 + y_coord**2) <= 1.0d0) then
score = score + 1
end if
end do
dartsscore = 4.0d0*score/darts
end subroutine dboard
subroutine pi(avepi, DARTS, ROUNDS) bind(C, name="pi_")
use, intrinsic :: iso_c_binding, only :
c_double, c_int
real(c_double), intent(out) :: avepi
integer(c_int), intent(in) :: DARTS, ROUNDS
integer :: MASTER, rank, i,...
2015 Jul 27
0
R package with Fortran module on Windows? undefined reference to `__stack_chk_fail'
...> do n = 1, darts
> call random_number(x_coord)
> call random_number(y_coord)
>
> if ((x_coord**2 + y_coord**2) <= 1.0d0) then
> score = score + 1
> end if
> end do
>
> dartsscore = 4.0d0*score/darts
>
> end subroutine dboard
>
> subroutine pi(avepi, DARTS, ROUNDS) bind(C, name="pi_")
> use, intrinsic :: iso_c_binding, only :
> c_double, c_int
> real(c_double), intent(out) :: avepi
> integer(c_int), intent(in) :: DARTS, ROUNDS
> integer...