diff options
| author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-10-25 20:48:08 +0000 |
|---|---|---|
| committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2004-10-25 20:48:08 +0000 |
| commit | 48d3501a6edd7dd84ac4cfead71ec271346114b9 (patch) | |
| tree | fb3c4c4ec33252645ffba65cd6118ae0db1ec014 | |
| parent | d6875a6a9fbe08587a5bbf5d14ab31a098ef7727 (diff) | |
Changed allocatable to pointer attribute for arrays with intent in order to
make it compile.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@192 2a26948c-0e4f-0410-aee8-f1d3e353619c
| -rwxr-xr-x | src/EHFinder_IsoSurface_optimized.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/EHFinder_IsoSurface_optimized.F90 b/src/EHFinder_IsoSurface_optimized.F90 index efb32fa..556cbdc 100755 --- a/src/EHFinder_IsoSurface_optimized.F90 +++ b/src/EHFinder_IsoSurface_optimized.F90 @@ -18,8 +18,8 @@ subroutine EHFinder_IsoSurface(CCTK_ARGUMENTS) DECLARE_CCTK_FUNCTIONS CCTK_INT :: n_coords, n_triangles - CCTK_REAL, dimension(:), allocatable :: x_coord, y_coord, z_coord - CCTK_INT, dimension(:), allocatable :: t_index + CCTK_REAL, dimension(:), pointer :: x_coord, y_coord, z_coord + CCTK_INT, dimension(:), pointer :: t_index CCTK_REAL, parameter :: iso_value = zero CCTK_INT :: l,contor @@ -197,8 +197,8 @@ subroutine triangularization(l,contor,Nx,Ny,Nz,x_coord,y_coord,z_coord,t_index,g CCTK_REAL,dimension(Nz),intent(in)::grid_z CCTK_INT::ii,jj,kk,index,sum,nsize,boolean_finder1,boolean_finder2,boolean_finder3,t,equality,index2,pp,j,i,k CCTK_INT,intent(out)::l,contor - CCTK_REAL, dimension(:),allocatable,intent(out):: x_coord,y_coord,z_coord - CCTK_INT, dimension (:),allocatable,intent(out)::t_index + CCTK_REAL, dimension(:),pointer:: x_coord,y_coord,z_coord + CCTK_INT, dimension (:),pointer::t_index CCTK_INT,dimension(:),allocatable::resize_t_index CCTK_REAL,dimension(:),allocatable::resize_x_coord,resize_y_coord,resize_z_coord !we store table with triangles in a 2 dimensional constant array using reshape function; Fortran stores column-like and we need row-like |