bda/fortran-array-copy
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

simplify

Browse Source
This commit is contained in:
Bryce Allen
2022-03-10 19:10:53 +00:00
parent c9c6a2967a
commit 8e78f0c8cd
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
array_copy.f90
View File

@@ -42,12 +42,10 @@ program test
implicit none implicit none
complex, dimension(:), allocatable, target :: alloc complex, dimension(:), allocatable, target :: alloc
complex, dimension(:), pointer, contiguous :: stor
complex, dimension(:,:,:,:), pointer, contiguous :: p complex, dimension(:,:,:,:), pointer, contiguous :: p
allocate(alloc(10240)) allocate(alloc(10240))
stor => alloc p(0:15,0:15,1:2,1:20) => alloc
p(0:15,0:15,1:2,1:20) => stor
call printAddress("p ", p) call printAddress("p ", p)
call printAddress("p slice 1", p(:,:,:,1)) call printAddress("p slice 1", p(:,:,:,1))