2018-04-26 03:46:39 +08:00
|
|
|
function fortran() bind(C)
|
2019-01-28 02:57:21 +08:00
|
|
|
use, intrinsic :: iso_c_binding, only: dp=>c_double
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
|
|
real(dp) :: r, fortran
|
|
|
|
|
|
|
|
|
|
call random_number(r)
|
|
|
|
|
|
|
|
|
|
fortran = 2._dp**r
|
|
|
|
|
|
2018-04-26 03:46:39 +08:00
|
|
|
end function fortran
|
