From 116fb5de4df006dd0621e99a8ac8936e71fe1fb1 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Fri, 11 Jun 2004 13:59:19 +0000
Subject: Give the interface for CCTK_TotalMemory only once.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@12 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/cctk_MemAlloc.F90 | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/cctk_MemAlloc.F90 b/src/cctk_MemAlloc.F90
index eec8e04..e0a1c79 100644
--- a/src/cctk_MemAlloc.F90
+++ b/src/cctk_MemAlloc.F90
@@ -29,11 +29,8 @@ module cctk_MemAlloc
        CCTK_POINTER ptr
      end subroutine CCTK_Free
 
-     subroutine CCTK_TotalMemory (size)
-       implicit none
-       integer size
-     end subroutine CCTK_TotalMemory
-
+     !  CCTK_TotalMemory is already declared in cctk_Malloc1
+     
   end interface
   
 end module cctk_MemAlloc
-- 
cgit v1.2.3