d_grnd_1 Subroutine

subroutine d_grnd_1(A)

Arguments

Type IntentOptional Attributes Name
real(kind=8), dimension(:) :: A

Calls

proc~~d_grnd_1~~CallsGraph proc~d_grnd_1 d_grnd_1 mersenne mersenne proc~d_grnd_1->mersenne

Source Code

subroutine d_grnd_1(A)
  real(8),dimension(:) :: A
  integer              :: i
  do i=1,size(A)
     A(i) = mersenne()
  enddo
end subroutine d_grnd_1