diff options
author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-09-03 11:25:35 +0000 |
---|---|---|
committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-09-03 11:25:35 +0000 |
commit | 3597c1de3d454d340099b62ed4191106cda46896 (patch) | |
tree | 0613c2b9b40e33f5c7fd925d3c703bc915238308 /src/AHFinder_gau.F | |
parent | 22dbc8296071a175db77b15a9a6299a0d800358b (diff) |
Removed allocation/deallocation for variable gaussian. This is a CCTK variable
now, and storage is assigned in schedule.ccl.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@236 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_gau.F')
-rw-r--r-- | src/AHFinder_gau.F | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index c9cbf4b..8b39b84 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -58,7 +58,6 @@ CCTK_REAL, allocatable, dimension(:,:) :: rr,xa,ya,za CCTK_REAL, allocatable, dimension(:,:) :: txx,tyy,tzz,txy,txz,tyz CCTK_REAL, allocatable, dimension(:,:) :: g11,g22,g12 - CCTK_REAL, allocatable, dimension(:,:) :: gaussian character*200 gaussf @@ -224,8 +223,6 @@ allocate(g22(1:ntheta+1,1:nphi+1)) allocate(g12(1:ntheta+1,1:nphi+1)) - allocate(gaussian(1:ntheta+1,1:nphi+1)) - else allocate(rr(1,1)) @@ -245,8 +242,6 @@ allocate(g22(1,1)) allocate(g12(1,1)) - allocate(gaussian(1,1)) - end if rr = zero @@ -700,7 +695,6 @@ deallocate(xa,ya,za) deallocate(txx,tyy,tzz,txy,txz,tyz) deallocate(g11,g22,g12) - deallocate(gaussian) return end if @@ -1270,7 +1264,6 @@ deallocate(xa,ya,za) deallocate(txx,tyy,tzz,txy,txz,tyz) deallocate(g11,g22,g12) - deallocate(gaussian) ! *************** |