d_grnd_4 Subroutine

subroutine d_grnd_4(A)

Arguments

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

Calls

proc~~d_grnd_4~~CallsGraph proc~d_grnd_4 d_grnd_4 mersenne mersenne proc~d_grnd_4->mersenne

Source Code

subroutine d_grnd_4(A)
  real(8),dimension(:,:,:,:) :: A
  integer                  :: i1,i2,i3,i4
  do i1=1,size(A,1)
     do i2=1,size(A,2)
        do i3=1,size(A,3)
           do i4=1,size(A,4)
              A(i1,i2,i3,i4) = mersenne()
           enddo
        enddo
     enddo
  enddo
end subroutine d_grnd_4