d_grnd_2 Subroutine

subroutine d_grnd_2(A)

Arguments

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

Calls

proc~~d_grnd_2~~CallsGraph proc~d_grnd_2 d_grnd_2 mersenne mersenne proc~d_grnd_2->mersenne

Source Code

subroutine d_grnd_2(A)
  real(8),dimension(:,:) :: A
  integer              :: i1,i2
  do i1=1,size(A,1)
     do i2=1,size(A,2)
        A(i1,i2) = mersenne()
     enddo
  enddo
end subroutine d_grnd_2