d_grnd_7 Subroutine

subroutine d_grnd_7(A)
  real(8),dimension(:,:,:,:,:,:,:) :: A
  integer                  :: i1,i2,i3,i4,i5,i6,i7
  do i1=1,size(A,1)
     do i2=1,size(A,2)
        do i3=1,size(A,3)
           do i4=1,size(A,4)
              do i5=1,size(A,5)
                 do i6=1,size(A,6)
                    do i7=1,size(A,7)
                       A(i1,i2,i3,i4,i5,i6,i7) = mersenne()
                    enddo
                 enddo
              enddo
           enddo
        enddo
     enddo
  enddo
end subroutine d_grnd_7