From 48d3501a6edd7dd84ac4cfead71ec271346114b9 Mon Sep 17 00:00:00 2001 From: diener Date: Mon, 25 Oct 2004 20:48:08 +0000 Subject: 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 --- src/EHFinder_IsoSurface_optimized.F90 | 8 ++++---- 1 file 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 -- cgit v1.2.3