Displaying 5 results from an estimated 5 matches for "c_doubl".
Did you mean:
c_double
2015 Jul 27
2
R package with Fortran module on Windows? undefined reference to `__stack_chk_fail'
...l 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, n
integer, allocatable :: seed(:)
double precision :: pi_est, homepi, pir...
2019 Feb 01
2
Set the number of threads using openmp with .Fortran?
...F90FLAGS = "-fopenmp"
LDFLAGS = "-fopenmp"
*This is my Fortran module:*
module hello_openmp
use omp_lib
implicit none
contains
subroutine hello(ncores) bind(C, name="hello_")
use, intrinsic :: iso_c_binding,
only : c_double, c_int
integer(c_int), intent(in) :: ncores
integer :: iam
! Specify number of threads to use:
!$call omp_set_num_threads(ncores)
!$omp parallel private(iam)
iam=omp_get_thread_num()
!$omp critical
write(*,*...
2015 Jul 27
0
R package with Fortran module on Windows? undefined reference to `__stack_chk_fail'
...d**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, n
> integer, allocatable :: seed(:)
> double precision...
2019 Feb 02
1
Set the number of threads using openmp with .Fortran?
...rtran module:*
>>
>> module hello_openmp
>> use omp_lib
>> implicit none
>> contains
>>
>> subroutine hello(ncores) bind(C, name="hello_")
>> use, intrinsic ::
>> iso_c_binding, only : c_double, c_int
>> integer(c_int), intent(in) :: ncores
>> integer :: iam
>> ! Specify number of threads to use:
>> !$call omp_set_num_threads(ncores)
>> !$omp parallel private(iam)
>>...
2019 Feb 02
0
Set the number of threads using openmp with .Fortran?
...penmp"
>
> *This is my Fortran module:*
>
> module hello_openmp
> use omp_lib
> implicit none
> contains
>
> subroutine hello(ncores) bind(C, name="hello_")
> use, intrinsic :: iso_c_binding,
> only : c_double, c_int
> integer(c_int), intent(in) :: ncores
> integer :: iam
> ! Specify number of threads to use:
> !$call omp_set_num_threads(ncores)
> !$omp parallel private(iam)
> iam=omp_get_thread_num(...