Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=8), | dimension(:,:,:,:,:,:) | :: | A |
subroutine d_grnd_6(A) real(8),dimension(:,:,:,:,:,:) :: A integer :: i1,i2,i3,i4,i5,i6 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) A(i1,i2,i3,i4,i5,i6) = mersenne() enddo enddo enddo enddo enddo enddo end subroutine d_grnd_6