do k = 0, nz - 1, 1
          do j = 0, ny - 1, 1
             do i = 1, nx, 1
                x = i + (nx)*j + ((nx)*(ny+1))*k
                threeDarray(i,(j + 1),(k + 1))=oneDarray(x)
              enddo
          enddo
       enddo