Displaying 2 results from an estimated 2 matches for "pi_est".
Did you mean:
digest
2015 Jul 27
2
R package with Fortran module on Windows? undefined reference to `__stack_chk_fail'
...ing, only :
c_double, c_int
real(c_double), intent(out) :: avepi
integer(c_int), intent(in) :: DARTS, ROUNDS
integer :: MASTER, rank, i, n
integer, allocatable :: seed(:)
double precision :: pi_est, homepi, pirecv, pisum
! we set it to zero in the sequential run
rank = 0! initialize the random number generator! we make sure the
seed is different for each task
call random_seed()
call random_seed(size = n)
allocate(seed(n))
seed = 12 + rank*11
call random_seed(put=seed(1:n))
deallocate(seed)
a...
2015 Jul 27
0
R package with Fortran module on Windows? undefined reference to `__stack_chk_fail'
...nt
> real(c_double), intent(out) :: avepi
> integer(c_int), intent(in) :: DARTS, ROUNDS
> integer :: MASTER, rank, i, n
> integer, allocatable :: seed(:)
> double precision :: pi_est, homepi, pirecv, pisum
> ! we set it to zero in the sequential run
> rank = 0! initialize the random number generator! we make sure the
> seed is different for each task
> call random_seed()
> call random_seed(size = n)
> allocate(seed(n))
> seed = 12 + rank*11
> call random...